Vbs高手进

来源:百度知道 编辑:UC知道 时间:2024/06/01 07:18:25
那个整人的代码.不说我是猪就两分钟关你机.怎么没有出现系统关机啊.

你说的是下面这段代码吗?

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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) + "哈哈哈哈,猪乖猪乖!"

从代码可以得知,这个脚本先支持关机程序,延时2分钟执行,然后跳出一个输入对话框,如果输入“我是猪”三字就取消关机。

关机命令是通过调用shutdown.exe来执行的,如果系统中没有shutdown也就执行不了。XP是自带shutdown的,shutdown没被删除的话,可以执行,但像win2003/VISTA虽然也带shutdown但参数不一定,估计没办法正常执行