如果你是小白的話也不用急，我們一步一步來。
1.在桌面上右鍵單擊選擇新建文字
2.把程式碼複製貼上
3.儲存
4.選中文字，右鍵單擊選擇重新命名
eg: 新建文字檔案.txt ----->啦啦啦.vbs

程式碼請各位收下，雖然簡單但也還是好玩

a=inputbox("快在下面的框框裡輸入鬆哥，你真帥,否則後果自負，快輸""鬆哥，你真帥"" ","輸不輸","") 
loop 
call shutdown(2) 
msgbox "早說就行了嘛",4096+64 
msgbox"再輸一遍!鬆哥，你真帥",4096+64 
msgbox"鬆哥，你真帥",4096+64 
MsgBox"最後一次!",4096+64 
MsgBox"如果你很快的點過去,不看的話",4096+64 
MsgBox"我就要你踩我空間的!哼!",4096+64 
MsgBox"從前有座山!",4096+64 
MsgBox"山裡有個廟.",4096+64 
MsgBox"廟裡有個老和尚在講故事.",4096+64 
msgbox"哎呀累了！數綿羊哄我睡覺",4096+64 
for i=1 to 100 
MsgBox i&"只綿羊",4096+64 
next 
msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64 
msgbox"最後問個問題，我是不是大好人！",4096+64 
if inputbox("是不是","請選擇","是")<>"是" then 
call shutdown(1) 
end if 
sub shutdown(s) 
select case s 
case 1 
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2 
ws.run"cmd.exe /c shutdown -a ",0
end select 
end sub
 

以上中文處可隨意修改，大佬忽略此話
補充幾個整人程式碼：
電腦十秒後重啟

set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 10"

部分電腦卡死（無限重新整理）

set ws=createobject("wscript.shell") 
do
ws.sendkeys "{f5}" 
loop

撩小姐姐的，自由發揮哦

msgbox("小姐姐")
msgbox("小姐姐")
msgbox("呼叫小姐姐")
a=msgbox("小姐姐有時間嗎？",vbYesNo,"玩個遊戲哦")
if (a=vbYes) then
msgbox("嘿嘿嘿，那我們可以繼續玩下去了！！！")
msgbox("那。。。。。。我就問你一個問題啊")
msgbox("你覺得自己漂不漂亮？")
msgbox("溫馨提示：")
msgbox("要有自信哦")
b=msgbox("漂不漂亮？",vbYesNo,"漂亮")
if (b=vbYes ) then
msgbox("我也這麼覺得")
wscript.echo printer(" ","*","113111111112212111313111513",7)
function printer(a1,a2,b,c)
for i = 1 to len(b)
b1 = Mid(b,i,1) 
for j = 1 to b1 
s=s&a1 
n=n+1 
if n=c then 
s=s&chr(10) 
n=0 
end if
next
a3=a1
a1=a2
a2=a3
next
printer=s
end function

msgbox("嘿嘿嘿")
msgbox("嗯，雖然我也贊同這一點")
msgbox("但")
msgbox("我還是想皮一下")
do 
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("玩不過我吧")
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("打不到我吧")
msgbox("沒有辦法")
msgbox("就是這麼強大")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
loop
else
msgbox("啥？")
msgbox("我沒聽清")
msgbox("這麼不自信？")
msgbox("和我的觀點不一樣")
msgbox("後果很嚴重")
msgbox("所以，準備懲罰你一下")
msgbox("帶你數綿羊吧")
Set s = CreateObject("sapi.spvoice")
i=0
Do while i<100
s.speak i
i=i+1
if i=66 then exit do
loop
end if
else 
msgbox("那。。。。。。我就在皮一下")
msgbox("真的")
msgbox("真的")
msgbox("真的")
msgbox("我就皮一下下")
msgbox("皮這一下我很開心")
msgbox("警告")
msgbox("警告")
msgbox("警告")
msgbox("你的電腦將關機")
msgbox("給你一次機會")
msgbox("使用 Ctrl+Alt+delete    關閉此程序")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 10"
end if