UC知道vb登录百度网页源代码
来源：百度知道 编辑：UC知道 时间：2024/06/14 00:13:01
如果用户名为12345，密码为456789
直接在text上输入12345，在另一个text上输入456789
然后一按一个按钮，就可以登录百度网页，
希望给出源代码，并能解释一下！
谢谢回答，但是，没通过，登不上，只能打开百度
如果我想登录http://netxeyes.gipsky.org/
用户名：林天笑
密码：123456789
源码是什么呢？
谢谢！~~~~~
直接在text上输入12345，在另一个text上输入456789
然后一按一个按钮，就可以登录百度网页，
希望给出源代码，并能解释一下！
谢谢回答，但是，没通过，登不上，只能打开百度
如果我想登录http://netxeyes.gipsky.org/
用户名：林天笑
密码：123456789
源码是什么呢？
谢谢！~~~~~
需要添加一个模块，复制如下代码
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
然后复制如下代码到窗体代码中，里面需要的控件自己可以添加进去（其中wb就是webbrowser控件）
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command5_Click()
Me.Caption = Me.Caption & " 正在登录中..."
Sleep "2000"
SendKeys ("{tab}")
SendKeys (Text1.Text)
SendKeys ("{tab}")
SendKeys (Text1.Text)
SendKeys ("{tab}")
SendKeys (Text2.Text)
SendKeys ("{Enter}")
Me.Width = 10110
Me.Height = 7365
Me.Caption = " 登录成功!"
End Sub
Private Sub form_load()
wb.Navigate "http://passport.baidu.com/?login&tpl=mn&u=http%3A//www.baidu.com/&quo