中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-10 11:00
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,255 会员排行
DOS批处理 & 脚本技术(批处理室) » 求批处理:可以自动登录QQ2009
可打印版本  1,311 / 8
第1楼 JamesYou 发表于 2008-11-13 20:02
初级用户 发帖 36 积分 52
求批处理:可以自动登录QQ2009
求批处理:可以自动登录QQ2009
要可以用的,谢了。
第2楼 HAT 发表于 2008-11-13 20:37
版主 发帖 5,017 积分 9,023
目前最新版的QQ2009预览版不支持命令行登陆方式,可以用VBS的SendKeys方法,但不推荐。
等2009正式版出来以后再看看是否支持命令行登陆吧。
第3楼 lserfn 发表于 2008-11-13 22:24
初级用户 发帖 49 积分 97
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}"
第4楼 JamesYou 发表于 2008-11-14 12:29
初级用户 发帖 36 积分 52
Hat:
为什么不推荐“VBS的SendKeys方法”登录QQ2009 ?
第5楼 slore 发表于 2008-11-14 13:13
铂金会员 发帖 2,478 积分 5,212
明文……
第6楼 HAT 发表于 2008-11-14 13:45
版主 发帖 5,017 积分 9,023
Re 4楼
1. 明文
2. 失去焦点的SendKeys可能造成无法预料的后果
第7楼 zuiwangqiuyue 发表于 2008-11-14 13:53
新手上路 发帖 19 积分 19
试试这个,我一直都在用.............非本人作品
-------------------------------------------------------------------------------
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楼 JamesYou 发表于 2008-11-16 20:24
初级用户 发帖 36 积分 52
还是不行
第9楼 77720666 发表于 2008-11-17 10:43
初级用户 发帖 46 积分 59
SendKeys
就是虚拟键盘~
需要明文密码~不安全~且不稳定~
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023