VB WebBrowser1 怎么点击这个按钮？

试试在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

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