|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『楼 主』:
[求助]求一个能自动输入QQ号码和密码的批处理文件
我每天打开电脑时都要重复一件事：打开迅雷和QQ，挂着升级。
迅雷还好，可以自动登录，而QQ有2个号，不能设为自动登录，只能一个一个输入QQ号码和密码，烦死了！
请各位大侠帮帮忙，写个批处理文件一次搞定它吧！
|
|
 2007-4-19 12:04 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
2 楼』:
自己下载个软件吧。。QQ自动登陆工具。
|
知，不觉多。不知，乃求知 |
|
|
2007-4-19 12:12 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
3 楼』:
QQ2个都设置为自动登陆^不过在运行前把自动登陆的哪个什么AUTOLOGIN^文件替换下^就可以实现多QQ启动^
|
|
|
2007-4-20 03:46 |
|
|
htysm
高级用户
积分 866
发帖 415
注册 2005-12-4
状态 离线
|
『第
4 楼』:
多个QQ号登陆是很麻烦，一个一个输入密码，能自动登陆最好不过了，不过QQ登陆支持参数吗？
|
欢迎你到批处理爱好者联盟QQ群：18023953 |
|
|
2007-4-20 04:42 |
|
|
bjsh
银牌会员
积分 2000
发帖 621
注册 2007-1-1
状态 离线
|
|
|
2007-4-20 04:52 |
|
|
lililulula
中级用户
积分 302
发帖 138
注册 2007-3-29
状态 离线
|
『第
6 楼』:
QQPath="path:\QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "QQnumber"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "QQpassword"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
|
|
|
2007-4-20 05:12 |
|
|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『第
7 楼』:
6楼的大侠：
惭愧！我看不大懂吔！
只看出路径、QQ号码、密码3处......
能否说详细些！
谢谢了！
[ Last edited by qieagle on 2007-4-19 at 04:21 PM ]
|
|
|
2007-4-20 05:20 |
|
|
lililulula
中级用户
积分 302
发帖 138
注册 2007-3-29
状态 离线
|
『第
8 楼』:
这是vbs脚本，将它拷贝到文本文件后，将文本文件后缀改为vbs就可以用了．
QQPath="path:\QQ.exe" 设置QQ运行路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath 执行QQ
WScript.Sleep 2000 程序执行后延迟时间2000ms=2s
WshShell.SendKeys "+{TAB}" "+" 表示shift {TAB}表示Tab,shift+tab是QQ启动时跳转输入符向上跳转到用户输入一栏,如果QQ启动时,输入符就在用户名栏可以省掉在这步
WshShell.SendKeys "QQnumber" 输入QQ用户名
WScript.Sleep 200
WshShell.SendKeys "{TAB}" 用tab换到QQ密码栏
WshShell.SendKeys "QQpassword" 输入QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" {ENTER}表示回车，回车后QQ自动登陆成功
|
|
|
2007-4-20 06:15 |
|
|
my3439955
中级用户
积分 272
发帖 99
注册 2006-6-2
状态 离线
|
『第
9 楼』:
QQ的号码输入框不具备TabStop属性,因此无法自动定位,按多少Tab也没有用Shift+Tab也不能将输入定位到号码输入框,至少QQ的2006,2007是不可以的.因此SendKeys方法是没有用的,也就是说六楼的脚本不对任意QQ号有效.但是对于号码框先前保存的QQ号码,也就是上次登陆的号码,于是只输入密码的话可以有效.但是这样一是会暴露密码明文,二是一旦改变QQ号码,此法将不再有效.但是自动登陆也并非没有办法,腾迅存在一个官方登陆接口,QQ的自动登陆功能也是基于这个接口.
QQ在传输密码的时候，先做一次MD5加密，再做一次BASE64变换，这样可以得到正常的文本信息以便网络传输。对于一个形如“abcd”的密码，加密转换后得到的可用于传输密文就是按照 BASE64(MD5(abcd))的方式转化来的，计算这个表达式，我们可以得到值4vxxTEcn7pOV8yTNLn8zHw==。这样再利用QQ.exe本身支持的命令行参数，就可以实现自动登陆。命令行的形式如下：QQPath\QQ.exe /START QQUIN:123456 PWDHASH: 4vxxTEcn7pOV8yTNLn8zHw== /STAT:40。其中40是表示登陆的状态是隐身登陆，10的话则代表上线登陆。QQPath代表的是QQ的安装路径，这个值随不同机器而异。123456代表的是QQ号码，4vxxTEcn7pOV8yTNLn8zHw==就代表加密转换后的密码“abcd”。将此格式换成真实的信息，就可以实现自动登陆了。
因此,只要做出这样的脚本就可以实现自动登陆了,这里我提供一个脚本作为验证,是我的一个QQ号码,大家可以登陆上去看一看,反正密码是什么也不会泄露
On Error Resume Next
Set Shilyx = CreateObject("WScript.Shell")
QQPath = Shilyx.RegRead("HKLM\SOFTWARE\Tencent\QQ\Install")
Shilyx.Run """" & QQPath & "\QQ.exe"" /START QQUIN:303501987 PWDHASH:WQbDAvPc/eA0ooWlBsq72g== /STAT:40" 直接在系统运行中输入以下内容会有相同效果:
%ComSpec% /c echo CreateObject("WScript.Shell").Run """" + CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Tencent\QQ\Install") + "\QQ.exe"" /START QQUIN:303501987 PWDHASH:WQbDAvPc/eA0ooWlBsq72g== /STAT:40">C:\_Q.vbs & WScript C:\_Q.vbs && del C:\_Q.vbs 这一个可以保证在五月之前有效
产生这种脚本的程序,我这里有一个,不知可否上传?
这里有相关介绍
http://hi.baidu.com/shilyx/blog/item/43a0b6a15212e08b471064c0.htm
[ Last edited by my3439955 on 2007-6-9 at 12:14 AM ]
|
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* |
|
|
2007-4-20 07:37 |
|
|
my3439955
中级用户
积分 272
发帖 99
注册 2006-6-2
状态 离线
|
|
|
2007-4-20 07:38 |
|
|
wangweihebtu
初级用户
积分 27
发帖 13
注册 2006-12-11
状态 离线
|
『第
11 楼』:
楼上的东东不错－赶紧传上来看看－谢谢分享
[ Last edited by wangweihebtu on 2007-4-19 at 06:57 PM ]
|
|
|
2007-4-20 07:42 |
|
|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『第
12 楼』:
感谢6楼、9楼、10楼的朋友！
我用了，都不错！
|
|
|
2007-4-20 09:28 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
13 楼』:
很早以前就讨论过了，你们都怎么不搜索啊
|
|
|
2007-4-20 09:37 |
|
|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『第
14 楼』:
没想到我的帖子才发了一天，就得到这么多朋友的支持，关键是得到了几位高手的帮助，谢谢了！
|
|
|
2007-4-20 09:37 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
15 楼』:
之前已经讨论过了，只要搜索一下就有了，论坛的搜索功能没用？？？
|
|
|
2007-4-20 10:23 |
|
