中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-04 17:18 |
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 小弟出学VBS 自己做了个QQ登陆器~！ |
| 可打印版本 1,078 / 4 |
| 第1楼 sd287054 | 发表于 2007-05-24 05:46 |
| 初级用户 发帖 44 积分 111 | |
|
小弟出学VBS 自己做了个QQ登陆器~！ Dim QQ,QQ1,QQ2
QQ=inputbox("路径") QQ1=inputbox("帐号") QQ2=inputbox("密码") set wshshell=wscript.createobject("wscript.shell") wshshell.run QQ wscript.sleep 2000 wshshell.sendkeys QQ1 wscript.sleep 500 wshshell.sendkeys "{Tab}" wshshell.sendkeys QQ2 wscript.sleep 500 wshshell.sendkeys "{EnTer 2}" 不是这么完善~!我这是里的QQ记录是清干净的，如果遇到没清除的就没办法了 所以希望各位告诉点好的办法~! |
|
| 第2楼 qinbuer | 发表于 2007-05-24 09:57 |
| 高级用户 发帖 228 积分 512 | |
|
这是不可能的，TAB键是QQ登陆框是无法切换
|
|
| 第3楼 zhoushijay | 发表于 2007-05-24 11:09 |
| 高级用户 发帖 375 积分 845 | |
|
连路径都要输入,还不如原来的QQ登陆下方便呢
|
|
| 第4楼 applecy | 发表于 2007-05-24 19:36 |
| 初级用户 发帖 78 积分 168 | |
|
小弟用autoit也做个类似的登陆器,不过貌似在QQ版本更新之后就不能用了
;自动登陆QQ #NoTrayIcon Run ( "E:\2005qqb3\CoralQQ.exe" ) Sleep ( 500 ) WinWaitActive("","隐身登录") ControlSetText ( "", "", "Edit1", "" ) ControlSend ( "", "隐身登录", "Edit1", "12345679{TAB}" ) ControlSend ( "", "隐身登录", "Edit12", "987654321{ENTER}") 虽然还可以打号码和密码`不过现在怎么登陆都显示密码错误 如果用手动输入密码的话就可以 |
|
| 第5楼 qinbuer | 发表于 2007-05-25 21:08 |
| 高级用户 发帖 228 积分 512 | |
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |