主题：[求助]自动登录网页怎么实现？

'送佛送到西好了

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = True
    .Navigate("http://www.foxtable.com/bbs/index.asp")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        .getElementById("username").Value = "在此输入用户名"
        .getElementById("password").Value = "在此输入密码"
        .getElementById("submit").Click
    End With
    .Visible = True
End With