vb.net整人 vbs整人代碼簡單
vb.net鍵盤鉤子的使用
哈哈，友情提示，我只懂VB，不懂VB.net，而且是新手，只會(huì)用現(xiàn)在會(huì)的東西投機(jī)取巧，思路一說：
堅(jiān)守“ 做人真誠 · 做事靠譜 · 口碑至上 · 高效敬業(yè) ”的價(jià)值觀，專業(yè)網(wǎng)站建設(shè)服務(wù)10余年為成都展覽展示小微創(chuàng)業(yè)公司專業(yè)提供企業(yè)網(wǎng)站制作營銷網(wǎng)站建設(shè)商城網(wǎng)站建設(shè)手機(jī)網(wǎng)站建設(shè)小程序網(wǎng)站建設(shè)網(wǎng)站改版，從內(nèi)容策劃、視覺設(shè)計(jì)、底層架構(gòu)、網(wǎng)頁布局、功能開發(fā)迭代于一體的高端網(wǎng)站建設(shè)服務(wù)。
首先否定你用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"
多簡單啊，
vb與vbs有什么區(qū)別
1、VB是應(yīng)用程序語言，vbs是一種腳本語言，二者語法差異不大，而且很多模塊可以共用。
2、VB是一種程序設(shè)計(jì)的IDE工具，VBs是基于VB的程序腳本
3、VB要用編譯器，vbs要用記事本和解釋器（這系統(tǒng)自帶）。
4、VBS就是vbscript的縮寫，另外還有一種用于asp網(wǎng)頁編程使用的vba，和vbs大同小異。
5、VBS可以用于網(wǎng)頁設(shè)計(jì)，在許多網(wǎng)頁中都有Vbs腳本，以此來增強(qiáng)網(wǎng)頁的功能。
6、會(huì)VB的，就不一定會(huì)VBS。
vb整人代碼
放一個(gè)timer,名為timer1
Private Sub Form_Load()
Me.Visible = False
Timer1.Interval = 10*1000
End Sub
Private Sub Timer1_Timer()
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
'可以多復(fù)制幾個(gè) msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"
End Sub
求一些好玩的整人代碼~~
gsh=msgbox ("已經(jīng)準(zhǔn)備好格式化，準(zhǔn)備開始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "開始格式化…… 哈哈！嚇暈了吧，騙你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows發(fā)現(xiàn)一重要更新，將自動(dòng)下載。"
wscript.sleep 3000
msgbox "系統(tǒng)檢測到WINDOWS更新中捆綁有不明插件SXS.exe,是否對(duì)其掃描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"發(fā)行者 田間的菜鳥 "+chr(13)+"安全評(píng)級(jí) 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類型：木馬",,"windows掃描附件"
msgbox "是否阻止其安裝？",vbyesno
wscript.sleep 3000
msgbox "阻止失??！請(qǐng)檢查防火墻是否開啟！"
wscript.sleep 5000
msgbox "正在嘗試強(qiáng)行刪除…"
wscript.sleep 5000
msgbox "失??！"
wscript.sleep 5000
msgbox "您的電腦已陷入危險(xiǎn)之中，請(qǐng)趕快掃描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好?。?
wscript.sleep 3000
msgbox "很高興見到你！"
wscript.sleep 3000
msgbox "您的電腦可能已經(jīng)感染病毒！",,"WINDOWS防火墻警告"
wscript.sleep 3000
msgbox "我控制你的電腦了！"
wscript.sleep 3000
msgbox "不信？那我給你關(guān)機(jī)看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "幫你解除關(guān)機(jī)……"
s.run "shutdown -a"
msgbox "再給你打開記事本寫封信，勸你最好別動(dòng)，要不然會(huì)引起系統(tǒng)混亂~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：剛才的“病毒”是假的，只不過是嚇你玩玩~"
s.run "explorer"
”
網(wǎng)站題目：vb.net整人 vbs整人代碼簡單
URL分享：http://m.jiaotiyi.com/article/ddopicd.html