① vb有趣小程序
整人的小程序，會彈出對話框提示：快說我是豬，不輸入的話會在1分鍾之內自動關機，輸入的話，當讓會被笑話啦，呵呵
將以下文字粘貼到記事本上後將後綴名改為:vbe,然後雙擊即可!(裡面的那些詞語可以自行修改)，經測試肯定可以使用。
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) + "承認就好了嘛"
阻止關機的方法:按鍵盤上的Win鍵+R鍵，在出來的窗口中輸入:shutdown -a 再按回車即可取消關機命令。