建议ET助手改进一下，可参考我的源码

LLJ

ET助手在易语言不是默认布局的情况下，会取不到输出窗口句柄，经过我对易语言进行研究之后，彻底解决了此问题
下面的代码可以在易语言非默认布局下，取得输出窗口句柄，支持任何布局，应该能支持易语言的后续版本


获取易语言调试状态夹输出窗口句柄.zip (1.85 KB, 下载次数: 33)

2016-10-14 21:54 上传

点击文件名下载附件

网络注册网员

我也来看下

renxinmi

下载                             

renxinmi

貌似沒问题

andylaudj

就！一！点！问！题！也！没！有！

LLJ

xiaobd521 发表于 2016-11-2 09:16
看不懂，怎么学呢  谁能来教教我！   可以交学费

你想学什么

xiaobd521

看不懂，怎么学呢  谁能来教教我！   可以交学费

LLJ

优化上次的方案

  

全局变量名	类 型	数组	公开	备 注
易语言窗口句柄	整数型
易语言状态夹输出窗口句柄	整数型

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

易语言窗口句柄 ＝ FindWindowA (“ENewFrame”, 0)  ' 取易语言IDE主窗口句柄，这里在开发插件时不需要这么做，易语言sdk提供获取主窗口句柄的接口
_临时子程序 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_临时子程序

输出 (“★★获取易语言调试状态夹输出窗口句柄成功★★” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
取易语言输出窗口句柄	逻辑型

变量名	类 型	静态	数组	备 注
局部_窗口句柄	整数型
状态夹_窗口句柄	整数型
状态夹_选项卡_窗口句柄	整数型			选项卡我们可能会用到，可以切换到输出，让用户看到输出内容

' 注意 易语言的状态夹有固定的和脱离的
循环判断首 ()  ' 现在先查找固定的状态夹
局部_窗口句柄 ＝ FindWindowExA (易语言窗口句柄, 局部_窗口句柄, “AfxControlBar42s”, “状态夹”)
如果真 (局部_窗口句柄 ＝ 0)
跳出循环 ()  ' 没有找到
状态夹_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 130)  ' 在状态夹里面只有一个子窗口
循环判断尾 (状态夹_窗口句柄 ＝ 0)  ' 如果这个子窗口不存在，这就继续循环到找到为止
如果真 (状态夹_窗口句柄 ＝ 0)  ' 状态夹的子窗口不存在说明状态夹窗口分离了，易语言会创建一个顶级窗口，然后把子窗口分离过去
局部_窗口句柄 ＝ 0
' 我们先查找所有顶级窗口
循环判断首 ()
局部_窗口句柄 ＝ FindWindowExA (0, 局部_窗口句柄, “Afx:400000:8:10003:0:0”, “状态夹”)
如果真 (局部_窗口句柄 ＝ 0)
跳出循环 ()

循环判断尾 (GetParent (局部_窗口句柄) ≠ 易语言窗口句柄)  ' 父窗口必须是易语言的IDE窗口
如果 (局部_窗口句柄 ≠ 0)
局部_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 59423)
状态夹_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 130)  ' 这就是要找的子窗口
返回 (假)

状态夹_选项卡_窗口句柄 ＝ GetDlgItem (GetDlgItem (状态夹_窗口句柄, 0), 1000)
易语言状态夹输出窗口句柄 ＝ GetDlgItem (状态夹_选项卡_窗口句柄, 1011)
返回 (IsWindow (易语言状态夹输出窗口句柄))

子程序名	返回值类型	公开	备 注
输出	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

如果真 (IsWindow (易语言状态夹输出窗口句柄) ＝ 假 且 取易语言输出窗口句柄 () ＝ 假)
返回 (假)
SendMessageA (易语言状态夹输出窗口句柄, #EM_SETSEL, -2, -1)  ' 移动光标到末尾
返回 (SendMessageA (易语言状态夹输出窗口句柄, #EM_REPLACESEL, 0, 文本) ≠ 0)

DLL命令名	返回值类型	公开	备 注
FindWindowA	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
FindWindowA
参数名	类 型	传址	数组	备 注
lpClassName	通用型
lpWindowName	通用型

DLL命令名	返回值类型	公开	备 注
SendMessageA	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
信息值	整数型
参数一	通用型
参数二	通用型

DLL命令名	返回值类型	公开	备 注
FindWindowExA	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
FindWindowExA
参数名	类 型	传址	数组	备 注
hwndParent	整数型
hwndChildAfter	整数型
lpClassName	文本型
lpWindowName	通用型

DLL命令名	返回值类型	公开	备 注
GetParent	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetParent
参数名	类 型	传址	数组	备 注
hWnd	整数型

DLL命令名	返回值类型	公开	备 注
GetDlgItem	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetDlgItem
参数名	类 型	传址	数组	备 注
hDlg	整数型
nlDDlgltem	整数型

DLL命令名	返回值类型	公开	备 注
IsWindow	逻辑型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
IsWindow
参数名	类 型	传址	数组	备 注
hWnd	整数型

常量名称	常量值	公 开	备 注
EM_GETSEL	176
EM_SETSEL	177
EM_REPLACESEL	194
EM_GETLIMITTEXT	213

.版本 2<br /> <br /> .全局变量 易语言窗口句柄, 整数型<br /> .全局变量 易语言状态夹输出窗口句柄, 整数型<br /> <br /> .版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> 易语言窗口句柄 ＝ FindWindowA (“ENewFrame”, 0)  ' 取易语言IDE主窗口句柄，这里在开发插件时不需要这么做，易语言sdk提供获取主窗口句柄的接口<br /> _临时子程序 ()<br /> 返回 (0)<br /> <br /> .子程序 _临时子程序<br /> <br /> 输出 (“★★获取易语言调试状态夹输出窗口句柄成功★★” ＋ #换行符)<br /> <br /> .子程序 取易语言输出窗口句柄, 逻辑型<br /> .局部变量 局部_窗口句柄, 整数型<br /> .局部变量 状态夹_窗口句柄, 整数型<br /> .局部变量 状态夹_选项卡_窗口句柄, 整数型, , , 选项卡我们可能会用到，可以切换到输出，让用户看到输出内容<br /> <br /> ' 注意 易语言的状态夹有固定的和脱离的<br /> .循环判断首 ()  ' 现在先查找固定的状态夹<br />     局部_窗口句柄 ＝ FindWindowExA (易语言窗口句柄, 局部_窗口句柄, “AfxControlBar42s”, “状态夹”)<br />     .如果真 (局部_窗口句柄 ＝ 0)<br />         跳出循环 ()  ' 没有找到<br />     .如果真结束<br />     状态夹_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 130)  ' 在状态夹里面只有一个子窗口<br /> .循环判断尾 (状态夹_窗口句柄 ＝ 0)  ' 如果这个子窗口不存在，这就继续循环到找到为止<br /> .如果真 (状态夹_窗口句柄 ＝ 0)  ' 状态夹的子窗口不存在说明状态夹窗口分离了，易语言会创建一个顶级窗口，然后把子窗口分离过去<br />     局部_窗口句柄 ＝ 0<br />     ' 我们先查找所有顶级窗口<br />     .循环判断首 ()<br />         局部_窗口句柄 ＝ FindWindowExA (0, 局部_窗口句柄, “Afx:400000:8:10003:0:0”, “状态夹”)<br />         .如果真 (局部_窗口句柄 ＝ 0)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .循环判断尾 (GetParent (局部_窗口句柄) ≠ 易语言窗口句柄)  ' 父窗口必须是易语言的IDE窗口<br />     .如果 (局部_窗口句柄 ≠ 0)<br />         局部_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 59423)<br />         状态夹_窗口句柄 ＝ GetDlgItem (局部_窗口句柄, 130)  ' 这就是要找的子窗口<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .如果真结束<br /> 状态夹_选项卡_窗口句柄 ＝ GetDlgItem (GetDlgItem (状态夹_窗口句柄, 0), 1000)<br /> 易语言状态夹输出窗口句柄 ＝ GetDlgItem (状态夹_选项卡_窗口句柄, 1011)<br /> 返回 (IsWindow (易语言状态夹输出窗口句柄))<br /> <br /> .子程序 输出, 逻辑型, 公开<br /> .参数 文本, 文本型<br /> <br /> .如果真 (IsWindow (易语言状态夹输出窗口句柄) ＝ 假 且 取易语言输出窗口句柄 () ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> SendMessageA (易语言状态夹输出窗口句柄, #EM_SETSEL, -2, -1)  ' 移动光标到末尾<br /> 返回 (SendMessageA (易语言状态夹输出窗口句柄, #EM_REPLACESEL, 0, 文本) ≠ 0)<br /> <br /> .版本 2<br /> <br /> .DLL命令 FindWindowA, 整数型, "user32.dll", "FindWindowA"<br />     .参数 lpClassName, 通用型<br />     .参数 lpWindowName, 通用型<br /> <br /> .DLL命令 SendMessageA, 整数型, "user32.dll", "SendMessageA"<br />     .参数 窗口句柄, 整数型<br />     .参数 信息值, 整数型<br />     .参数 参数一, 通用型<br />     .参数 参数二, 通用型<br /> <br /> .DLL命令 FindWindowExA, 整数型, "user32.dll", "FindWindowExA"<br />     .参数 hwndParent, 整数型<br />     .参数 hwndChildAfter, 整数型<br />     .参数 lpClassName, 文本型<br />     .参数 lpWindowName, 通用型<br /> <br /> .DLL命令 GetParent, 整数型, "user32", "GetParent"<br />     .参数 hWnd, 整数型<br /> <br /> .DLL命令 GetDlgItem, 整数型, "user32.dll", "GetDlgItem"<br />     .参数 hDlg, 整数型<br />     .参数 nlDDlgltem, 整数型<br /> <br /> .DLL命令 IsWindow, 逻辑型, "user32.dll", "IsWindow"<br />     .参数 hWnd, 整数型<br /> .版本 2<br /> <br /> .常量 EM_GETSEL, "176"<br /> .常量 EM_SETSEL, "177"<br /> .常量 EM_REPLACESEL, "194"<br /> .常量 EM_GETLIMITTEXT, "213"

揰掵佲

LLJ 发表于 2016-10-15 16:45
你提醒的很好，经过测试即使窗口隐藏了有时也可以取到句柄，发现窗口如果不是固定的并且关闭了，再次打开 ...

黑月当然不是

Su·

LLJ 发表于 2016-10-15 16:28
谢谢，你的方法不错，但是考虑执行效率问题，先判断一下窗口句柄是否无效再取，这样会更好

噢噢 ，这样啊