Spy++原理初探
- 用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 Class,Class type选择MFC Class,类名取为CMyPic,基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic,在对话框的初始化过程中将其与图片框关联。代码如下: 1.
BOOL CSpyXXDlg::OnInitDialog()
2.
{
3.
CDialog::OnInitDialog();
4.
m_pic.SubclassDlgItem(IDC_PIC, this );
5.
……
6.
return TRUE;
7.
}
在CMyPic类中,我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl + W打开Class Wizard,选择Message Maps标签页,在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息,并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下: 01.
void CMyPic::OnLButtonDown( UINT nFlags, CPoint point)
02.
{
03.
// TODO: Add your message handler code here and/or call default
04.
SetCapture(); //鼠标捕获
05.
HCURSOR hc = LoadCursor(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1));
06.
//IDC_CURSOR1是靶形光标资源号
07.
::SetCursor(hc);
08.
HICON hicon2 = LoadIcon(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDI_ICON2));
09.
//IDI_ICON2为无靶图标资源号
10.
this ->SetIcon(hicon2);
11.
CStatic::OnLButtonDown(nFlags, point);
12.
}
13.
void CMyPic::OnLButtonUp( UINT nFlags, CPoint point)
14.
{
15.
// TODO: Add your message handler code here and/or call default
16.
ReleaseCapture(); //释放鼠标捕获
17.
HICON hicon1 = 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来保存。启动定时器的代码如下: 1.
FromHandle(g_hMe)->SetTimer(1,600,NULL);
在定时器中,我们要实现桌面范围内的矩形绘制。代码如下: 01.
POINT pnt;
02.
RECT rc;
03.
HWND DeskHwnd = ::GetDesktopWindow(); //取得桌面句柄
04.
HDC DeskDC = ::GetWindowDC(DeskHwnd); //取得桌面设备场景
05.
int oldRop2 = SetROP2(DeskDC, R2_NOTXORPEN);
06.
::GetCursorPos(&pnt); //取得鼠标坐标
07.
HWND UnHwnd = ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄
08.
g_hWnd=UnHwnd;
09.
::GetWindowRect(g_hWnd, &rc); //获得窗口矩形
10.
if ( rc.left < 0 ) rc.left = 0;
11.
if (rc.top < 0 ) rc.top = 0;
12.
HPEN newPen = ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC
13.
HGDIOBJ oldPen = ::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;
到此,探测器功能全部完成。 二、两个复选框 第一个复选框是"总在最上面",代码如下: 1.
void CSpyXXDlg::OnChktop()
2.
{
3.
int nTop=((CButton*)GetDlgItem(IDC_CHKTOP))->GetCheck();
4.
if (nTop==1)
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保存之: 1.
void CSpyXXDlg::OnChkhex()
2.
{
3.
g_nHex=((CButton*)GetDlgItem(IDC_CHKHEX))->GetCheck();
4.
}
这里,我们还建立了一个全局函数Display,来输出16进制和10进制时的句柄值: 01.
CString Display( int nVal)
02.
{
03.
CString str;
04.
if (g_nHex==1)
05.
{
06.
str.Format( "%x" ,nVal);
07.
str.MakeUpper();
08.
}
09.
else
10.
str.Format( "%d" ,nVal);
11.
return str;
12.
}
三、选项卡控件 选项卡控件中,5个标签页对应5个属性页对话框,与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框: 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.top+=20;
09.
rs.bottom-=3;
10.
rs.left+=3;
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响应函数中控制它们的显示: 01.
void CSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT * pResult)
02.
{
03.
// TODO: Add your control notification handler code here
04.
int i=m_tab.GetCurSel();
05.
switch (i)
06.
{
07.
case 0:
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.
case 1:
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.
case 2:
22.
……
23.
default :
24.
;
25.
}
26.
*pResult = 0;
27.
}
四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下: 01.
((CPage0*)FromHandle(g_hPage0))->m_editHWND.SetWindowText(Display(( int )g_hWnd));
02.
char strClass[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.
char strTitle[200]= "\0" ;
08.
::GetWindowText(g_hWnd,strTitle,200);
09.
((CPage0*)FromHandle(g_hPage0))->m_editTITLE.SetWindowText (strTitle);
10.
long iWNDID=GetWindowLong(g_hWnd,GWL_ID);
11.
((CPage0*)FromHandle(g_hPage0))->m_editWNDID.SetWindowText(Display(( int )iWNDID));
12.
13.
unsigned long iPID=0;
14.
GetWindowThreadProcessId(g_hWnd,&iPID);
15.
((CPage0*)FromHandle(g_hPage0))->m_editPID.SetWindowText(Display(( int )iPID));
16.
17.
CString strPath;
18.
strPath=getProcPath(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以后系统,所以采取此法。它的实现代码如下: 01.
CString getProcPath( int PID)
02.
{
03.
HANDLE hModule;
04.
MODULEENTRY32* minfo= new MODULEENTRY32;
05.
minfo->dwSize= sizeof (MODULEENTRY32);
06.
hModule=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo);
07.
CString str;
08.
str.Format( "%s" ,minfo->szExePath);
09.
CloseHandle(hModule);
10.
if (minfo) delete minfo;
11.
return str;
12.
}
五、样式标签页 样式标签页设计如下图: API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做"位与"操作,如果被包含,则返回其窗口样式,否则返回0。这样,就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下: 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.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
06.
long styleEx= 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参数取代之。代码如下: 01.
CPage3* pPage3=(CPage3*)FromHandle(g_hPage3);
02.
HWND tempHandle;
03.
char tempstr[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的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项: 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( "激活窗口" );
接下来我们要判断,当窗口/控件被选定后,哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项"窗口可见",代码如下: 1.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
2.
if ( style & WS_VISIBLE )
3.
{
4.
pListStatus->SetCheck(0,1);
5.
}
其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态,还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外,为了不使一个勾选的改变就引起所有列表项都激发一遍,我们采用switch结构,以使哪个列表项被选中就激发哪个列表项。代码如下: 01.
void CPage4::OnSelchangeListstatus()
02.
{
03.
// TODO: Add your control notification handler code here
04.
int n=m_listStatus.GetCurSel();
05.
switch (n)
06.
{
07.
case 0:
08.
if (m_listStatus.GetCheck(0)== 1 )
09.
::ShowWindow(g_hWnd, SW_SHOW);
10.
else
11.
::ShowWindow(g_hWnd, SW_HIDE);
12.
break ;
13.
case 1:
14.
if (m_listStatus.GetCheck(1) == 1)
15.
::EnableWindow(g_hWnd, TRUE);
16.
else
17.
::EnableWindow(g_hWnd,FALSE);
18.
break ;
19.
case 2:
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.
case 3:
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.
case 4:
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.
case 5:
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.
case 6:
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.
case 7:
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.
case 8:
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 Class,Class type选择MFC Class,类名取为CMyPic,基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic,在对话框的初始化过程中将其与图片框关联。代码如下: 1.
BOOL CSpyXXDlg::OnInitDialog()
2.
{
3.
CDialog::OnInitDialog();
4.
m_pic.SubclassDlgItem(IDC_PIC, this );
5.
……
6.
return TRUE;
7.
}
在CMyPic类中,我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl + W打开Class Wizard,选择Message Maps标签页,在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息,并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下: 01.
void CMyPic::OnLButtonDown( UINT nFlags, CPoint point)
02.
{
03.
// TODO: Add your message handler code here and/or call default
04.
SetCapture(); //鼠标捕获
05.
HCURSOR hc = LoadCursor(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1));
06.
//IDC_CURSOR1是靶形光标资源号
07.
::SetCursor(hc);
08.
HICON hicon2 = LoadIcon(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDI_ICON2));
09.
//IDI_ICON2为无靶图标资源号
10.
this ->SetIcon(hicon2);
11.
CStatic::OnLButtonDown(nFlags, point);
12.
}
13.
void CMyPic::OnLButtonUp( UINT nFlags, CPoint point)
14.
{
15.
// TODO: Add your message handler code here and/or call default
16.
ReleaseCapture(); //释放鼠标捕获
17.
HICON hicon1 = 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来保存。启动定时器的代码如下: 1.
FromHandle(g_hMe)->SetTimer(1,600,NULL);
在定时器中,我们要实现桌面范围内的矩形绘制。代码如下: 01.
POINT pnt;
02.
RECT rc;
03.
HWND DeskHwnd = ::GetDesktopWindow(); //取得桌面句柄
04.
HDC DeskDC = ::GetWindowDC(DeskHwnd); //取得桌面设备场景
05.
int oldRop2 = SetROP2(DeskDC, R2_NOTXORPEN);
06.
::GetCursorPos(&pnt); //取得鼠标坐标
07.
HWND UnHwnd = ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄
08.
g_hWnd=UnHwnd;
09.
::GetWindowRect(g_hWnd, &rc); //获得窗口矩形
10.
if ( rc.left < 0 ) rc.left = 0;
11.
if (rc.top < 0 ) rc.top = 0;
12.
HPEN newPen = ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC
13.
HGDIOBJ oldPen = ::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;
到此,探测器功能全部完成。 二、两个复选框 第一个复选框是"总在最上面",代码如下: 1.
void CSpyXXDlg::OnChktop()
2.
{
3.
int nTop=((CButton*)GetDlgItem(IDC_CHKTOP))->GetCheck();
4.
if (nTop==1)
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保存之: 1.
void CSpyXXDlg::OnChkhex()
2.
{
3.
g_nHex=((CButton*)GetDlgItem(IDC_CHKHEX))->GetCheck();
4.
}
这里,我们还建立了一个全局函数Display,来输出16进制和10进制时的句柄值: 01.
CString Display( int nVal)
02.
{
03.
CString str;
04.
if (g_nHex==1)
05.
{
06.
str.Format( "%x" ,nVal);
07.
str.MakeUpper();
08.
}
09.
else
10.
str.Format( "%d" ,nVal);
11.
return str;
12.
}
三、选项卡控件 选项卡控件中,5个标签页对应5个属性页对话框,与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框: 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.top+=20;
09.
rs.bottom-=3;
10.
rs.left+=3;
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响应函数中控制它们的显示: 01.
void CSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT * pResult)
02.
{
03.
// TODO: Add your control notification handler code here
04.
int i=m_tab.GetCurSel();
05.
switch (i)
06.
{
07.
case 0:
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.
case 1:
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.
case 2:
22.
……
23.
default :
24.
;
25.
}
26.
*pResult = 0;
27.
}
四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下: 01.
((CPage0*)FromHandle(g_hPage0))->m_editHWND.SetWindowText(Display(( int )g_hWnd));
02.
char strClass[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.
char strTitle[200]= "\0" ;
08.
::GetWindowText(g_hWnd,strTitle,200);
09.
((CPage0*)FromHandle(g_hPage0))->m_editTITLE.SetWindowText (strTitle);
10.
long iWNDID=GetWindowLong(g_hWnd,GWL_ID);
11.
((CPage0*)FromHandle(g_hPage0))->m_editWNDID.SetWindowText(Display(( int )iWNDID));
12.
13.
unsigned long iPID=0;
14.
GetWindowThreadProcessId(g_hWnd,&iPID);
15.
((CPage0*)FromHandle(g_hPage0))->m_editPID.SetWindowText(Display(( int )iPID));
16.
17.
CString strPath;
18.
strPath=getProcPath(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以后系统,所以采取此法。它的实现代码如下: 01.
CString getProcPath( int PID)
02.
{
03.
HANDLE hModule;
04.
MODULEENTRY32* minfo= new MODULEENTRY32;
05.
minfo->dwSize= sizeof (MODULEENTRY32);
06.
hModule=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo);
07.
CString str;
08.
str.Format( "%s" ,minfo->szExePath);
09.
CloseHandle(hModule);
10.
if (minfo) delete minfo;
11.
return str;
12.
}
五、样式标签页 样式标签页设计如下图: API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做"位与"操作,如果被包含,则返回其窗口样式,否则返回0。这样,就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下: 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.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
06.
long styleEx= 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参数取代之。代码如下: 01.
CPage3* pPage3=(CPage3*)FromHandle(g_hPage3);
02.
HWND tempHandle;
03.
char tempstr[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的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项: 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( "激活窗口" );
接下来我们要判断,当窗口/控件被选定后,哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项"窗口可见",代码如下: 1.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
2.
if ( style & WS_VISIBLE )
3.
{
4.
pListStatus->SetCheck(0,1);
5.
}
其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态,还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外,为了不使一个勾选的改变就引起所有列表项都激发一遍,我们采用switch结构,以使哪个列表项被选中就激发哪个列表项。代码如下: 01.
void CPage4::OnSelchangeListstatus()
02.
{
03.
// TODO: Add your control notification handler code here
04.
int n=m_listStatus.GetCurSel();
05.
switch (n)
06.
{
07.
case 0:
08.
if (m_listStatus.GetCheck(0)== 1 )
09.
::ShowWindow(g_hWnd, SW_SHOW);
10.
else
11.
::ShowWindow(g_hWnd, SW_HIDE);
12.
break ;
13.
case 1:
14.
if (m_listStatus.GetCheck(1) == 1)
15.
::EnableWindow(g_hWnd, TRUE);
16.
else
17.
::EnableWindow(g_hWnd,FALSE);
18.
break ;
19.
case 2:
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.
case 3:
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.
case 4:
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.
case 5:
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.
case 6:
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.
case 7:
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.
case 8:
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 Class,Class type选择MFC Class,类名取为CMyPic,基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic,在对话框的初始化过程中将其与图片框关联。代码如下: 1.
BOOL CSpyXXDlg::OnInitDialog()
2.
{
3.
CDialog::OnInitDialog();
4.
m_pic.SubclassDlgItem(IDC_PIC, this );
5.
……
6.
return TRUE;
7.
}
在CMyPic类中,我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl + W打开Class Wizard,选择Message Maps标签页,在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息,并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下: 01.
void CMyPic::OnLButtonDown( UINT nFlags, CPoint point)
02.
{
03.
// TODO: Add your message handler code here and/or call default
04.
SetCapture(); //鼠标捕获
05.
HCURSOR hc = LoadCursor(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1));
06.
//IDC_CURSOR1是靶形光标资源号
07.
::SetCursor(hc);
08.
HICON hicon2 = LoadIcon(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDI_ICON2));
09.
//IDI_ICON2为无靶图标资源号
10.
this ->SetIcon(hicon2);
11.
CStatic::OnLButtonDown(nFlags, point);
12.
}
13.
void CMyPic::OnLButtonUp( UINT nFlags, CPoint point)
14.
{
15.
// TODO: Add your message handler code here and/or call default
16.
ReleaseCapture(); //释放鼠标捕获
17.
HICON hicon1 = 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来保存。启动定时器的代码如下: 1.
FromHandle(g_hMe)->SetTimer(1,600,NULL);
在定时器中,我们要实现桌面范围内的矩形绘制。代码如下: 01.
POINT pnt;
02.
RECT rc;
03.
HWND DeskHwnd = ::GetDesktopWindow(); //取得桌面句柄
04.
HDC DeskDC = ::GetWindowDC(DeskHwnd); //取得桌面设备场景
05.
int oldRop2 = SetROP2(DeskDC, R2_NOTXORPEN);
06.
::GetCursorPos(&pnt); //取得鼠标坐标
07.
HWND UnHwnd = ::WindowFromPoint(pnt) ; //取得鼠标指针处窗口句柄
08.
g_hWnd=UnHwnd;
09.
::GetWindowRect(g_hWnd, &rc); //获得窗口矩形
10.
if ( rc.left < 0 ) rc.left = 0;
11.
if (rc.top < 0 ) rc.top = 0;
12.
HPEN newPen = ::CreatePen(0, 3, 0); //建立新画笔,载入DeskDC
13.
HGDIOBJ oldPen = ::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;
到此,探测器功能全部完成。 二、两个复选框 第一个复选框是"总在最上面",代码如下: 1.
void CSpyXXDlg::OnChktop()
2.
{
3.
int nTop=((CButton*)GetDlgItem(IDC_CHKTOP))->GetCheck();
4.
if (nTop==1)
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保存之: 1.
void CSpyXXDlg::OnChkhex()
2.
{
3.
g_nHex=((CButton*)GetDlgItem(IDC_CHKHEX))->GetCheck();
4.
}
这里,我们还建立了一个全局函数Display,来输出16进制和10进制时的句柄值: 01.
CString Display( int nVal)
02.
{
03.
CString str;
04.
if (g_nHex==1)
05.
{
06.
str.Format( "%x" ,nVal);
07.
str.MakeUpper();
08.
}
09.
else
10.
str.Format( "%d" ,nVal);
11.
return str;
12.
}
三、选项卡控件 选项卡控件中,5个标签页对应5个属性页对话框,与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框: 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.top+=20;
09.
rs.bottom-=3;
10.
rs.left+=3;
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响应函数中控制它们的显示: 01.
void CSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT * pResult)
02.
{
03.
// TODO: Add your control notification handler code here
04.
int i=m_tab.GetCurSel();
05.
switch (i)
06.
{
07.
case 0:
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.
case 1:
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.
case 2:
22.
……
23.
default :
24.
;
25.
}
26.
*pResult = 0;
27.
}
四、常规标签页 常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下: 01.
((CPage0*)FromHandle(g_hPage0))->m_editHWND.SetWindowText(Display(( int )g_hWnd));
02.
char strClass[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.
char strTitle[200]= "\0" ;
08.
::GetWindowText(g_hWnd,strTitle,200);
09.
((CPage0*)FromHandle(g_hPage0))->m_editTITLE.SetWindowText (strTitle);
10.
long iWNDID=GetWindowLong(g_hWnd,GWL_ID);
11.
((CPage0*)FromHandle(g_hPage0))->m_editWNDID.SetWindowText(Display(( int )iWNDID));
12.
13.
unsigned long iPID=0;
14.
GetWindowThreadProcessId(g_hWnd,&iPID);
15.
((CPage0*)FromHandle(g_hPage0))->m_editPID.SetWindowText(Display(( int )iPID));
16.
17.
CString strPath;
18.
strPath=getProcPath(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以后系统,所以采取此法。它的实现代码如下: 01.
CString getProcPath( int PID)
02.
{
03.
HANDLE hModule;
04.
MODULEENTRY32* minfo= new MODULEENTRY32;
05.
minfo->dwSize= sizeof (MODULEENTRY32);
06.
hModule=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID); Module32First(hModule,minfo);
07.
CString str;
08.
str.Format( "%s" ,minfo->szExePath);
09.
CloseHandle(hModule);
10.
if (minfo) delete minfo;
11.
return str;
12.
}
五、样式标签页 样式标签页设计如下图: API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做"位与"操作,如果被包含,则返回其窗口样式,否则返回0。这样,就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下: 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.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
06.
long styleEx= 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参数取代之。代码如下: 01.
CPage3* pPage3=(CPage3*)FromHandle(g_hPage3);
02.
HWND tempHandle;
03.
char tempstr[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的全部函数了。 在对话框初始化过程中添加下列语句以加入各列表项: 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( "激活窗口" );
接下来我们要判断,当窗口/控件被选定后,哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项"窗口可见",代码如下: 1.
long style = GetWindowLong(g_hWnd, GWL_STYLE);
2.
if ( style & WS_VISIBLE )
3.
{
4.
pListStatus->SetCheck(0,1);
5.
}
其余各项详见源代码。 这个列表框的作用不仅仅是显示窗口的状态,还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外,为了不使一个勾选的改变就引起所有列表项都激发一遍,我们采用switch结构,以使哪个列表项被选中就激发哪个列表项。代码如下: 01.
void CPage4::OnSelchangeListstatus()
02.
{
03.
// TODO: Add your control notification handler code here
04.
int n=m_listStatus.GetCurSel();
05.
switch (n)
06.
{
07.
case 0:
08.
if (m_listStatus.GetCheck(0)== 1 )
09.
::ShowWindow(g_hWnd, SW_SHOW);
10.
else
11.
::ShowWindow(g_hWnd, SW_HIDE);
12.
break ;
13.
case 1:
14.
if (m_listStatus.GetCheck(1) == 1)
15.
::EnableWindow(g_hWnd, TRUE);
16.
else
17.
::EnableWindow(g_hWnd,FALSE);
18.
break ;
19.
case 2:
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.
case 3:
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.
case 4:
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.
case 5:
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.
case 6:
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.
case 7:
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.
case 8:
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。 |