易语言网页SPY源码

系统结构:取网页元素,取IES对象,取IES句柄,彗星取光标处句柄,彗星取窗口类名,ObjectFromLresult,RegisterWindowMessageA,SendMessageTimeoutA,FindWindowExA,SetCapture,ReleaseCapture,GetCursorPos,WindowFromPoint,GetClassName,GetWindowRect,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _图片框2_鼠标左键被按下
           |  |
           |  |------ _图片框2_鼠标左键被放开
           |  |
           |  |------ _图片框2_鼠标位置被移动
           |  |
           |  |------ 取网页元素
           |  |
           |  |
======公用程序集
           |  |
           |  |------ 取IES对象
           |  |
           |  |------ 取IES句柄
           |  |
           |  |------ 彗星取光标处句柄
           |  |
           |  |------ 彗星取窗口类名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", , , 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

.DLL命令 RegisterWindowMessageA, 整数型, , , , 获取分配给一个字串标识符的消息编号　&C000 到 &FFFF之间的一个消息编号。零意味着出错
    .参数 lpString, 文本型, , 注册消息的名字;  

.DLL命令 SendMessageTimeoutA, 整数型
    .参数 MSG, 整数型
    .参数 hwnd, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
    .参数 fuFlags, 整数型
    .参数 uTimeout, 整数型
    .参数 lpdwResult, 整数型, 传址

.DLL命令 FindWindowExA, 整数型
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 SetCapture, 整数型, , , , 将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入
    .参数 hwnd, 整数型, , 要接收所有鼠标输入的窗口的句柄

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

.DLL命令 GetCursorPos, 整数型, , , , 获取鼠标指针的当前位置
    .参数 lpPoint, Point

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 GetClassName, 整数型, , "GetClassNameA"
    .参数 hwnd
    .参数 lpClassName, 文本型
    .参数 nMaxCount

.DLL命令 GetWindowRect, 整数型, , "GetWindowRect", 公开
    .参数 hwnd, 整数型
    .参数 lpRect, RECT