易语言 取外部窗口编辑框文本

.版本 2

.DLL命令 API_SendMessage_整数, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 API_SendMessage_文本, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 文本型

.版本 2

.子程序 子程序1, 文本型, , 返回指定编辑框的内容
.参数 编辑框句柄, 整数型
.局部变量 文本长度, 整数型
.局部变量 编辑框内容, 文本型

文本长度 ＝ API_SendMessage_整数 (编辑框句柄, 14, 0, 0)
编辑框内容 ＝ 取空白文本 (文本长度)
API_SendMessage_文本 (编辑框句柄, 13, 文本长度 ＋ 1, 编辑框内容)
返回 (编辑框内容)

.版本 2
用到超级模块- -

.程序集 窗口程序集1
.程序集变量 句柄id, 整数型
.程序集变量 子句柄id, 整数型, , "0"

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

.子程序 _按钮1_被单击

句柄id ＝ 取句柄 (“1.exe”, , )
.如果 (句柄id ＝ -1)
信息框 (“失败”, 0, )
.否则
枚举子窗口 (句柄id, 子句柄id)
文本发送 (子句柄id [1], “发送的信息”)
.如果结束

好想可以用取窗口标题 不过句柄要是编辑框的句柄