自动登陆QQVBS问题求助--已解决 - 中国DOS联盟论坛

麻烦帮个忙下:
这是一个自动登陆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 ]

第1楼　dcxc8888	发表于 2010-04-26 16:47
新手上路　发帖 7　积分 17
[求助]自动登陆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 ]