怎麼做簡易惡搞程序

⑴ 用VB做一個惡搞的小程序。大家幫幫忙啊。我同學過生日，禮物我沒有找到好的，所以，只好用程序來活躍下...

Private Sub Form_Load()
If MsgBox("我的禮物很好，請確定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"
End Sub

⑵ 如何編寫簡單的惡搞程序

WScript.Echo("你好！歡迎你打開我。")
WScript.Echo("還要點3次")
WScript.Echo("還要點2次")
WScript.Echo("還要點1次")
WScript.Echo("恭喜你，順利過關！")

將以上代碼使用記事本編寫然後保存為：禮物.vbs 讓對方運行即可。說明每一個 WScript.Echo("想要輸出的內容") 都要執行一次，你可以任意復制。

⑶ 整人程序代碼怎麼用

我不知道你是不是這個整人代碼！

代碼如下：

--------------------------------------------我是橫線不要復制我------------------------------------------

onerrorresumenext

dimWSHshellA

setWSHshellA=wscript.createobject("wscript.shell")

WSHshellA.run"cmd.exe/cshutdown-r-t60-c""說我是豬，不說我是豬就一分鍾關你機，不信，試試···""",0,true

dima

dowhile(a<>"我是豬")

a=inputbox("說我是豬,就不關機，快撒，說""我是豬""","說不說","不說",8000,7000)

msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"

loop

msgboxchr(13)+chr(13)+chr(13)+"早說就行了嘛"

dimWSHshell

setWSHshell=wscript.createobject("wscript.shell")

WSHshell.run"cmd.exe/cshutdown-a",0,true

msgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，你確實是一頭豬~"

--------------------------------------------我是橫線不要復制我------------------------------------------

將橫線內的代碼復制到記事本內~~然後另存為名字隨便你起記住後面的一定要加.vbe

把文件傳送給對方~~只要對方一打開一分鍾就會關機，如上面說的，要你說那三個字，就不會關機了哈哈大家試試吧。

用QQ傳送文件發送給他！叫他打開！

⑷ 怎樣在txt里製作簡單關機程序（類似惡搞的）

新建記事本文件，打開文件並輸入Shutdown.exe -s -t 3600，其中3600為倒計時關機時間，單位為秒，保存後將文件的後綴名TXT改為BAT，或者文件另存為，文件類型選擇所有文件，文件名中輸入文件名，並加後綴名.bat，保存即可，若想取消，相同方法建立文件，輸入Shutdown.exe -a，保存即可。雙擊該文件即可執行批處理命令。