发新话题
打印

求助!郁闷1天了

求助!郁闷1天了

有个文件"我是猪",打开后,弹出个框,你必须自己打上"我是猪",否则1分钟后,计算机自己关机!文件是VBScript Encoded Script File类型的,我不明白,有懂的吗 !!

确实,如果你自己输入”我是猪’,他就可以取消,如果不输入,1分钟后就会关机

文件的代码是这个

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true  

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true  

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"

TOP

呵呵

很有意思。

TOP

发新话题