如何用vb 编程实现模拟点击这个网页上的按钮

来源：百度知道 编辑：UC知道 时间：2024/06/24 08:04:50
<FORM name="" action=./dfight.do method=post><INPUT type=hidden value=228490206 name=id> <!--<input type="hidden" name="from" value="/hitlist.do"/>--><INPUT class=sub_btn type=submit value=攻击 name=id> </FORM>

根据你的反馈，答复如下：
本代码会自动点击攻击按钮的，只不过你要选择时机，即：当你进入攻击页面时，按下执行攻击的VB按钮(如command1)，就会作出反应。代码修改如下：

Private Sub Command1_Click() '攻击按钮
Dim Vdoc,i, S As String
On Error Resume Next
For i = 0 To WebBrowser1.Document.All.length - 1
Set Vdoc = WebBrowser1.Document.All(i)
If UCase(Vdoc.tagname) = "INPUT" Then
S = Trim(Vdoc.innertext)
If s="攻击" Then
Vdoc.click
End If
End If
DoEvents
Next
End Sub