VB是一門很基礎的語言，本文就詳細製作一個整人遊戲。(本打算用VBS，結果編譯器壞了，沒辦法了)
工具/原料
Visual Basic6.0
方法/步驟
打開VB6.0企業版，新建標準EXE工程。
把form1的visiable設為False（看不見）
雙擊Form1，寫入如下代碼：
Private Sub Form_Load()
MsgBox "你是個**，不服點“確定”！", vbInformation, "SB"
MsgBox "此文件無毒，請放心使用。", vbRetryCancel, "系統提示。"
Dim a
Do
a = InputBox("輸入abc，否則關機。")
If a = "abc" Then
MsgBox " 很遺憾，你中招了，這是整人程序，你就等著關機吧！"
Exit Do
Else
MsgBox "乖點，輸入abc"
End If
Loop
On Error Resume Next
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""說我是豬，不說我是豬就一分鐘關你機，不信，試試···"" ", 0, True
Dim ac
Do While (ac <> "我是豬")
ac = InputBox("說我是豬,就不關機，快撒，說 ""我是豬"" ", "說不說", "不說", 8000, 7000)
MsgBox "乖"
Loop
MsgBox "早說就行了嘛"
On Error Resume Next
MsgBox "即將格式化！請做好準備！", vbYesNo
MsgBox "準備好後點yes！", vbYesNo
MsgBox "sorry，忘說了，點no也行！"
MsgBox "我對不起你啊！嗚嗚嗚555哈哈哈哈！"
MsgBox "靠，我笑個屁呀！我可是著名博士！在精神病院搞一種研究。。。"
MsgBox "被人研究！"
MsgBox "就知道你會笑！告訴你，我最討厭兩種人！一是討厭別人的人，二是愛笑人，三是不識數的人！"
MsgBox "你咋還笑？！是時候懲罰你了！"
MsgBox "自己罵自己的不要臉~~~~~~", 4, " "
MsgBox "你是不是很無聊啊？", 4
MsgBox "我來陪你玩會兒"
MsgBox "做好玩兒的準備吧！"
MsgBox "呵呵，你知道我是誰嗎？", 16
MsgBox "什麼？？不知道？", 16
MsgBox "那你打開我幹什麼？", 16
MsgBox "你有空沒事做吧？！", 16
MsgBox "現在你把它打開了覺得後悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "現在我數3聲就閃人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回來了！", 16
MsgBox "哈哈，是不是很過癮呢？", 16
MsgBox "現在我先介紹下自己..", 16
MsgBox "不好意思噢，我好像說多了..", 16
MsgBox "不要這樣喇，聽我說完先好不？", 16
MsgBox "來來來，開始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活樂無邊..", 16
MsgBox "好像我又說多了...", 16
MsgBox "不要生氣嘛，你認真看下去我就放你走..", 16
MsgBox "好，開始喇..", 16
MsgBox "從前有座山..", 16
MsgBox "山裡有個座廟..", 16
MsgBox "廟裡有個和尚..", 16
MsgBox "哈哈，想哭嗎？", 16
MsgBox "被騙的感覺不爽吧？", 16
MsgBox "喂喂喂！別別..千萬別重啟電腦", 16
MsgBox "我告訴你怎麼關吧", 16
MsgBox "先打開任務管理器", 16
MsgBox "忘了告訴你了，任務管理器打不開了", 16
MsgBox "別恨我啊你不小心", 16
MsgBox "電腦重新啟動吧", 16
MsgBox "相信我吧,你知道我是不會騙人的", 16
MsgBox "如果你還想繼續點的話,你就別聽我的", 16
MsgBox "呵呵,我又沒有說這個東西沒有", 16
MsgBox "我只想說桌面沒有罷了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "對著電腦屏幕大聲說低調大好人", 16
MsgBox "不然,我就沒辦法的咯", 16
MsgBox "因為我把循環設置成99了", 16
MsgBox "想保存電腦數據只有繼續點了", 16
MsgBox "絕對會出到去的", 16
MsgBox "好了,廢話不多說了,祝你好運..", 16
MsgBox "製作:XXX", 16
MsgBox "QQ：12345678901", 16
MsgBox "E-mail:不告訴你", 16
Do
MsgBox "你無聊嗎?", vbInformation, "你無聊嗎？"
Loop
End Sub
生成exe即可。
最好把它添加到計劃任務裡面，設置為“開機自啟動”，就牛了。
只能用破解程序了。
這裡麵包含了大量的無限循環，請慎用！~
破解程序：
打開記事本，寫入如下代碼：
@ECHO off
taskkill -f -im 工程1.exe
echo.解除完畢，按任意鍵退出...
pause >nul
exit
保存為 破解.bat
運行即可。
注意事項
運行解除程序時，在Vista/win7/win8下需要以管理員身份運行才有效。