中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]自动登陆QQVBS问题求助--已解决

dcxc8888
新手上路

积分 17
发帖 7
注册 2008-4-30
状态离线

『楼主』: [求助]自动登陆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 ]

2010-4-26 16:47

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: