|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『楼 主』:
[求助]求一个能自动输入QQ号码和密码的批处理文件
使用 LLM 解释/回答一下
我每天打开电脑时都要重复一件事：打开迅雷和QQ，挂着升级。
迅雷还好，可以自动登录，而QQ有2个号，不能设为自动登录，只能一个一个输入QQ号码和密码，烦死了！
请各位大侠帮帮忙，写个批处理文件一次搞定它吧！
I open the computer every day and have to repeat one thing: open Thunder and QQ to hang up for upgrades.
Thunder is okay, it can log in automatically, but QQ has 2 accounts, which cannot be set to automatic login, so I have to enter the QQ number and password one by one, it's so annoying!
Please, great experts, help me out and write a batch file to get it done at once!
|
|
 2007-4-19 12:04 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
自己下载个软件吧。。QQ自动登陆工具。
Just download a software by yourself. QQ automatic login tool.
|
知，不觉多。不知，乃求知 |
|
|
2007-4-19 12:12 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
QQ2个都设置为自动登陆^不过在运行前把自动登陆的哪个什么AUTOLOGIN^文件替换下^就可以实现多QQ启动^
Set both QQ accounts to auto-login^ However, before running, replace the AUTOLOGIN^ file related to auto-login, and then you can achieve multiple QQ startups^
|
|
|
2007-4-20 03:46 |
|
|
htysm
高级用户
积分 866
发帖 415
注册 2005-12-4
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
多个QQ号登陆是很麻烦，一个一个输入密码，能自动登陆最好不过了，不过QQ登陆支持参数吗？
Logging in multiple QQ accounts is very cumbersome, entering passwords one by one. It would be best if it could log in automatically. But does QQ login support parameters?
|
欢迎你到批处理爱好者联盟QQ群：18023953 |
|
|
2007-4-20 04:42 |
|
|
bjsh
银牌会员
积分 2000
发帖 621
注册 2007-1-1
状态 离线
|
『第 5 楼』:
使用 LLM 解释/回答一下
用vbs
几行代码不就搞定了么
A few lines of VBS code can do it, right?
|
|
|
2007-4-20 04:52 |
|
|
lililulula
中级用户
积分 302
发帖 138
注册 2007-3-29
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
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}"
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 楼』:
使用 LLM 解释/回答一下
6楼的大侠：
惭愧！我看不大懂吔！
只看出路径、QQ号码、密码3处......
能否说详细些！
谢谢了！
Last edited by qieagle on 2007-4-19 at 04:21 PM ]
Daredevil on floor 6:
Ashamed! I can't understand it very well!
Only saw 3 places: path, QQ number, password......
Can you explain it in detail!
Thanks!
Last edited by qieagle on 2007-4-19 at 04:21 PM ]
|
|
|
2007-4-20 05:20 |
|
|
lililulula
中级用户
积分 302
发帖 138
注册 2007-3-29
状态 离线
|
『第 8 楼』:
使用 LLM 解释/回答一下
这是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自动登陆成功
This is a VBS script. After copying it to a text file, change the text file extension to VBS to use it.
QQPath="path:\QQ.exe" Set QQ running path
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath Execute QQ
WScript.Sleep 2000 Delay time after program execution 2000ms=2s
WshShell.SendKeys "+{TAB}" "+" means shift {TAB} means Tab, shift+tab is to jump the input cursor upward to the user input column when QQ starts. If the input cursor is already in the username column when QQ starts, this step can be omitted
WshShell.SendKeys "QQnumber" Enter QQ username
WScript.Sleep 200
WshShell.SendKeys "{TAB}" Use tab to switch to QQ password column
WshShell.SendKeys "QQpassword" Enter QQ password
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" {ENTER} means enter, and QQ will automatically log in successfully after pressing enter
|
|
|
2007-4-20 06:15 |
|
|
my3439955
中级用户
积分 272
发帖 99
注册 2006-6-2
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
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 ]
The QQ number input box does not have the TabStop property, so it cannot be positioned automatically. Pressing Tab multiple times or using Shift+Tab won't position the input to the number input box. At least it's not possible with QQ 2006 and 2007. Therefore, the SendKeys method is useless, which means the script on the sixth floor is not valid for any QQ number. But for the QQ number saved in the number box previously, that is, the number logged in last time, then just entering the password can be effective. But this not only exposes the password in plain text, but also once the QQ number is changed, this method will no longer be effective. However, there is a way to achieve automatic login. Tencent has an official login interface, and the QQ automatic login function is also based on this interface.
When QQ transmits the password, it first performs an MD5 encryption, and then a BASE64 transformation, so that normal text information can be obtained for network transmission. For a password in the form of "abcd", the encrypted and converted ciphertext that can be used for transmission is converted in the way of BASE64(MD5(abcd)). Calculating this expression, we can get the value 4vxxTEcn7pOV8yTNLn8zHw==. Then, using the command-line parameters supported by QQ.exe itself, automatic login can be realized. The form of the command line is as follows: QQPath\QQ.exe /START QQUIN:123456 PWDHASH: 4vxxTEcn7pOV8yTNLn8zHw== /STAT:40. Here, 40 means that the login status is invisible login, and 10 means online login. QQPath represents the installation path of QQ, which varies from machine to machine. 123456 represents the QQ number, and 4vxxTEcn7pOV8yTNLn8zHw== represents the encrypted and converted password "abcd". By replacing this format with real information, automatic login can be realized.
Therefore, as long as such a script is made, automatic login can be realized. Here I provide a script for verification, which is one of my QQ numbers. You can log in to have a look. Anyway, the password won't be leaked.
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"
Entering the following content directly in the system run will have the same effect:
%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
This one can be guaranteed to be effective before May.
I have a program that generates such a script. I wonder if it can be uploaded?
Here is related introduction
http://hi.baidu.com/shilyx/blog/item/43a0b6a15212e08b471064c0.htm
Last edited by my3439955 on 2007-6-9 at 12:14 AM ]
|
X5O!P%@AP |
|
|
2007-4-20 07:37 |
|
|
my3439955
中级用户
积分 272
发帖 99
注册 2006-6-2
状态 离线
|
|
|
2007-4-20 07:38 |
|
|
wangweihebtu
初级用户
积分 27
发帖 13
注册 2006-12-11
状态 离线
|
『第 11 楼』:
使用 LLM 解释/回答一下
楼上的东东不错－赶紧传上来看看－谢谢分享
Last edited by wangweihebtu on 2007-4-19 at 06:57 PM ]
The things upstairs are不错 - hurry up and upload them to take a look - thanks for sharing
Last edited by wangweihebtu on 2007-4-19 at 06:57 PM ]
|
|
|
2007-4-20 07:42 |
|
|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『第 12 楼』:
使用 LLM 解释/回答一下
感谢6楼、9楼、10楼的朋友！
我用了，都不错！
Thanks to the friends from floor 6, floor 9, and floor 10!
I used them, all are good!
|
|
|
2007-4-20 09:28 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第 13 楼』:
使用 LLM 解释/回答一下
很早以前就讨论过了，你们都怎么不搜索啊
It was discussed a long time ago. Why don't you all search?
|
|
|
2007-4-20 09:37 |
|
|
qieagle
初级用户
积分 20
发帖 8
注册 2007-4-19
状态 离线
|
『第 14 楼』:
使用 LLM 解释/回答一下
没想到我的帖子才发了一天，就得到这么多朋友的支持，关键是得到了几位高手的帮助，谢谢了！
I didn't expect that just one day after I posted my thread, I received support from so many friends. The key thing is that I got help from several experts. Thanks!
|
|
|
2007-4-20 09:37 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第 15 楼』:
使用 LLM 解释/回答一下
之前已经讨论过了，只要搜索一下就有了，论坛的搜索功能没用？？？
It has been discussed before. Just search and you'll find it. Is the forum's search function not working???
|
|
|
2007-4-20 10:23 |
|
