Question

关于VB点击WEBBROWSER中的按钮的问题

内容为:

<form action="pet.php?index=office" method=post><input type="hidden" name="formhash" value="2a226818">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td width="33%"><div align="left">宠物重生：</div></td>
<td width="67%"><input name="relivepet" type="radio" value="1" class="radio">重生
<input type="hidden" name="action" value="relive"><button type="submit" value="" class="submit">确定</button> <font color="#FF0000">注意：您的宠物一切都从转生后重新来过</font></td>
</tr>
</table>
</form>

怎么样点击那个input后再次点击那个确定按钮，修改了下之前帖子的代码。发现会乱点击，而确定这个按钮在一个网页中有很多个。。我不知道怎么定位就要代码中的这一个。。。

我想做论坛插件天使宠物的自动转生功能。。。就遇到了以上问题

请高手帮忙下。谢谢了。。

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
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) = "BUTTON" Then
S = Trim(Vdoc.innertext)
If s="可用标签" Then
Vdoc.click
End If
End If
DoEvents
Next
End Sub 这是我的意见看看有用没