标题:
求批处理:可以自动登录QQ2009
[打印本页]
作者:
JamesYou
时间:
2008-11-13 20:02
标题:
求批处理:可以自动登录QQ2009
求批处理:可以自动登录QQ
2009
要可以用的,谢了。
作者:
HAT
时间:
2008-11-13 20:37
目前最新版的QQ2009预览版不支持命令行登陆方式,可以用VBS的SendKeys方法,但不推荐。
等2009正式版出来以后再看看是否支持命令行登陆吧。
作者:
lserfn
时间:
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}"
作者:
JamesYou
时间:
2008-11-14 12:29
Hat:
为什么不推荐“VBS的SendKeys方法”登录QQ2009 ?
作者:
slore
时间:
2008-11-14 13:13
明文……
作者:
HAT
时间:
2008-11-14 13:45
标题:
Re 4楼
1. 明文
2. 失去焦点的SendKeys可能造成无法预料的后果
作者:
zuiwangqiuyue
时间:
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}"
---------------------------------------------------------------------
作者:
JamesYou
时间:
2008-11-16 20:24
还是不行
作者:
77720666
时间:
2008-11-17 10:43
SendKeys
就是虚拟键盘~
需要明文密码~不安全~且不稳定~
欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/)
Powered by Discuz! 2.5