扫雷外挂的设计与实现（三）

【 tulaoshi.com - 编程语言 】

　　如上述，本程序分为了接口层和算法层。上述全局变量和常量，基本都属于接口层的内容。下面，来看接口层的具体实现。其工作的第一步，是要捕获扫雷窗口并取得其信息。这由函数GetMineWindow来完成：

　　=================================================================

　　//试图取得可用的扫雷窗口，返回值表示是否成功。若成功，则全局变量
　　//MineWnd、MineDC、AreaHeight、AreaWidth都得到相应的填充。若失败，则以上变量的值无意义。

　　function GetMineWindow: Boolean;
　　var
　　  clientRect: TRect;
　　begin
　　  result := false;

　　  MineWnd := FindWindow(nil, MINE_WINDOW_TITLE);           //检查是否存在“扫雷”窗口，并且必须为当前窗口
　　  if (MineWnd = 0) or (GetForegroundWindow MineWnd) then
　　    Exit;

　　  MineDC := GetDC(MineWnd);                                //取得“扫雷”窗口的设备上下文
　　  if MineDC = 0 then
　　    Exit;

　　  GetClientRect(MineWnd, clientRect);                      //检查“扫雷”窗口的内容是否全部显示在屏幕上
　　  with TCanvas.Create do
　　    try
　　      Handle := MineDC;
　　      if (ClipRect.Left clientRect.Left) or
　　         (ClipRect.Right clientRect.Right) or
　　         (ClipRect.Top clientRect.Top) or
　　         (ClipRect.Bottom clientRect.Bottom) then
　　        Exit;
　　    finally
　　      Free;
　　    end;

　　  //从已获得的clientRect中的数值，根据实测数据计算AreaWidth和AreaHeight的值。
　　  AreaWidth := (clientRect.Right - LEFT_MARGIN - RIGHT_MARGIN) div CELL_WIDTH;
　　  AreaHeight := (clientRect.Bottom - TOP_MARGIN - BOTTOM_MARGIN) div CELL_HEIGHT;

　　  //检查游戏是否在进行中,原理为判断“重开始”按钮的图标上的
　　  //某一像素是否是指定的值。该经验由实测得到，只有游戏进行中，该像素才为该值。
　　  if TColor(GetPixel(MineDC, AreaWidth*8 + 8, 30)) clBlack then
　　    Exit;

　　  result := true;
　　end;

　　=================================================================

　　理解这个函数的工作过程，有几个要点：

　　WinAPI函数FindWindow：用来查找当前桌面上的某个窗口。第一个参数是指定该窗口的“窗口类”的名字，这个稍微高深了一点，只有研究过Windows SDK编程才会理解。当它为nil的时候，使用第二个参数，也就是窗口标题栏的字符串来查找。若找到这样一个窗口，则返回值为其窗口句柄，否则为0。

　　WinAPI函数GetForegroundWindow：无参数，返回桌面上的当前窗口，也就是标题条加亮的窗口的句柄。

　　WinAPI函数GetDC：给定一个窗口句柄，返回它的设备上下文句柄。“设备上下文”实际上就是一个“画布”，在Delphi中，被封装成了TCanvas类。获得了某个设备上下文句柄，就可以用一个TCanvas型的对象指向它（这个过程是，把句柄赋给TCanvas对象的Handle属性），从而实现画布的各种操作。

　　WinAPI函数GetClientRect：给定某个窗口句柄，取得它的客户区矩形，这个矩形是一个TRect类型的变量。调用这个函数，要用一个TRect型的变量来接收结果，而不是用返回值。这个结果的Left和Top成员都必定是0，而Right和Bottom成员其实就是窗口客户区的宽和高。

　　TCanvas类的属性ClipRect：简单的说，在此处，该TRect型属性取得的是该画布实际上被显示在屏幕上的矩形部分。只有该画布不被其它窗口遮挡，并且没有移出桌面边界的时候，这个矩形才完全等于等于窗口的客户区矩形。这用来判断扫雷窗口是否全部可见。

　　WinAPI函数GetPixel：给定一个设备上下文（画布）句柄和X,Y坐标，取得一个像素的值。这个值是整型的，可以简单的强制转换为TColor类型。

　　上述库函数，具体说明可以参考MSDN和Delphi自身的帮助文档，可以得到最为权威、详细、正确的说明。

　　不得不说一下GetMineWindow函数的最后几行，它牵涉到了对“重开始”按钮的hack。注意一下，可以发现那个简单的脸谱总共有5种状态：平时的笑脸，自身被按下时的笑脸，在雷区中按下鼠标时的紧张表情，触雷时的衰脸和胜利时酷酷的表情~——显然，只有在第一种情况时，扫雷外挂才应该动作，其它四种时则应该停止。我编了一个临时程序，找到了一个像素位置，它只有在第一种情况下值为clBlack，其它情况都不是。它的坐标为(AreaWidth*8 + 8, 30)，横坐标是个随方块列数而变的变量，很好理解，因为无论窗口有多宽，该按钮都是水平居中的。