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

有人回吗？

看看问题出在哪一行：

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()

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