查人人中国名人网小班感统教案大全:用VB6.0,要按下按纽后，打开网站、自动输入已知的用户名和密码
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 18:59:56
用VB6.0,要按下按纽后，打开网站、自动输入已知的用户名和密码,并且登陆。怎么实现？本人菜鸟，越简单、详细越好。谢谢
比如一个sina的邮箱.
我用一个按纽控件
代码为
Private Sub Command1_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://www.sina.com.cn", vbNormalFocus
End Sub
这样只能打开网页,
我要按下按纽后,自动的填写用户名\密码,登陆进去,
怎么做?
★另外:网上有VB的提交表单程序,可以自动注册论坛
我想只需其中一部分代码和功能就行,
请哪位大侠写出相关实现功能的代码和说明,谢谢!
回答后再加20分
比如一个sina的邮箱.
我用一个按纽控件
代码为
Private Sub Command1_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://www.sina.com.cn", vbNormalFocus
End Sub
这样只能打开网页,
我要按下按纽后,自动的填写用户名\密码,登陆进去,
怎么做?
★另外:网上有VB的提交表单程序,可以自动注册论坛
我想只需其中一部分代码和功能就行,
请哪位大侠写出相关实现功能的代码和说明,谢谢!
回答后再加20分
首先要在IE设置里禁用所有的JavaScript以及VBScript，否则弹出的窗口会使程序无法起到应有的效果。
程序我帮你写了一下，在新浪已经调试通过。不同的网站，可能需要按TAB键的次数不同，你可以自己多试验一下，先用手试需要几次TAB，记下次数，然后写到程序里就可以了，其他更多字段，原理也是相同的。
Shell("C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://www.sina.com.cn", AppWinStyle.NormalFocus, True, 2000) ' 等待两秒钟，IE打开需要一点时间
SendKeys.SendWait("{TAB 9}") ' 按九次TAB键，转到用户名输入框（不同的电脑情况不同，需要试验几次）
SendKeys.SendWait("username") ' 输入用户名
SendKeys.SendWait("{TAB}") ' 再按一次TAB键，转到密码输入框
SendKeys.SendWait("password") '输入密码
SendKeys.SendWait("{ENTER}") ' 按回车键
VB里无法实现同时自动的填写用户名\密码,登陆进去。除非你使用了鼠标跟踪。