Question

VB实现自动点击按钮的问题

网页中源码中按钮一段的代码如下：

<span class="btn left position_relative hand" onclick="zbpxVote(36, this);">
<i class="handle W_ico20 clear_fix position_absolute"></i>投我票
</span>

如何在VB中实现自动点击？
最好是利用 WebBrowser控件来实现点击，例如下如下代码。
Dim vDoc, vTag
Dim i As Integer
Set vDoc = IE.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "submit" Then
vTag.Click '点击确定键
End If
End If
Next i

Answer 1

某网页按钮内容：
<TD><INPUT TYPE="text" NAME="crystalcount" value="100" size=10 maxlength=10> <INPUT type="button" class=btn1_mouseout onmouseover="this.className='btn1_mouseover'" onmouseout="this.className='btn1_mouseout'" value="最大值" onclick="javascript:document.f1.crystalcount.value=3960"> 现有500万</TD>
代码：
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "button" And vTag.Value = "最大值" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End If
Next i
End Sub

*但不是对所有网页均有用，有些网页调用其它页面或JS的，就无法使用了。只能用模拟鼠标点击等方法实现了。

Answer 2

前年，我用VB编写过一个自动投票程序。半天时间对某个候选者投了几百票。
现打算试试能否适用你指定的投票网页，请提供该投票网页的网址。
若我的程序适用于你指定的投票网页，再给你VB代码。

Answer 3

函数mouse_event 模拟鼠标点击
声明：
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

用法 ：
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '按下左键

追问

这种方法用着不太方便的，最好用WebBrowser控件来实现点击。

Answer 4

Dim vDoc, vTag
Dim i As Integer
Set vDoc = IE.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "span" Then '找到span标签
Set vTag = vDoc.All(i)
If vTag.onclick= "zbpxVote(36, this);" Then
vTag.Click '点击确定键
End If
End If
Next i