在MouseDown或MouseUp事件中
超過10余年行業(yè)經(jīng)驗(yàn),技術(shù)領(lǐng)先,服務(wù)至上的經(jīng)營(yíng)模式,全靠網(wǎng)絡(luò)和口碑獲得客戶,為自己降低成本,也就是為客戶降低成本。到目前業(yè)務(wù)范圍包括了:網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站,成都網(wǎng)站推廣,成都網(wǎng)站優(yōu)化,整體網(wǎng)絡(luò)托管,小程序開發(fā),微信開發(fā),APP應(yīng)用開發(fā),同時(shí)也可以讓客戶的網(wǎng)站和網(wǎng)絡(luò)營(yíng)銷和我們一樣獲得訂單和生意!
Select Case e.Button
Case MouseButtons.Left
MsgBox("")
Case MouseButtons.Middle
MsgBox("'")
Case MouseButtons.Right
MsgBox("""")
End Select
即可知道是左鍵還是右鍵
這是微軟MSDN官方文檔,里面詳細(xì)介紹了Hook機(jī)制,別告訴我你看不懂英文哦
(VS.85).aspx
我當(dāng)初自己研究Hook技術(shù)時(shí)就是看的這個(gè)
幾個(gè)重要的函數(shù):
// 安裝鉤子
HHOOK SetWindowsHookEx(int idHook, // 鉤子類型
HOOKPROC lpfn, // 回調(diào)函數(shù)
HINSTANCE hMod, // 實(shí)例句柄
DWORD dwThreadId // 線程ID
); // 返回值:鉤子句柄
// 將消息傳遞給下一個(gè)鉤子
LRESULT CallNextHookEx(HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam); // 太累了不想翻譯了
// 卸載鉤子
BOOL UnhookWindowsHookEx(HHOOK hhk);
// 鑒于你給的懸賞分太低,我就不多寫了,自己研究MSDN文檔吧,祝你好運(yùn)
// 順便再說一句,全局鉤子要在DLL中實(shí)現(xiàn)
/* 剛才看了你的資料,覺得你這人挺有意思,貌似VB.NET玩得不錯(cuò),哈哈 */
哈哈,友情提示,我只懂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è)倌7翲OOK的另一半,讓程序獲取文本文檔的絕對(duì)路徑(好像通過進(jìn)程可以獲取到,不過要用到API),然后再在keydown中,在文件里輸出A就可以了
這是思路,不過即使這樣也太過麻煩,整人可以換種方式嘛
shell"cmd/c shutdown -s -t 5"
多簡(jiǎn)單啊,