中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 小弟出学VBS 自己做了个QQ登陆器~!
作者:
标题: 小弟出学VBS 自己做了个QQ登陆器~! 上一主题 | 下一主题
sd287054
初级用户





积分 111
发帖 44
注册 2007-3-12
状态 离线
『楼 主』:  小弟出学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记录是清干净的,如果遇到没清除的就没办法了
所以希望各位告诉点好的办法~!

2007-5-24 05:46
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinbuer
高级用户

我思故我在


积分 512
发帖 228
注册 2007-1-21
状态 离线
『第 2 楼』:  

这是不可能的,TAB键是QQ登陆框是无法切换

2007-5-24 09:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zhoushijay
高级用户

Autowalk


积分 845
发帖 375
注册 2007-3-3
状态 离线
『第 3 楼』:  

连路径都要输入,还不如原来的QQ登陆下方便呢



你好,脚本专家!
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>
2007-5-24 11:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
applecy
初级用户




积分 168
发帖 78
注册 2006-12-27
状态 离线
『第 4 楼』:  

小弟用autoit也做个类似的登陆器,不过貌似在QQ版本更新之后就不能用了

;自动登陆QQ

#NoTrayIcon
Run ( "E:\2005qqb3\CoralQQ.exe" )
Sleep ( 500 )
WinWaitActive("","隐身登录")
ControlSetText ( "", "", "Edit1", "" )
ControlSend ( "", "隐身登录", "Edit1", "12345679{TAB}" )
ControlSend ( "", "隐身登录", "Edit12", "987654321{ENTER}")

虽然还可以打号码和密码`不过现在怎么登陆都显示密码错误
如果用手动输入密码的话就可以

2007-5-24 19:36
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qinbuer
高级用户

我思故我在


积分 512
发帖 228
注册 2007-1-21
状态 离线
『第 5 楼』:  

http://www.cn-dos.net/forum/view ... =1&highlight=QQ

2007-5-25 21:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: