Question

VB WebBrowser1 怎么点击这个按钮？

<input type="submit" name="Submit" value="登录" class="btn3">

上次提问打错了
在VB6.0下怎么做？.net 不会呀，各位老大

Answer 1

试试在DownloadComplete事件中

Private Sub WebBrowser1_DownloadComplete()

If Not WebBrowser1.Busy Then

Set wDoc = WebBrowser1.Document
For i = 0 To wDoc.All.Length - 1

If wDoc.All(i).type="submit" and wDoc.All(i).value="登录" then '此处条件可尽量少，试试减少条件
wDoc.All(i).click
exit for
End If
Next i
End If

End Sub

追问

老大你的是.net 的吧，我不会呀，有没有VB6.0的方法？
在VB6.0下，if 那里对象不支持

追答

老大，这就是vb6.0的啊
可能是没先定义，你在前面先定义一下

Private Sub WebBrowser1_DownloadComplete()
dim wDoc，i ‘加入此句
。。。。。。。

Answer 2

for i=0 to webbrowser1.document.all.length-1
if webbrowser1.document.all(i).tagname="Submit" and
webbrowser1.document.all(i).type="submit" and
webbrowser1.document.all(i).value="登录" then
webbrowser1.document.all(i).click
end if
next

追问

红字，不行呀

追答

for i=0 to webbrowser1.document.all.length-1
if webbrowser1.document.all(i).type="submit" then
webbrowser1.document.all(i).click
end if
next

追问

不行，这些在网上都看过，也试过，都不行