20CN网络安全小组论坛 - 菜鸟乐园

论坛: 菜鸟乐园标题: qq自动运行脚本

作者: ygwh [ygwh]

论坛用户

我在一本杂志上看到了如下2个脚本,说的是让qq自动运行的vb脚本,我是xp系统下试过,完全可以,但是在98,2000下运行不了,出现"Automation 操作中文件名或类名未找到: 'getobject'",是不是2个系统的问题,应该怎么改?

还有就是我想在这里面再加上一个让qq一运行就最小化的脚本,怎么添加?网上的外挂中自动打怪不就是用脚本控制的啊,有的是用按键精灵,脚本大师等做成的,用vb的脚本怎么做?就是让登陆框出现的时候自动的用鼠标左键点击最小化按钮.

1.QQ自动登录脚本

set fso = Wscript.CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateTextFile("QQ自动登录.bat",true)

f.WriteLine "@echo off" & vbcrlf

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序

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 & "具体请查看当前目录下的<QQ自动登录.bat>文件",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

将这些代码存储为“*.vbs”文件。然后将所有需要自动登录的QQ号码全部登录，再在一个QQ上点击“菜单”→“一键切换到TM”。此后运行该VBS脚本，会发现在当前目录下生成了一个“QQ自动登陆.bat”的文件，运行该文件即可自动登录所有QQ号码。

小提示：代码中的“XXXXXX”代表你的QQ号。

2.QQ防止关闭脚本

dim QQUIN

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序

if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM

AppPath=ps.commandline '提取QQ程序的命行

tmp=Replace(AppPath,chr(34),space(1))

UIN1=instr(tmp,"QQUIN:")+6

QQUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1) '取QQ号码.

end if

next

if len(QQUIN)=0 then

msgbox "系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本"

else

do '循环检测

myqqin=chkuin(QQUIN) '检测上面提取出来的QQ号码是否有在本机打开

if not myqqin then '如果没有运行则,重新运行QQ程序并登录

runapp(AppPath) '

wscript.sleep 10000 '等待10秒

else

wscript.sleep 5000 '等待5秒

end if

loop '返回继续检测

end if

function RunApp(AppPath)

dim obj

set obj = createobject("WScript.Shell")

obj.exec(AppPath)

end function

function chkuin(QQUIN)

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_

if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then

AppPatht=ps.commandline

'by chenall qq 368178720

tmp=Replace(AppPatht,chr(34),space(1))

UIN1=instr(tmp,"QQUIN:")+6

QQUINTMP=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)

if QQUINTMP=QQUIN then chkuin=true end if

end if

next

end function

将以上代码存储为“*.vbs”文件。而后登录QQ，一键切换到TM，再运行VBS脚本。此后，即使关闭了TM/QQ，它也会自动启动并登录至网络。经笔者在Windows XP SP2系统上测试，完全有效。

地主发表时间: 05-05-21 14:44

论坛: 菜鸟乐园