Question

在VB的webbrowser中,如何用鼠标模拟点击网页上Flash按钮,这个按钮是object 标签,有data属性, 会的人留下QQ

Answer 1

根据你的反馈，答复如下：
本代码会自动点击攻击按钮的，只不过你要选择时机，即：当你进入攻击页面时，按下执行攻击的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