鉤子注入失敗用GetLastError返回錯誤代號14280x0594沒有模組控制代碼，無法設定非本機勾點。

 Declare Function GetlParam Lib "hookps.dll" (ByVal lParam As IntPtr) As Integer



Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click



        GetlParam(lpm) '獲得lParam 數值

        TextBox10.Text = lpm



    End Sub

long ( __stdcall GetlParam (LPARAM lParam))

{

	lParam=lparamvalue;

	return TRUE;

};





LRESULT  (CALLBACK __stdcall MessageProc(int code,WPARAM wParam,LPARAM lParam))

{

	switch (code)

	{	

   case WM_PSD_ENVSTAMPRECT:

			lparamvalue=lParam;

	};

	return TRUE; 



};

LRESULT  (CALLBACK __stdcall MessageProc(int code,WPARAM wParam,LPARAM lParam))

{

	switch (code)

	{	

   case WM_PSD_ENVSTAMPRECT:

			lparamvalue=((PMSG)lParam)->lParam;



	};

	return TRUE; 



};

Declare Function MessageProc Lib "hookps.dll" (ByVal code As Long, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  '注入鉤子



        Dim hwnd0 As IntPtr = GetDesktopWindow()

        Dim hwnd1 As IntPtr = FindWindowEx(hwnd0, 0, "ThunderRT6FormDC", vbNullString) '找到fw 這個窗口

        Dim hwnd2 As IntPtr = FindWindowEx(hwnd1, 0, "Slider20WndClass", vbNullString)

        Dim um As Long

        Dim wpa As IntPtr

        Dim hookk As Object = 0

        Dim geterror As Long = 0

        Dim getlparamvalue As IntPtr

        Dim code As Long



        SetHook(hwnd2, hookk, geterror)  '插入鉤子

        If hookk = 0 Then



            'hookk = Err.LastDllError

            TextBox10.Text = geterror





        End If



        PaintHookProc(hwnd2, um, wpa, lpm)   '獲得鉤子數據

        MessageProc(code, vbNull, getlparamvalue)

        TextBox10.Text = getlparamvalue





    End Sub

LRESULT  (CALLBACK __stdcall MessageProc(int code,WPARAM wParam,LPARAM lParam))

{

	switch (code)

{

case WM_PSD_ENVSTAMPRECT:

	lparamvalue=((PMSG)lParam)->lParam;

};

 return TRUE;

};



long ( __stdcall GetlParam (LPARAM lParam))

{

	lParam=lparamvalue;

	

	return TRUE;

};

LRESULT  (CALLBACK __stdcall MessageProc(int code,WPARAM wParam,LPARAM lParam))

{

	switch (code)

{

case WM_PSD_ENVSTAMPRECT:

	lparamvalue=((PMSG)lParam)->lParam;

};

 return TRUE;

};





LPARAM ( __stdcall GetlParam (void))

{

		

	return lparamvalue;

};



LPARAM (__stdcall ReleaseHook(HHOOK hThisHook))            //  <<<<<
{ 

 if(hThisHook)

  {

   UnhookWindowsHookEx(hThisHook);

   hThisHook = NULL;

  }

 return TRUE;

}; 

 Declare Function GetlParam Lib "hookps.dll" () As Integer

   Declare Function ReleaseHook Lib "hookps.dll" () As Long





 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click



        TextBox10.Text = GetlParam()





    End Sub





    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click



        ReleaseHook()



    End Sub

 # pragma data_seg (".shared")



 HWND g_hWnd=0;

 HHOOK hThisHook=0;

 LPARAM lparamvalue=0;

 HHOOK hook=0;

 //HINSTANCE hmod=::LoadLibraryA("hookps.dll");

 

 // save the hook handle

//static UINT_PTR CALLBACK PaintHookProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

//int GetWindowTextRemote(HWND hwnd,LPSTR lpString);  

//int ReleaseHook();



# pragma data_seg ()

# pragma comment (linker, "/section:.shared,RWS")

# pragma data_seg (".shared")







 LPARAM lparamvalue=0;





# pragma data_seg ()

# pragma comment (linker, "/section:.shared,RWS")

  HWND g_hWnd=0;

   HHOOK hThisHook=0;

    HHOOK hook=0;



LPARAM (__stdcall ReleaseHook(HHOOK hThisHook))                                                          //  <<<<<
{ 

 if(hThisHook)

  {

   UnhookWindowsHookEx(hThisHook);

   hThisHook = NULL;

   if (hThisHook == NULL)

   {

	   MessageBox(NULL, L"恭喜您 卸除成功", L"The success of the title search window", MB_OK);

	return FALSE ;

}

   	if( hThisHook > NULL )

{

MessageBox(NULL, L"鉤子沒有卸除喔", L"Linked the success of the title window", MB_OK);

return FALSE ;

	}







  }

 return TRUE;

};

 Declare Function ReleaseHook Lib "hookps.dll" (ByVal hThisHook As IntPtr) As UIntPtr



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click



        Dim UNhook As IntPtr

        ReleaseHook(UNhook)



    End Sub