求一个恶搞软件，让别人打开就能让他的电脑关机 谢谢了

新建文本文档，复制下面的一行代码粘贴进去：

shutdown -t 1 -s -c 关机

然后保存，文件改名为：关机.bat（这里说明一下，名字可以任意，但是后缀名.bat不能变）

说明：

shutdown是windows自带的关机程序。在c:\windows\system32下可以找到。

参数说明：-t 设置关机时间，1表示关机时间为1秒；

-s 关机的意思； -c 是设置消息，后面的关机就是所设置的消息。

@echo off

echo 哈哈小样中招了吧 ！！！

echo 电脑将在10秒后关机 按Y取消... 按N继续...

echo 请选择...

pause>nul

cls

echo 执行成功按任意键退出...

pause>nul

shutdown -s -t 10

把以下代码复制在记事本，然后保存为vbe格式，然后双击试试（可以使用shutdown -a 取消）

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) + "呵呵，这样才乖"

---