请教VB按键怎么触发网页的登陆按键。

Question

网页代码：
<a id="Login1_lbtnLogin" href="javascript:__doPostBack('Login1$lbtnLogin','')">登录</a>VB 按键如何触发网页的登录？
本人的是：
Private Sub Command1_Click()
WebBrowser1.Document.Forms("Login").submit
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "d:\help.htm" 
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)End Sub

Answer 1

WebBrowser1.Document.parentwindow.exescript "__doPostBack('Login1$lbtnLogin','')"

Answer 2

和这个不类似吗？
http://topic.csdn.net/u/20080519/13/163376b0-68c4-4aca-bc5a-a71885c58177.html
就是如何执行网页的脚本的问题

Answer 3

WebBrowser1.Document.parentwindow.exescript "__doPostBack('Login1$lbtnLogin','')"
不可以

Answer 4

WebBrowser1.Document.parentwindow.exescript "javascript:__doPostBack('Login1$lbtnLogin','')"可以否？

Answer 5

服!
你把d:\help.htm发过来，我给你搞：zzyong00#sina.com

Answer 6

已经解决了，谢谢了。Private Sub Command1_Click()
While WebBrowser1.ReadyState <> READYSTATE_COMPLETE '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
Dim vDoc, vTag
Dim a As Integer
Set vDoc = WebBrowser1.Document
For a = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(a).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(a)
If vTag.Type = "submit" Then  '看看是不是我们需要的
Select Case vTag.Name '按标签的名字,对号操做
Case "$btnLogin"
vTag.Click
End Select
End If
End If
Next a
End Sub