vb如何自动登陆这个网站?

Question

本帖最后由 yi13cn 于 2009-11-20 09:26:21 编辑

Answer 1

找到这么个写法
    Dim i As Long, j As Long
    j = WebBrowser1.Document.getElementsByTagName("input").Length - 1
    'Debug.Print j
    Dim aa As Object
    For i = 0 To j
        Set aa = WebBrowser1.Document.getElementsByTagName("input")(i)
        If aa.Type = "text" And aa.Name = "user" Then
            aa.Value = Text1 '用户名
        End If
        If aa.Type = "password" Then
            aa.Value = Text2  '密码
        End If
        If aa.Type = "submit" Then
            aa.Click
        End If
    Next

Answer 2

If vTag.Name = "LoginId" Or vTag.Name = "password" Then 看到这一行就知道代码肯定有问题了