易语言D2D游戏控件源码

系统结构:初始化游戏数据,屏幕逻辑和渲染,引擎增强_绑定窗口控件,引擎增强_启动引擎,引擎增强_隐藏鼠标,引擎增强_取屏幕句柄,引擎增强_取按键按下,引擎增强_取按键弹起,引擎增强_鼠标是否在窗口内,屏幕窗口逻辑空函数,引擎增强_关闭逻辑渲染,获取控件的矩形区域,安装系统定时器,终止系统定时器,获得子窗口组件句柄,获取鼠标按键状态,获取鼠标点组件句柄,获取鼠标指针的当前位置,显示鼠标指针,

======主窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化游戏数据
           |  |
           |  |------ 屏幕逻辑和渲染
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======程序集_引擎增强
           |  |
           |  |------ 引擎增强_绑定窗口控件
           |  |
           |  |------ 引擎增强_启动引擎
           |  |
           |  |------ 引擎增强_隐藏鼠标
           |  |
           |  |------ 引擎增强_取屏幕句柄
           |  |
           |  |------ 引擎增强_取按键按下
           |  |
           |  |------ 引擎增强_取按键弹起
           |  |
           |  |------ 引擎增强_鼠标是否在窗口内
           |  |
           |  |------ 屏幕窗口逻辑空函数
           |  |
           |  |------ 引擎增强_关闭逻辑渲染
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   获取控件的矩形区域
           |  |
           |  |---[dll]------   安装系统定时器
           |  |
           |  |---[dll]------   终止系统定时器
           |  |
           |  |---[dll]------   获得子窗口组件句柄
           |  |
           |  |---[dll]------   获取鼠标按键状态
           |  |
           |  |---[dll]------   获取鼠标点组件句柄
           |  |
           |  |---[dll]------   获取鼠标指针的当前位置
           |  |
           |  |---[dll]------   显示鼠标指针

调用的DLL命令:

.DLL命令 获取控件的矩形区域, 逻辑型, "user32", "GetWindowRect"
    .参数 窗口组件句柄, 整数型
    .参数 矩形区域, 矩形区域

.DLL命令 安装系统定时器, 整数型, "user32", "SetTimer", , 安装系统定时器，成功返回该定时器的ID。　
    .参数 窗口句柄, 整数型, , 窗口句柄，默认0。
    .参数 定时器ID, 整数型, , 定时器ID，默认0。
    .参数 时间间隔, 整数型, , 时间间隔,单位为毫秒。
    .参数 回调函数地址, 子程序指针, , 回调函数。

.DLL命令 终止系统定时器, 整数型, "user32", "KillTimer", , 终止系统定时器，成功返回1。　
    .参数 窗口句柄, 整数型, , 窗口句柄。默认0。
    .参数 定时器ID, 整数型, , 定时器ID，由“安装系统定时器”返回的值作为标示。

.DLL命令 获得子窗口组件句柄, 整数型, "user32.dll", "FindWindowExA", , 寻找子窗口
    .参数 父组件句柄, 整数型
    .参数 起始句柄, 整数型, , 必须为0，表示忽略。
    .参数 窗口类名, 整数型, , 必须为0，表示忽略。
    .参数 窗口标题, 文本型

.DLL命令 获取鼠标按键状态, 整数型, "user32", "GetAsyncKeyState", , 用于检测鼠标的当前按键状态。返回0表示弹起状态，返回非0表示按下状态。
    .参数 欲检测的按键, 整数型

.DLL命令 获取鼠标点组件句柄, 整数型, "user32", "WindowFromPoint", , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口
    .参数 横向位置, 整数型, , 鼠标坐标点.横向位置
    .参数 纵向位置, 整数型, , 鼠标坐标点.纵向位置

.DLL命令 获取鼠标指针的当前位置, 整数型, "user32", "GetCursorPos", , 获取鼠标指针的当前位置
    .参数 鼠标坐标点, 鼠标坐标点

.DLL命令 显示鼠标指针, 整数型, "user32", "ShowCursor"
    .参数 显示鼠标, 逻辑型