Dim Flag As Boolean
Private Sub form_load()
On Error Resume Next
URL = 'http://gmail.google.com'
wb.Navigate URL
End Sub
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
If Flag = False Then
MsgBox '请稍等。。。'
Exit Sub
End If
Set vDoc = wb.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' Or vTag.Type = 'password' Then
'List1.AddItem vTag.Name
Select Case vTag.Name
Case 'Email'
vTag.Value = Text1.Text
Case 'Passwd'
vTag.Value = Text2.Text
End Select
ElseIf vTag.Type = 'submit' Then
vTag.Click
End If
End If
Next i
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Flag = True
End Sub