标题: 用批处理命令登陆QQ的问题 [打印本页]
作者: fting 时间: 2008-5-4 12:57 标题: 用批处理命令登陆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按什么顺序阿---
作者: HAT 时间: 2008-5-4 13:43 标题: 想运行几个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
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
作者: fting 时间: 2008-5-4 15:31
先谢谢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是否可以;感觉如果可以的话,这应该是个不错的方法`````很简单\明了
作者: slore 时间: 2008-5-5 00:05
可以. 不过应该是autologin.dat
作者: kioskboy 时间: 2008-5-5 00:48
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
作者: fting 时间: 2008-5-6 11:57
| Quote: | |
|
我一直在修改 我现在是越来越糊涂了
写出来让我们看看 吧````
作者: slore 时间: 2008-5-6 13:02
http://softbbs.pconline.com.cn/topic.jsp?tid=1217930&pageNo=1
作者: joyn 时间: 2008-5-6 19:55 标题: 历害
[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~~是什么
作者: slore 时间: 2008-5-6 20:36
自动登陆后的命令行……
作者: XiuXiu 时间: 2008-5-6 21:38
start qq.exe /START QQUIN:QQ号码PWDHASH:加密后的密码(自动登陆后可以找得到)== /STAT:40 /EMB_HWND:0 /NOAUTOSCAN
用这个就可以很方便的自动登陆了.要加多少个就多少.
作者: joyn 时间: 2008-5-7 14:13
了解了~~不过我不知道你是怎么知道QQ号输入的地方是那里的
作者: slore 时间: 2008-5-7 14:33
这个嘛……
GOOGLE过QQ自动登陆，这些信息是有的。。。信息在网络上找的到，但是来源就很难搞清楚了……
只是作为信息保存在脑袋里了嗬。
显示进程参数的话，就可以看到了。
作者: joyn 时间: 2008-5-8 12:46
谢谢Slore