中国DOS联盟

　　我每天打开电脑时都要重复一件事：打开迅雷和QQ，挂着升级。
　　迅雷还好，可以自动登录，而QQ有2个号，不能设为自动登录，只能一个一个输入QQ号码和密码，烦死了！
　　请各位大侠帮帮忙，写个批处理文件一次搞定它吧！

自己下载个软件吧。。QQ自动登陆工具。

QQ2个都设置为自动登陆^不过在运行前把自动登陆的哪个什么AUTOLOGIN^文件替换下^就可以实现多QQ启动^

多个QQ号登陆是很麻烦，一个一个输入密码，能自动登陆最好不过了，不过QQ登陆支持参数吗？

用vbs
几行代码不就搞定了么

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

6楼的大侠：
　　惭愧！我看不大懂吔！
　　只看出路径、QQ号码、密码3处......
　　能否说详细些！
　　谢谢了！

[ Last edited by qieagle on 2007-4-19 at 04:21 PM ]

这是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自动登陆成功

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 ]

可以在以下地址下载到这个程序

http://shilyxsite.googlepages.com/AutoLogin.exe

[ Last edited by my3439955 on 2007-4-22 at 11:30 AM ]

楼上的东东不错－赶紧传上来看看－谢谢分享

[ Last edited by wangweihebtu on 2007-4-19 at 06:57 PM ]

感谢6楼、9楼、10楼的朋友！

我用了，都不错！

很早以前就讨论过了，你们都怎么不搜索啊

没想到我的帖子才发了一天，就得到这么多朋友的支持，关键是得到了几位高手的帮助，谢谢了！

之前已经讨论过了，只要搜索一下就有了，论坛的搜索功能没用？？？