第1个回答 2009-06-09
用VB的WebBrowser控件
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub本回答被提问者采纳
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub本回答被提问者采纳
第2个回答 2015-09-24
单击（Click）属于事件。所谓事件（Event）是由VB预先设置好的、能够被对象识别的动作，如DblClick（双击）、Load（装入）、MouseMove（移动鼠标）、Change（改变）。
事件是对象对外部操作的响应，如在执行程序时，单击命令按钮会产生一个Click事件。如需命令按钮响应Click事件，就把完成Click事件功能的代码写到Click事件的过程中，与事件一一对应。
事件过程的形式如下：
Private Sub 对象_事件名（）
…………（事件过程代码）
End Sub
相似回答