读取TDrawGrid之获取博易数据

朋友叫我帮忙写个从博易读取数据的工具，可无奈数据所在控件并不是Windows标准控件，也就是说没办法通过发送系统消息来获取

相关数据，于是乎试了一下从内存直接读取，可最后并不能达到预期目的，原因是笔者并不能从内存中找出和TDrawGrid对应的关系。

（如果有网友知道的可以赐教。）

最后实在没办法了，直接用上了Hook API，有的网友可能想到了，Hook Gdi32.dll中相应的文本输出函数，没错，我选择的是TextOutA。

思路如下：

1. 编写一个Dll，用于注入博易并Hook TextOutA。

TextOutA原型如下：　　

BOOL TextOut(
HDC hdc, // 设备描述表句柄
int nXStart, // 字符串的开始位置 x坐标
int nYStart, // 字符串的开始位置 y坐标
LPCTSTR lpString, // 字符串
int cbString // 字符串中字符的个数
);

我们可以通过WindowFromDC来获取hdc相应的窗口的hWnd，并通过GetClassName来获取窗口的类，从而来判断当前所绘画的文本是不是输入TDrawGrid。
获取完数据后，通过WM_COPYDATA消息来发送相应的lpString到目标处理工具。

2. 编写用于接收数据的客户端。

部分代码如下：

__TextOutA proc hdc:DWORD,nXStart:DWORD,nYStart:DWORD,lpString:DWORD,cbString
	local cds:COPYDATASTRUCT
	local hwnd:DWORD

	invoke RestoreApi,hid_TextOutA,1
	invoke WindowFromDC,hdc
	mov hwnd,eax
	invoke GetClassName,hwnd,offset szClassName,255
	mov eax,offset szClassName
	mov eax,[eax]
	.if eax==061724454h
		invoke IsWindowVisible,hwnd
		.if eax
			invoke FindWindow,0,offset szMainRecv
			.if eax
				push esi
				push eax

				mov esi,offset sBuffer
				invoke RtlZeroMemory,esi,255

				mov eax,nXStart
				mov [esi],eax
				mov eax,nYStart
				mov [esi+4],eax

				mov eax,esi
				add eax,8

				invoke RtlMoveMemory,eax,lpString,cbString

				mov eax,cbString
				add eax,8
				mov cds.cbData,eax
				mov cds.lpData,esi
				mov cds.dwData,0
				invoke GetPixel,hdc,1,1
				mov cds.dwData,eax

				pop eax
				push ebx
				mov ebx,eax
				invoke SendMessage,ebx,WM_COPYDATA,0,addr cds
				pop ebx

				pop esi
			.endif
		.endif
	.endif

	invoke TextOut,hdc,nXStart,nYStart,lpString,cbString
	invoke RestoreApi,hid_TextOutA,0
	ret
__TextOutA endp

Public Function InterceptedCallBack(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
        If uMsg = WM_COPYDATA Then
                Dim cbs As COPYDATASTRUCT
                Dim md As MyData

                CopyMemory ByVal VarPtr(cbs), ByVal lParam, Len(cbs)
                CopyMemory ByVal VarPtr(md), ByVal cbs.lpData, cbs.cbData
                Debug.Print Hex(cbs.dwData), md.x, md.y, StrConv(md.d, vbUnicode)
         End If
        InterceptedCallBack = CallWindowProc(PrevWndProc, hwnd, uMsg, wParam, lParam)
End Function

VB+Asm代码，比较粗糙，见谅。

然而，TextOutA对于屏幕能看到的才画出来，那么整个TDrawGrid那么多行，要怎么获取所有的数据呢？
笔者通过SendMessage，发送相关滚动条的事件，来达到刷新整个TDrawGrid的目的，这样就OK了。
当然，这样获取到的数据是十分零散的，如下：

 12            355          07-01 09:24
 122           355          48860
 204           355          48860
 286           355          48860
 368           355          48860
 462           355                 0
 535           355              3058
 12            380          07-01 09:25
 122           380          48860
 204           380          48860
 286           380          48860
 368           380          48860
 462           380                 0
 535           380              3058
 12            405          07-01 09:26
 122           405          48860
 204           405          48860
 286           405          48860
 368           405          48860
 462           405                 0
 535           405              3058
 12            355          07-01 09:26
 122           355          48860
 204           355          48860
 286           355          48860
 368           355          48860
 462           355                 0
 535           355              3058            

.......
.......
.......

但实际上只要稍微观察，还是能找出规律，很容易地就能整理数据了。

下面是获取、整理并转换为excel文档的效果图：

OK，收工了。