主题：直接登陆邮箱

能打开邮箱并能填入用户名和密码，要点击确定方可进入，同时FOXTABEL会弹出一个错误窗口。

 

以下代码要如何修改？

 

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = True
    .Navigate("http://reg.163.com/")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        .getElementById("userName").Value = "wangliang1618@163.com"
        .getElementById("password").Value = "wl24715858"
        .getElementById("loginform").submit
    End With
    .Visible = True
End With

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

有人回吗？

 

看看问题出在哪一行：

 

http://www.foxtable.com/help/topics/1485.htm

 

现在可以直接进去了，但还是会弹出错误窗口，麻烦一下，我查不到，请帮忙修改一下！！

我也不会的

Dim Proc As New Process
Proc.File=https://reg.163.com/logins.jspusername=wangliang1618@163.com&password=wl24715858&Type=1&url=http://fm163.163.com/coremail/fcg/ntesdoor2?
Proc.Start()

Dim Proc As New Process
Proc.File=https://reg.163.com/logins.jspusername=wangliang1618@163.com&password=wl24715858&Type=1&url=http://fm163.163.com/coremail/fcg/ntesdoor2?
Proc.Start()

 

这个代码也不行呀，请高手指点！

一直在使用中，你给的邮箱密码是错的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目254.table

呵呵，学习.