高分求助!VB点击网页代码问题(在线等..)

我做个网页投票的程序时上面有个按钮需要点击
网页源代码如下
<td><img src="01.jpg" style="cursor:pointer;" onclick="addballot(2)"/></td>

下面是JS代码:
<script type="text/javascript" src="/js/jquery.js"></script>
<script type="text/javascript">

function addballot(obj) {
$.get("/mhzx/mzsendcode/insertGroup!addBallot.action?id="+obj,{t:Math.random()},function(date){
if (1 == date) {
alert("投票成功！");
document.getElementById("ballot").innerHTML = parseInt(document.getElementById("ballot").innerHTML) + 1;
return;
} else if (0 == date) {
alert("对不起，投票失败！");
} else {
alert("每小时只能投一票！");
}
}) ;

Dim doc
Dim eles
Dim ele
Dim i
Set doc = WebBrowser1.Document

Set eles = doc.getElementsByTagName("img")

For i = 1 To eles.length
Set ele = eles.Item(, i)
If InStr(1, ele.src, "01.jpg") > 0 Then
ele.Click
Exit Sub
End If
Next

你用手点有效果吗？跟踪看看，进了If InStr(1, ele.src, "01.jpg") > 0 Then没

高分求助VB问题 网页代码问题(高分) VB系统代码问题求助 网页奇怪问题,高分求助 请求网页点击代码 网页代码问题,高分,高手请进 高分求助~~注册网页部分ASP代码解释 vb代码解释求助 VB代码求助 求助：vb代码，adodc