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

不得不说，捕获“扫雷”窗口以及取得它的数据，是本程序的一个难点。现在这个难点已经解决，接下来，完成接口层已经不是问题了。那么，来看接口层的两个核心过程：

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

//取得整个雷区每个方块的状态，填入Cells中供分析。
PRocedure FetchCells;
var
  i, j: Integer;
begin
  //扫描每个方块，根据指定像素的颜色判断该方块的性质。
  //特定像素的颜色与方块性质的对应关系归纳自“扫雷”程序本身的资源。
  for i:=0 to AreaWidth-1 do
  for j:=0 to AreaHeight-1 do
　  //首先判断(0, 0)点的像素
　  case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH, TOP_MARGIN + j*CELL_HEIGHT)) of
　　  clWhite:
　　　  //是未挖开的方块，再判断(5, 4)点的像素
　　　  case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH + 5, TOP_MARGIN + j*CELL_HEIGHT + 4)) of
　　　　  clSilver: Cells[i, j] := csUnknown;　　 //未翻开的方块
　　　　  clRed: Cells[i, j] := csMarked;　　　　　 //已标记为雷的方块
　　　　  clBlack: Cells[i, j] := csPossible;　　　//标问号的方块
　　　  end;
　　  clGray:
　　　  //是已挖开的方块，再判断(7, 4)点的像素
　　　  case TColor(GetPixel(MineDC, LEFT_MARGIN + i*CELL_WIDTH + 7, TOP_MARGIN + j*CELL_HEIGHT + 4)) of
　　　　  clSilver: Cells[i, j] := cs0;　  //空白，相当于数字0
　　　　  clBlue: Cells[i, j] := cs1;　　  //数字1
　　　　  clGreen: Cells[i, j] := cs2;　　 //数字2
　　　　  clRed: Cells[i, j] := cs3;　　　 //数字3
　　　　  clNavy: Cells[i, j] := cs4;　　  //数字4
　　　　  clMaroon: Cells[i, j] := cs5;　  //数字5
　　　　  clTeal: Cells[i, j] := cs6;　　  //数字6
　　　　  clBlack: Cells[i, j] := cs7;　　 //数字7
　　　　  clGray: Cells[i, j] := cs8;　　  //数字8
　　　  end;
　  end;
end;

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

以上程序中，三个包含 case...of 的行，都用到了前面实测到的数据。执行完之后，扫雷窗口所有方块的状态就原原本本地在输入缓冲区里了。

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

//将Operations中所记载的对每个方块的操作真正作用于扫雷窗口。
procedure OperateCells;
var
  i, j: Integer;
  downMsg, upMsg: Cardinal;　　 //按下和抬起鼠标按钮时分别发送的消息
  wparam, lparam: Integer;　　  //消息参数
  clickCount: Integer;　　　　  //按键次数，只有取值1或2
begin
  //扫描每个方块
  for i:=0 to AreaWidth-1 do
  for j:=0 to AreaHeight-1 do
  begin
　  if Operations[i, j] = opNone then
　　  Continue;
　  //根据操作种类，设定发送的消息及其参数
　  lparam := ((TOP_MARGIN + j*CELL_HEIGHT) shl 16) + (LEFT_MARGIN + i*CELL_WIDTH);
　  wparam := IfThen(Operations[i, j] = opBothClick, MK_RBUTTON, 0);
　  downMsg := IfThen(Operations[i, j] in [opRightClick, opRightDoubleClick], WM_RBUTTONDOWN, WM_LBUTTONDOWN);
　  upMsg := IfThen(Operations[i, j] in [opRightClick, opRightDoubleClick], WM_RBUTTONUP, WM_LBUTTONUP);
　  //设定发送消息次数，即单击还是双击
　  clickCount := IfThen(Operations[i, j] = opRightDoubleClick, 2, 1);
　  //发送消息
　  repeat
　　  PostMessage(MineWnd, downMsg, wparam, lparam);
　　  PostMessage(MineWnd, upMsg, wparam, lparam);
　　  Dec(clickCount);
　  until clickCount = 0;
  end;
end;

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

这里需要说的是WM_LBUTTONDOWN、WM_LBUTTONUP、WM_RBUTTONDOWN和WM_RBUTTONUP四个消息。它们是在一个窗口客户区内按下或抬起鼠标左或右按钮时，发给这个窗口的消息。所以，手动地发送这些消息，其实就是模拟鼠标的点击。发送消息用到了WinAPI函数PostMessage，它和大家所熟悉的SendMessage函数的参数是相同的，作用也几乎相同，主要区别是不等待消息的返回，详见MSDN。上述四个消息的WParam和LParam都具有同样的意义：WParam用来指定按下该键的时候，还有哪些其它特定的键（其它鼠标键，或Ctrl，Shift等）被按下。0表示没有其它键被按下，在这里还用到了值MK_RBUTTON，即按下左键时指定右键同时也被按下，用来模拟同时按下左右键的情况。当然，发送RBUTTONDOWN和RBUTTONUP时指定MK_LBUTTON也是同样的效果。而LParam则指定了按下或抬起键时鼠标指针的坐标，它的高16位为Y坐标，低16位为X坐标。给lparam赋值的那一行，就是把X，Y两个值组装成了一个lparam。

另外提一下IfThen函数，这个函数平时并不见有多人使用，但它真的很方便，至少它解决了对于“Delphi中没有C的 ? : 运算符”的抱怨^_^。不错，这就是Delphi的问号运算符，三个参数中第一个是Boolean型，若为真，返回值就是第二个参数，否则是第三个参数。第二、第三个参数类型相同，并且有多个重载版本。数值版本需要包含Math库，而字符串版本需要StrUtils库。显然，编译上述代码是需要包含Math库的。若不愿，当然你也可以使用 if...then。

至此，接口层全部实现完毕，接下来就可以安心的实现“数学模型”了。