2005-09-13 16:17
2005-09-13 18:04
2005-09-14 13:14
2005-09-14 16:16
2005-09-15 14:26
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方式的自动登录...如果需要详细源码请联系我,或者到我的博客站上"软件下载"处下载!

2005-09-15 21:11

2005-09-15 21:16
2005-09-16 13:41
2005-09-17 17:49
2005-09-18 18:34