要想有代码提示请按如下方法:
1.工程->部件,选择Microsoft Internet Controls
2.工程->引用,选择Microsoft HTML Object Library,OK
可以按F2查看相关对象的属性、方法、事件
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
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