标题: [求助]自动登陆QQVBS问题求助--已解决 [打印本页]

---

作者: dcxc8888     时间: 2010-4-26 16:47    标题: [求助]自动登陆QQVBS问题求助--已解决

麻烦帮个忙下:
这是一个自动登陆QQ的脚本,但是有个问题,怎么判断密码编辑框中是已有内容的?如果有则清空原内容,另外烦请大家另给个批量登陆QQ2010的脚本来学习下,谢谢.
program="你QQ安装的路径"
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
wscript.Sleep 2000
Wshell.SendKeys "你的QQ"
Wshell.SendKeys "{TAB}"
wscript.Sleep 1000
Wshell.SendKeys "你的密码"
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "{ENTER}"

[ Last edited by dcxc8888 on 2010-4-27 at 20:50 ]