vb.net整人小程序 vb小程序代碼

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

on error resume next

勉縣網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(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)你機(jī)，不信，試試···"" ",0 ,true

dim a

do while(a "我是豬")

a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬""　","說不說","不說",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)機(jī)的代碼

vb有趣小程序

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

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

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

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

用VB做一個(gè)惡搞的小程序。大家?guī)蛶兔Π?。我同學(xué)過生日，禮物我沒有找到好的，所以，只好用程序來活躍下...

Private Sub Form_Load()

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

End Sub

vb.net鍵盤鉤子的使用

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

首先否定你用HOOK，因?yàn)槟莻€(gè)太麻煩，只是為了整人不可以這么大動(dòng)干戈的

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

2.而如果不是你的程序置頂，程序就會(huì)置頂，這就要我們?cè)倌７翲OOK的另一半，讓程序獲取文本文檔的絕對(duì)路徑（好像通過進(jìn)程可以獲取到，不過要用到API），然后再在keydown中，在文件里輸出A就可以了

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

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

多簡(jiǎn)單啊，

本文標(biāo)題：vb.net整人小程序 vb小程序代碼
URL地址：http://muchs.cn/article32/doedgpc.html

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

廣告

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