Question

vb 如何实现自动点击网页中的按钮

想做个程序让它自动点击网页中的提交按钮，我已经从网上找了很久，虽然找到了一个方法是可以找到按钮并提交的，代码如下：
Dim Dov As Object
Dim Tag As Object
Dim i As Integer
Set Dov = WebBrowser1.Document
For i = 0 To Dov.All.length - 1
If UCase(Dov.All(i).tagName) = "INPUT" Then
Set Tag = Dov.All(i)
If Tag.Type = "text" Then
Select Case Tag.Name
Case "name"
Tag.Value = "fisheep"
End Select
ElseIf Tag.Type = "submit" Then
Tag.Click
End If
End If
Next i

但我要提交的那个网页是由两部分组成的，相当于两个网页组成的，上面的代码查找的是没有提交按钮的那个网页，所以无法实现我要的功能。有没有其他办法啊？比如用API函数找到网页中的那个按钮的句柄，然后自动点击它，高手请指点。解决再加分！

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

http://bbs.photops.com/?fromuid=357210
请有时间来看看，谢谢。

Answer 3

做个隐藏的提交按钮试试，asp好久没搞，不知道行不