谁会啊？SetWindowLongA 回调函数 参数1编译后调试结果不一样

ai2023

求大佬解决，使得编译后 参数1 的值 跟调试时一致。 编译跟调试结果不一样
附件=复制源码+官方精益模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
计次1
HWND	整数型
默认处理指针	整数型

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

HWND ＝ 取窗口句柄 ()
默认处理指针 ＝ SetWindowLongA (HWND, -4, 到整数 (&消息回调处理))

子程序名	返回值类型	公开	备 注
消息回调处理	整数型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

变量名	类 型	静态	数组	备 注
rt	文本型		0
ri	整数型		0
i	整数型
str	文本型

如果真 (消息 ≠ 132 且 消息 ≠ 289 且 消息 ≠ 160 且 消息 ≠ 512 且 消息 ≠ 32 且 消息 ≠ 127)
调试输出 (到文本 (消息) ＋ “||” ＋ 到文本 (参数1))
如果真 (消息 ＝ 866 或 消息 ＝ 279)
菜单_枚举 (取窗口句柄 (), rt, ri)
调试输出 (“||”, 消息, 参数1, 参数2)
数组_输出 (rt, ri)
计次循环首 (取数组成员数 (ri), i)
如果真 (ri [i] ＝ 参数1)
' 如果真 (是否为调试版 () ＝ 真)
气球提示框1.弹出提示框 (取鼠标水平位置 () ＋ 50, 取鼠标垂直位置 (), 创建文本 (“调试信息 {1} 【i】: {2} 【参数1】: {3} 【参数2】: {4} 【标题】: {5} 【ID】: {6}”, 到文本 (消息), 到文本 (i), 到文本 (参数1), 到文本 (参数2), rt [i], 到文本 (ri [i])), -1, 真)
清除数组 (rt)
清除数组 (ri)
跳出循环 ()

计次循环尾 ()


返回 (CallWindowProcA (默认处理指针, HWND, 消息, 参数1, 参数2))

i支持库列表	支持库注释
spec	特殊功能支持库
iext5	扩展界面支持库五
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 spec<br /> .支持库 iext5<br /> .支持库 e2ee<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 计次1<br /> .程序集变量 HWND, 整数型<br /> .程序集变量 默认处理指针, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> HWND ＝ 取窗口句柄 ()<br /> 默认处理指针 ＝ SetWindowLongA (HWND, -4, 到整数 (&消息回调处理))<br /> <br /> .子程序 消息回调处理, 整数型<br /> .参数 窗口句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> .局部变量 rt, 文本型, , "0"<br /> .局部变量 ri, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 str, 文本型<br /> <br /> .如果真 (消息 ≠ 132 且 消息 ≠ 289 且 消息 ≠ 160 且 消息 ≠ 512 且 消息 ≠ 32 且 消息 ≠ 127)<br />     调试输出 (到文本 (消息) ＋ “||” ＋ 到文本 (参数1))<br />     .如果真 (消息 ＝ 866 或 消息 ＝ 279)<br />         菜单_枚举 (取窗口句柄 (), rt, ri)<br />         调试输出 (“||”, 消息, 参数1, 参数2)<br />         数组_输出 (rt, ri)<br />         .计次循环首 (取数组成员数 (ri), i)<br />             .如果真 (ri <i> ＝ 参数1)<br />                 ' 如果真 (是否为调试版 () ＝ 真)<br />                 气球提示框1.弹出提示框 (取鼠标水平位置 () ＋ 50, 取鼠标垂直位置 (), 创建文本 (“调试信息 {1} 【i】: {2} 【参数1】: {3} 【参数2】: {4} 【标题】: {5} 【ID】: {6}”, 到文本 (消息), 到文本 (i), 到文本 (参数1), 到文本 (参数2), rt <i>, 到文本 (ri <i>)), -1, 真)<br /> <br />                 清除数组 (rt)<br />                 清除数组 (ri)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> <br /> .如果真结束<br /> <br /> 返回 (CallWindowProcA (默认处理指针, HWND, 消息, 参数1, 参数2))

希望给每个菜单 实现个“添加提示”功能，原有的“添加提示”命令在菜单上起不了作用，所以，想到此曲线解决方案。
调试中，点菜单，多次调试验证，回调函数的 参数1 返回值是确定的。但编译后，变了。怎么办？



补充内容 (2024-3-4 09:24):
一最佳，没法跟帖了
有没有不这样曲线的方式，接近原生触发那种
这种有子菜单还是不行

补充内容 (2024-3-4 09:26):
优化请跟帖，https://bbs.125.la/forum.php?mod ... 14813426&extra=

一时隐名

ai2023 发表于 2024-3-3 22:43
287 调试/编译均无提示。win10系统

866 会触发菜单，且 有子菜单时触发不了(经反复实验，此时是279)

287才是正确的 你没提示是没看懂我源码 仔细看我源码 必定有287的消息值的

汉族

多看考一下常量信息  不清楚具体干嘛 如果是操作菜单 274才是正确的 也能用getwindowlenga获取菜单的ID索引

一时隐名

  

如果真 (消息 ＝ 287)
' 气球提示框1.弹出提示框 (0, 0, 到文本 (参数1) ＋ “     ” ＋ 到文本 (参数2), -1, 真)
短整数 ＝ 参数1
' 数组_输出 (rt, ri)
菜单_枚举 (取窗口句柄 (), rt, ri)
计次循环首 (取数组成员数 (ri), i)
如果真 (ri [i] ＝ 短整数)
' 如果真 (是否为调试版 () ＝ 真)
气球提示框1.弹出提示框 (取鼠标水平位置 () ＋ 50, 取鼠标垂直位置 (), 创建文本 (“调试信息 {1} 【i】: {2} 【参数1】: {3} 【参数2】: {4} 【标题】: {5} 【ID】: {6}”, 到文本 (消息), 到文本 (i), 到文本 (参数1), 到文本 (参数2), rt [i], 到文本 (ri [i])), -1, 真)
清除数组 (rt)
清除数组 (ri)
跳出循环 ()

计次循环尾 ()

i支持库列表	支持库注释
iext5	扩展界面支持库五
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 iext5<br /> .支持库 e2ee<br /> <br />     .如果真 (消息 ＝ 287)<br /> <br />         ' 气球提示框1.弹出提示框 (0, 0, 到文本 (参数1) ＋ “     ” ＋ 到文本 (参数2), -1, 真)<br />         短整数 ＝ 参数1<br /> <br />         ' 数组_输出 (rt, ri)<br />         菜单_枚举 (取窗口句柄 (), rt, ri)<br />         .计次循环首 (取数组成员数 (ri), i)<br />             .如果真 (ri <i> ＝ 短整数)<br />                 ' 如果真 (是否为调试版 () ＝ 真)<br />                 气球提示框1.弹出提示框 (取鼠标水平位置 () ＋ 50, 取鼠标垂直位置 (), 创建文本 (“调试信息 {1} 【i】: {2} 【参数1】: {3} 【参数2】: {4} 【标题】: {5} 【ID】: {6}”, 到文本 (消息), 到文本 (i), 到文本 (参数1), 到文本 (参数2), rt <i>, 到文本 (ri <i>)), -1, 真)<br /> <br />                 清除数组 (rt)<br />                 清除数组 (ri)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()

ai2023

一时隐名 发表于 2024-3-3 12:59
[e=0].版本 2
.支持库 iext5
.支持库 e2ee

287 调试/编译均无提示。win10系统

866 会触发菜单，且 有子菜单时触发不了(经反复实验，此时是279)

ai2023

汉族 发表于 2024-3-3 11:40
多看考一下常量信息  不清楚具体干嘛 如果是操作菜单 274才是正确的 也能用getwindowlenga获取菜单的ID索引 ...

是 getwindowlonga 吧，没搜到例子，咋用
想实现的是，给每个菜单加个提示，易语言自带的“添加提示”命令 菜单上好像是用不了，转而求其次，可编译后 却变化了

一时隐名

为什么我不直接用参数1  用了一个短整数型变量接受参数1

ai2023

一时隐名 发表于 2024-3-3 23:24
为什么我不直接用参数1  用了一个短整数型变量接受参数1

把 参数1 赋值给 短整数，跟直接调用 参数1，不是一回事吗？287 866 编译后均无提示，287 调试也没有，参考我截图，你截个图我看看

ai2023

汉族 发表于 2024-3-3 11:40
多看考一下常量信息  不清楚具体干嘛 如果是操作菜单 274才是正确的 也能用getwindowlenga获取菜单的ID索引 ...

老大，能不能给点精币

一时隐名

短整数和整数谁告诉你是一回事的 一回事咋会用短整数这个类型