求批处理：可以自动登录QQ2009
要可以用的，谢了。
要可以用的，谢了。
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求批处理：可以自动登录QQ2009
查看 1,310 回复 8
楼 主
求批处理：可以自动登录QQ2009
发表于 2008-11-13 20:02 · 中国 福建 福州 连江县 电信
第 2 楼
发表于 2008-11-13 20:37 · 中国 重庆 九龙坡区 电信
目前最新版的QQ2009预览版不支持命令行登陆方式，可以用VBS的SendKeys方法，但不推荐。
等2009正式版出来以后再看看是否支持命令行登陆吧。
等2009正式版出来以后再看看是否支持命令行登陆吧。
第 3 楼
发表于 2008-11-13 22:24 · 中国 广东 揭阳 电信
dim wshscript
set wshscript = createobject("wscript.shell")
wshscript.run "f:\qq\qq2009.exe"
wscript.sleep 2000
wshscript.sendkeys "{tab}"
wscript.sleep 2000
wshscript.sendkeys "275678339"(帐号)
wscript.sleep 2000
wshscript.sendkeys "{tab}"
wshscript.sendkeys "*********"(密码)
wscript.sleep 2000
wshscript.sendkeys "{enter}"
set wshscript = createobject("wscript.shell")
wshscript.run "f:\qq\qq2009.exe"
wscript.sleep 2000
wshscript.sendkeys "{tab}"
wscript.sleep 2000
wshscript.sendkeys "275678339"(帐号)
wscript.sleep 2000
wshscript.sendkeys "{tab}"
wshscript.sendkeys "*********"(密码)
wscript.sleep 2000
wshscript.sendkeys "{enter}"
第 4 楼
发表于 2008-11-14 12:29 · 中国 福建 福州 电信
Hat:
为什么不推荐“VBS的SendKeys方法”登录QQ2009 ？
为什么不推荐“VBS的SendKeys方法”登录QQ2009 ？
第 5 楼
发表于 2008-11-14 13:13 · 中国 陕西 西安 电信
明文……
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 6 楼
Re 4楼
发表于 2008-11-14 13:45 · 美国 惠普HP
1. 明文
2. 失去焦点的SendKeys可能造成无法预料的后果
2. 失去焦点的SendKeys可能造成无法预料的后果
第 7 楼
发表于 2008-11-14 13:53 · 中国 广东 湛江 电信
试试这个,我一直都在用.............非本人作品
-------------------------------------------------------------------------------
Dim Program1
Program1="QQ路径"
Set WshShell=Createobject("Wscript.Shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "帐号"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "帐号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
---------------------------------------------------------------------
-------------------------------------------------------------------------------
Dim Program1
Program1="QQ路径"
Set WshShell=Createobject("Wscript.Shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate "帐号"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "帐号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "{ENTER}"
---------------------------------------------------------------------
第 8 楼
发表于 2008-11-16 20:24 · 中国 福建 福州 电信
还是不行
第 9 楼
发表于 2008-11-17 10:43 · 中国 广东 广州 电信
SendKeys
就是虚拟键盘~
需要明文密码~不安全~且不稳定~
就是虚拟键盘~
需要明文密码~不安全~且不稳定~
论坛跳转: