关于托盘气泡无法弹出的bug修复

UltrSeven

上一个帖子:https://bbs.125.la/forum.php?mod=viewthread&tid=14749752
上一次让项目部修复了气泡提示反复弹出的bug，虽然修了，但是只修了1个子程序，实际上还有4.5个子程序没有修改导致出现问题，这里附上之前改好的模块源码以及没有上次修复没有改动的代码
原子程序 气泡提示

  

子程序名	返回值类型	公开	备 注
气泡提示	逻辑型
参数名	类 型	参考	可空	数组	备 注
提示标题	文本型				限定64字符以内，超出默认被截断
提示内容	文本型				限定256字符以内，超出默认被截断
提示图标	整数型				0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标
显示时间	整数型				设置气泡提示的时间，单位：毫秒 可空 默认3秒

变量名	类 型	静态	数组	备 注
m_szInfo	文本型
m_szInfoTitle	文本型

集_通知结构.dwInfoFlags ＝ 提示图标
m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))
m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))
lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)
lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)
判断 (显示时间 ＝ 0)
集_通知结构.uTimeoutAndVersion ＝ 3000
集_通知结构.uTimeoutAndVersion ＝ 显示时间
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 气泡提示, 逻辑型, 公开<br /> .参数 提示标题, 文本型, , 限定64字符以内，超出默认被截断<br /> .参数 提示内容, 文本型, , 限定256字符以内，超出默认被截断<br /> .参数 提示图标, 整数型, 可空, 0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标<br /> .参数 显示时间, 整数型, 可空, 设置气泡提示的时间，单位：毫秒 可空 默认3秒<br /> .局部变量 m_szInfo, 文本型<br /> .局部变量 m_szInfoTitle, 文本型<br /> <br /> 集_通知结构.dwInfoFlags ＝ 提示图标<br /> m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))<br /> m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))<br /> lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)<br /> lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)<br /> .判断开始 (显示时间 ＝ 0)<br />     集_通知结构.uTimeoutAndVersion ＝ 3000<br /> .默认<br />     集_通知结构.uTimeoutAndVersion ＝ 显示时间<br /> .判断结束<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

修改后子程序 气泡提示

  

子程序名	返回值类型	公开	备 注
气泡提示	逻辑型
参数名	类 型	参考	可空	数组	备 注
提示标题	文本型				限定64字符以内，超出默认被截断
提示内容	文本型				限定256字符以内，超出默认被截断
提示图标	整数型				0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标
显示时间	整数型				设置气泡提示的时间，单位：毫秒 可空 默认3秒

变量名	类 型	静态	数组	备 注
m_szInfo	文本型
m_szInfoTitle	文本型

集_通知结构.dwInfoFlags ＝ 提示图标
m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))
m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))
lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)
lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)
判断 (显示时间 ＝ 0)
集_通知结构.uTimeoutAndVersion ＝ 3000
集_通知结构.uTimeoutAndVersion ＝ 显示时间
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 气泡提示, 逻辑型, 公开<br /> .参数 提示标题, 文本型, , 限定64字符以内，超出默认被截断<br /> .参数 提示内容, 文本型, , 限定256字符以内，超出默认被截断<br /> .参数 提示图标, 整数型, 可空, 0.托盘图标_无图标,1.托盘图标_信息图标,2.托盘图标_警告图标,3.托盘图标_错误图标<br /> .参数 显示时间, 整数型, 可空, 设置气泡提示的时间，单位：毫秒 可空 默认3秒<br /> .局部变量 m_szInfo, 文本型<br /> .局部变量 m_szInfoTitle, 文本型<br /> <br /> 集_通知结构.dwInfoFlags ＝ 提示图标<br /> m_szInfoTitle ＝ 选择 (取文本长度 (提示标题) ≤ 64, 提示标题, 取文本左边 (提示标题, 64))<br /> m_szInfo ＝ 选择 (取文本长度 (提示内容) ＜ 256, 提示内容, 取文本左边 (提示内容, 256))<br /> lstrcpy_bytes (集_通知结构.szInfoTitle, m_szInfoTitle)<br /> lstrcpy_bytes (集_通知结构.szInfo, m_szInfo)<br /> .判断开始 (显示时间 ＝ 0)<br />     集_通知结构.uTimeoutAndVersion ＝ 3000<br /> .默认<br />     集_通知结构.uTimeoutAndVersion ＝ 显示时间<br /> .判断结束<br /> 集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE)<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

原子程序 置图标数据

  

子程序名	返回值类型	公开	备 注
置图标数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
提示信息	文本型				限定128字符以内，超出默认被截断

变量名	类 型	静态	数组	备 注
m_szTip	文本型

m_szTip ＝ 选择 (取文本长度 (提示信息) ＜ 128, 提示信息, 取文本左边 (提示信息, 128))
lstrcpy_bytes (集_通知结构.szTip, m_szTip)
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 置图标数据, 逻辑型, 公开<br /> .参数 提示信息, 文本型, , 限定128字符以内，超出默认被截断<br /> .局部变量 m_szTip, 文本型<br /> <br /> m_szTip ＝ 选择 (取文本长度 (提示信息) ＜ 128, 提示信息, 取文本左边 (提示信息, 128))<br /> lstrcpy_bytes (集_通知结构.szTip, m_szTip)<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

修改后子程序 置图标数据

  

子程序名	返回值类型	公开	备 注
置提示信息	逻辑型
参数名	类 型	参考	可空	数组	备 注
提示信息	文本型				限定128字符以内，超出默认被截断

变量名	类 型	静态	数组	备 注
m_szTip	文本型

m_szTip ＝ 选择 (取文本长度 (提示信息) ＜ 128, 提示信息, 取文本左边 (提示信息, 128))
lstrcpy_bytes (集_通知结构.szTip, m_szTip)
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_MESSAGE )
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 置提示信息, 逻辑型, 公开<br /> .参数 提示信息, 文本型, , 限定128字符以内，超出默认被截断<br /> .局部变量 m_szTip, 文本型<br /> <br /> m_szTip ＝ 选择 (取文本长度 (提示信息) ＜ 128, 提示信息, 取文本左边 (提示信息, 128))<br /> lstrcpy_bytes (集_通知结构.szTip, m_szTip)<br /> 集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_MESSAGE)<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

原子程序 置图标数据

  

子程序名	返回值类型	公开	备 注
置图标数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
图标数据	字节集

变量名	类 型	静态	数组	备 注
hIcon	整数型

hIcon ＝ 取图标句柄 (图标数据, 0)
如果真 (hIcon ＝ 0)
返回 (假)
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE )
集_通知结构.hIcon ＝ hIcon
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 置图标数据, 逻辑型, 公开<br /> .参数 图标数据, 字节集<br /> .局部变量 hIcon, 整数型<br /> <br /> hIcon ＝ 取图标句柄 (图标数据, 0)<br /> .如果真 (hIcon ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_INFO, #NIF_MESSAGE)<br /> 集_通知结构.hIcon ＝ hIcon<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

修改后子程序 置图标数据

  

子程序名	返回值类型	公开	备 注
置图标数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
图标数据	字节集

变量名	类 型	静态	数组	备 注
hIcon	整数型

hIcon ＝ 取图标句柄 (图标数据, 0)
如果真 (hIcon ＝ 0)
返回 (假)
集_通知结构.hIcon ＝ hIcon
集_通知结构.uFlags ＝ 位或 ( #NIF_ICON, #NIF_TIP, #NIF_MESSAGE )
返回 (Shell_NotifyIcon ( #NIM_MODIFY, 集_通知结构))

.版本 2<br /> <br /> .子程序 置图标数据, 逻辑型, 公开<br /> .参数 图标数据, 字节集<br /> .局部变量 hIcon, 整数型<br /> <br /> hIcon ＝ 取图标句柄 (图标数据, 0)<br /> .如果真 (hIcon ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 集_通知结构.hIcon ＝ hIcon<br /> 集_通知结构.uFlags ＝ 位或 (#NIF_ICON, #NIF_TIP, #NIF_MESSAGE)<br /> 返回 (Shell_NotifyIcon (#NIM_MODIFY, 集_通知结构))

原子程序 挂接事件

  

子程序名	返回值类型	公开	备 注
挂接事件			当托盘图标创建成功后可建立挂接事件。
参数名	类 型	参考	可空	数组	备 注
执行事件	子程序指针				当用户用鼠标单击或双击本“托盘图标”后调用的子程序，该子程序应该有一个参数，传递事件类型，请参考“托盘事件_”开头的常量

如果真 (IsWindow (集_窗口句柄) ＝ 1)
集_回调指针 ＝ SetWindowLongA (集_窗口句柄, -4, 到整数 (&托盘消息回调))
SetPropA (集_窗口句柄, “WinProc”, 集_回调指针)
SetPropA (集_窗口句柄, “CallbackMessage”, 集_通知结构.uCallbackMessage)
SetPropA (集_窗口句柄, “TaskbarCreatedMessage”, 集_重建句柄)
如果真 (是否为空 (执行事件) ＝ 假)
SetPropA (集_窗口句柄, “Exec Event”, 到整数 (执行事件))

.版本 2<br /> <br /> .子程序 挂接事件, , 公开, 当托盘图标创建成功后可建立挂接事件。<br /> .参数 执行事件, 子程序指针, 可空, 当用户用鼠标单击或双击本“托盘图标”后调用的子程序，该子程序应该有一个参数，传递事件类型，请参考“托盘事件_”开头的常量<br /> <br /> .如果真 (IsWindow (集_窗口句柄) ＝ 1)<br />     集_回调指针 ＝ SetWindowLongA (集_窗口句柄, -4, 到整数 (&托盘消息回调))<br />     SetPropA (集_窗口句柄, “WinProc”, 集_回调指针)<br />     SetPropA (集_窗口句柄, “CallbackMessage”, 集_通知结构.uCallbackMessage)<br />     SetPropA (集_窗口句柄, “TaskbarCreatedMessage”, 集_重建句柄)<br />     .如果真 (是否为空 (执行事件) ＝ 假)<br />         SetPropA (集_窗口句柄, “Exec Event”, 到整数 (执行事件))<br />     .如果真结束

  

修改后子程序 挂接事件

子程序名	返回值类型	公开	备 注
挂接事件			当托盘图标创建成功后可建立挂接事件。
参数名	类 型	参考	可空	数组	备 注
执行事件	子程序指针				当用户用鼠标单击或双击本“托盘图标”后调用的子程序，该子程序应该有一个参数，传递事件类型，请参考“托盘事件_”开头的常量

如果真 (IsWindow (集_窗口句柄) ＝ 1)
集_回调指针 ＝ SetWindowLongA (集_窗口句柄, -4, 到整数 (&托盘消息回调))
SetPropA (集_窗口句柄, “WinProc”, 集_回调指针)
SetPropA (集_窗口句柄, “TaskbarCallbackMessage”, 集_通知结构.uCallbackMessage)
SetPropA (集_窗口句柄, “TaskbarCreatedMessage”, 集_重建句柄)
如果真 (是否为空 (执行事件) ＝ 假)
SetPropA (集_窗口句柄, “Exec Event”, 到整数 (执行事件))

返回 ()

修改后子程序 挂接事件<br /> .版本 2<br /> <br /> .子程序 挂接事件, , 公开, 当托盘图标创建成功后可建立挂接事件。<br /> .参数 执行事件, 子程序指针, 可空, 当用户用鼠标单击或双击本“托盘图标”后调用的子程序，该子程序应该有一个参数，传递事件类型，请参考“托盘事件_”开头的常量<br /> <br /> .如果真 (IsWindow (集_窗口句柄) ＝ 1)<br />     集_回调指针 ＝ SetWindowLongA (集_窗口句柄, -4, 到整数 (&托盘消息回调))<br />     SetPropA (集_窗口句柄, “WinProc”, 集_回调指针)<br />     SetPropA (集_窗口句柄, “TaskbarCallbackMessage”, 集_通知结构.uCallbackMessage)<br />     SetPropA (集_窗口句柄, “TaskbarCreatedMessage”, 集_重建句柄)<br />     .如果真 (是否为空 (执行事件) ＝ 假)<br />         SetPropA (集_窗口句柄, “Exec Event”, 到整数 (执行事件))<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 ()

以及修改后的 托盘消息回调 子程序

  

子程序名	返回值类型	公开	备 注
托盘消息回调	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd
uMsg
wParam
lParam

变量名	类 型	静态	数组	备 注
pointer
Message
TaskbarCreated
Event

pointer ＝ GetPropA (hwnd, “WinProc”)
Message ＝ GetPropA (hwnd, “TaskbarCallbackMessage”)
TaskbarCreated ＝ GetPropA (hwnd, “TaskbarCreatedMessage”)
Event ＝ GetPropA (hwnd, “Exec Event”)
判断 (uMsg ＝ Message)
如果真 (Event ≠ 0)
程序_Call (Event, lParam)
返回 (0)

判断 (uMsg ＝ TaskbarCreated)
如果真 (Event ≠ 0)
程序_Call (Event, 1120)
返回 (0)

判断 (uMsg ＝ 2)
如果真 (Event ≠ 0)
程序_Call (Event, 1130)



返回 (CallWindowProcA (pointer, hwnd, uMsg, wParam, lParam))

.版本 2<br /> <br /> .子程序 托盘消息回调, 整数型<br /> .参数 hwnd<br /> .参数 uMsg<br /> .参数 wParam<br /> .参数 lParam<br /> .局部变量 pointer<br /> .局部变量 Message<br /> .局部变量 TaskbarCreated<br /> .局部变量 Event<br /> <br /> pointer ＝ GetPropA (hwnd, “WinProc”)<br /> Message ＝ GetPropA (hwnd, “TaskbarCallbackMessage”)<br /> TaskbarCreated ＝ GetPropA (hwnd, “TaskbarCreatedMessage”)<br /> Event ＝ GetPropA (hwnd, “Exec Event”)<br /> .判断开始 (uMsg ＝ Message)<br />     .如果真 (Event ≠ 0)<br />         程序_Call (Event, lParam)<br />         返回 (0)<br />     .如果真结束<br /> <br /> .判断 (uMsg ＝ TaskbarCreated)<br />     .如果真 (Event ≠ 0)<br />         程序_Call (Event, 1120)<br />         返回 (0)<br />     .如果真结束<br /> <br /> .判断 (uMsg ＝ 2)<br />     .如果真 (Event ≠ 0)<br />         程序_Call (Event, 1130)<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (CallWindowProcA (pointer, hwnd, uMsg, wParam, lParam))

麻跨胖虎

        yyds 此处应该有鼓励~

sostemp

这个第二版也有问题，会导致自定义托盘菜单（ CreateMenu ()）无法弹出。用5.3.7一切正常。

webyezi

win10    无法弹出

Mr.Yang

你的源码里面 托盘消息回调 好像也漏改了.

Message ＝ GetPropA (hwnd, “CallbackMessage”)
↓
Message ＝ GetPropA (hwnd, “TaskbarCallbackMessage”)

prospect

win10下面还是有问题。挂载事件无效了。气泡也没弹出来。

UltrSeven

prospect 发表于 2022-11-10 19:45
这个下面的源码是修复好的？

对的，上个版本的模块修的

prospect

这个下面的源码是修复好的？

妖艳的花

点赞

huxian

这么多哪个是修改好的啊