大连做环评网站,做动漫网站要多少钱,个人工作室,宁波做网站优化的公司Spy原理初探 http://www.vckbase.com/index.php/wv/1480.html文章概要#xff1a;用Visual Studio搞开发的朋友对Spy这个工具一定不陌生#xff0c;它可以分析窗体结构、进程和窗口消息#xff0c;对开发工作有很大辅助作用。我们需要研究某个对象时#xff0c;只要调出其…Spy原理初探 http://www.vckbase.com/index.php/wv/1480.html 文章概要 用Visual Studio搞开发的朋友对Spy这个工具一定不陌生它可以分析窗体结构、进程和窗口消息对开发工作有很大辅助作用。我们需要研究某个对象时只要调出其查找窗口拖动探测器的指针到指定窗口/控件上释放即可。下面笔者就和大家一起用VC打造一个属于自己的Spy。 Spy原理初探正文 打开VC集成开发环境建立一个基于对话框的工程。我们把这个工程取名为SpyXX。在窗体中画上一个图片框控件(Picture)、一个静态文本控件(Static)、两个复选框控件(Check Box)和一个选项卡控件(Tab Control)。界面设计如下图。 探测器的制作需要两个图标文件(.ico)和一个鼠标光标文件(.cur)分别用于正常状态下的显示、鼠标拖出时的显示以及拖出时的鼠标指针这些资源哪里来啊Spy中就有啊用eXeScope挖一下吧。(我是从其他软件中挖出来的名字好像叫超级什么霸记不太清了呵呵。)选项卡控件定义5个标签页分别为常规、样式、类、窗口和消息。每个标签页的内容用一个属性页(Property Page)对话框来制作。下面我们按照顺序描述一下开发过程。 一、探测器的制作 探测器用一个图片框控件来显示正常状态下显示一幅有靶的图标。当鼠标在上面按下时显示内容立刻换为另一幅无靶的图标同时鼠标指针变为靶状。这样就给人一种靶心被拖出去的感觉了。通过上面的叙述我们了解到图片框需要响应WM_LBUTTONDOWN消息和WM_LBUTTONUP消息。而图片框在正常状态下只响应鼠标单击消息BN_CLICK。所以我们要通过子类化来响应上述两个消息。 把图片框的ID设为IDC_PIC并选中其Notify属性(否则不响应消息)。依次点击菜单Insert-New ClassClass type选择MFC Class类名取为CMyPic基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic在对话框的初始化过程中将其与图片框关联。代码如下 view source print? 1.BOOLCSpyXXDlg::OnInitDialog() 2.{ 3. CDialog::OnInitDialog(); 4. m_pic.SubclassDlgItem(IDC_PIC,this); 5. …… 6. returnTRUE; 7.} 在CMyPic类中我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl W打开Class Wizard选择Message Maps标签页在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下 view source print? 01.voidCMyPic::OnLButtonDown(UINTnFlags, CPoint point) 02.{ 03. // TODO: Add your message handler code here and/or call default 04. SetCapture(); //鼠标捕获 05. HCURSORhc LoadCursor(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1)); 06. //IDC_CURSOR1是靶形光标资源号 07. ::SetCursor(hc); 08. HICONhicon2 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON2)); 09. //IDI_ICON2为无靶图标资源号 10. this-SetIcon(hicon2); 11. CStatic::OnLButtonDown(nFlags, point); 12.} 13.voidCMyPic::OnLButtonUp(UINTnFlags, CPoint point) 14.{ 15. // TODO: Add your message handler code here and/or call default 16. ReleaseCapture();//释放鼠标捕获 17. HICONhicon1 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON1)); 18. //IDI_ICON1是有靶图标资源号 19. this-SetIcon(hicon1); 20. CStatic::OnLButtonUp(nFlags, point); 21.} 探测器外观制作完成了。可以先运行一下把鼠标按下后拖动试试。下面来实现其功能获取窗口句柄。根据鼠标位置来确定窗口需要用到API函数GetCursorPos和WindowFromPoint。此外我们还想做到像抓图程序那样鼠标移动到的地方窗口四周会出现闪烁的矩形。这一点我们用定时器来实现。定时器设在CSpyXXDlg类中但要由CMyPic中的OnLButtonUp来启动。所以我们定义一个全局变量g_hMe将CSpyXXDlg的实例句柄保存起来。同时被选取的窗口句柄也涉及到在多个标签页中显示所以也用全局变量g_hWnd将之保存。其余的用于显示标签页的属性页对话框句柄分别用g_hPage0、g_hPage1、g_hPage2、g_hPage3和g_hPage4来保存。启动定时器的代码如下 view source print? 1.FromHandle(g_hMe)-SetTimer(1,600,NULL); 在定时器中我们要实现桌面范围内的矩形绘制。代码如下 view source print? 01.POINT pnt; 02.RECT rc; 03.HWNDDeskHwnd ::GetDesktopWindow(); //取得桌面句柄 04.HDCDeskDC ::GetWindowDC(DeskHwnd); //取得桌面设备场景 05.intoldRop2 SetROP2(DeskDC, R2_NOTXORPEN); 06.::GetCursorPos(pnt);//取得鼠标坐标 07.HWNDUnHwnd ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄 08.g_hWndUnHwnd; 09.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 10.if( rc.left 0 ) rc.left 0; 11.if(rc.top 0 ) rc.top 0; 12.HPENnewPen ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC 13.HGDIOBJoldPen ::SelectObject(DeskDC, newPen); 14.::Rectangle(DeskDC, rc.left, rc.top, rc.right, rc.bottom);//在窗口周围显示闪烁矩形 15.Sleep(400);//设置闪烁时间间隔 16.::Rectangle( DeskDC, rc.left, rc.top, rc.right, rc.bottom); 17.::SetROP2(DeskDC, oldRop2); 18.::SelectObject( DeskDC, oldPen); 19.::DeleteObject(newPen); 20.::ReleaseDC( DeskHwnd, DeskDC); 21.DeskDC NULL; 到此探测器功能全部完成。 二、两个复选框 第一个复选框是总在最上面代码如下 view source print? 1.voidCSpyXXDlg::OnChktop() 2.{ 3. intnTop((CButton*)GetDlgItem(IDC_CHKTOP))-GetCheck(); 4. if(nTop1) 5. :: SetWindowPos(m_hWnd,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 6. else 7. ::SetWindowPos(m_hWnd,HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 8.} 第二个复选框是16进制。因为其值影响到多个属性页对话框的内容所以也用一全局变量g_nHex保存之 view source print? 1.voidCSpyXXDlg::OnChkhex() 2.{ 3. g_nHex((CButton*)GetDlgItem(IDC_CHKHEX))-GetCheck(); 4.} 这里我们还建立了一个全局函数Display来输出16进制和10进制时的句柄值 view source print? 01.CString Display(intnVal) 02.{ 03. CString str; 04. if(g_nHex1) 05. { 06. str.Format(%x,nVal); 07. str.MakeUpper(); 08. } 09. else 10. str.Format(%d,nVal); 11. returnstr; 12.} 三、选项卡控件 选项卡控件中5个标签页对应5个属性页对话框与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框 view source print? 01.m_page0.Create(IDD_OLE_PROPPAGE_LARGE,GetDlgItem(IDC_TAB1)); 02.m_page1.Create(IDD_OLE_PROPPAGE_LARGE1,GetDlgItem(IDC_TAB1)); 03.m_page2.Create(IDD_OLE_PROPPAGE_LARGE2,GetDlgItem(IDC_TAB1)); 04.m_page3.Create(IDD_OLE_PROPPAGE_LARGE3,GetDlgItem(IDC_TAB1)); 05.m_page4.Create(IDD_OLE_PROPPAGE_LARGE4,GetDlgItem(IDC_TAB1)); 06.CRect rs; 07.m_tab.GetClientRect(rs); 08.rs.top20; 09.rs.bottom-3; 10.rs.left3; 11.rs.right-3; 12.m_page0.MoveWindow(rs); 13.m_page1.MoveWindow(rs); 14.m_page2.MoveWindow(rs); 15.m_page3.MoveWindow(rs); 16.m_page4.MoveWindow(rs); 17.m_page0.ShowWindow(SW_SHOW); 18.m_tab.SetCurSel(0); 然后在选项卡消息TCN_SELCHANGE响应函数中控制它们的显示 view source print? 01.voidCSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult) 02.{ 03. // TODO: Add your control notification handler code here 04. intim_tab.GetCurSel(); 05. switch(i) 06. { 07. case0: 08. m_page0.ShowWindow(SW_SHOW); 09. m_page1.ShowWindow(SW_HIDE); 10. m_page2.ShowWindow(SW_HIDE); 11. m_page3.ShowWindow(SW_HIDE); 12. m_page4.ShowWindow(SW_HIDE); 13. break; 14. case1: 15. m_page0.ShowWindow(SW_HIDE); 16. m_page1.ShowWindow(SW_SHOW); 17. m_page2.ShowWindow(SW_HIDE); 18. m_page3.ShowWindow(SW_HIDE); 19. m_page4.ShowWindow(SW_HIDE); 20. break; 21. case2: 22. …… 23. default: 24. ; 25. } 26. *pResult 0; 27.} 四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下 view source print? 01.((CPage0*)FromHandle(g_hPage0))-m_editHWND.SetWindowText(Display((int)g_hWnd)); 02.charstrClass[200]\0; 03.::GetClassName(g_hWnd,strClass,200); 04.((CPage0*)FromHandle(g_hPage0))-m_editCLASS.SetWindowText(strClass); 05.((CPage2*)FromHandle(g_hPage2))-SetDlgItemText(IDC_EDITCLASSNAME,strClass); 06. 07.charstrTitle[200]\0; 08. ::GetWindowText(g_hWnd,strTitle,200); 09.((CPage0*)FromHandle(g_hPage0))-m_editTITLE.SetWindowText (strTitle); 10.longiWNDIDGetWindowLong(g_hWnd,GWL_ID); 11.((CPage0*)FromHandle(g_hPage0))-m_editWNDID.SetWindowText(Display((int)iWNDID)); 12. 13.unsignedlong iPID0; 14.GetWindowThreadProcessId(g_hWnd,iPID); 15.((CPage0*)FromHandle(g_hPage0))-m_editPID.SetWindowText(Display((int)iPID)); 16. 17.CString strPath; 18.strPathgetProcPath(iPID); 19.((CPage0*)FromHandle(g_hPage0))-m_editPATH.SetWindowText(strPath); 20. 21.RECT rc; 22.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 23.CString strRect; 24.strRect.Format((%d,%d),(%d,%d) %dx%d,rc.left,rc.top,rc.right,rc.bottom, 25.rc.right-rc.left,rc.bottom-rc.top); 26.((CPage0*)FromHandle(g_hPage0))-m_editRECT.SetWindowText(strRect); 其中getProcPath是获取进程文件路径的函数。获取进程路径的方法有两种。在NT系统中我们可以用OpenProcess()函数将进程打开后再利用EnumProcessModules()函数枚举该进程的模块最后利用GetModuleFileNameEx()函数就能取得该进程的路径第二种方法是利用ToolHelp API中的相关函数。而后者兼容容Windows9x和NT4.0以后系统所以采取此法。它的实现代码如下 view source print? 01.CString getProcPath(intPID) 02.{ 03. HANDLEhModule; 04. MODULEENTRY32* minfonewMODULEENTRY32; 05. minfo-dwSizesizeof(MODULEENTRY32); 06. hModuleCreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo); 07. CString str; 08. str.Format(%s,minfo-szExePath); 09. CloseHandle(hModule); 10. if(minfo)delete minfo; 11. returnstr; 12.} 五、样式标签页 样式标签页设计如下图 API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做位与操作如果被包含则返回其窗口样式否则返回0。这样就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下 view source print? 01.CListBox* pListStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_STYLE)); 02.CListBox* pListExStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_EX_STYLE)); 03.CEdit* pEditStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_STYLE)); 04.CEdit* pEditExStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_EX_STYLE)); 05.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 06.longstyleEx GetWindowLong(g_hWnd, GWL_EXSTYLE); 07.pEditStyle-SetWindowText(Display((int)style)); 08.pEditExStyle-SetWindowText(Display((int)styleEx)); 09.pListStyle-ResetContent();//清空样式列表框 10.pListExStyle-ResetContent();//清空扩展样式列表框 11.if(style WS_BORDER) 12. pListStyle-AddString(WS_BORDER); 13.if( style WS_CAPTION) 14. pListStyle-AddString(WS_CAPTION); 15.if( style WS_CHILD) 16. pListStyle-AddString(WS_CHILD); 17. …… 六、类标签页 类标签页的设计如下图 类名在常规标签页已获取。API函数GetClassLong可以获取类样式值。样式列表的实现与窗口样式类似不再赘述。 七、窗口标签页 窗口标签页的设计如下图 在该页中主要用到了下面几个API函数GetNextWindow、GetWindow和SendMessage。这三个API函数搭配以不同的参数值可以实现不同的功能。这里没有用GetWIndowText函数是因为它不能取出部分系统窗口和隐藏窗口的标题。我们用SendMessage函数加WM_GETTEXT参数取代之。代码如下 view source print? 01.CPage3* pPage3(CPage3*)FromHandle(g_hPage3); 02.HWNDtempHandle; 03.chartempstr[255]\0; 04.tempHandle g_hWnd;//本窗口句柄 05.pPage3-SetDlgItemText(IDC_MYHWND, Display((int)tempHandle)); 06.//获取本窗口标题 07.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 08.pPage3-SetDlgItemText(IDC_MYTITLE, tempstr); 09.//上一窗口 10.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDPREV); 11.pPage3-SetDlgItemText(IDC_PREHWND, Display((int)tempHandle)); 12.//获取上一窗口标题 13.memset(tempstr,0,255); 14.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 15.pPage3-SetDlgItemText(IDC_PRETITLE, tempstr); 16.//下一窗口 17.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDNEXT); 18.pPage3-SetDlgItemText(IDC_NEXTHWND,Display((int)tempHandle)); 19.memset(tempstr,0,255);//获取下一窗口标题 20.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 21.pPage3-SetDlgItemText(IDC_NEXTTITLE, tempstr); 22. 23.tempHandle ::GetParent(g_hWnd);//父窗口 24.pPage3-SetDlgItemText(IDC_PARENTHWND, Display((int)tempHandle)); 25.memset(tempstr,0,255); 26.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 27.pPage3-SetDlgItemText(IDC_PARENTTITLE,tempstr); 28.//第一子窗口 29.tempHandle ::GetWindow(g_hWnd, GW_CHILD); 30.pPage3-SetDlgItemText(IDC_CHILDHWND,Display((int)tempHandle)); 31.memset(tempstr,-0,255); 32.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 33.pPage3-SetDlgItemText(IDC_CHILDTITLE,tempstr); 34.//所有者窗口 35.tempHandle ::GetWindow(g_hWnd, GW_OWNER); 36.Page3-SetDlgItemText(IDC_OWNERHWND,Display((int)tempHandle)); 37.memset(tempstr,0,255); 38.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 39.pPage3-SetDlgItemText(IDC_OWNERTITLE, tempstr); 八、消息标签页 消息标签页的设计如下图 该页中的列表框与样式列表框不同它的每个列表项前都有一个复选框。这要用到类CCheckListBox。这里要再次用到子类化的知识。从本文第一段制作CMyPric过程中我们体会到了子类化的作用也感到了它的不便之处。这里我们采取另外一种方法借鸡生蛋即用Class Wizard生成相关代码然后再修改它。首先在该属性页对话框上画一个列表控件打开Class Wizard关联一个CListBox类变量m_listStatus。设置列表框的Owner Draw属性为Fixed并选中其Has Strings选项。如下图 然后在Page4.h中查找到m_listStatus的定义 CListBox m_listStatus并将其改为CCheckListBox m_listStatus。这样我们就可以使用CCheckListBox的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项 view source print? 01.CCheckListBox* plistStatus((CCheckListBox*)FromHandle(g_hPage4)-GetDlgItem(IDC_LISTSTATUS)); 02.plistStatus-AddString(窗口可见); 03.plistStatus-AddString(窗口可用); 04.plistStatus-AddString(总在最前); 05.plistStatus-AddString(窗口只读); 06.plistStatus-AddString(最大化); 07.plistStatus-AddString(最小化); 08.plistStatus-AddString(窗口还原); 09.plistStatus-AddString(关闭窗口); 10.plistStatus-AddString(激活窗口); 接下来我们要判断当窗口/控件被选定后哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项窗口可见代码如下 view source print? 1.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 2.if( style WS_VISIBLE ) 3.{ 4. pListStatus-SetCheck(0,1); 5.} 其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外为了不使一个勾选的改变就引起所有列表项都激发一遍我们采用switch结构以使哪个列表项被选中就激发哪个列表项。代码如下 view source print? 01.voidCPage4::OnSelchangeListstatus() 02.{ 03. // TODO: Add your control notification handler code here 04. intnm_listStatus.GetCurSel(); 05. switch(n) 06. { 07. case0: 08. if(m_listStatus.GetCheck(0) 1 ) 09. ::ShowWindow(g_hWnd, SW_SHOW); 10. else 11. ::ShowWindow(g_hWnd, SW_HIDE); 12. break; 13. case1: 14. if(m_listStatus.GetCheck(1) 1) 15. ::EnableWindow(g_hWnd, TRUE); 16. else 17. ::EnableWindow(g_hWnd,FALSE); 18. break; 19. case2: 20. if(m_listStatus.GetCheck(2) 1) 21. ::SetWindowPos(g_hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE); 22. else 23. ::SetWindowPos(g_hWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE); 24. break; 25. case3: 26. if(m_listStatus.GetCheck(3) 1) 27. ::SendMessage(g_hWnd, EM_SETREADONLY, TRUE, 0); 28. else 29. ::SendMessage(g_hWnd, EM_SETREADONLY, FALSE, 0); 30. break; 31. case4: 32. if(m_listStatus.GetCheck(4) 1) 33. { 34. ::ShowWindow(g_hWnd, SW_MAXIMIZE); 35. m_listStatus.SetCheck(5,0); 36. } 37. else 38. ::ShowWindow (g_hWnd, SW_RESTORE); 39. break; 40. case5: 41. if(m_listStatus.GetCheck(5) 1) 42. { 43. ::ShowWindow(g_hWnd, SW_MINIMIZE); 44. m_listStatus.SetCheck(4,0); 45. } 46. else 47. ::ShowWindow(g_hWnd, SW_RESTORE); 48. break; 49. case6: 50. if(m_listStatus.GetCheck(6) 1) 51. { 52. ::ShowWindow (g_hWnd, SW_RESTORE); 53. m_listStatus.SetCheck(6,0); 54. m_listStatus.SetCheck(5,0); 55. m_listStatus.SetCheck(4,0); 56. } 57. break; 58. case7: 59. if(m_listStatus.GetCheck(7) 1) 60. { 61. ::SendMessage (g_hWnd, WM_CLOSE, 0, 0); 62. m_listStatus.SetCheck(7,0); 63. } 64. break; 65. case8: 66. if(m_listStatus.GetCheck(8) 1) 67. { 68. ::BringWindowToTop(g_hWnd); 69. m_listStatus.SetCheck(8,0); 70. } 71. break; 72. default: 73. ; 74. } 75.} Spy打造完毕。回顾其过程难点不多细细碎碎问题不少。也难免啊不仅要形似咱还要神似。文中一定还有很多地方不够周全希望同行朋友们不吝赐教。代码在Window XP VC6.0中调试通过。Spy源码同时放在这里。欢迎访问我的个人主页(阿珊境界)http://www.asanscape.com欢迎加入我们的VC讨论群713035。 Spy原理初探-原文点击打开链接 正文 打开VC集成开发环境建立一个基于对话框的工程。我们把这个工程取名为SpyXX。在窗体中画上一个图片框控件(Picture)、一个静态文本控件(Static)、两个复选框控件(Check Box)和一个选项卡控件(Tab Control)。界面设计如下图。 探测器的制作需要两个图标文件(.ico)和一个鼠标光标文件(.cur)分别用于正常状态下的显示、鼠标拖出时的显示以及拖出时的鼠标指针这些资源哪里来啊Spy中就有啊用eXeScope挖一下吧。(我是从其他软件中挖出来的名字好像叫超级什么霸记不太清了呵呵。)选项卡控件定义5个标签页分别为常规、样式、类、窗口和消息。每个标签页的内容用一个属性页(Property Page)对话框来制作。下面我们按照顺序描述一下开发过程。 一、探测器的制作 探测器用一个图片框控件来显示正常状态下显示一幅有靶的图标。当鼠标在上面按下时显示内容立刻换为另一幅无靶的图标同时鼠标指针变为靶状。这样就给人一种靶心被拖出去的感觉了。通过上面的叙述我们了解到图片框需要响应WM_LBUTTONDOWN消息和WM_LBUTTONUP消息。而图片框在正常状态下只响应鼠标单击消息BN_CLICK。所以我们要通过子类化来响应上述两个消息。 把图片框的ID设为IDC_PIC并选中其Notify属性(否则不响应消息)。依次点击菜单Insert-New ClassClass type选择MFC Class类名取为CMyPic基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic在对话框的初始化过程中将其与图片框关联。代码如下 view source print? 1.BOOLCSpyXXDlg::OnInitDialog() 2.{ 3. CDialog::OnInitDialog(); 4. m_pic.SubclassDlgItem(IDC_PIC,this); 5. …… 6. returnTRUE; 7.} 在CMyPic类中我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl W打开Class Wizard选择Message Maps标签页在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下 view source print? 01.voidCMyPic::OnLButtonDown(UINTnFlags, CPoint point) 02.{ 03. // TODO: Add your message handler code here and/or call default 04. SetCapture(); //鼠标捕获 05. HCURSORhc LoadCursor(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1)); 06. //IDC_CURSOR1是靶形光标资源号 07. ::SetCursor(hc); 08. HICONhicon2 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON2)); 09. //IDI_ICON2为无靶图标资源号 10. this-SetIcon(hicon2); 11. CStatic::OnLButtonDown(nFlags, point); 12.} 13.voidCMyPic::OnLButtonUp(UINTnFlags, CPoint point) 14.{ 15. // TODO: Add your message handler code here and/or call default 16. ReleaseCapture();//释放鼠标捕获 17. HICONhicon1 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON1)); 18. //IDI_ICON1是有靶图标资源号 19. this-SetIcon(hicon1); 20. CStatic::OnLButtonUp(nFlags, point); 21.} 探测器外观制作完成了。可以先运行一下把鼠标按下后拖动试试。下面来实现其功能获取窗口句柄。根据鼠标位置来确定窗口需要用到API函数GetCursorPos和WindowFromPoint。此外我们还想做到像抓图程序那样鼠标移动到的地方窗口四周会出现闪烁的矩形。这一点我们用定时器来实现。定时器设在CSpyXXDlg类中但要由CMyPic中的OnLButtonUp来启动。所以我们定义一个全局变量g_hMe将CSpyXXDlg的实例句柄保存起来。同时被选取的窗口句柄也涉及到在多个标签页中显示所以也用全局变量g_hWnd将之保存。其余的用于显示标签页的属性页对话框句柄分别用g_hPage0、g_hPage1、g_hPage2、g_hPage3和g_hPage4来保存。启动定时器的代码如下 view source print? 1.FromHandle(g_hMe)-SetTimer(1,600,NULL); 在定时器中我们要实现桌面范围内的矩形绘制。代码如下 view source print? 01.POINT pnt; 02.RECT rc; 03.HWNDDeskHwnd ::GetDesktopWindow(); //取得桌面句柄 04.HDCDeskDC ::GetWindowDC(DeskHwnd); //取得桌面设备场景 05.intoldRop2 SetROP2(DeskDC, R2_NOTXORPEN); 06.::GetCursorPos(pnt);//取得鼠标坐标 07.HWNDUnHwnd ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄 08.g_hWndUnHwnd; 09.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 10.if( rc.left 0 ) rc.left 0; 11.if(rc.top 0 ) rc.top 0; 12.HPENnewPen ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC 13.HGDIOBJoldPen ::SelectObject(DeskDC, newPen); 14.::Rectangle(DeskDC, rc.left, rc.top, rc.right, rc.bottom);//在窗口周围显示闪烁矩形 15.Sleep(400);//设置闪烁时间间隔 16.::Rectangle( DeskDC, rc.left, rc.top, rc.right, rc.bottom); 17.::SetROP2(DeskDC, oldRop2); 18.::SelectObject( DeskDC, oldPen); 19.::DeleteObject(newPen); 20.::ReleaseDC( DeskHwnd, DeskDC); 21.DeskDC NULL; 到此探测器功能全部完成。 二、两个复选框 第一个复选框是总在最上面代码如下 view source print? 1.voidCSpyXXDlg::OnChktop() 2.{ 3. intnTop((CButton*)GetDlgItem(IDC_CHKTOP))-GetCheck(); 4. if(nTop1) 5. :: SetWindowPos(m_hWnd,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 6. else 7. ::SetWindowPos(m_hWnd,HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 8.} 第二个复选框是16进制。因为其值影响到多个属性页对话框的内容所以也用一全局变量g_nHex保存之 view source print? 1.voidCSpyXXDlg::OnChkhex() 2.{ 3. g_nHex((CButton*)GetDlgItem(IDC_CHKHEX))-GetCheck(); 4.} 这里我们还建立了一个全局函数Display来输出16进制和10进制时的句柄值 view source print? 01.CString Display(intnVal) 02.{ 03. CString str; 04. if(g_nHex1) 05. { 06. str.Format(%x,nVal); 07. str.MakeUpper(); 08. } 09. else 10. str.Format(%d,nVal); 11. returnstr; 12.} 三、选项卡控件 选项卡控件中5个标签页对应5个属性页对话框与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框 view source print? 01.m_page0.Create(IDD_OLE_PROPPAGE_LARGE,GetDlgItem(IDC_TAB1)); 02.m_page1.Create(IDD_OLE_PROPPAGE_LARGE1,GetDlgItem(IDC_TAB1)); 03.m_page2.Create(IDD_OLE_PROPPAGE_LARGE2,GetDlgItem(IDC_TAB1)); 04.m_page3.Create(IDD_OLE_PROPPAGE_LARGE3,GetDlgItem(IDC_TAB1)); 05.m_page4.Create(IDD_OLE_PROPPAGE_LARGE4,GetDlgItem(IDC_TAB1)); 06.CRect rs; 07.m_tab.GetClientRect(rs); 08.rs.top20; 09.rs.bottom-3; 10.rs.left3; 11.rs.right-3; 12.m_page0.MoveWindow(rs); 13.m_page1.MoveWindow(rs); 14.m_page2.MoveWindow(rs); 15.m_page3.MoveWindow(rs); 16.m_page4.MoveWindow(rs); 17.m_page0.ShowWindow(SW_SHOW); 18.m_tab.SetCurSel(0); 然后在选项卡消息TCN_SELCHANGE响应函数中控制它们的显示 view source print? 01.voidCSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult) 02.{ 03. // TODO: Add your control notification handler code here 04. intim_tab.GetCurSel(); 05. switch(i) 06. { 07. case0: 08. m_page0.ShowWindow(SW_SHOW); 09. m_page1.ShowWindow(SW_HIDE); 10. m_page2.ShowWindow(SW_HIDE); 11. m_page3.ShowWindow(SW_HIDE); 12. m_page4.ShowWindow(SW_HIDE); 13. break; 14. case1: 15. m_page0.ShowWindow(SW_HIDE); 16. m_page1.ShowWindow(SW_SHOW); 17. m_page2.ShowWindow(SW_HIDE); 18. m_page3.ShowWindow(SW_HIDE); 19. m_page4.ShowWindow(SW_HIDE); 20. break; 21. case2: 22. …… 23. default: 24. ; 25. } 26. *pResult 0; 27.} 四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下 view source print? 01.((CPage0*)FromHandle(g_hPage0))-m_editHWND.SetWindowText(Display((int)g_hWnd)); 02.charstrClass[200]\0; 03.::GetClassName(g_hWnd,strClass,200); 04.((CPage0*)FromHandle(g_hPage0))-m_editCLASS.SetWindowText(strClass); 05.((CPage2*)FromHandle(g_hPage2))-SetDlgItemText(IDC_EDITCLASSNAME,strClass); 06. 07.charstrTitle[200]\0; 08. ::GetWindowText(g_hWnd,strTitle,200); 09.((CPage0*)FromHandle(g_hPage0))-m_editTITLE.SetWindowText (strTitle); 10.longiWNDIDGetWindowLong(g_hWnd,GWL_ID); 11.((CPage0*)FromHandle(g_hPage0))-m_editWNDID.SetWindowText(Display((int)iWNDID)); 12. 13.unsignedlong iPID0; 14.GetWindowThreadProcessId(g_hWnd,iPID); 15.((CPage0*)FromHandle(g_hPage0))-m_editPID.SetWindowText(Display((int)iPID)); 16. 17.CString strPath; 18.strPathgetProcPath(iPID); 19.((CPage0*)FromHandle(g_hPage0))-m_editPATH.SetWindowText(strPath); 20. 21.RECT rc; 22.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 23.CString strRect; 24.strRect.Format((%d,%d),(%d,%d) %dx%d,rc.left,rc.top,rc.right,rc.bottom, 25.rc.right-rc.left,rc.bottom-rc.top); 26.((CPage0*)FromHandle(g_hPage0))-m_editRECT.SetWindowText(strRect); 其中getProcPath是获取进程文件路径的函数。获取进程路径的方法有两种。在NT系统中我们可以用OpenProcess()函数将进程打开后再利用EnumProcessModules()函数枚举该进程的模块最后利用GetModuleFileNameEx()函数就能取得该进程的路径第二种方法是利用ToolHelp API中的相关函数。而后者兼容容Windows9x和NT4.0以后系统所以采取此法。它的实现代码如下 view source print? 01.CString getProcPath(intPID) 02.{ 03. HANDLEhModule; 04. MODULEENTRY32* minfonewMODULEENTRY32; 05. minfo-dwSizesizeof(MODULEENTRY32); 06. hModuleCreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo); 07. CString str; 08. str.Format(%s,minfo-szExePath); 09. CloseHandle(hModule); 10. if(minfo)delete minfo; 11. returnstr; 12.} 五、样式标签页 样式标签页设计如下图 API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做位与操作如果被包含则返回其窗口样式否则返回0。这样就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下 view source print? 01.CListBox* pListStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_STYLE)); 02.CListBox* pListExStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_EX_STYLE)); 03.CEdit* pEditStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_STYLE)); 04.CEdit* pEditExStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_EX_STYLE)); 05.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 06.longstyleEx GetWindowLong(g_hWnd, GWL_EXSTYLE); 07.pEditStyle-SetWindowText(Display((int)style)); 08.pEditExStyle-SetWindowText(Display((int)styleEx)); 09.pListStyle-ResetContent();//清空样式列表框 10.pListExStyle-ResetContent();//清空扩展样式列表框 11.if(style WS_BORDER) 12. pListStyle-AddString(WS_BORDER); 13.if( style WS_CAPTION) 14. pListStyle-AddString(WS_CAPTION); 15.if( style WS_CHILD) 16. pListStyle-AddString(WS_CHILD); 17. …… 六、类标签页 类标签页的设计如下图 类名在常规标签页已获取。API函数GetClassLong可以获取类样式值。样式列表的实现与窗口样式类似不再赘述。 七、窗口标签页 窗口标签页的设计如下图 在该页中主要用到了下面几个API函数GetNextWindow、GetWindow和SendMessage。这三个API函数搭配以不同的参数值可以实现不同的功能。这里没有用GetWIndowText函数是因为它不能取出部分系统窗口和隐藏窗口的标题。我们用SendMessage函数加WM_GETTEXT参数取代之。代码如下 view source print? 01.CPage3* pPage3(CPage3*)FromHandle(g_hPage3); 02.HWNDtempHandle; 03.chartempstr[255]\0; 04.tempHandle g_hWnd;//本窗口句柄 05.pPage3-SetDlgItemText(IDC_MYHWND, Display((int)tempHandle)); 06.//获取本窗口标题 07.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 08.pPage3-SetDlgItemText(IDC_MYTITLE, tempstr); 09.//上一窗口 10.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDPREV); 11.pPage3-SetDlgItemText(IDC_PREHWND, Display((int)tempHandle)); 12.//获取上一窗口标题 13.memset(tempstr,0,255); 14.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 15.pPage3-SetDlgItemText(IDC_PRETITLE, tempstr); 16.//下一窗口 17.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDNEXT); 18.pPage3-SetDlgItemText(IDC_NEXTHWND,Display((int)tempHandle)); 19.memset(tempstr,0,255);//获取下一窗口标题 20.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 21.pPage3-SetDlgItemText(IDC_NEXTTITLE, tempstr); 22. 23.tempHandle ::GetParent(g_hWnd);//父窗口 24.pPage3-SetDlgItemText(IDC_PARENTHWND, Display((int)tempHandle)); 25.memset(tempstr,0,255); 26.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 27.pPage3-SetDlgItemText(IDC_PARENTTITLE,tempstr); 28.//第一子窗口 29.tempHandle ::GetWindow(g_hWnd, GW_CHILD); 30.pPage3-SetDlgItemText(IDC_CHILDHWND,Display((int)tempHandle)); 31.memset(tempstr,-0,255); 32.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 33.pPage3-SetDlgItemText(IDC_CHILDTITLE,tempstr); 34.//所有者窗口 35.tempHandle ::GetWindow(g_hWnd, GW_OWNER); 36.Page3-SetDlgItemText(IDC_OWNERHWND,Display((int)tempHandle)); 37.memset(tempstr,0,255); 38.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 39.pPage3-SetDlgItemText(IDC_OWNERTITLE, tempstr); 八、消息标签页 消息标签页的设计如下图 该页中的列表框与样式列表框不同它的每个列表项前都有一个复选框。这要用到类CCheckListBox。这里要再次用到子类化的知识。从本文第一段制作CMyPric过程中我们体会到了子类化的作用也感到了它的不便之处。这里我们采取另外一种方法借鸡生蛋即用Class Wizard生成相关代码然后再修改它。首先在该属性页对话框上画一个列表控件打开Class Wizard关联一个CListBox类变量m_listStatus。设置列表框的Owner Draw属性为Fixed并选中其Has Strings选项。如下图 然后在Page4.h中查找到m_listStatus的定义 CListBox m_listStatus并将其改为CCheckListBox m_listStatus。这样我们就可以使用CCheckListBox的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项 view source print? 01.CCheckListBox* plistStatus((CCheckListBox*)FromHandle(g_hPage4)-GetDlgItem(IDC_LISTSTATUS)); 02.plistStatus-AddString(窗口可见); 03.plistStatus-AddString(窗口可用); 04.plistStatus-AddString(总在最前); 05.plistStatus-AddString(窗口只读); 06.plistStatus-AddString(最大化); 07.plistStatus-AddString(最小化); 08.plistStatus-AddString(窗口还原); 09.plistStatus-AddString(关闭窗口); 10.plistStatus-AddString(激活窗口); 接下来我们要判断当窗口/控件被选定后哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项窗口可见代码如下 view source print? 1.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 2.if( style WS_VISIBLE ) 3.{ 4. pListStatus-SetCheck(0,1); 5.} 其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外为了不使一个勾选的改变就引起所有列表项都激发一遍我们采用switch结构以使哪个列表项被选中就激发哪个列表项。代码如下 view source print? 01.voidCPage4::OnSelchangeListstatus() 02.{ 03. // TODO: Add your control notification handler code here 04. intnm_listStatus.GetCurSel(); 05. switch(n) 06. { 07. case0: 08. if(m_listStatus.GetCheck(0) 1 ) 09. ::ShowWindow(g_hWnd, SW_SHOW); 10. else 11. ::ShowWindow(g_hWnd, SW_HIDE); 12. break; 13. case1: 14. if(m_listStatus.GetCheck(1) 1) 15. ::EnableWindow(g_hWnd, TRUE); 16. else 17. ::EnableWindow(g_hWnd,FALSE); 18. break; 19. case2: 20. if(m_listStatus.GetCheck(2) 1) 21. ::SetWindowPos(g_hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE); 22. else 23. ::SetWindowPos(g_hWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE); 24. break; 25. case3: 26. if(m_listStatus.GetCheck(3) 1) 27. ::SendMessage(g_hWnd, EM_SETREADONLY, TRUE, 0); 28. else 29. ::SendMessage(g_hWnd, EM_SETREADONLY, FALSE, 0); 30. break; 31. case4: 32. if(m_listStatus.GetCheck(4) 1) 33. { 34. ::ShowWindow(g_hWnd, SW_MAXIMIZE); 35. m_listStatus.SetCheck(5,0); 36. } 37. else 38. ::ShowWindow (g_hWnd, SW_RESTORE); 39. break; 40. case5: 41. if(m_listStatus.GetCheck(5) 1) 42. { 43. ::ShowWindow(g_hWnd, SW_MINIMIZE); 44. m_listStatus.SetCheck(4,0); 45. } 46. else 47. ::ShowWindow(g_hWnd, SW_RESTORE); 48. break; 49. case6: 50. if(m_listStatus.GetCheck(6) 1) 51. { 52. ::ShowWindow (g_hWnd, SW_RESTORE); 53. m_listStatus.SetCheck(6,0); 54. m_listStatus.SetCheck(5,0); 55. m_listStatus.SetCheck(4,0); 56. } 57. break; 58. case7: 59. if(m_listStatus.GetCheck(7) 1) 60. { 61. ::SendMessage (g_hWnd, WM_CLOSE, 0, 0); 62. m_listStatus.SetCheck(7,0); 63. } 64. break; 65. case8: 66. if(m_listStatus.GetCheck(8) 1) 67. { 68. ::BringWindowToTop(g_hWnd); 69. m_listStatus.SetCheck(8,0); 70. } 71. break; 72. default: 73. ; 74. } 75.} Spy打造完毕。回顾其过程难点不多细细碎碎问题不少。也难免啊不仅要形似咱还要神似。文中一定还有很多地方不够周全希望同行朋友们不吝赐教。代码在Window XP VC6.0中调试通过。Spy源码同时放在这里。欢迎访问我的个人主页(阿珊境界)http://www.asanscape.com欢迎加入我们的VC讨论群713035。 正文 打开VC集成开发环境建立一个基于对话框的工程。我们把这个工程取名为SpyXX。在窗体中画上一个图片框控件(Picture)、一个静态文本控件(Static)、两个复选框控件(Check Box)和一个选项卡控件(Tab Control)。界面设计如下图。 探测器的制作需要两个图标文件(.ico)和一个鼠标光标文件(.cur)分别用于正常状态下的显示、鼠标拖出时的显示以及拖出时的鼠标指针这些资源哪里来啊Spy中就有啊用eXeScope挖一下吧。(我是从其他软件中挖出来的名字好像叫超级什么霸记不太清了呵呵。)选项卡控件定义5个标签页分别为常规、样式、类、窗口和消息。每个标签页的内容用一个属性页(Property Page)对话框来制作。下面我们按照顺序描述一下开发过程。 一、探测器的制作 探测器用一个图片框控件来显示正常状态下显示一幅有靶的图标。当鼠标在上面按下时显示内容立刻换为另一幅无靶的图标同时鼠标指针变为靶状。这样就给人一种靶心被拖出去的感觉了。通过上面的叙述我们了解到图片框需要响应WM_LBUTTONDOWN消息和WM_LBUTTONUP消息。而图片框在正常状态下只响应鼠标单击消息BN_CLICK。所以我们要通过子类化来响应上述两个消息。 把图片框的ID设为IDC_PIC并选中其Notify属性(否则不响应消息)。依次点击菜单Insert-New ClassClass type选择MFC Class类名取为CMyPic基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic在对话框的初始化过程中将其与图片框关联。代码如下 view source print? 1.BOOLCSpyXXDlg::OnInitDialog() 2.{ 3. CDialog::OnInitDialog(); 4. m_pic.SubclassDlgItem(IDC_PIC,this); 5. …… 6. returnTRUE; 7.} 在CMyPic类中我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl W打开Class Wizard选择Message Maps标签页在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下 view source print? 01.voidCMyPic::OnLButtonDown(UINTnFlags, CPoint point) 02.{ 03. // TODO: Add your message handler code here and/or call default 04. SetCapture(); //鼠标捕获 05. HCURSORhc LoadCursor(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1)); 06. //IDC_CURSOR1是靶形光标资源号 07. ::SetCursor(hc); 08. HICONhicon2 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON2)); 09. //IDI_ICON2为无靶图标资源号 10. this-SetIcon(hicon2); 11. CStatic::OnLButtonDown(nFlags, point); 12.} 13.voidCMyPic::OnLButtonUp(UINTnFlags, CPoint point) 14.{ 15. // TODO: Add your message handler code here and/or call default 16. ReleaseCapture();//释放鼠标捕获 17. HICONhicon1 LoadIcon(AfxGetApp()-m_hInstance, MAKEINTRESOURCE (IDI_ICON1)); 18. //IDI_ICON1是有靶图标资源号 19. this-SetIcon(hicon1); 20. CStatic::OnLButtonUp(nFlags, point); 21.} 探测器外观制作完成了。可以先运行一下把鼠标按下后拖动试试。下面来实现其功能获取窗口句柄。根据鼠标位置来确定窗口需要用到API函数GetCursorPos和WindowFromPoint。此外我们还想做到像抓图程序那样鼠标移动到的地方窗口四周会出现闪烁的矩形。这一点我们用定时器来实现。定时器设在CSpyXXDlg类中但要由CMyPic中的OnLButtonUp来启动。所以我们定义一个全局变量g_hMe将CSpyXXDlg的实例句柄保存起来。同时被选取的窗口句柄也涉及到在多个标签页中显示所以也用全局变量g_hWnd将之保存。其余的用于显示标签页的属性页对话框句柄分别用g_hPage0、g_hPage1、g_hPage2、g_hPage3和g_hPage4来保存。启动定时器的代码如下 view source print? 1.FromHandle(g_hMe)-SetTimer(1,600,NULL); 在定时器中我们要实现桌面范围内的矩形绘制。代码如下 view source print? 01.POINT pnt; 02.RECT rc; 03.HWNDDeskHwnd ::GetDesktopWindow(); //取得桌面句柄 04.HDCDeskDC ::GetWindowDC(DeskHwnd); //取得桌面设备场景 05.intoldRop2 SetROP2(DeskDC, R2_NOTXORPEN); 06.::GetCursorPos(pnt);//取得鼠标坐标 07.HWNDUnHwnd ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄 08.g_hWndUnHwnd; 09.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 10.if( rc.left 0 ) rc.left 0; 11.if(rc.top 0 ) rc.top 0; 12.HPENnewPen ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC 13.HGDIOBJoldPen ::SelectObject(DeskDC, newPen); 14.::Rectangle(DeskDC, rc.left, rc.top, rc.right, rc.bottom);//在窗口周围显示闪烁矩形 15.Sleep(400);//设置闪烁时间间隔 16.::Rectangle( DeskDC, rc.left, rc.top, rc.right, rc.bottom); 17.::SetROP2(DeskDC, oldRop2); 18.::SelectObject( DeskDC, oldPen); 19.::DeleteObject(newPen); 20.::ReleaseDC( DeskHwnd, DeskDC); 21.DeskDC NULL; 到此探测器功能全部完成。 二、两个复选框 第一个复选框是总在最上面代码如下 view source print? 1.voidCSpyXXDlg::OnChktop() 2.{ 3. intnTop((CButton*)GetDlgItem(IDC_CHKTOP))-GetCheck(); 4. if(nTop1) 5. :: SetWindowPos(m_hWnd,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 6. else 7. ::SetWindowPos(m_hWnd,HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE); 8.} 第二个复选框是16进制。因为其值影响到多个属性页对话框的内容所以也用一全局变量g_nHex保存之 view source print? 1.voidCSpyXXDlg::OnChkhex() 2.{ 3. g_nHex((CButton*)GetDlgItem(IDC_CHKHEX))-GetCheck(); 4.} 这里我们还建立了一个全局函数Display来输出16进制和10进制时的句柄值 view source print? 01.CString Display(intnVal) 02.{ 03. CString str; 04. if(g_nHex1) 05. { 06. str.Format(%x,nVal); 07. str.MakeUpper(); 08. } 09. else 10. str.Format(%d,nVal); 11. returnstr; 12.} 三、选项卡控件 选项卡控件中5个标签页对应5个属性页对话框与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框 view source print? 01.m_page0.Create(IDD_OLE_PROPPAGE_LARGE,GetDlgItem(IDC_TAB1)); 02.m_page1.Create(IDD_OLE_PROPPAGE_LARGE1,GetDlgItem(IDC_TAB1)); 03.m_page2.Create(IDD_OLE_PROPPAGE_LARGE2,GetDlgItem(IDC_TAB1)); 04.m_page3.Create(IDD_OLE_PROPPAGE_LARGE3,GetDlgItem(IDC_TAB1)); 05.m_page4.Create(IDD_OLE_PROPPAGE_LARGE4,GetDlgItem(IDC_TAB1)); 06.CRect rs; 07.m_tab.GetClientRect(rs); 08.rs.top20; 09.rs.bottom-3; 10.rs.left3; 11.rs.right-3; 12.m_page0.MoveWindow(rs); 13.m_page1.MoveWindow(rs); 14.m_page2.MoveWindow(rs); 15.m_page3.MoveWindow(rs); 16.m_page4.MoveWindow(rs); 17.m_page0.ShowWindow(SW_SHOW); 18.m_tab.SetCurSel(0); 然后在选项卡消息TCN_SELCHANGE响应函数中控制它们的显示 view source print? 01.voidCSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult) 02.{ 03. // TODO: Add your control notification handler code here 04. intim_tab.GetCurSel(); 05. switch(i) 06. { 07. case0: 08. m_page0.ShowWindow(SW_SHOW); 09. m_page1.ShowWindow(SW_HIDE); 10. m_page2.ShowWindow(SW_HIDE); 11. m_page3.ShowWindow(SW_HIDE); 12. m_page4.ShowWindow(SW_HIDE); 13. break; 14. case1: 15. m_page0.ShowWindow(SW_HIDE); 16. m_page1.ShowWindow(SW_SHOW); 17. m_page2.ShowWindow(SW_HIDE); 18. m_page3.ShowWindow(SW_HIDE); 19. m_page4.ShowWindow(SW_HIDE); 20. break; 21. case2: 22. …… 23. default: 24. ; 25. } 26. *pResult 0; 27.} 四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下 view source print? 01.((CPage0*)FromHandle(g_hPage0))-m_editHWND.SetWindowText(Display((int)g_hWnd)); 02.charstrClass[200]\0; 03.::GetClassName(g_hWnd,strClass,200); 04.((CPage0*)FromHandle(g_hPage0))-m_editCLASS.SetWindowText(strClass); 05.((CPage2*)FromHandle(g_hPage2))-SetDlgItemText(IDC_EDITCLASSNAME,strClass); 06. 07.charstrTitle[200]\0; 08. ::GetWindowText(g_hWnd,strTitle,200); 09.((CPage0*)FromHandle(g_hPage0))-m_editTITLE.SetWindowText (strTitle); 10.longiWNDIDGetWindowLong(g_hWnd,GWL_ID); 11.((CPage0*)FromHandle(g_hPage0))-m_editWNDID.SetWindowText(Display((int)iWNDID)); 12. 13.unsignedlong iPID0; 14.GetWindowThreadProcessId(g_hWnd,iPID); 15.((CPage0*)FromHandle(g_hPage0))-m_editPID.SetWindowText(Display((int)iPID)); 16. 17.CString strPath; 18.strPathgetProcPath(iPID); 19.((CPage0*)FromHandle(g_hPage0))-m_editPATH.SetWindowText(strPath); 20. 21.RECT rc; 22.::GetWindowRect(g_hWnd, rc);//获得窗口矩形 23.CString strRect; 24.strRect.Format((%d,%d),(%d,%d) %dx%d,rc.left,rc.top,rc.right,rc.bottom, 25.rc.right-rc.left,rc.bottom-rc.top); 26.((CPage0*)FromHandle(g_hPage0))-m_editRECT.SetWindowText(strRect); 其中getProcPath是获取进程文件路径的函数。获取进程路径的方法有两种。在NT系统中我们可以用OpenProcess()函数将进程打开后再利用EnumProcessModules()函数枚举该进程的模块最后利用GetModuleFileNameEx()函数就能取得该进程的路径第二种方法是利用ToolHelp API中的相关函数。而后者兼容容Windows9x和NT4.0以后系统所以采取此法。它的实现代码如下 view source print? 01.CString getProcPath(intPID) 02.{ 03. HANDLEhModule; 04. MODULEENTRY32* minfonewMODULEENTRY32; 05. minfo-dwSizesizeof(MODULEENTRY32); 06. hModuleCreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo); 07. CString str; 08. str.Format(%s,minfo-szExePath); 09. CloseHandle(hModule); 10. if(minfo)delete minfo; 11. returnstr; 12.} 五、样式标签页 样式标签页设计如下图 API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做位与操作如果被包含则返回其窗口样式否则返回0。这样就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下 view source print? 01.CListBox* pListStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_STYLE)); 02.CListBox* pListExStyle(CListBox*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_LIST_EX_STYLE)); 03.CEdit* pEditStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_STYLE)); 04.CEdit* pEditExStyle(CEdit*)(((CPage1*)FromHandle(g_hPage1))-GetDlgItem(IDC_EDIT_EX_STYLE)); 05.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 06.longstyleEx GetWindowLong(g_hWnd, GWL_EXSTYLE); 07.pEditStyle-SetWindowText(Display((int)style)); 08.pEditExStyle-SetWindowText(Display((int)styleEx)); 09.pListStyle-ResetContent();//清空样式列表框 10.pListExStyle-ResetContent();//清空扩展样式列表框 11.if(style WS_BORDER) 12. pListStyle-AddString(WS_BORDER); 13.if( style WS_CAPTION) 14. pListStyle-AddString(WS_CAPTION); 15.if( style WS_CHILD) 16. pListStyle-AddString(WS_CHILD); 17. …… 六、类标签页 类标签页的设计如下图 类名在常规标签页已获取。API函数GetClassLong可以获取类样式值。样式列表的实现与窗口样式类似不再赘述。 七、窗口标签页 窗口标签页的设计如下图 在该页中主要用到了下面几个API函数GetNextWindow、GetWindow和SendMessage。这三个API函数搭配以不同的参数值可以实现不同的功能。这里没有用GetWIndowText函数是因为它不能取出部分系统窗口和隐藏窗口的标题。我们用SendMessage函数加WM_GETTEXT参数取代之。代码如下 view source print? 01.CPage3* pPage3(CPage3*)FromHandle(g_hPage3); 02.HWNDtempHandle; 03.chartempstr[255]\0; 04.tempHandle g_hWnd;//本窗口句柄 05.pPage3-SetDlgItemText(IDC_MYHWND, Display((int)tempHandle)); 06.//获取本窗口标题 07.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 08.pPage3-SetDlgItemText(IDC_MYTITLE, tempstr); 09.//上一窗口 10.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDPREV); 11.pPage3-SetDlgItemText(IDC_PREHWND, Display((int)tempHandle)); 12.//获取上一窗口标题 13.memset(tempstr,0,255); 14.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 15.pPage3-SetDlgItemText(IDC_PRETITLE, tempstr); 16.//下一窗口 17.tempHandle ::GetNextWindow(g_hWnd, GW_HWNDNEXT); 18.pPage3-SetDlgItemText(IDC_NEXTHWND,Display((int)tempHandle)); 19.memset(tempstr,0,255);//获取下一窗口标题 20.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 21.pPage3-SetDlgItemText(IDC_NEXTTITLE, tempstr); 22. 23.tempHandle ::GetParent(g_hWnd);//父窗口 24.pPage3-SetDlgItemText(IDC_PARENTHWND, Display((int)tempHandle)); 25.memset(tempstr,0,255); 26.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 27.pPage3-SetDlgItemText(IDC_PARENTTITLE,tempstr); 28.//第一子窗口 29.tempHandle ::GetWindow(g_hWnd, GW_CHILD); 30.pPage3-SetDlgItemText(IDC_CHILDHWND,Display((int)tempHandle)); 31.memset(tempstr,-0,255); 32.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 33.pPage3-SetDlgItemText(IDC_CHILDTITLE,tempstr); 34.//所有者窗口 35.tempHandle ::GetWindow(g_hWnd, GW_OWNER); 36.Page3-SetDlgItemText(IDC_OWNERHWND,Display((int)tempHandle)); 37.memset(tempstr,0,255); 38.::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr); 39.pPage3-SetDlgItemText(IDC_OWNERTITLE, tempstr); 八、消息标签页 消息标签页的设计如下图 该页中的列表框与样式列表框不同它的每个列表项前都有一个复选框。这要用到类CCheckListBox。这里要再次用到子类化的知识。从本文第一段制作CMyPric过程中我们体会到了子类化的作用也感到了它的不便之处。这里我们采取另外一种方法借鸡生蛋即用Class Wizard生成相关代码然后再修改它。首先在该属性页对话框上画一个列表控件打开Class Wizard关联一个CListBox类变量m_listStatus。设置列表框的Owner Draw属性为Fixed并选中其Has Strings选项。如下图 然后在Page4.h中查找到m_listStatus的定义 CListBox m_listStatus并将其改为CCheckListBox m_listStatus。这样我们就可以使用CCheckListBox的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项 view source print? 01.CCheckListBox* plistStatus((CCheckListBox*)FromHandle(g_hPage4)-GetDlgItem(IDC_LISTSTATUS)); 02.plistStatus-AddString(窗口可见); 03.plistStatus-AddString(窗口可用); 04.plistStatus-AddString(总在最前); 05.plistStatus-AddString(窗口只读); 06.plistStatus-AddString(最大化); 07.plistStatus-AddString(最小化); 08.plistStatus-AddString(窗口还原); 09.plistStatus-AddString(关闭窗口); 10.plistStatus-AddString(激活窗口); 接下来我们要判断当窗口/控件被选定后哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项窗口可见代码如下 view source print? 1.longstyle GetWindowLong(g_hWnd, GWL_STYLE); 2.if( style WS_VISIBLE ) 3.{ 4. pListStatus-SetCheck(0,1); 5.} 其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外为了不使一个勾选的改变就引起所有列表项都激发一遍我们采用switch结构以使哪个列表项被选中就激发哪个列表项。代码如下 view source print? 01.voidCPage4::OnSelchangeListstatus() 02.{ 03. // TODO: Add your control notification handler code here 04. intnm_listStatus.GetCurSel(); 05. switch(n) 06. { 07. case0: 08. if(m_listStatus.GetCheck(0) 1 ) 09. ::ShowWindow(g_hWnd, SW_SHOW); 10. else 11. ::ShowWindow(g_hWnd, SW_HIDE); 12. break; 13. case1: 14. if(m_listStatus.GetCheck(1) 1) 15. ::EnableWindow(g_hWnd, TRUE); 16. else 17. ::EnableWindow(g_hWnd,FALSE); 18. break; 19. case2: 20. if(m_listStatus.GetCheck(2) 1) 21. ::SetWindowPos(g_hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE); 22. else 23. ::SetWindowPos(g_hWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE); 24. break; 25. case3: 26. if(m_listStatus.GetCheck(3) 1) 27. ::SendMessage(g_hWnd, EM_SETREADONLY, TRUE, 0); 28. else 29. ::SendMessage(g_hWnd, EM_SETREADONLY, FALSE, 0); 30. break; 31. case4: 32. if(m_listStatus.GetCheck(4) 1) 33. { 34. ::ShowWindow(g_hWnd, SW_MAXIMIZE); 35. m_listStatus.SetCheck(5,0); 36. } 37. else 38. ::ShowWindow (g_hWnd, SW_RESTORE); 39. break; 40. case5: 41. if(m_listStatus.GetCheck(5) 1) 42. { 43. ::ShowWindow(g_hWnd, SW_MINIMIZE); 44. m_listStatus.SetCheck(4,0); 45. } 46. else 47. ::ShowWindow(g_hWnd, SW_RESTORE); 48. break; 49. case6: 50. if(m_listStatus.GetCheck(6) 1) 51. { 52. ::ShowWindow (g_hWnd, SW_RESTORE); 53. m_listStatus.SetCheck(6,0); 54. m_listStatus.SetCheck(5,0); 55. m_listStatus.SetCheck(4,0); 56. } 57. break; 58. case7: 59. if(m_listStatus.GetCheck(7) 1) 60. { 61. ::SendMessage (g_hWnd, WM_CLOSE, 0, 0); 62. m_listStatus.SetCheck(7,0); 63. } 64. break; 65. case8: 66. if(m_listStatus.GetCheck(8) 1) 67. { 68. ::BringWindowToTop(g_hWnd); 69. m_listStatus.SetCheck(8,0); 70. } 71. break; 72. default: 73. ; 74. } 75.} Spy打造完毕。回顾其过程难点不多细细碎碎问题不少。也难免啊不仅要形似咱还要神似。文中一定还有很多地方不够周全希望同行朋友们不吝赐教。代码在Window XP VC6.0中调试通过。Spy源码同时放在这里。欢迎访问我的个人主页(阿珊境界)http://www.asanscape.com欢迎加入我们的VC讨论群713035。
