QQ斗地主记牌器开发实践

这是我2005年写的一个小程序，原来放在BOKEE上的，最近BOKEE经常打不开，打开的时候也是极慢、图片显不出来，中国最早的博客要关门了？为了不把程序弄丢了，还是转移到这里来吧。

原文：

由于前段时间玩起了QQ斗地主，从网上下载了一个QQ斗地主记牌器，但无法使用，于是就想自己开发一个。

一、记牌器实现的原理

当时查阅了一些资料，想到了三种实现的方法：

1、拦截IP包。这种方法应该是可行的，只是从查阅的资料来看，现在的游戏IP包都经过加密处理了，而且分析IP包的工作量比较大，所以就没采用这种方法。这方面使用的软件有：WPE(拦截发送封包)，m2m封包分析。

2、拦截QQ斗地主显示扑克牌的函数。用W32DSM分析了斗地主的几个相关exe和dll竟然没找到显示扑克牌的函数:(。一开始觉得最可疑的应该是QQGame目录下的CardRes.dll，但分析后发现它竟没有程序出口。

3、屏幕抓图。感觉这种方法是最简单的了，觉得纯粹就是抓图，然后分析图形就行了。当时下载的记牌器应该也是应用这种方法实现的，但是它又不能用，网上又有评论说它被腾讯怎么给弄失效了。不管了，试试再说。

二、从图形分析开始

这是抓获的每张牌的区域，下图为放大后的效果，图中绿色网格为参考坐标，经过分析，发现只要使用12行X4列的区域就可以确定出牌的大小，使用20行X4列的区域就可以确定出大小和类型了。刚开始的时候，打算每次捕抓一张牌的区域，但是这样要想定的定义一系列的HBITMAP,不方便，所以就改为一列牌捕捉分析一次。考虑到一家的牌最多20张，而20张牌的屏幕区域为356X20像素。

分析牌大小和类型的函数如下：

//判断hdc中的牌
//////////////////////////////////////////////////////
BOOL CCard::Check(HDC hdc)
{
 BYTE g_color, color1, color2;
// int i=1;
 int nCardWidth=15; //每张牌的宽度为15像素
 int nOffset = 2;    //牌边框与值之类的像素，见图片说明
 for(int i=0; i<20; i++)
 {
 if(GetColor(hdc, 13, 1+i*nCardWidth)!= 0)  //找不到黑色的边框，说明没有牌
  continue;
 color1=GetColor(hdc, 1, 68+i*nCardWidth);
 if(color1 >20 && color1 <150)     //表示为底色，此值为随便取的，视底色范围
  continue;

 if(GetColor(hdc, 1, 1+nOffset+i*nCardWidth) ==0)
 {
  value[i] = 13;   //K
  continue;
 }

 if(GetColor(hdc, 1,2+nOffset+i*nCardWidth) ==0 )
  {
   if((color1=GetColor(hdc,7,2+nOffset+i*nCardWidth))==0)
   {
    value[i] = 10;  //10
    continue;
   }
   value[i] = 5;   //5
   continue;
  }

 if((g_color=GetColor(hdc, 2,2+nOffset+i*nCardWidth)) ==0)
 {
  value[i] = 12;    //Q
  continue;
 }

 if(GetColor(hdc, 12, 2+nOffset+i*nCardWidth) == 0)
 {
  value[i] = 1;    //A
  continue;
 }

 if(GetColor(hdc, 12, 1+nOffset+i*nCardWidth) == 0)
 {
  value[i] = 1;    //A
  continue;
 }

 if(GetColor(hdc, 6, 2+nOffset+i*nCardWidth) == 0)
 {
  value[i] = 4;    //4
  continue;
 }

 if(GetColor(hdc, 9, 2+nOffset+i*nCardWidth)== 0)
 {
  value[i] =11;    //J
  continue;
 }

 if((g_color=GetColor(hdc, 1, 3+nOffset+i*nCardWidth)) == 0)
 {
  if((color1=GetColor(hdc, 4,3+nOffset+i*nCardWidth)) ==0)
  {
   value[i] = 5;   //5
   continue;
  }
  if((color2=GetColor(hdc, 10, 3+nOffset+i*nCardWidth)) == 0)
  {
   value[i] = 3;   //3
   continue;
  }

  value[i] =7;    //7
  continue;
 }

 if(GetColor(hdc, 12, 3+nOffset+i*nCardWidth) ==0)
 {
  value[i] = 2;    //2
  continue;
 }

 if((color1=GetColor(hdc, 2, 3+nOffset+i*nCardWidth)) == 0)
 {
  if((GetColor(hdc, 6, 3+nOffset+i*nCardWidth)) ==0)
  {
   value[i] = 9;   //9
   continue;
  }
  value[i] = 8;    //8
  continue;
 }


 if(GetColor(hdc, 3, 3+nOffset+i*nCardWidth)==0)
 {
  value[i] = 6;    //6
  continue;
 }

 if(GetColor(hdc,1,1+nOffset+i*nCardWidth) == 255)
 {
  value[i] = 0;    //大小王
  continue;
 }

 value[i] = 14;
 }
 

 //判断花色
 ////////////////////////////////////////////////////////////////////
 for(i=0; i<20; i++)
 {
  if(value[i] == 14)   //无牌 
  {
   type[i]=4;
   continue;
  }

  if(value[i] == 0)   //王
  {
   type[i]=0;    //先默认为大王
   if(GetColor(hdc, 8, 4+nOffset+i*nCardWidth) < 250)
    type[i]=1;   //小王
   continue;
  }

  if(value[i]>0 && value[i]<11)  //牌为A、2-10时，花色的区域相同，为一种
  {
   if(GetColor(hdc, 20, 2+nOffset+i*nCardWidth) == 255) //方片A
   {
    type[i]=3;
    continue;
   }
   if(GetColor(hdc, 17, 2+nOffset+i*nCardWidth) == 0) //红桃
   {
    type[i]=1;
    continue;
   }
   if(GetColor(hdc, 18, 2+nOffset+i*nCardWidth) == 0) //方片
   {
    type[i]=3;
    continue;
   }
   if(GetColor(hdc, 18, 4+nOffset+i*nCardWidth) == 0) //黑桃
   {
    type[i]=0;
    continue;
   }
   type[i]=2;         //茶花
   continue;
  }

  if(value[i]>=11 && value[i]<=13)  //牌值为J-K时，花色区域为另一种
  {
   if(GetColor(hdc, 17, 1+nOffset+i*nCardWidth) == 0) //红桃
   {
    type[i]=1;
    continue;
   }
   if(GetColor(hdc, 19, 1+nOffset+i*nCardWidth) == 255)//方片
   {
    type[i]=3;
    continue;
   }
   if(GetColor(hdc, 16, 3+nOffset+i*nCardWidth) == 0) //黑桃
   {
    type[i]=2;
    continue;
   }
   type[i]=0;         //茶花
   continue;
  }
 }

 return TRUE;
}

//取得第row行，col列的G值，注意参数为先行后列，而且是1开始而非从0开始的
//原先是为了计算单张牌的方便，才采用了行列而非坐标，以至后来调试多花了好多时间^-^(是忘了这个规则了)
BYTE CCard::GetColor(HDC hdc, int row, int col)
{
 COLORREF crColor;
 BYTE temp;
 crColor = GetPixel(hdc, col-1, row-1);  //取得第row行，col列的RGB值

 //分离出蓝色值，为什么用蓝色呢，看看抓图的像素就知道了
 //红色的G值为0，黑色的G值为0，而白色的G值为255，所以判断一下G值就知道是什么牌了
 temp=GetGValue(crColor);     //分离出蓝色值
 return temp;
}

上图为各捕捉区域左上角的屏幕坐标，自己、左家、右家的牌一次捕捉356X20的区域，进行一次分析。底牌区域的坐标仅用于参考，视算法而定要不要进行分析(我的程序因为是旁观别人的牌进行分析的，自己的牌是一次分析出来的，后来自己玩的时候发现了一个问题，自己当地主时，底牌拿到手时跟其它的牌不是成一条线的!所以还要用到底牌区的区域来分析)。

三、屏幕抓图函数

可参见我的博客中其它的文章。我的思路是自己的牌抓一次，左右家的牌两家一起抓一次。因为左右家出的牌较多时，两家的牌会有一部分重叠在一起，但是经过分析，可以知道这两部分每张牌之间都是错开的，所以还是可以一次处理的。

另：使用spy++分析QQ斗地主的各个窗口坐标，可知：主窗口的左上角坐标为(-4，-4)，而牌区的左上角坐标为(1,30)，牌区的长宽为736X696像素。

我用的函数如下：

void CCaptureDlg::OnMiddle()
{
 // TODO: Add your control notification handler code here

 CCard cardLord;

 int nLordX=212, nLordY=554;
/*
 HDC hdcScreen, hMemDC;

 HBITMAP hBitmap, hOldBitmap;
 HBITMAP hBitmap1, hOldBitmap1;
 //建立一个屏幕设备环境句柄
 hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL);
 hMemDC = CreateCompatibleDC(hdcScreen);
 hMiddleDC = CreateCompatibleDC(hdcScreen);

*/ //建立一个与屏幕设备环境句柄兼容、与鼠标所在处的窗口的区域等大的位图
 hBitmap = CreateCompatibleBitmap(hdcScreen, nWidth, nHeight);
 hBitmap1 = CreateCompatibleBitmap(hdcScreen, 356, 20);
 // 把屏幕设备描述表拷贝到内存设备描述表中
 hOldBitmap = (HBITMAP) SelectObject(hMemDC, hBitmap);
 
 hOldBitmap1 = (HBITMAP) SelectObject(hMiddleDC, hBitmap1);

 BitBlt(hMemDC, 0, 0, nWidth, nHeight, hdcScreen, rectCapture.left+5, rectCapture.top+34,SRCCOPY);

 if(cardLord.GetColor(hMemDC, nLordY, nLordX-1) ==255)
  nLordX -= 22;

 BitBlt(hMiddleDC, 0, 0, 356,20, hMemDC, nLordX, nLordY, SRCCOPY);

 cardLord.Check(hMiddleDC);
 
/* CString str1, str2, str3;
 str2.Empty();
 str2.Format(_T("自己的牌：\n"));

 for(int i=0; i<20; i++)
 {
  str1.Format(_T("%4d"), cardLord.GetValue(i));
  str2 += str1;
  str1.Format(_T("%4d"), cardLord.GetType(i));
  str3 += str1;
 }
 str2+="\n";
 str2+=str3;
 AfxMessageBox(str2);
*/
 hBitmap =(HBITMAP)SelectObject(hMemDC, hOldBitmap);
 hBitmap1 =(HBITMAP)SelectObject(hMiddleDC, hOldBitmap1);

 /*
 DeleteDC(hMiddleDC);
 DeleteDC(hdcScreen);
 DeleteDC(hMemDC);

 // 返回位图句柄
 //打开剪贴板，并将位图拷到剪贴板上
 OpenClipboard() ;
 EmptyClipboard();
 SetClipboardData(CF_BITMAP, hBitmap1);
 //关闭剪贴板
 CloseClipboard();

*/
// MessageBox("屏幕内容已经拷到剪贴板上！");
 //终止鼠标捕获
 ReleaseCapture();
 //恢复窗口显示模式
// ShowWindow(SW_NORMAL);

 DeleteItem(cardLord);
}

void CCaptureDlg::OnLeft()
{
 // TODO: Add your control notification handler code here
// KillTimer(1);

 CCard cardLeft, cardRight;

 int nLeftX=172, nLeftY=272;
 int nRightX=208, nRightY=272;

/* HDC hdcScreen, hMemDC;
 HBITMAP hBitmap, hOldBitmap;
 HBITMAP hBitmap1, hOldBitmap1;
 HBITMAP hBitmap2, hOldBitmap2;

 //建立一个屏幕设备环境句柄
 hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL);
 hMemDC = CreateCompatibleDC(hdcScreen);
 hLeftDC = CreateCompatibleDC(hdcScreen);
 hRightDC = CreateCompatibleDC(hdcScreen);
*/
 //建立一个与屏幕设备环境句柄兼容、与鼠标所在处的窗口的区域等大的位图
 hBitmap = CreateCompatibleBitmap(hdcScreen, nWidth, nHeight);
 hBitmap1 = CreateCompatibleBitmap(hdcScreen, 356, 20);
 hBitmap2 = CreateCompatibleBitmap(hdcScreen, 356, 20);
 // 把屏幕设备描述表拷贝到内存设备描述表中
 hOldBitmap = (HBITMAP) SelectObject(hMemDC, hBitmap);
 hOldBitmap1 = (HBITMAP) SelectObject(hLeftDC, hBitmap1);
 hOldBitmap2 = (HBITMAP) SelectObject(hRightDC, hBitmap2);

 BitBlt(hMemDC, 0, 0, nWidth, nHeight, hdcScreen, rectCapture.left+5, rectCapture.top+34,SRCCOPY);

 BitBlt(hLeftDC, 0, 0, 356,20, hMemDC, nLeftX, nLeftY, SRCCOPY);
 BitBlt(hRightDC, 0, 0, 356,20, hMemDC, nRightX, nRightY, SRCCOPY);

 cardLeft.Check(hLeftDC);
 cardRight.Check(hRightDC);

 DeleteItem(cardLeft);
 DeleteItem(cardRight);
/*
 DeleteDC(hdcScreen);
 DeleteDC(hMemDC);
 DeleteDC(hLeftDC);
 DeleteDC(hRightDC);

*/
 hBitmap =(HBITMAP)SelectObject(hMemDC, hOldBitmap);
 hBitmap1 =(HBITMAP)SelectObject(hLeftDC, hOldBitmap1);
 hBitmap2 =(HBITMAP)SelectObject(hRightDC, hOldBitmap2);

// SetTimer(1, 2000, NULL);
}

四、主程序

主程序采用4个列表来记牌，为什么不用一个列表来实现呢？因为列表只能在第一列能够同时显示图标和文字，所以用了4个列表。下方的5个按钮是用来测试各个函数的，调试用的。代码如下：

BOOL CCaptureDlg::OnInitDialog()
{

CDialog::OnInitDialog();

 // Add "About..." menu item to system menu.

 // IDM_ABOUTBOX must be in the system command range.
 ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
 ASSERT(IDM_ABOUTBOX < 0xF000);

 CMenu* pSysMenu = GetSystemMenu(FALSE);
 if (pSysMenu != NULL)
 {
  CString strAboutMenu;
  strAboutMenu.LoadString(IDS_ABOUTBOX);
  if (!strAboutMenu.IsEmpty())
  {
   pSysMenu->AppendMenu(MF_SEPARATOR);
   pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  }
 }

 //加入WS_EX_LAYERED扩展属性
 //设置窗口为半透明
 SetWindowLong(this->GetSafeHwnd(),GWL_EXSTYLE,
 GetWindowLong(this->GetSafeHwnd(),GWL_EXSTYLE)^0x80000);
 HINSTANCE hInst = LoadLibrary("User32.DLL");
 if(hInst)
 {
  typedef BOOL (WINAPI *MYFUNC)(HWND,COLORREF,BYTE,DWORD);
  MYFUNC fun = NULL;
  //取得SetLayeredWindowAttributes函数指针
  fun=(MYFUNC)GetProcAddress(hInst, "SetLayeredWindowAttributes");
  if(fun)fun(this->GetSafeHwnd(),0,255,2);
  FreeLibrary(hInst);
 }

  //将窗口设为最前

::SetWindowPos(this->m_hWnd,HWND_TOPMOST,815,395,0,0,SWP_NOSIZE);

 // return TRUE  unless you set the focus to a control

 // Set the icon for this dialog.  The framework does this automatically
 //  when the application's main window is not a dialog
 SetIcon(m_hIcon, TRUE);   // Set big icon
 SetIcon(m_hIcon, FALSE);  // Set small icon
 
 // TODO: Add extra initialization here
 bCapture=FALSE;
 bLord = FALSE;

 bMiddle = FALSE;
 bLeft = FALSE;
 bRight = FALSE;
 bMiddle1 = FALSE;
 bLeft1 = FALSE;
 bRight1 = FALSE;
 
 hwndCapture = ::FindWindow(NULL, "斗地主");
 
 ::GetWindowRect(hwndCapture,&rectCapture);

 nWidth=rectCapture.Width();
 nHeight=rectCapture.Height();
 if(nWidth != 1032 || nHeight != 746)
 {
  MessageBox("斗地主的主窗口尺寸不对!\n\n检查显示器分辨率：请调整为1024*768\n并将斗地主窗口最大化\n\n不便之处，敬请原谅!");
  exit(0);
 }


 InitList();

 //建立一个屏幕设备环境句柄
 hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL);
 hMemDC = CreateCompatibleDC(hdcScreen);
 hMiddleDC = CreateCompatibleDC(hdcScreen);
 hLeftDC = CreateCompatibleDC(hdcScreen);
 hRightDC = CreateCompatibleDC(hdcScreen);

 SetTimer(1,2000,NULL);

 return TRUE;  // return TRUE  unless you set the focus to a control
}

//初始化4个列表

////////////////////////////////////////////////////////////////////////////////////////////////
void CCaptureDlg::InitList()
{
 int i,j;
 char str1[15][5]={"3","4","5","6","7","8","9","10","J","Q","K","A","2","王","无牌"};

 //载入4种花色的图标
 SmallImage.Create(14, 14, ILC_COLOR8 | ILC_MASK, 4, 1);
 CBitmap cBmp;
 cBmp.LoadBitmap(IDB_BITMAP1);
 SmallImage.Add(&cBmp, RGB(255,255,255));
 cBmp.DeleteObject();
 cBmp.LoadBitmap(IDB_BITMAP2);
 SmallImage.Add(&cBmp, RGB(255,255,255));
 cBmp.DeleteObject();
 cBmp.LoadBitmap(IDB_BITMAP3);
 SmallImage.Add(&cBmp, RGB(255,255,255));
 cBmp.DeleteObject();
 cBmp.LoadBitmap(IDB_BITMAP4);
 SmallImage.Add(&cBmp, RGB(255,255,255));
 cBmp.DeleteObject();

 //初始化4个列表
 for(i=0; i<4; i++)
 {
  m_list[i].SetImageList(&SmallImage, LVSIL_SMALL);
  m_list[i].InsertColumn(0,"");
  m_list[i].SetColumnWidth(0,50);
 }

 LVITEM lvi;
 CString strItem;

 for(j=0; j<4; j++)
  for(i=0;i<13;i++)
  {
   lvi.mask = LVIF_IMAGE|LVIF_TEXT;
   lvi.iItem = i;
   lvi.iSubItem = 0;
   lvi.iImage=j;
   strItem.Format(_T("%s"),str1[i]);
   lvi.pszText = (LPTSTR)(LPCTSTR)(strItem);
   m_list[j].InsertItem(&lvi);
  }

 //记下大小王
 iconJoke1 = m_joke1.GetIcon();
 iconJoke2 = m_joke2.GetIcon();

 bMiddle1 = TRUE;
}

五、存在的问题

使用主界面下方的按钮来测试各个函数，可以正常捕捉记牌，但是使用OnTimer()来自动记牌时，记一段时间就出错了，是什么问题呢？

该采用什么算法来激活捕捉分析程序呢？欢迎大家跟我探讨。