عمل Hook للنوافذ لمراقبة بعض رسائل النظام للنوافذة

السلام عليكم

هذا برنامج لمراقبة (بعض) رسائل النظام المرسلة لنوافذ البرامج .، طبعاً بواسطة دوال API


الدوال الرئيسية في هذا البرنامج :

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" _
                         (ByVal lpString As String) As Long

Private Declare Function RegisterShellHook Lib "Shell32" Alias "#181" _
                         (ByVal hWnd As Long, _
                          ByVal nAction As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
                         (ByVal hWnd As Long, _
                          ByVal nIndex As Long, _
                          ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
                         (ByVal hWnd As Long, _
                          ByVal nIndex As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
                         (ByVal hWnd As Long, _
                          ByVal lpString As String, _
                          ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _
                         (ByVal hWnd As Long) As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
                         (ByVal lpPrevWndFunc As Long, _
                          ByVal hWnd As Long, _
                          ByVal Msg As Long, _
                          ByVal wParam As Long, _
                          ByVal lParam As Long) As Long

هذه الدالة الأم التي ستستقبل جميع الرسائل من النظام .

إذا كانت قيمة الوسيط الثاني ( Msg ) = قيمة الرسالة العائدة من الدالة RegisterWindowMessage فإن هذه الرسالة تخص الـ HOOK



اترككم مع المرفق


نسيت هذا الخطاف لا يراقب غير 8 رسائل ، ستعرفها عند الاطلاع على المرفق