易语言迷你SPY源码

系统结构:ReleaseCapture,WindowFromPoint,GetClassName,GetWindowLong,GetWindowText,GetWindowThreadProcessId,SetCapture,取颜色,创建场景,关闭场景,发送消息,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _图片框1_鼠标左键被放开
           |  |
           |  |------ _图片框1_鼠标位置被移动
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _图片框2_鼠标左键被按下
           |  |
           |  |------ _图片框2_鼠标左键被放开
           |  |
           |  |------ _图片框2_鼠标位置被移动
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   GetWindowText
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   取颜色
           |  |
           |  |---[dll]------   创建场景
           |  |
           |  |---[dll]------   关闭场景
           |  |
           |  |---[dll]------   发送消息

调用的DLL命令:

.DLL命令 ReleaseCapture, 整数型, , , , 为当前的应用程序释放鼠标捕获

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint", , 取鼠标当前位置句柄
    .参数 xPoint, 整数型
    .参数 yPoint, 整数型

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA", , 获取窗口类名
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 获取父窗口句柄
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 GetWindowText, 整数型, "user32", "GetWindowTextA", , 获得窗口的caption
    .参数 hwnd, 整数型
    .参数 lp文本型, 文本型
    .参数 cch, 整数型

.DLL命令 GetWindowThreadProcessId, , "user32", "GetWindowThreadProcessId", , 获取窗口进程,线程
    .参数 hwnd, 整数型
    .参数 lpdwProcessId, 整数型

.DLL命令 SetCapture, 整数型, , "SetCapture", , 捕获鼠标
    .参数 hwnd, 整数型

.DLL命令 取颜色, 整数型, "gdi32", "GetPixel"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 创建场景, 整数型, "gdi32", "CreateDCA"
    .参数 lpDriverName, 文本型
    .参数 lpDeviceName, 文本型
    .参数 lpOutput, 文本型
    .参数 lpInitData, 整数型, 传址

.DLL命令 关闭场景, 整数型, "gdi32", "DeleteDC"
    .参数 hdc, 整数型

.DLL命令 发送消息, , , "SendMessageA"
    .参数 a, 整数型
    .参数 b, 整数型
    .参数 d, 整数型
    .参数 c, 整数型