【黑客】利用VBS脚本让QQ永远在线,等级速升

【黑客】利用VBS脚本让QQ永远在线,等级速升
2010年08月15日
　　[b][/b]
下面的教程，教大家即使自己的QQ被别人强制关闭，仍然可以自动登陆上线。有了这个代码，可以让你的[b]QQ永远在线[/b]了。
　　1.qq自动登录脚本代码:
　　本部分设定了隐藏,您已回复过了,以下是隐藏的内容[b]
　　复制代码 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 & "具体请查看当前目录下的文件",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系统上测试，完全有效。 [/b]

【黑客】利用VBS脚本让QQ永远在线,等级速升相关推荐

php 以自动打字程序,利用vbs脚本实现自动打字
每次在调试程序的时候都要反反复复的输入测试数据,真的神烦哪,听说可以用文件读写的方式输入测试数据,然而我相信你不愿额外花时间维护写文件部分的代码,所以,问题来了,让谁来帮我打字呢. vbs can! ...
vbs如何写进度条_vbs脚本实现qq定时发消息（初级）
vbs脚本实现QQ消息定时发送目标批处理又称为批处理脚本,强大的强大功能可以高效得实现很多功能,例如批量更改文件格式,批量进行文件读写,今天我们的目标是用vbs脚本编写可以发送qq消息的脚本,并利 ...
Vbs脚本经典教材(转)
Vbs脚本经典教材(最全的资料还是MSDN) -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...
腾讯财付通漏洞遭黑客利用威胁QQ彩钻等付费用户
7月7日,360安全中心独家发现腾讯财付通支付产品出现高危漏洞,导致其数字签名证书被黑客利用,其危害相当于为木马病毒颁发了"免死金牌",主要影响QQ彩钻.腾讯拍拍,以及接入财付通支 ...
使用vbs脚本操作登陆对话框-登陆QQ为例
由于工作原因需要在软件中调用其他软件并填入信息,发现使用vbs可以解决这个问题,以登陆qq为例.vbs脚本可将数据直接写入,也可在调用脚本命令中传参写入. 以直接写入为例: Dim WshShell, ...
VBS脚本常用经典代码收集
在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS脚本用途很多: 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, Powe ...
plus钱包受黑客攻击_如何保护您的在线业务免受黑客攻击
plus钱包受黑客攻击您的企业安全吗? (How safe is your business?) The news that's made every business think twice ab ...
间隔一分钟按某个按键一次——VBS脚本
间隔一分钟按某个按键一次-VBS脚本我们在玩游戏挂机的时候,有的时候长时间鼠标键盘不动一下,游戏就掉线了.或者居家办公出去做核酸检测,时间一长你的钉钉.企业微信等通讯工具就会显示离线状态,这个时候需 ...
linux遍历目录删除指定文件,利用shell脚本遍历文件夹内所有的文件并作整理统计的方法-linux删除文件夹...
本篇文章扣丁学堂Linux培训小编给读者们分享一下利用shell脚本遍历文件夹内所有的文件并作整理统计的方法,文章具有很好的参考价值,感兴趣的小伙伴就随小编来了解一下吧. 环境: Ubuntu下采用s ...
是什么让人们永远在线
野人们如何交流? 如果一个野人想找另一个,只能亲自去找,如果他不在,只能回去,然后随机退避一段时间再去试试运气.这种效率不可能让野人们认识太多人,因此原始部落一般不会太大. 农业社会,有了文书,可以通 ...

【黑客】利用VBS脚本让QQ永远在线,等级速升

【黑客】利用VBS脚本让QQ永远在线,等级速升相关推荐

最新文章

热门文章