7,789
社区成员
发帖
与我相关
我的任务
分享如果拦截Windows开始菜单弹起的消息？？？
用VB，如果拦截 Windows 9X 开始菜单弹起的消息？？？
我想知道具体地是拦截哪个消息？？？包括用鼠标点击和按下Windows快捷键而使开始菜单弹起的消息！
我想知道具体地是拦截哪个消息？？？包括用鼠标点击和按下Windows快捷键而使开始菜单弹起的消息！
...全文
请发表友善的回复…
发表回复
yxgsb 2003-10-10
- 打赏
- 举报
对呀！但是我只想拦截消息，我有我的原因，OK
谢谢各位了，我找到一个VC编的拦截开始菜单的程序，发现是拦截： BN_Click 消息
所以，结帐！
谢谢各位了，我找到一个VC编的拦截开始菜单的程序，发现是拦截： BN_Click 消息
所以，结帐！
射天狼 2003-10-10
- 打赏
- 举报
你模拟整个任务条不就完了,你是想做美萍之类的软件吧~~
yxgsb 2003-10-10
- 打赏
- 举报
? ? ? ? ? ?
yxgsb 2003-10-09
- 打赏
- 举报
对，可以，但但但是
我的程序要求“开始”菜单这个按钮仍然存在，而不是隐藏这个按钮，只不过点击它时，弹出的是自己的菜单，说清楚了在 VB 中就是必须用 Hook 来挂钩!!!拦截开始菜单弹起消息，弹出自己的!!!
我的程序要求“开始”菜单这个按钮仍然存在，而不是隐藏这个按钮，只不过点击它时，弹出的是自己的菜单，说清楚了在 VB 中就是必须用 Hook 来挂钩!!!拦截开始菜单弹起消息，弹出自己的!!!
yunfeng007 2003-10-09
- 打赏
- 举报
你具体想干什么？
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Const SW_SHOW = 5
Const SW_HIDE = 0
'定义窗口以及子窗口的类名
Const sBaseBar = "BaseBar"
Const sTrayWindow = "Shell_TrayWnd"
Const sTrayNotify = "TrayNotifyWnd"
Const sStartButton = "Button"
Const sAppSwitchBar = "ReBarWindow32"
Const sAppSwitch = "MSTaskSwWClass"
Const sAppIcon = "ToolbarWindow32"
Const sTrayClock = "TrayClockWClass"
Const sDesktopIcon = "ShellDll_DefView"
Const sProgman = "Progman"
Dim wnd As Long
wnd = FindWindow(sTrayWindow, vbNullString)'取的任务栏窗口句柄
wnd = FindWindowEx(wnd, 0, sStartButton, vbNullString)'取得开始菜单句柄
ShowWindow wnd, SW_HIDE'将开始菜单隐藏
'-----------------------------------------------------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Const SW_SHOW = 5
Const SW_HIDE = 0
'定义窗口以及子窗口的类名
Const sBaseBar = "BaseBar"
Const sTrayWindow = "Shell_TrayWnd"
Const sTrayNotify = "TrayNotifyWnd"
Const sStartButton = "Button"
Const sAppSwitchBar = "ReBarWindow32"
Const sAppSwitch = "MSTaskSwWClass"
Const sAppIcon = "ToolbarWindow32"
Const sTrayClock = "TrayClockWClass"
Const sDesktopIcon = "ShellDll_DefView"
Const sProgman = "Progman"
Dim wnd As Long
wnd = FindWindow(sTrayWindow, vbNullString)'取的任务栏窗口句柄
wnd = FindWindowEx(wnd, 0, sStartButton, vbNullString)'取得开始菜单句柄
ShowWindow wnd, SW_HIDE'将开始菜单隐藏
'-----------------------------------------------------------------
yxgsb 2003-10-09
- 打赏
- 举报
不会吧，一个人都没有呀？？？
神呀，救救我吧，一把年纪了！
神呀，救救我吧，一把年纪了！
yunfeng007 2003-10-09
- 打赏
- 举报
你按照我的方法将开始菜单隐藏掉，然后用自己的窗口替换不就行了？
yxgsb 2003-10-09
- 打赏
- 举报
楼上的大哥谢谢了!!!! 但，
我的意思是：按下 或 点击 开始菜单 将弹出自己设计的开始菜单？我想吃掉系统原有的消息，我做过试验拦截鼠标消息但点击后原开始菜单还是弹出来了!
我的意思是：按下 或 点击 开始菜单 将弹出自己设计的开始菜单？我想吃掉系统原有的消息，我做过试验拦截鼠标消息但点击后原开始菜单还是弹出来了!
