vb.net鍵盤(pán)鉤子的使用

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

堅(jiān)守“ 做人真誠(chéng) · 做事靠譜 · 口碑至上 · 高效敬業(yè) ”的價(jià)值觀，專業(yè)網(wǎng)站建設(shè)服務(wù)10余年為成都展覽展示小微創(chuàng)業(yè)公司專業(yè)提供企業(yè)網(wǎng)站制作營(yíng)銷(xiāo)網(wǎng)站建設(shè)商城網(wǎng)站建設(shè)手機(jī)網(wǎng)站建設(shè)小程序網(wǎng)站建設(shè)網(wǎng)站改版，從內(nèi)容策劃、視覺(jué)設(shè)計(jì)、底層架構(gòu)、網(wǎng)頁(yè)布局、功能開(kāi)發(fā)迭代于一體的高端網(wǎng)站建設(shè)服務(wù)。

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

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

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

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

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

多簡(jiǎn)單啊，

vb與vbs有什么區(qū)別

1、VB是應(yīng)用程序語(yǔ)言，vbs是一種腳本語(yǔ)言，二者語(yǔ)法差異不大，而且很多模塊可以共用。

2、VB是一種程序設(shè)計(jì)的IDE工具，VBs是基于VB的程序腳本

3、VB要用編譯器，vbs要用記事本和解釋器（這系統(tǒng)自帶）。

4、VBS就是vbscript的縮寫(xiě)，另外還有一種用于asp網(wǎng)頁(yè)編程使用的vba，和vbs大同小異。

5、VBS可以用于網(wǎng)頁(yè)設(shè)計(jì)，在許多網(wǎng)頁(yè)中都有Vbs腳本，以此來(lái)增強(qiáng)網(wǎng)頁(yè)的功能。

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溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

'可以多復(fù)制幾個(gè) msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"

End Sub

求一些好玩的整人代碼~~

gsh=msgbox ("已經(jīng)準(zhǔn)備好格式化，準(zhǔn)備開(kāi)始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "開(kāi)始格式化…… 哈哈！嚇暈了吧，騙你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows發(fā)現(xiàn)一重要更新，將自動(dòng)下載。"

wscript.sleep 3000

msgbox "系統(tǒng)檢測(cè)到WINDOWS更新中捆綁有不明插件SXS.exe,是否對(duì)其掃描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"發(fā)行者 田間的菜鳥(niǎo) "+chr(13)+"安全評(píng)級(jí) 高危"+chr(13)+"建議 直接刪除"+chr(13)+"病毒類(lèi)型：木馬",,"windows掃描附件"

msgbox "是否阻止其安裝？",vbyesno

wscript.sleep 3000

msgbox "阻止失??！請(qǐng)檢查防火墻是否開(kāi)啟！"

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 "很高興見(jiàn)到你！"

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 "再給你打開(kāi)記事本寫(xiě)封信，勸你最好別動(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 "提示：剛才的“病毒”是假的，只不過(guò)是嚇你玩玩~"

s.run "explorer"

”