|
fting
初级用户
积分 51
发帖 25
注册 2008-5-3
状态 离线
|
『楼 主』:
用批处理命令登陆QQ的问题
我在网上看到这么一段登陆QQ的命令
copy e:\qq\q1\Autologin.db d:\programfiles\tencent\qq
copy e:\qq\q1\AutoLogin.db d:\Program Files\tencent\qq\5633****
d:
cd d:\Program Files\tencent\qq\
start qq.exe
当我用此命令运行多个QQ时却不行 有没有什么可行的方法阿````
还有第一行不要也可以 是不是啊 如果运行多个QQ按什么顺序阿---
|
|
 2008-5-4 12:57 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
2 楼』:
想运行几个QQ，就加几个start命令。
@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%
cd %QQPath%
start qq.exe /start QQUIN:843875648 PWDHASH:4Z1c1a8DeNoF9j+JHHRnrw== /stat:10
|
|
|
2008-5-4 13:43 |
|
|
fting
初级用户
积分 51
发帖 25
注册 2008-5-3
状态 离线
|
『第
3 楼』:
先谢谢HAT,我想知道用
copy e:\qq\q1\Autologin.db d:\programfiles\tencent\qq
copy e:\qq\q1\AutoLogin.db d:\Program Files\tencent\qq\5633****
d:
cd d:\Program Files\tencent\qq\
start qq.exe
运行多个QQ是否可以;感觉如果可以的话,这应该是个不错的方法`````很简单\明了
|
|
|
2008-5-4 15:31 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
4 楼』:
可以. 不过应该是autologin.dat
|
|
|
2008-5-5 00:05 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
5 楼』:
set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("QQ自动登录.bat",true)
f.WriteLine "@echo off" & vbcrlf
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("Select * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM
QQCMD=ps.commandline '提取QQ程序的命行
tmp=Replace(QQCMD,chr(34),space(1))
UIN1=instr(tmp,"QQUIN:")+6
if not len(UIN1)=0 then
QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) '取QQ号码.
QQ=QQ+1
QQNUM=QQNUM & "QQ号码" & QQ & ":" & vbtab & QQUIN & vbcrlf
f.WriteLine "ECHO QQ号码:" & QQUIN
f.WriteLine "ECHO 命令行:" & QQCMD
f.WriteLine QQCMD & vbcrlf
end if
end if
next
if not len(QQ)=0 then
MSGBOX "已经成功提取以下QQ号码的自动登录命令行" & vbcrlf & vbcrlf & QQNUM & vbcrlf & "具体请查看当前目录下的文件",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX"
else
msgbox "提取QQ自动登录命令失败,请查看QQ或TM是否正在运行.",0,"QQ自动登录命令提取脚本 BY chenall QQ:XXXXXX"
f.close
set f = fso.getfile("QQ自动登录.bat")
f.delete
end if
|
|
|
2008-5-5 00:48 |
|
|
fting
初级用户
积分 51
发帖 25
注册 2008-5-3
状态 离线
|
『第
6 楼』:
| Quote: | Originally posted by slore at 2008-5-5 12:05 AM:
可以. 不过应该是autologin.dat |
|
我一直在修改 我现在是越来越糊涂了
写出来让我们看看 吧```` 
|
|
|
2008-5-6 11:57 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-5-6 13:02 |
|
|
joyn
中级用户
丶杏灬丶
积分 280
发帖 105
注册 2008-5-6
来自 广西
状态 离线
|
『第
8 楼』:
历害
[quote]Originally posted by [i]kioskboy[/i] at 2008-5-5 12:48 AM:
set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("QQ自动登录.bat",true)
f.WriteLine "@echo off" & vbcrlf
Set objWMI ... [/quote]
可以做更多解释吗~~比如~QQCMD~~是什么
|
|
|
2008-5-6 19:55 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2008-5-6 20:36 |
|
|
XiuXiu
新手上路
积分 16
发帖 7
注册 2008-4-26
状态 离线
|
『第
10 楼』:
start qq.exe /START QQUIN:QQ号码PWDHASH:加密后的密码(自动登陆后可以找得到)== /STAT:40 /EMB_HWND:0 /NOAUTOSCAN
用这个就可以很方便的自动登陆了.要加多少个就多少.
|
|
|
2008-5-6 21:38 |
|
|
joyn
中级用户
丶杏灬丶
积分 280
发帖 105
注册 2008-5-6
来自 广西
状态 离线
|
『第
11 楼』:
了解了~~不过我不知道你是怎么知道QQ号输入的地方是那里的
|
|
|
2008-5-7 14:13 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
12 楼』:
这个嘛……
GOOGLE过QQ自动登陆，这些信息是有的。。。信息在网络上找的到，但是来源就很难搞清楚了……
只是作为信息保存在脑袋里了嗬。
显示进程参数的话，就可以看到了。
|
|
|
2008-5-7 14:33 |
|
|
joyn
中级用户
丶杏灬丶
积分 280
发帖 105
注册 2008-5-6
来自 广西
状态 离线
|
|
|
2008-5-8 12:46 |
|
