Question

vb点击button

<p style="padding-top:0px">
<input type="button" class="btn_blue139p CardDefault" value="确认付款"
name="btnCardPay" id="btnCardPay">
</p>
我用vb点击事件，我这么点击结果点击不了。

Set Document = WebBrowser1.Document
Document.parentWindow.execScript "document.getElementById('btnCardPay').click();", "javascript"
另外一种
WebBrowser1.Document.getElementById("btnCardPay").Click
还是不可以。

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

追问

很头疼，还是不可以。

追答

改一下
Dim vDoc, vTag As Object
Dim i As Integer

Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Id = "btnCardPay" Then vTag.Click
End If
Next

追问

他这个是form表单，我这样点击很显然点击到了，就是不执行提交命令

追答

那直接提交报单
webbrowser1.document.all("表单id").submit

追问

这样提交报错。

追答

表单id没找对吧，应该是这里的东西

追问

他是控件的方法，延迟了100毫秒…