主题：直接登陆邮箱

能打开邮箱并能填入用户名和密码，要点击确定方可进入，同时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

有人回吗？

 

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

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.jsp?username=wangliang1618@163.com&password=hyf263318&Type=1&url=http://fm163.163.com/coremail/fcg/ntesdoor2?"
Proc.Start() 

我想问一下，这段代码中Proc.File=https://reg.163.com/logins.jsp?这个表示什么，是怎么得来的？还有Type=1&url=http://fm163.163.com/coremail/fcg/ntesdoor2?这个又是表示什么，是怎么得来的？我想问清楚一下，下次换其它的邮箱自己就可以设置了！！多谢！！