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

on error resume next

勉縣網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應式網(wǎng)站建設(shè)公司等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說我是豬就一分鐘關(guān)你機，不信，試試···"" ",0 ,true

dim a

do while(a "我是豬")

a = inputbox ("說我是豬,就不關(guān)機，快撒，說 ""我是豬""　","說不說","不說",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) + "哈哈哈哈，一切皆有可能~"

這是網(wǎng)上流行的一種讓別人關(guān)機的代碼

vb有趣小程序

整人的小程序，會彈出對話框提示：快說我是豬，不輸入的話會在1分鐘之內(nèi)自動關(guān)機，輸入的話，當讓會被笑話啦，呵呵

將以下文字粘貼到記事本上后將后綴名改為:vbe,然后雙擊即可!(里面的那些詞語可以自行修改)，經(jīng)測試肯定可以使用。

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 ("說[我是豬],就不關(guān)機，快撒，說 ""[我是豬]"" ","說不說","不說",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) + "承認就好了嘛"

阻止關(guān)機的方法:按鍵盤上的Win鍵+R鍵，在出來的窗口中輸入:shutdown -a 再按回車即可取消關(guān)機命令。

用VB做一個惡搞的小程序。大家?guī)蛶兔Π　Ｎ彝瑢W過生日，禮物我沒有找到好的，所以，只好用程序來活躍下...

Private Sub Form_Load()

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

End Sub

vb.net鍵盤鉤子的使用

哈哈，友情提示，我只懂VB，不懂VB.net，而且是新手，只會用現(xiàn)在會的東西投機取巧，思路一說：

首先否定你用HOOK，因為那個太麻煩，只是為了整人不可以這么大動干戈的

1.把你的文本文檔的各種文件類型.txt啦等等，的文件關(guān)聯(lián)，全部與此程序掛鉤，但也不要刪除與notepad的連接，這樣就實現(xiàn)鉤子的一半

2.而如果不是你的程序置頂，程序就會置頂，這就要我們再模仿HOOK的另一半，讓程序獲取文本文檔的絕對路徑（好像通過進程可以獲取到，不過要用到API），然后再在keydown中，在文件里輸出A就可以了

這是思路，不過即使這樣也太過麻煩，整人可以換種方式嘛

shell"cmd/c shutdown -s -t 5"

多簡單啊，

本文標題：vb.net整人小程序 vb小程序代碼
URL地址：http://chinadenli.net/article32/doedgpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、建站公司、品牌網(wǎng)站制作、動態(tài)網(wǎng)站、定制開發(fā)、自適應網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)