VB 從零開始編外掛(七)
2024-07-21 02:20:39
供稿：網友
鉤子：喜歡外掛的人都知道，很多外掛都是在游戲當中才能呼出。這個就用到了鉤子
n多人說：“哎，vb做鉤子想都別想！去學c語言吧！”只要大家遇到這種人，就別理會他。
可以說他是個垃圾。在實現鉤子方面vb可能沒有vc快，但是也不像那種人說的“想都別想”
c語言，我最近幾天看了看。{ } ；這些太多了。腦袋也大了！可能那些學c語言的人是接觸電腦
編程的時候就學的它吧！但是呢，我接觸電腦學的就是vb。沒辦法我愛它！
--------------------------------------------------------------------------------------------------------------------------------------------------------
好了下面介紹簡單的鉤子吧！
--------------------------------------------------------------------------------------------------------------------------------------------------------
setwindowshookex定義如下：
declare function setwindowshookex lib "user32" alias "setwindowshookexa" (byval idhook as long, byval lpfn as long, byval hmod as long, byval dwthreadid as long) as long
idhook是鉤子類型，如wh_keyboard捕捉鍵盤消息，而wh_mouse捕捉鼠標消息。
hmod用于全局鉤子，vb要實現鉤子，必須設為0。
dwthreadid用于線程鉤子vb中可以設置為app.threadid。
lpfn為鉤子函數，在vb中可以使用addressof獲得鉤子函數的地址。
這個函數因為鉤子類型不同而有所不同。
--------------------------------------------------------------------------------------------------------------------------------------------------------
如鍵盤鉤子為：
public function keyboardproc(byval ncode as long, byval wparam as long, byval lparam as long) as long
'如果code不為0，鉤子函數必須調用callnexthookex，將消息傳遞給下面的鉤子。wparam和lparam不是按鍵。
--------------------------------------------------------------------------------------------------------------------------------------------------------
下面給大家一個vb鉤子運用很好的例子！（全局鉤子）
我在論壇上遇到了王者，王者可以說是我見到的vb最棒的一個人。可以說王者是個
vb狂人，很多學c語言的人看來vb不能實現的東西。王者都實現了！這不是在打廣告
這是真的。vb實現全局鉤子前幾年在某某vb學習網站上看見過“vb全局鉤子是根本不能實現的！站長發布”呵呵！真的有點駭人聽聞！
但是大家看到了下面這個“萬能吃藥”外掛就知道了！
http://www.v2best.com/dispbbs.asp?boardid=6&id=171&page=1
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它的就不多說了，開學了。到暑假的時候再寫東西吧！
希望大家努力，相信一點，
什么工具什么語言不重要，只要有思路就行！
