求个计算机关机文件 需要输入命令【我是猪】的那种 邮箱1010175679 谢了...

发布网友 发布时间：2024-04-08 03:43

我来回答

共1个回答

热心网友 时间：2024-06-06 12:36

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 30 -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) + "早说就行了嘛"
do while(b <> "哥哥")
b = inputbox ("再叫声哥哥听听!不叫一样关你机!快撒!说""哥哥"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + b,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "恩恩!不错真乖!就饶了你吧"
do while(c <> "听")
c = inputbox ("慢着!我隔壁某某说要你等哈,他说他要念首诗你听,你自己看着办吧!看你是""听"" ","听不听

","不听",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + c,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "从前有座山."
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙."
msgbox chr(13) + chr(13) + chr(13) + "庙里有老和尚."
msgbox chr(13) + chr(13) + chr(13) + "再来一次..."
msgbox chr(13) + chr(13) + chr(13) + "从前有座山!"
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙!"
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚!"
msgbox chr(13) + chr(13) + chr(13) + "从前有座山."
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙."
msgbox chr(13) + chr(13) + chr(13) + "庙里有老和尚."
msgbox chr(13) + chr(13) + chr(13) + "再来一次..."
msgbox chr(13) + chr(13) + chr(13) + "从前有座山!"
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙!"
msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚!"
msgbox chr(13) + chr(13) + chr(13) + "最后一次!"
msgbox chr(13) + chr(13) + chr(13) + "如果你很快的点过去,不看的话"
msgbox chr(13) + chr(13) + chr(13) + "我就要你踩我空间的!哼!"
msgbox chr(13) + chr(13) + chr(13) + "从前有座山!"
msgbox chr(13) + chr(13) + chr(13) + "山里有个庙."
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) + "哈哈哈哈，真过瘾"

新建文本 后戳名为 .bat