[ARX程序]：鼠标钩子程序例子AcadHook

zhang8755

鼠标钩子程序例子，我这个程序是在objectARX 2004的例子的框架下修改来的，目的是捕获鼠标滚轮和中键的消息，并设置相应的系统变量的值，程序中用到了USERI4和USERI5两个系统变量，lisp程序通过检查这两个变量的值来获得鼠标的状态。本来想利用函数AcedPutSym()设置修改一个lisp变量的值，但没能成功，不知道是为什么，所以改为修改系统变量的值。
程序如下：

代码:

2. 
   
3.   [FONT=courier new]
   
4. //////////////////////////////////////////////////////////////
   
5. //
   
6. // Includes
   
7. //
   
8. //////////////////////////////////////////////////////////////
   
9. #define _AFX_NOFORCE_LIBS // we do not want to link to MFC DLLs or libs
   
10. #ifdef _DEBUG
    
11. #define WAS_DEBUG
    
12. #undef _DEBUG
    
13. #endif
    
14. 
    
15. #include "afxwin.h"  // need this because rxmfcapi.h needs windows header.
    
16. 
    
17. #ifdef WAS_DEBUG
    
18. #undef WAS_DEBUG
    
19. #define _DEBUG
    
20. #endif
    
21. 
    
22. #include "aced.h"
    
23. #include "adslib.h"
    
24. #include "rxmfcapi.h"
    
25. 
    
26. 
    
27. //////////////////////////////////////////////////////////////
    
28. //
    
29. // Standard C Test function
    
30. //
    
31. //////////////////////////////////////////////////////////////
    
32. 
    
33. void mouse();                 // ARX callbacks
    
34. void unmouse();               // ARX callbacks
    
35. 
    
36. BOOL filterMouse(MSG *pMsg);   // hook function for trace mouse wheel
    
37. 
    
38. 
    
39. // preventing from inserting the same hook twice.
    
40. static BOOL mouseDone = FALSE;
    
41. 
    
42. //////////////////////////////////////////////////////////////
    
43. //
    
44. // Rx interface
    
45. //
    
46. //////////////////////////////////////////////////////////////
    
47. 
    
48. 
    
49. void initApp()
    
50. {
    
51. 
    
52.   acedRegCmds->addCommand( "Mwheel",      // Group name
    
53.                            "mwheel",      // Global function name
    
54.                            "mwheel",          // Local function name
    
55.                            ACRX_CMD_MODAL,    // Type
    
56.                            &mouse );         // Function pointer
    
57.   acedRegCmds->addCommand( "Mwheel",      // Group name
    
58.                            "unmwheel",      // Global function name
    
59.                            "unmwheel",          // Local function name
    
60.                            ACRX_CMD_MODAL,    // Type
    
61.                            &unmouse );         // Function pointer
    
62.   
    
63.   acutPrintf( ".OK!\n" );
    
64. 
    
65. }
    
66. 
    
67. void unloadApp()
    
68. {
    
69.   // Remove the command group because we are unloading
    
70.   //  
    
71.   acedRegCmds->removeGroup( "Mwheel" );
    
72. 
    
73.   // Removing all hooks
    
74. 
    
75.   if (mouseDone == TRUE)
    
76.       acedRemoveFilterWinMsg(filterMouse);
    
77. 
    
78. }
    
79. 
    
80. 
    
81. //////////////////////////////////////////////////////////////
    
82. //
    
83. // Entry point
    
84. //
    
85. //////////////////////////////////////////////////////////////
    
86. 
    
87. extern "C" AcRx::AppRetCode acrxEntryPoint( AcRx::AppMsgCode msg, void* pkt)
    
88. {
    
89.   switch( msg )
    
90.   {
    
91.     case AcRx::kInitAppMsg:
    
92.       initApp();
    
93.       acrxUnlockApplication(pkt);
    
94.           acrxDynamicLinker->registerAppMDIAware(pkt);
    
95.       break;
    
96.     case AcRx::kUnloadAppMsg:
    
97.       unloadApp();
    
98.       break;
    
99.     default:
    
100.       break;
     
101.   }
     
102.   return AcRx::kRetOK;
     
103. }
     
104. 
     
105. 
     
106. 
     
107. BOOL filterMouse(MSG *pMsg)
     
108. {
     
109.     static long ptx=0;
     
110.     static long pty=0;
     
111.     static short zdt=0;
     
112.         struct resbuf rb;
     
113. 
     
114. 
     
115.     if (pMsg->message == WM_MOUSEWHEEL)  //鼠标滚轮消息
     
116.     {
     
117.         if (LOWORD(pMsg->wParam) == MK_CONTROL)
     
118.         {
     
119.                         return FALSE; // continue
     
120.                 }
     
121.                 else
     
122.                 {
     
123. //                acutPrintf("Mouse Wheel!");
     
124.                 zdt=(short)HIWORD(pMsg->wParam);
     
125. //                acutPrintf("%d\n",zdt);
     
126.                 rb.restype = RTSHORT;
     
127.                 rb.resval.rint = zdt;
     
128.                 acedSetVar("USERI5", &rb);
     
129.         ptx = LOWORD(pMsg->lParam);
     
130.                 if (zdt == 120)
     
131.            pty = HIWORD(pMsg->lParam)-1;
     
132.                 if (zdt == -120)
     
133.            pty = HIWORD(pMsg->lParam)+1;
     
134.                 SetCursorPos(ptx,pty);
     
135.                 return TRUE; // continue
     
136.                 }
     
137.     }
     
138. 
     
139.     if (pMsg->message == WM_MBUTTONDOWN)  //鼠标中键按下消息
     
140.     {
     
141.                 rb.restype = RTSHORT;
     
142.                 rb.resval.rint = 100;
     
143.                 acedSetVar("USERI4", &rb);
     
144.                 return FALSE; // continue
     
145.     }
     
146. 
     
147.     if (pMsg->message == WM_MBUTTONUP)  //鼠标中键抬起消息
     
148.     {
     
149.                 rb.restype = RTSHORT;
     
150.                 rb.resval.rint = 0;
     
151.                 acedSetVar("USERI4", &rb);
     
152.                 return FALSE; // continue
     
153.     }
     
154. 
     
155.         return FALSE; // continue
     
156. }
     
157. 
     
158. 
     
159. ///////////////////////
     
160. 
     
161. void mouse()
     
162. {
     
163.     if (mouseDone == TRUE)     // already has the hook?
     
164.       return ;
     
165.   
     
166.     acutPrintf( "mouseing...\n" );
     
167. 
     
168.     if (acedRegisterFilterWinMsg(filterMouse) == FALSE)   //添加acadhook
     
169.         {
     
170.         acutPrintf("Can't register Windows Msg hook - VH - mouse\n");
     
171.         return ;
     
172.         }
     
173.     else
     
174.         {
     
175.         mouseDone = TRUE;
     
176.                 return ;
     
177.         }
     
178. }
     
179. 
     
180. 
     
181. void unmouse()
     
182. {
     
183. 
     
184.     if (mouseDone == TRUE)
     
185.     {
     
186.         acedRemoveFilterWinMsg(filterMouse);   //卸载acadhook
     
187.         mouseDone = FALSE;
     
188.     }
     
189.     if (mouseDone2 == TRUE)
     
190.     {
     
191.         acedRemoveFilterWinMsg(filterMouse2);
     
192.         mouseDone2 = FALSE;
     
193.     }
     
194. }
     
195.   [/FONT]
     

<br />   [FONT=courier new]<br /> //////////////////////////////////////////////////////////////<br /> //<br /> // Includes<br /> //<br /> //////////////////////////////////////////////////////////////<br /> #define _AFX_NOFORCE_LIBS // we do not want to link to MFC DLLs or libs<br /> #ifdef _DEBUG<br /> #define WAS_DEBUG<br /> #undef _DEBUG<br /> #endif<br /> <br /> #include "afxwin.h"  // need this because rxmfcapi.h needs windows header. <br /> <br /> #ifdef WAS_DEBUG<br /> #undef WAS_DEBUG<br /> #define _DEBUG<br /> #endif<br /> <br /> #include "aced.h"<br /> #include "adslib.h"<br /> #include "rxmfcapi.h"<br /> <br /> <br /> //////////////////////////////////////////////////////////////<br /> //<br /> // Standard C Test function<br /> //<br /> //////////////////////////////////////////////////////////////<br /> <br /> void mouse();                 // ARX callbacks<br /> void unmouse();               // ARX callbacks <br /> <br /> BOOL filterMouse(MSG *pMsg);   // hook function for trace mouse wheel<br /> <br /> <br /> // preventing from inserting the same hook twice.<br /> static BOOL mouseDone = FALSE;<br /> <br /> //////////////////////////////////////////////////////////////<br /> //<br /> // Rx interface<br /> //<br /> //////////////////////////////////////////////////////////////<br /> <br /> <br /> void initApp()<br /> {<br /> <br />   acedRegCmds->addCommand( "Mwheel",      // Group name <br />                            "mwheel",      // Global function name<br />                            "mwheel",          // Local function name<br />                            ACRX_CMD_MODAL,    // Type<br />                            &mouse );         // Function pointer<br />   acedRegCmds->addCommand( "Mwheel",      // Group name <br />                            "unmwheel",      // Global function name<br />                            "unmwheel",          // Local function name<br />                            ACRX_CMD_MODAL,    // Type<br />                            &unmouse );         // Function pointer<br />   <br />   acutPrintf( ".OK!\n" );<br /> <br /> }<br /> <br /> void unloadApp()<br /> {<br />   // Remove the command group because we are unloading<br />   //  <br />   acedRegCmds->removeGroup( "Mwheel" );<br /> <br />   // Removing all hooks <br /> <br />   if (mouseDone == TRUE)<br />       acedRemoveFilterWinMsg(filterMouse); <br /> <br /> }<br /> <br /> <br /> //////////////////////////////////////////////////////////////<br /> //<br /> // Entry point<br /> //<br /> //////////////////////////////////////////////////////////////<br /> <br /> extern "C" AcRx::AppRetCode acrxEntryPoint( AcRx::AppMsgCode msg, void* pkt)<br /> {<br />   switch( msg ) <br />   {<br />     case AcRx::kInitAppMsg: <br />       initApp();<br />       acrxUnlockApplication(pkt);<br />           acrxDynamicLinker->registerAppMDIAware(pkt);<br />       break;<br />     case AcRx::kUnloadAppMsg: <br />       unloadApp(); <br />       break;<br />     default:<br />       break;<br />   }<br />   return AcRx::kRetOK; <br /> }<br /> <br /> <br /> <br /> BOOL filterMouse(MSG *pMsg)<br /> {<br />     static long ptx=0;<br />     static long pty=0;<br />     static short zdt=0;<br />         struct resbuf rb; <br /> <br /> <br />     if (pMsg->message == WM_MOUSEWHEEL)  //鼠标滚轮消息<br />     {<br />         if (LOWORD(pMsg->wParam) == MK_CONTROL)<br />         {<br />                         return FALSE; // continue<br />                 }<br />                 else<br />                 {<br /> //                acutPrintf("Mouse Wheel!");<br />                 zdt=(short)HIWORD(pMsg->wParam);<br /> //                acutPrintf("%d\n",zdt);<br />                 rb.restype = RTSHORT; <br />                 rb.resval.rint = zdt; <br />                 acedSetVar("USERI5", &rb);<br />         ptx = LOWORD(pMsg->lParam);<br />                 if (zdt == 120)<br />            pty = HIWORD(pMsg->lParam)-1;<br />                 if (zdt == -120)<br />            pty = HIWORD(pMsg->lParam)+1;<br />                 SetCursorPos(ptx,pty);<br />                 return TRUE; // continue<br />                 }<br />     }<br /> <br />     if (pMsg->message == WM_MBUTTONDOWN)  //鼠标中键按下消息<br />     {<br />                 rb.restype = RTSHORT; <br />                 rb.resval.rint = 100; <br />                 acedSetVar("USERI4", &rb);<br />                 return FALSE; // continue<br />     }<br /> <br />     if (pMsg->message == WM_MBUTTONUP)  //鼠标中键抬起消息<br />     {<br />                 rb.restype = RTSHORT; <br />                 rb.resval.rint = 0; <br />                 acedSetVar("USERI4", &rb);<br />                 return FALSE; // continue<br />     }<br /> <br />         return FALSE; // continue<br /> }<br /> <br /> <br /> ///////////////////////<br /> <br /> void mouse()<br /> {<br />     if (mouseDone == TRUE)     // already has the hook?<br />       return ;<br />   <br />     acutPrintf( "mouseing...\n" );<br /> <br />     if (acedRegisterFilterWinMsg(filterMouse) == FALSE)   //添加acadhook<br />         {<br />         acutPrintf("Can't register Windows Msg hook - VH - mouse\n"); <br />         return ;<br />         }<br />     else<br />         {<br />         mouseDone = TRUE;<br />                 return ;<br />         }<br /> }<br /> <br /> <br /> void unmouse()<br /> {<br /> <br />     if (mouseDone == TRUE)<br />     {<br />         acedRemoveFilterWinMsg(filterMouse);   //卸载acadhook<br />         mouseDone = FALSE;<br />     }<br />     if (mouseDone2 == TRUE)<br />     {<br />         acedRemoveFilterWinMsg(filterMouse2); <br />         mouseDone2 = FALSE;<br />     }<br /> }<br />   [/FONT]<br />

lypdl

鼠标钩子程序例子AcadHook !!!!!

zangben

学习雷锋好榜样   谢谢啊

XUFULAI

学习学习

honglinzi

虽然下不了，但还是顶一下

ws_ong123

能下啊！顶

magyar

我这里也下不了

lxkfly

谢谢，学习中

lvbaoqi

谢谢，学习中

abbyandaaron

谢谢楼主，学习学习，但是好像怎么下载不了呢，郁闷呢……

cqjt

非常适用  谢谢楼主分项了

lhkun75

没有积分下载不了 ：（

andyxu2005

好人呢

ScmTools

很好的开发例子

小菜

版主能发一下你那个ctrl实时控制osnap状态开关的源码么？谢谢！