【已结】如何自动登录QQ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS - Powered by Discuz!

批处理之家 » BAT求助&讨论 » 【已结】如何自动登录QQ

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 12

帖子: 14895
积分: 46094
技术: 855
捐助: 745
注册时间: 2008-6-9

10楼 跳转到 »

发表于 2008-9-5 20:42 | 只看该作者

建议不要用SendKeys的方式

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 2

帖子: 5
积分: 178
技术: 0
捐助: 0
注册时间: 2008-8-31

9楼

发表于 2008-9-5 20:15 | 只看该作者

确实不错收藏了!~ 谢谢楼主

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

8楼

发表于 2008-9-5 19:24 | 只看该作者

将代码

@title 噯祢ｄ尒眫亲情制作
@echo 正在登陆您的 QQ.........请稍候..........................
@echo off 
>>%tmp%\QQLOG.vbs echo dim program 
>>%tmp%\QQLOG.vbs echo program="QQ的安装路径" 
>>%tmp%\QQLOG.vbs echo rem 
>>%tmp%\QQLOG.vbs echo set Wshell=CreateObject("Wscript.Shell") 
>>%tmp%\QQLOG.vbs echo set oexec=Wshell.Exec(program) 
>>%tmp%\QQLOG.vbs echo rem 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 2000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "密码" 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 1000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{TAB}" 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "帐号" 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 1000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}" 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}" 
>>%tmp%\QQLOG.vbs echo rem 
%tmp%\QQLOG.vbs 
del %tmp%\QQLOG.vbs
复制代码

保存为BAT
运行却得到

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

7楼

发表于 2008-9-5 18:25 | 只看该作者

又长见识了，多谢

又长见识了，多谢
我才今天注册批处理之家，不懂的地方多了
请多知指教

Rank: 2

帖子: 1
积分: 188
技术: 0
捐助: 0
注册时间: 2008-8-25

6楼

发表于 2008-9-5 18:22 | 只看该作者

绝对能用.本人现在正在用中.还做成了EXE文件

@title 噯祢ｄ尒眫亲情制作
@echo 正在登陆您的 QQ.........请稍候..........................
@echo off 
>>%tmp%\QQLOG.vbs echo dim program 
>>%tmp%\QQLOG.vbs echo program="QQ的安装路径" 
>>%tmp%\QQLOG.vbs echo rem 
>>%tmp%\QQLOG.vbs echo set Wshell=CreateObject("Wscript.Shell") 
>>%tmp%\QQLOG.vbs echo set oexec=Wshell.Exec(program) 
>>%tmp%\QQLOG.vbs echo rem 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 2000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "密码" 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 1000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{TAB}" 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "帐号" 
>>%tmp%\QQLOG.vbs echo wscript.Sleep 1000 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}" 
>>%tmp%\QQLOG.vbs echo Wshell.SendKeys "{ENTER}" 
>>%tmp%\QQLOG.vbs echo rem 
%tmp%\QQLOG.vbs 
del %tmp%\QQLOG.vbs
复制代码

Rank: 8 Rank: 8

帖子: 1166
积分: 5174
技术: 13
捐助: 0
注册时间: 2008-3-11

5楼

发表于 2008-9-5 16:56 | 只看该作者

4Z1c1a8DeNoF9j+JHHRnrw
这是一段加密过的密码，你直接替换为明文密码当然是不行的。

心绪平和，眼藏静谧。

Rank: 12

帖子: 14895
积分: 46094
技术: 855
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2008-9-5 16:17 | 只看该作者

回复 3楼的帖子

4Z1c1a8DeNoF9j+JHHRnrw==

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

3楼

发表于 2008-9-5 15:06 | 只看该作者

回复 2楼的帖子

密码是哪一段嘻嘻

Rank: 12

帖子: 14895
积分: 46094
技术: 855
捐助: 745
注册时间: 2008-6-9

2楼

发表于 2008-9-5 13:15 | 只看该作者

@echo off
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do (
  set QQPathL=%%a
  set QQPathR=%%b
)
set QQPath=%QQPathL:~-1%:%QQPathR%
start "" "%QQPath%qq.exe" /start QQUIN:843875648 PWDHASH:4Z1c1a8DeNoF9j+JHHRnrw== /stat:10
复制代码

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html