導航:首頁 > 軟體知識 > 怎麼做簡易惡搞程序

怎麼做簡易惡搞程序

發布時間:2023-03-13 23:14:45

⑴ 用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,保存即可。雙擊該文件即可執行批處理命令。

閱讀全文

與怎麼做簡易惡搞程序相關的資料

熱點內容
邢台職業技術學院有什麼科目 瀏覽:328
房屋交易受理單掉了怎麼辦 瀏覽:544
銀川學習電腦技術哪裡好 瀏覽:375
如何自己給飛度動手刷定速程序 瀏覽:270
樓下不到10米建菜市場怎麼辦 瀏覽:478
淘寶代理點怎麼申請 瀏覽:473
c1沒考過多久系統能注銷信息 瀏覽:104
天津圖釘代理加盟前景怎麼樣 瀏覽:671
轉移信息接續表要多久 瀏覽:976
請假單代理人是什麼意思 瀏覽:801
小程序不套用模板多少錢 瀏覽:104
天津最火舊物市場在什麼地方 瀏覽:820
水木萃白代理怎麼樣 瀏覽:290
如何不收到青桔的信息 瀏覽:226
永定哪裡有交易中心 瀏覽:811
現貨黃金交易師如何管理好資金 瀏覽:534
小米閃付怎麼沒有交易記錄 瀏覽:340
證券身份證信息更新一般多久 瀏覽:579
肥東有什麼農產品 瀏覽:603
黑馬程序員順義在哪個大學里 瀏覽:585