Set vDoc = WebBrowser1.Document List1.Clear For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).TagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then Select Case vTag.Name Case "username" vTag.Value = Text4 Case "loginid" vTag.Value = Text4 Case "passwd" vTag.Value = Text5 Case "password" vTag.Value = Text5 Case "Password" vTag.Value = Text5 Case "Username" vTag.Value = Text5 Case "Passwd" vTag.Value = Text5 End Select ElseIf vTag.Type = "submit" Then vTag.Click End If End If Next i Timer2.Enabled = True
我做的一个VB WEB方式的自动登录...如果需要详细源码请联系我,或者到我的博客站上"软件下载"处下载!