通用型的API控制外部窗口源码 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集1
变量名	类型	数组	备注
程序集_计算器	整数型
程序集_计算器编辑框	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

皮肤加载 ()
运行 (“calc.exe”, 假, )
程序集_计算器＝取句柄_标题 (“计算器”)
程序集_计算器编辑框＝取子句柄_类名 (程序集_计算器, “Edit”)

子程序名	返回值类型	公开	备注
取句柄_标题	整数型
参数名	类型	参考	可空	数组	备注
标题	文本型

返回 (寻找窗口_api (0, 0, 0, 标题))

子程序名	返回值类型	公开	备注
取子句柄_类名	整数型
参数名	类型	参考	可空	数组	备注
父亲窗口句柄	整数型
子窗口标题	文本型

返回 (寻找窗口_api (父亲窗口句柄, 0, 子窗口标题, 0))

子程序名	返回值类型	公开	备注
取组件句柄	整数型
参数名	类型	参考	可空	数组	备注
子窗口标题	文本型
父亲窗口句柄	整数型

变量名	类型	静态	数组	备注
目标句柄	整数型
窗口标题	文本型

循环判断首 ()
目标句柄＝寻找窗口_api (父亲窗口句柄, 目标句柄, 0, 0)

如果真 (取标题 (目标句柄) ＝子窗口标题)
跳出循环 ()

循环判断尾 (目标句柄 ≠ 0)
返回 (目标句柄)

子程序名	返回值类型	公开	备注
寻找窗口_api	整数型
参数名	类型	参考	可空	数组	备注
hwnd
x1	通用型
x2	通用型
x3	通用型

返回 (winapi (, “FindWindowExA”, 1, hwnd, x1, x2, x3))

子程序名	返回值类型	公开	备注
取标题	文本型
参数名	类型	参考	可空	数组	备注
目标句柄	整数型

变量名	类型	静态	数组	备注
窗口标题	文本型

窗口标题＝取空白文本 (255)
winapi (, “GetWindowTextA”, 1, 目标句柄, 窗口标题, 255)
返回 (窗口标题)

子程序名	返回值类型	公开	备注
_按钮_加数_被单击

变量名	类型	静态	数组	备注
按钮_加数句柄	整数型

按钮_加数句柄＝取组件句柄 (“1”, 程序集_计算器)
模拟后台鼠标点击 (按钮_加数句柄)
编辑框1.内容＝ “1”

子程序名	返回值类型	公开	备注
_按钮_加号_被单击

变量名	类型	静态	数组	备注
按钮_加号句柄	整数型

按钮_加号句柄＝取组件句柄 (“+”, 程序集_计算器)
模拟后台鼠标点击 (按钮_加号句柄)
编辑框1.内容＝ “+”

子程序名	返回值类型	公开	备注
模拟后台鼠标点击
参数名	类型	参考	可空	数组	备注
组件句柄	整数型

发送通用消息_api (组件句柄, 245, 0, 0)

子程序名	返回值类型	公开	备注
_按钮_被加数_被单击

变量名	类型	静态	数组	备注
按钮_被加数句柄	整数型

按钮_被加数句柄＝取组件句柄 (“2”, 程序集_计算器)
模拟后台鼠标点击 (按钮_被加数句柄)
编辑框1.内容＝ “2”

子程序名	返回值类型	公开	备注
_按钮_等于_被单击

变量名	类型	静态	数组	备注
按钮_等于句柄	整数型
计算结果	文本型
本窗口编辑框	整数型

按钮_等于句柄＝取组件句柄 (“=”, 程序集_计算器)
模拟后台鼠标点击 (按钮_等于句柄)
编辑框1.内容＝ “ ”
全选 (程序集_计算器编辑框) ' 全选
复制 (程序集_计算器编辑框)
取消全选 (程序集_计算器编辑框)
粘贴 (编辑框1.取窗口句柄 ())

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

皮肤卸载 ()

子程序名	返回值类型	公开	备注
全选
参数名	类型	参考	可空	数组	备注
hwnd

发送通用消息_api (hwnd, 177, 0, -1) ' 全选

子程序名	返回值类型	公开	备注
复制
参数名	类型	参考	可空	数组	备注
hwnd

发送通用消息_api (hwnd, 769, 0, 0) ' 复制

子程序名	返回值类型	公开	备注
粘贴
参数名	类型	参考	可空	数组	备注
hwnd

发送通用消息_api (hwnd, 770, 0, 0) ' 取消全选

子程序名	返回值类型	公开	备注
取消全选
参数名	类型	参考	可空	数组	备注
hwnd

发送通用消息_api (hwnd, 177, 0, 0) ' 粘贴

子程序名	返回值类型	公开	备注
置焦点
参数名	类型	参考	可空	数组	备注
HWND

发送通用消息_api (HWND, 7, 0, 0)

子程序名	返回值类型	公开	备注
发送通用消息_api
参数名	类型	参考	可空	数组	备注
HWND
X1	通用型
X2	通用型
X3	通用型

winapi (, “SendMessageA”, 1, HWND, X1, X2, X3)

i支持库列表	支持库注释
JY	(未知支持库)

.版本 2<br />
.支持库 JY<br />
<br />
.程序集 窗口程序集1<br />
.程序集变量 程序集_计算器, 整数型<br />
.程序集变量 程序集_计算器编辑框, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
皮肤加载 ()<br />
<br />
运行 (“calc.exe”, 假, )<br />
程序集_计算器 ＝ 取句柄_标题 (“计算器”)<br />
程序集_计算器编辑框 ＝ 取子句柄_类名 (程序集_计算器, “Edit”)<br />
<br />
<br />
.子程序 取句柄_标题, 整数型, 公开<br />
.参数 标题, 文本型<br />
<br />
返回 (寻找窗口_api (0, 0, 0, 标题))<br />
<br />
<br />
.子程序 取子句柄_类名, 整数型, 公开<br />
.参数 父亲窗口句柄, 整数型<br />
.参数 子窗口标题, 文本型<br />
<br />
返回 (寻找窗口_api (父亲窗口句柄, 0, 子窗口标题, 0))<br />
<br />
<br />
.子程序 取组件句柄, 整数型, 公开<br />
.参数 子窗口标题, 文本型<br />
.参数 父亲窗口句柄, 整数型<br />
.局部变量 目标句柄, 整数型<br />
.局部变量 窗口标题, 文本型<br />
<br />
<br />
<br />
.循环判断首 ()<br />
目标句柄 ＝ 寻找窗口_api (父亲窗口句柄, 目标句柄, 0, 0)<br />
<br />
.如果真 (取标题 (目标句柄) ＝ 子窗口标题)<br />
跳出循环 ()<br />
.如果真结束<br />
<br />
.循环判断尾 (目标句柄 ≠ 0)<br />
返回 (目标句柄)<br />
<br />
<br />
.子程序 寻找窗口_api, 整数型, 公开<br />
.参数 hwnd<br />
.参数 x1, 通用型, 参考<br />
.参数 x2, 通用型, 参考<br />
.参数 x3, 通用型, 参考<br />
<br />
返回 (winapi (, “FindWindowExA”, 1, hwnd, x1, x2, x3))<br />
<br />
.子程序 取标题, 文本型<br />
.参数 目标句柄, 整数型<br />
.局部变量 窗口标题, 文本型<br />
<br />
窗口标题 ＝ 取空白文本 (255)<br />
winapi (, “GetWindowTextA”, 1, 目标句柄, 窗口标题, 255)<br />
返回 (窗口标题)<br />
<br />
<br />
.子程序 _按钮_加数_被单击<br />
.局部变量 按钮_加数句柄, 整数型<br />
<br />
按钮_加数句柄 ＝ 取组件句柄 (“1”, 程序集_计算器)<br />
模拟后台鼠标点击 (按钮_加数句柄)<br />
编辑框1.内容 ＝ “1”<br />
<br />
.子程序 _按钮_加号_被单击<br />
.局部变量 按钮_加号句柄, 整数型<br />
<br />
按钮_加号句柄 ＝ 取组件句柄 (“+”, 程序集_计算器)<br />
模拟后台鼠标点击 (按钮_加号句柄)<br />
编辑框1.内容 ＝ “+”<br />
<br />
<br />
.子程序 模拟后台鼠标点击, , 公开<br />
.参数 组件句柄, 整数型<br />
<br />
发送通用消息_api (组件句柄, 245, 0, 0)<br />
<br />
.子程序 _按钮_被加数_被单击<br />
.局部变量 按钮_被加数句柄, 整数型<br />
<br />
按钮_被加数句柄 ＝ 取组件句柄 (“2”, 程序集_计算器)<br />
模拟后台鼠标点击 (按钮_被加数句柄)<br />
编辑框1.内容 ＝ “2”<br />
<br />
.子程序 _按钮_等于_被单击<br />
.局部变量 按钮_等于句柄, 整数型<br />
.局部变量 计算结果, 文本型<br />
.局部变量 本窗口编辑框, 整数型<br />
<br />
按钮_等于句柄 ＝ 取组件句柄 (“=”, 程序集_计算器)<br />
模拟后台鼠标点击 (按钮_等于句柄)<br />
编辑框1.内容 ＝ “ ”<br />
全选 (程序集_计算器编辑框) ' 全选<br />
复制 (程序集_计算器编辑框)<br />
取消全选 (程序集_计算器编辑框)<br />
粘贴 (编辑框1.取窗口句柄 ())<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
皮肤卸载 ()<br />
<br />
<br />
.子程序 全选, , 公开<br />
.参数 hwnd<br />
<br />
发送通用消息_api (hwnd, 177, 0, -1) ' 全选<br />
<br />
.子程序 复制, , 公开<br />
.参数 hwnd<br />
<br />
发送通用消息_api (hwnd, 769, 0, 0) ' 复制<br />
<br />
.子程序 粘贴, , 公开<br />
.参数 hwnd<br />
<br />
发送通用消息_api (hwnd, 770, 0, 0) ' 取消全选<br />
<br />
<br />
.子程序 取消全选, , 公开<br />
.参数 hwnd<br />
<br />
发送通用消息_api (hwnd, 177, 0, 0) ' 粘贴<br />
<br />
.子程序 置焦点, , 公开<br />
.参数 HWND<br />
<br />
发送通用消息_api (HWND, 7, 0, 0)<br />
<br />
.子程序 发送通用消息_api, , 公开<br />
.参数 HWND<br />
.参数 X1, 通用型, 参考<br />
.参数 X2, 通用型, 参考<br />
.参数 X3, 通用型, 参考<br />
<br />
winapi (, “SendMessageA”, 1, HWND, X1, X2, X3)