Public Sub HookBul()
Dim hooks As Long
hooks = KO_PTR_DLG + &H84
Select Case ByteOku(hooks)
Case 8
KO_RCVHKB = &H7F3C50
KO_RECVHK = &H9B9E9C
HookRecvPackets
Case 9
KO_RCVHKB = &H7F64D0
KO_RECVHK = &H9B9EA0
HookRecvPackets
Case 10
KO_RCVHKB = &H7F8C80
KO_RECVHK = &H9B9EA4
HookRecvPackets
Case Else
KO_RCVHKB = &H7F2750
KO_RECVHK = &H9B9E9C
HookRecvPackets
End Select
End Sub
Konu: 1827 hook kodları 
