VBµÇ½163ÓÊÏä

Ìí¼Ó2¸ötext£¬Ò»¸öcommand£¬Ò»¸ö WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
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" Then
Select Case vTag.Name
Case "username"
vTag.Value = Text1 '̞
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "password"
vTag.Value = Text2 'ÃÜÂë
End Select
End If
If vTag.Name = "remUser" Then 'Èç¹û²»Òª¼ÇסÓû§Ãû£¬´Ë¾äɾ³ý
vTag.Click
End If
If vTag.Type = "submit" Then 'Èç¹û²»Òªµã»÷°´Å¥µÇ½£¬°Ñ´ËifµÄ´úÂëɾ³ý
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com/"
End Sub