窗口_屏蔽浏览器右键 不能屏蔽第二个浏览框

呓语丶

窗口_屏蔽浏览器右键  只能屏蔽一个浏览框
我发现问题的程序是浏览框2不能屏蔽    测试程序是浏览框1不能屏蔽

大司命

人家模块是开源的！不要老想着白嫖，发现问题建议自己尝试去修好它，再反馈给项目部去处理，这样既提升自己的编程能力，又能帮助人，何乐而不为呢~

  

子程序名	返回值类型	公开	备 注
窗口_屏蔽浏览器右键	逻辑型		注：只能屏蔽自身程序的浏览器；外部无效；请把该命令放在浏览器"已就绪"事件下；
参数名	类 型	参考	可空	数组	备 注
浏览器句柄	整数型				浏览器句柄
菜单回调子程序	子程序指针				留空为不弹菜单；

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

hWnd ＝ 窗口_取IE浏览框句柄 (浏览器句柄)
如果真 (hWnd ＝ 0)
输出调试文本 (“浏览器句柄无效！”)
返回 (假)
SetPropA (hWnd, “lProc”, 到整数 (菜单回调子程序))
WndProc ＝ SetWindowLongA (hWnd, #GWL_WNDPROC, 到整数 (&浏览器屏蔽右键消息处理))
SetPropA (hWnd, “GWL_WNDPROC”, WndProc)
返回 (真)

子程序名	返回值类型	公开	备 注
浏览器屏蔽右键消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

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

如果真 (Msg ＝ #WM_DESTROY )
RemovePropA (hWnd, “GWL_WNDPROC”)
RemovePropA (hWnd, “lProc”)
判断 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK )
WndProc ＝ GetPropA (hWnd, “lProc”)
返回 (CallWindowProcA (WndProc, 0, 0, 0, 0))
WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)
返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))

子程序名	返回值类型	公开	备 注
窗口_屏蔽编辑框右键	逻辑型		注：只能屏蔽自身程序的编辑框；外部无效；
参数名	类 型	参考	可空	数组	备 注
编辑框句柄	整数型				编辑框句柄
菜单回调子程序	子程序指针				留空为不弹菜单；

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

如果真 (IsWindow (编辑框句柄) ≠ 1)
输出调试文本 (“编辑框句柄无效！”)
返回 (假)
SetPropA (编辑框句柄, “lProc”, 到整数 (菜单回调子程序))
WndProc ＝ SetWindowLongA (编辑框句柄, #GWL_WNDPROC, 到整数 (&编辑框屏蔽右键消息处理))
SetPropA (编辑框句柄, “GWL_WNDPROC”, WndProc)
返回 (真)

子程序名	返回值类型	公开	备 注
编辑框屏蔽右键消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

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

判断 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK )
WndProc ＝ GetPropA (hWnd, “lProc”)
返回 (CallWindowProcA (WndProc, 0, 0, 0, 0))
WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)
返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))

子程序名	返回值类型	公开	备 注
窗口_屏蔽控件右键	逻辑型		屏蔽指定窗口的鼠标右键操作
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				指定窗口句柄

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

如果真 (IsWindow (窗口句柄) ≠ 1)
输出调试文本 (“窗口句柄无效！”)
返回 (假)
WndProc ＝ SetWindowLongA (窗口句柄, #GWL_WNDPROC, 到整数 (&屏蔽控件右键_消息处理))
SetPropA (窗口句柄, “GWL_WNDPROC”, WndProc)
返回 (真)

子程序名	返回值类型	公开	备 注
屏蔽控件右键_消息处理	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

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

判断 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK )
返回 (0)
WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)
返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))

.版本 2<br /> .子程序 窗口_屏蔽浏览器右键, 逻辑型, 公开, 注：只能屏蔽自身程序的浏览器；外部无效；请把该命令放在浏览器"已就绪"事件下；<br /> .参数 浏览器句柄, 整数型, , 浏览器句柄<br /> .参数 菜单回调子程序, 子程序指针, 可空, 留空为不弹菜单；<br /> .局部变量 hWnd, 整数型<br /> .局部变量 WndProc, 整数型<br /> hWnd ＝ 窗口_取IE浏览框句柄 (浏览器句柄)<br /> .如果真 (hWnd ＝ 0)<br />     输出调试文本 (“浏览器句柄无效！”)<br />     返回 (假)<br /> .如果真结束<br /> SetPropA (hWnd, “lProc”, 到整数 (菜单回调子程序))<br /> WndProc ＝ SetWindowLongA (hWnd, #GWL_WNDPROC, 到整数 (&浏览器屏蔽右键消息处理))<br /> SetPropA (hWnd, “GWL_WNDPROC”, WndProc)<br /> 返回 (真)<br /> .子程序 浏览器屏蔽右键消息处理, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 WndProc, 整数型<br /> .如果真 (Msg ＝ #WM_DESTROY)<br />     RemovePropA (hWnd, “GWL_WNDPROC”)<br />     RemovePropA (hWnd, “lProc”)<br /> .如果真结束<br /> .判断开始 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK)<br />     WndProc ＝ GetPropA (hWnd, “lProc”)<br />     返回 (CallWindowProcA (WndProc, 0, 0, 0, 0))<br /> .默认<br />     WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)<br />     返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))<br /> .判断结束<br /> .子程序 窗口_屏蔽编辑框右键, 逻辑型, 公开, 注：只能屏蔽自身程序的编辑框；外部无效；<br /> .参数 编辑框句柄, 整数型, , 编辑框句柄<br /> .参数 菜单回调子程序, 子程序指针, 可空, 留空为不弹菜单；<br /> .局部变量 WndProc, 整数型<br /> .如果真 (IsWindow (编辑框句柄) ≠ 1)<br />     输出调试文本 (“编辑框句柄无效！”)<br />     返回 (假)<br /> .如果真结束<br /> SetPropA (编辑框句柄, “lProc”, 到整数 (菜单回调子程序))<br /> WndProc ＝ SetWindowLongA (编辑框句柄, #GWL_WNDPROC, 到整数 (&编辑框屏蔽右键消息处理))<br /> SetPropA (编辑框句柄, “GWL_WNDPROC”, WndProc)<br /> 返回 (真)<br /> .子程序 编辑框屏蔽右键消息处理, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 WndProc, 整数型<br /> .判断开始 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK)<br />     WndProc ＝ GetPropA (hWnd, “lProc”)<br />     返回 (CallWindowProcA (WndProc, 0, 0, 0, 0))<br /> .默认<br />     WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)<br />     返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))<br /> .判断结束<br /> .子程序 窗口_屏蔽控件右键, 逻辑型, 公开, 屏蔽指定窗口的鼠标右键操作<br /> .参数 窗口句柄, 整数型, , 指定窗口句柄<br /> .局部变量 WndProc, 整数型<br /> .如果真 (IsWindow (窗口句柄) ≠ 1)<br />     输出调试文本 (“窗口句柄无效！”)<br />     返回 (假)<br /> .如果真结束<br /> WndProc ＝ SetWindowLongA (窗口句柄, #GWL_WNDPROC, 到整数 (&屏蔽控件右键_消息处理))<br /> SetPropA (窗口句柄, “GWL_WNDPROC”, WndProc)<br /> 返回 (真)<br /> .子程序 屏蔽控件右键_消息处理, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 WndProc, 整数型<br /> .判断开始 (Msg ＝ #WM_RBUTTONDOWN 或 Msg ＝ #WM_RBUTTONUP 或 Msg ＝ #WM_RBUTTONDBLCLK)<br />     返回 (0)<br /> .默认<br />     WndProc ＝ GetPropA (hWnd, “GWL_WNDPROC”)<br />     返回 (CallWindowProcA (WndProc, hWnd, Msg, wParam, lParam))

@项目部004