主题：直接登陆邮箱

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