UC知道vb 登陆百度中心
来源：百度知道 编辑：UC知道 时间：2024/05/24 15:33:15
WebBrowser1.Navigate "http://passport.baidu.com/?login"
Set WBDocument = WebBrowser1.Document
WBDocument.body.All("username").Value = "123" '--用户名
WBDocument.body.All("password").Value = "123" '------密码
WBDocument.body.All("mem_pass").Checked = 1 '--------选择复选框
WBDocument.body.All("百度一下").Click '------登陆
就是不能登陆
gujin170 -你写的哪个我已用过了. 我只想更换现在我用的代码
Set WBDocument = WebBrowser1.Document
WBDocument.body.All("username").Value = "123" '--用户名
WBDocument.body.All("password").Value = "123" '------密码
WBDocument.body.All("mem_pass").Checked = 1 '--------选择复选框
WBDocument.body.All("百度一下").Click '------登陆
就是不能登陆
gujin170 -你写的哪个我已用过了. 我只想更换现在我用的代码
'添加一个text1，text2和command1
'text1输入用户名
'text2输入密码
’点击command1登录
Private Sub Command1_Click()
id = Text1.Text
psw = Text2.Text
exe = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
url = "http://passport.baidu.com/?logins.jsp?url=http%3A%2F%2Ffmbaidu.baidu.com%2Fcoremail%2Ffcg%2Fntesdoor2%3Fverifycookie%3D1%26language%3D-1%26style%3D-1&type=1&product=mail163&username=" & id & "&password=" & psw & "&submit=%B5%C7%A1%A1%C2%BC"
Shell exe + Space(1) + url, 1
End Sub