易语言读取鼠标坐标x,y

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 进程PID, 整数型
.程序集变量 窗口句柄, 整数型
.程序集变量 坐标基址, 整数型
.程序集变量 服务器dll, 整数型
.程序集变量 x坐标, 小数型
.程序集变量 y坐标, 小数型
.程序集变量 z坐标, 小数型
.程序集变量 鼠标x坐标, 小数型
.程序集变量 鼠标y坐标, 小数型
.程序集变量 鼠标基址, 整数型
.程序集变量 引擎dll, 长整数型

.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击
.局部变量 进程句柄, 整数型

进程PID ＝ 取进程ID (“hl2.exe”)
服务器dll ＝ 读模块基址 (“server.dll”, 进程PID)
坐标基址 ＝ 读内存整数型 (进程PID, 服务器dll ＋ 十六到十 (“4F2FEC”))
z坐标 ＝ 读内存小数型 (进程PID, 坐标基址 ＋ 十六到十 (“288”))
x坐标 ＝ 读内存小数型 (进程PID, 坐标基址 ＋ 十六到十 (“284”))
y坐标 ＝ 读内存小数型 (进程PID, 坐标基址 ＋ 十六到十 (“280”))

引擎dll ＝ 读模块基址 (“engine.dll”, 进程PID)
鼠标y坐标 ＝ 读内存小数型 (进程PID, 引擎dll ＋ 十六到十 (“4622CC”))
鼠标x坐标 ＝ 读内存小数型 (进程PID, 引擎dll ＋ 十六到十 (“4622D0”))

标签1.标题 ＝ 到文本 (x坐标)
标签2.标题 ＝ 到文本 (y坐标)
标签3.标题 ＝ 到文本 (z坐标)

标签7.标题 ＝ 到文本 (鼠标x坐标)
标签8.标题 ＝ 到文本 (鼠标y坐标)

.子程序 读模块基址, 整数型
.参数 模块名, 文本型
.参数 进程PID, 整数型
.局部变量 模块信息, 精易_模块信息, , "0"
.局部变量 i, 整数型

进程_ID取模块 (进程PID, 模块信息)
.计次循环首 (取数组成员数 (模块信息), i)
.如果真 (到文本 (模块信息 [i].模块文件名) ＝ 模块名)
返回 (模块信息 [i].base)
.如果真结束

.计次循环尾 ()
返回 (0)