中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求批处理:可以自动登录QQ2009
作者:
标题: 求批处理:可以自动登录QQ2009 上一主题 | 下一主题
JamesYou
初级用户





积分 52
发帖 36
注册 2008-10-10
状态 离线
『楼 主』:  求批处理:可以自动登录QQ2009

求批处理:可以自动登录QQ2009        
  要可以用的,谢了。

2008-11-13 20:02
查看资料  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 2 楼』:  

目前最新版的QQ2009预览版不支持命令行登陆方式,可以用VBS的SendKeys方法,但不推荐。
等2009正式版出来以后再看看是否支持命令行登陆吧。



2008-11-13 20:37
查看资料  发短消息 网志   编辑帖子  回复  引用回复
lserfn
初级用户





积分 97
发帖 49
注册 2008-9-24
状态 离线
『第 3 楼』:  

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}"

2008-11-13 22:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
JamesYou
初级用户





积分 52
发帖 36
注册 2008-10-10
状态 离线
『第 4 楼』:  

Hat:
    为什么不推荐“VBS的SendKeys方法”登录QQ2009        ?

2008-11-14 12:29
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 5 楼』:  

明文……



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2008-11-14 13:13
查看资料  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 6 楼』:  Re 4楼

1. 明文
2. 失去焦点的SendKeys可能造成无法预料的后果



2008-11-14 13:45
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zuiwangqiuyue
新手上路





积分 19
发帖 19
注册 2008-8-16
状态 离线
『第 7 楼』:  

试试这个,我一直都在用.............非本人作品
-------------------------------------------------------------------------------
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}"  
---------------------------------------------------------------------

2008-11-14 13:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
JamesYou
初级用户





积分 52
发帖 36
注册 2008-10-10
状态 离线
『第 8 楼』:  

还是不行

2008-11-16 20:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
77720666
初级用户





积分 59
发帖 46
注册 2007-4-10
状态 离线
『第 9 楼』:  

SendKeys
就是虚拟键盘~
需要明文密码~不安全~且不稳定~

2008-11-17 10:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: