【黑客】利用VBS脚本让QQ永远在线,等级速升
2010年08月15日
[/b]
下面的教程,教大家即使自己的QQ被别人强制关闭,仍然可以自动登陆上线。有了这个代码,可以让你的[b]QQ永远在线了。
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 & "具体请查看当前目录下的文件",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系统上测试,完全有效。
发表评论
-
关于latch free等待事件
2012-01-20 02:55 1018关于latch free等待事件 2010年08月03日 ... -
Delphi IDE扩展开发向导
2012-01-20 02:55 1407Delphi IDE扩展开发向导 2 ... -
在使用WSAAsyncSelect中的搜集到的一些资料以及发现的一些问题
2012-01-20 02:54 1003在使用WSAAsyncSelect中的搜集到的一些资料以及发现 ... -
网络编程常见问题总结
2012-01-20 02:54 677网络编程常见问题总结 2010年10月26日 网络编程常 ... -
网桥的工作原理与应用
2012-01-20 02:54 1071网桥的工作原理与应用 ... -
用vbs实现获取电脑硬件信息的脚本-1
2012-01-19 13:28 943用vbs实现获取电脑硬件信息的脚本-1 2011年11月19 ... -
Adsutil.vbs在脚本入侵中的妙用
2012-01-19 13:28 922Adsutil.vbs在脚本入侵中的妙用 2011年03月0 ... -
利用VBS脚本让qq永远在线
2012-01-19 13:28 740利用VBS脚本让qq永远在线 2011年06月07日 让 ... -
vbs脚本实例
2012-01-19 13:28 608vbs脚本实例 2011年02月28日 rem 结束QQ ... -
ARM经典100问
2012-01-17 03:17 830ARM经典100问 2011年03月13日 第1章 体系 ... -
2010-07-09 22:03:18 计算机报错大全
2012-01-17 03:17 16672010-07-09 22:03:18 计算 ... -
电脑故障3000实例排查大全! 计算机报错大全
2012-01-17 03:17 5954电脑故障3000实例排查大 ... -
接上一篇
2012-01-17 03:17 752接上一篇 2011年04月25日 第 2 章 路由器基 ... -
点名。。。。。。。
2012-01-16 01:51 834点名。。。。。。。 4小时前 ★我的大名:郑渌 ★是 ... -
胡思乱想。。
2012-01-16 01:51 573胡思乱想。。 4小时前 我可不喜欢外国人 有思维障碍 交 ... -
大学往事 第五章 计算机班的女生
2012-01-16 01:51 590大学往事 第五章 计算机班的女生 2012年01月04日 ... -
中国各地人的长相特征
2012-01-16 01:51 1948中国各地人的长相特征 ... -
东北民众的地方语言
2012-01-16 01:51 702东北民众的地方语言 20 ... -
监听HTTP会话
2012-01-11 01:45 802监听HTTP会话 2011年09月0 ... -
注意异常丢失的情况-仰望者-iteye技术网站
2012-01-11 01:44 597注意异常丢失的情况-仰望者-iteye技术网站 2011年0 ...
相关推荐
《VBS脚本的在黑客中的八则巧妙应用》宣贯.pdf
黑客防护脚本资源下载 很好的资源 非让写这么多
QQ黑客技术教程下载
《精通脚本黑客》是一本集合了脚本环境和黑客知识的网络安全基础教程,一个大的脚本环境下,介绍了网站入侵、各种常见脚本语言的基础学习、脚本程序漏洞分析与利用等内容。网站入侵方面是为没有多少入侵经验或对脚本...
网上的这个电子书不能显示,我自己修改了一下
黑客利用ChatGPT做什么
黑客有轻蔑的含义,指喜欢通过个人计算机和拨号上网秘密侵入另外一些计算机可计算机网络的,然后查看 或破坏存储在其中的数据和程序的人。然而黑客对计算机技术发展所做出的贡献是无法否认的。本文就黑客技术对促进...
黑客软件 黑客利用漏洞写的软件 放心使用 腾讯是不能太赚钱了 你们说是不是
黑客利用ChatGPT做什么.zip
QQ装逼神器
本书从黑客攻击的角度出发,全面、详尽地介绍了黑客的种种攻击技术。书中对每种攻击方法都附有攻击实例,其中大部分攻击实例是从未公开过的;在介绍各种攻击方法的同时都给出了相应的用户对策,使广大网民和网络管理...
简单的代码,实现愚人节的愚人效果,无毒无害,纯脚本语言
黑客利用高招保护自己的电脑
一个非常炫酷的黑客代码雨,当我们运行Test文件之后,电脑全屏显示绿色的黑客代码雨,非常精致炫酷,可以装个X。
黑客帝国代码雨代码,打开就运行。黑客帝国代码雨代码,打开就运行。黑客帝国代码雨代码,打开就运行。黑客帝国代码雨代码,打开就运行。黑客帝国代码雨代码,打开就运行。
最近抖音很火的在线伪装黑客高手装B网页源码,黑客大牛拿去做黑页吧