Exdui3.0模块中的Bug

夏朵朵的诗

最近在做UI，选择的是ExDui3.0，但是发现创建了主窗口之后，再创建子窗口在有的系统上会不显示或直接卡死，dump了一下发现代码卡在 "窗口_消息循环_对话框" 中没有跳出
于是将模块中的此命令修改了一下

  

子程序名	返回值类型	公开	备 注
窗口_消息循环_对话框
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
Msg	MSG
Int

如果真 (父窗口句柄 ≠ 0)
SendMessageW (父窗口句柄, #WM_MOUSELEAVE, 0, 0)  ' 会当当作响
判断循环首 (IsWindow (窗口句柄))
如果 (GetMessageW (Msg, 0, 0, 0) ＝ 0)  ' 消息循环
跳出循环 ()
如果真 (Msg.hwnd ≠ 窗口句柄)
如果真 (Msg.message ＞ 254 且 Msg.message ＜ 264 或 Msg.message ＞ 511 且 Msg.message ＜ 526)
如果真 (Msg.message ＝ 513 或 Msg.message ＝ 515 或 Msg.message ＝ 516 或 Msg.message ＝ 518 或 Msg.message ＝ 519 或 Msg.message ＝ 521 或 Msg.message ＝ 523 或 Msg.message ＝ 525)
SendMessageW (Msg.hwnd, #WM_SYSCHAR, 0, 0)  ' 会当当作响
' 这条Api有时会失效导致卡死
SetForegroundWindow (窗口句柄)
到循环尾 ()

TranslateMessage (Msg)
DispatchMessageW (Msg)

判断循环尾 ()

.版本 2<br /> <br /> .子程序 窗口_消息循环_对话框, , 公开<br /> .参数 窗口句柄, 整数型<br /> .参数 父窗口句柄, 整数型, 可空<br /> .局部变量 Msg, MSG<br /> .局部变量 Int<br /> <br /> .如果真 (父窗口句柄 ≠ 0)<br />     SendMessageW (父窗口句柄, #WM_MOUSELEAVE, 0, 0)  ' 会当当作响<br /> .如果真结束<br /> .判断循环首 (IsWindow (窗口句柄))<br />     .如果 (GetMessageW (Msg, 0, 0, 0) ＝ 0)  ' 消息循环<br />         跳出循环 ()<br />     .否则<br />         .如果真 (Msg.hwnd ≠ 窗口句柄)<br />             .如果真 (Msg.message ＞ 254 且 Msg.message ＜ 264 或 Msg.message ＞ 511 且 Msg.message ＜ 526)<br />                 .如果真 (Msg.message ＝ 513 或 Msg.message ＝ 515 或 Msg.message ＝ 516 或 Msg.message ＝ 518 或 Msg.message ＝ 519 或 Msg.message ＝ 521 或 Msg.message ＝ 523 或 Msg.message ＝ 525)<br />                     SendMessageW (Msg.hwnd, #WM_SYSCHAR, 0, 0)  ' 会当当作响<br /> <br />                     ' 这条Api有时会失效导致卡死<br />                     SetForegroundWindow (窗口句柄)<br />                 .如果真结束<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         TranslateMessage (Msg)<br />         DispatchMessageW (Msg)<br />     .如果结束<br /> <br /> .判断循环尾 ()

修改之后的代码

  

子程序名	返回值类型	公开	备 注
窗口_消息循环_对话框
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
Msg	MSG
Int

如果真 (父窗口句柄 ≠ 0)
SendMessageW (父窗口句柄, #WM_MOUSELEAVE, 0, 0)  ' 会当当作响
判断循环首 (IsWindow (窗口句柄))
如果 (GetMessageW (Msg, 0, 0, 0) ＝ 0)  ' 消息循环
跳出循环 ()
如果真 (Msg.hwnd ≠ 窗口句柄)
如果真 (Msg.message ＞ 254 且 Msg.message ＜ 264 或 Msg.message ＞ 511 且 Msg.message ＜ 526)
如果真 (Msg.message ＝ 513 或 Msg.message ＝ 515 或 Msg.message ＝ 516 或 Msg.message ＝ 518 或 Msg.message ＝ 519 或 Msg.message ＝ 521 或 Msg.message ＝ 523 或 Msg.message ＝ 525)
SendMessageW (Msg.hwnd, #WM_SYSCHAR, 0, 0)  ' 会当当作响
' 这条Api有时会失效导致卡死
' SetForegroundWindow (窗口句柄)
SetTopWindow (窗口句柄)
到循环尾 ()

TranslateMessage (Msg)
DispatchMessageW (Msg)

判断循环尾 ()

子程序名	返回值类型	公开	备 注
SetTopWindow	逻辑型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型

变量名	类 型	静态	数组	备 注
hForeWnd	整数型
dwForeID	整数型
dwCurID	整数型

hForeWnd ＝ GetForegroundWindow ()
dwForeID ＝ GetWindowThreadProcessId (hWnd, 0)
dwCurID ＝ GetCurrentThreadId ()
AttachThreadInput (dwCurID, dwForeID, 真)
ShowWindow (hWnd, #SW_SHOWNORMAL )
SetForegroundWindow (hWnd)
AttachThreadInput (dwCurID, dwForeID, 假)
返回 (真)

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

.版本 2<br /> <br /> .子程序 窗口_消息循环_对话框, , 公开<br /> .参数 窗口句柄, 整数型<br /> .参数 父窗口句柄, 整数型, 可空<br /> .局部变量 Msg, MSG<br /> .局部变量 Int<br /> <br /> .如果真 (父窗口句柄 ≠ 0)<br />     SendMessageW (父窗口句柄, #WM_MOUSELEAVE, 0, 0)  ' 会当当作响<br /> .如果真结束<br /> .判断循环首 (IsWindow (窗口句柄))<br />     .如果 (GetMessageW (Msg, 0, 0, 0) ＝ 0)  ' 消息循环<br />         跳出循环 ()<br />     .否则<br />         .如果真 (Msg.hwnd ≠ 窗口句柄)<br />             .如果真 (Msg.message ＞ 254 且 Msg.message ＜ 264 或 Msg.message ＞ 511 且 Msg.message ＜ 526)<br />                 .如果真 (Msg.message ＝ 513 或 Msg.message ＝ 515 或 Msg.message ＝ 516 或 Msg.message ＝ 518 或 Msg.message ＝ 519 或 Msg.message ＝ 521 或 Msg.message ＝ 523 或 Msg.message ＝ 525)<br />                     SendMessageW (Msg.hwnd, #WM_SYSCHAR, 0, 0)  ' 会当当作响<br /> <br />                     ' 这条Api有时会失效导致卡死<br />                     ' SetForegroundWindow (窗口句柄)<br />                     SetTopWindow (窗口句柄)<br />                 .如果真结束<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         TranslateMessage (Msg)<br />         DispatchMessageW (Msg)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> .版本 2<br /> .支持库 const<br /> <br /> .子程序 SetTopWindow, 逻辑型<br /> .参数 hWnd, 整数型<br /> .局部变量 hForeWnd, 整数型<br /> .局部变量 dwForeID, 整数型<br /> .局部变量 dwCurID, 整数型<br /> <br /> hForeWnd ＝ GetForegroundWindow ()<br /> dwForeID ＝ GetWindowThreadProcessId (hWnd, 0)<br /> dwCurID ＝ GetCurrentThreadId ()<br /> AttachThreadInput (dwCurID, dwForeID, 真)<br /> ShowWindow (hWnd, #SW_SHOWNORMAL)<br /> <br /> SetForegroundWindow (hWnd)<br /> AttachThreadInput (dwCurID, dwForeID, 假)<br /> 返回 (真)

使用了变量支持库，然后编译exdui3.0模块后再编译的程序不会出现上述问题了

Albus·Dumbledo

可否发个修改后的模块

卓卓2030

夏朵朵的诗 发表于 2022-4-25 10:54
啥样的检测。。我现在一直在用4.1了

3.0的创建窗口给游戏检测了,又办法处理下画面吗

夏朵朵的诗

卓卓2030 发表于 2022-4-24 13:44
老大 窗口给检测了能修改吗

啥样的检测。。我现在一直在用4.1了

卓卓2030

老大 窗口给检测了能修改吗