利用VBS脚本让qq永远在线  申请加精

社区服务
高级搜索
猴岛论坛QQ微信技术利用VBS脚本让qq永远在线  申请加精
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
13个回复

利用VBS脚本让qq永远在线  申请加精

楼层直达
婲落、婲未悊

ZxID:12168156

等级: 中士
举报 只看楼主 使用道具 楼主   发表于: 2010-08-07 0
让qq"永远"运行
自从qq出现了等级制度之后,现在有不少人都开始了疯狂挂级,希望在联机状态下始终运行qq,  即便被人关闭也能自动启动登录,而且还要防止因异常错误而出。                              其实这些事情我们可以使用两个VBS脚本来实现这一目的。
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 ,它也会自动启动并登录至网络。经在Windows XP SP2系统上测试,完全有效。
鬼小佳

ZxID:12779209

等级: 中校
MC、鬼小佳

举报 只看该作者 13楼  发表于: 2010-08-13 0
Re:利用VBS脚本让qq永远在线 申请加精
看懂了
                                                          帖子主题
假象-  Triste

ZxID:9195643

等级: 少尉
风 华 是 一 指 流 砂 , 苍 老 是 一 段 年 华 ,

举报 只看该作者 12楼  发表于: 2010-08-13 0
Re:利用VBS脚本让qq永远在线 申请加精
          路过的。 支持
心中都是你

ZxID:11283052

等级: 禁止发言

举报 只看该作者 11楼  发表于: 2010-08-12 0
Re:利用VBS脚本让qq永远在线 申请加精
那永远在你,你下了的时候QQ还是在,那人跟你说话你不就看不到了!当你在上的时候人家给你流的言不就看不到了吗??
sheng627

ZxID:3081604

等级: 少尉
举报 只看该作者 10楼  发表于: 2010-08-12 0
Re:利用VBS脚本让qq永远在线 申请加精
我也看不懂!
cshceat

ZxID:12794980

等级: 贵宾
附属等级 : 管理员

举报 只看该作者 9楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
好好好。支持~
情绪太安静.

ZxID:12009059

等级: 元帅
                              

举报 只看该作者 8楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
不明白


ZxID:8365076

等级: 大将

举报 只看该作者 7楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
看不懂
婲落、婲未悊

ZxID:12168156

等级: 中士
举报 只看该作者 6楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
看啊可能的话我就给你们做个教程不过没做过不一定能做出来  呵呵 我刚学的时候也看不懂呵呵!  
陌小铠

ZxID:12697339

等级: 大校
流年跌碎容颜。

举报 只看该作者 5楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
不懂·
畀咀

ZxID:6484912

等级: 少校
哥潜的是水,姐潜的却是规则~呜
举报 只看该作者 4楼  发表于: 2010-08-08 0
Re:利用VBS脚本让qq永远在线 申请加精
干脆把它做成教程吧!真的看不懂
潜自己的水,让别人潜规则去吧!
Edifier。

ZxID:7220168

等级: 元老

举报 只看该作者 地板   发表于: 2010-08-07 0
Re:利用VBS脚本让qq永远在线 申请加精
好长··看不懂哦···
破碎の芯

ZxID:12734356

等级: 少尉
跌倒了,爬起来再哭~~~
举报 只看该作者 板凳   发表于: 2010-08-07 0
Re:利用VBS脚本让qq永远在线 申请加精
被你打败了 这么长 而且又看不懂
婲落、婲未悊

ZxID:12168156

等级: 中士
举报 只看该作者 沙发   发表于: 2010-08-07 0
Re:利用VBS脚本让qq永远在线 申请加精
能看明白的一定能成功我在Windows XP SP2  系统上测试,完全有效。
« 返回列表
发帖 回复