Private Sub
Form_Load() 注释：程序启动时注册功能热键F12 preWinProc = GetWindowLong(Me.hwnd,
GWL_WNDPROC) SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf
Wndproc uVirtKey = vbKeyF12 RegisterHotKey Me.hwnd, 1, Modifiers,
uVirtKey End Sub
Private Sub
uNhideall_Click() 注释：恢复所有被隐藏项目 For res = 0 To List1.ListCount -
1 LasthWnd = List1.List(res) ShowWindow LasthWnd, SW_SHOW Next
res List1.Clear 注释：清空句柄列表框 End Sub
Public Sub
hideOK_Click() 注释：当"开始隐藏"按钮被点击时，将窗口最小化 Me.WindowState = 1 End
Sub
Private Sub UNHIDE_Click() 注释：恢复一个选定的被隐藏项目 If List1.ListIndex
< 0 Then MsgBox "请首先选择一个被恢复的隐藏项目！", vbExclamation Exit Sub End
If注释：验证句柄列表栏目是否已经被选中 hideINDEX = List1.ListIndex LasthWnd =
List1.List(hideINDEX) X = ShowWindow(LasthWnd,
SW_SHOW) 注释：恢复选定的被隐藏项目 List1.RemoveItem
(hideINDEX) 注释：移除该项目有关信息 End Sub
Private Sub Form_Unload(Cancel As
Integer) 注释：当程序被关闭时，取消已经注册的热键 SetWindowLong Me.hwnd, GWL_WNDPROC,
preWinProc UnregisterHotKey Me.hwnd,
uVirtKey 注释：取消系统级热键,释放资源 End注释：终止程序运行 End
Sub 注释：主窗体代码结束
（2）添加一个标准模块，命名为MOULDLE1，写入以下代码：
Public
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long 注释：在窗口结构中为指定的窗口设置信息
Public Declare Function GetWindowLong Lib
"user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As
Long 注释：从指定窗口的结构中取得信息
Public Declare Function CallWindowProc Lib
"user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As
Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As
Long 注释：运行指定的进程
Public Declare Function RegisterHotKey Lib "user32"
(ByVal hwnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As
Long) As Long 注释：向系统注册一个指定的热键
Public Declare Function UnregisterHotKey
Lib "user32" (ByVal hwnd As Long, ByVal ID As Long) As
Long 注释：取消热键并释放占用的资源 注释：上述五个API函数是注册系统级热键所必需的，具体实现过程如后文所示
Public
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As
Long) As
Long 注释：本函数是实现隐藏的核心，参数HWND既是需要隐藏项目的句柄 注释：nCmdShow参数可以决定使隐藏还是显示
Public
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long 注释：本函数得到当前鼠标所在位置的屏幕坐标
Public Declare Function WindowFromPointXY
Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As
Long) As Long 注释：本函数根据屏幕坐标返回被隐藏项目的句柄
Public Type POINTAPI X As
Long Y As Long End Type注释：鼠标坐标类型定义
Public Const SW_HIDE =
0 注释：隐藏常数 Public Const SW_SHOW = 5 注释：显示常数
Public Const WM_HOTKEY =
&H312 注释：热键标志常数,用来判断当键盘按键被按下时是否命中了我们设定的热键 Public Const GWL_WNDPROC =
(-4)
Public preWinProc As Long, MyhWnd As Long,uVirtKey As
Long 注释：定义系统的热键,原中断标示,被隐藏的项目句柄 注释：请紧记下面的热键拦截函数,它将对你将来编写WINDOWS32高级控制程序大有帮助! Public
Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long,
ByVal lParam As Long) As Long 注释：热键拦截过程 If Msg = WM_HOTKEY
Then注释：如果拦截到热键标志常数 If wParam = 1
Then 注释：如果是我们的定义的热键F12... 注释：为了节省篇幅，我对热键拦截处理不是非常严密... hideDONE 注释：执行隐藏鼠标所指项目 End
If End If 注释：如果不是热键,或者不是我们设置的热键,交还控制权给 注释：系统,继续监测热键 Wndproc =
CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) End
Function
Public Sub hideDONE()注释：最关键的项目隐藏过程 Public Sub
hideDONE() Dim pt32 As POINTAPI GetCursorPos pt32 注释：注释：得到鼠标屏幕坐标 MyhWnd
= WindowFromPointXY(pt32.X, pt32.Y) 注释：注释：得到所在位置窗体项目句柄 If MyhWnd =
Chinahide.hwnd Then Exit Sub 注释：拒绝隐藏程序自身 Chinahide.List1.AddItem
(MyhWnd) 注释：注释：添加相关信息 ShowWindow MyhWnd, SW_HIDE 注释：执行隐藏功能 End
Sub ‘模块结束
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
