Question

VB 如何单击网页中的按钮

如百度首页www.BAIDU.COM的搜索烂里输入TEXT的内容,在单击搜索按钮(百度一下)

Answer 1

用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

Answer 2

1. 单击（Click）属于事件。所谓事件（Event）是由VB预先设置好的、能够被对象识别的动作，如DblClick（双击）、Load（装入）、MouseMove（移动鼠标）、Change（改变）。

2. 事件是对象对外部操作的响应，如在执行程序时，单击命令按钮会产生一个Click事件。如需命令按钮响应Click事件，就把完成Click事件功能的代码写到Click事件的过程中，与事件一一对应。

3. 事件过程的形式如下：

   Private Sub  对象_事件名（）

   …………（事件过程代码）

   End Sub