Question

vb webbrowser控件 如何点击登陆

网页代码如下：

<div class="control-group">
<div class="controls">
<div class="main_input_box">

<span id="btnLogin" onclick="javascript:Login();" style="width: 400px;" class="btn btn-danger">
立 即 登 录</span>

</div>
</div>
</div>

我以前用以下代码是可以自动点击 “登按” 按钮的。但现在在这里却不行
Dim i&
If WebBrowser1.Busy = False Then
Set IDoc = WebBrowser1.Document
Set Acollection = IDoc.All.tags("input")

Dim s3 As String
Dim s2 As String
For i = 0 To Acollection.length - 1
s3 = Acollection.Item(i).id
s2 = Acollection.Item(i).Name
Debug.Print s3
' If s3= "btnLogin" Then Acollection.Item(i).Value = "你好呀"
If s33 = "btnLogin" Then Acollection.Item(i).Click
Next
因为“登陆”其实不是真的按钮，而是背景加字！

问题已解决， 忘了不是input，应改成 IDoc.All.tags("span")





Answer 1

不是有id="btnLogin"吗，那么麻烦刚什么，直接getElementById("btnLogin").click就OK了