编程爱好者一定经常见到能够隐藏桌面项目和状态栏等的软件，其中最著名的就是Hide-It。其实我们能够编写一个功能更加强大的即时超级隐藏引擎，它不仅可以隐藏桌面项目、开始按钮、状态栏、时钟栏，而且可以隐藏任何软件的按钮、菜单、工具栏、文本框、状态栏等等，只要是能够看见的独立部分——当然也可以轻松的将它们恢复出来。操作更是方便到了点击“开始隐藏”按钮，然后将鼠标放到需要隐藏的项目上，按下F12键即可——点哪就隐藏哪——这也是我称之为“隐藏引擎”的原因。
一、编程原理
（1）WINDOWSAPI函数ShowWindow可以实现对程序界面（包括WINDOWS9X和其他应用软件）以及子项目的显示控制，通过调用相关消息常数SW_HIDE=0（隐藏）和SW_SHOW=5（显示）就可以执行对指定界面项目的隐藏和重新显示出来。它所需要的另外一个参数是被隐藏项目的句柄；
（2）GetCursorPos函数能够返回当前鼠标所在位置的屏幕坐标，而函数WindowFromPointXY恰好能够根据屏幕坐标返回该位置的窗体项目句柄——这正是我们所需要的！
（3）为了方便操作，我们需要为它注册一个系统级工作（激活）热键，我选择了F12；SetWindowLong、GetWindowLong、CallWindowProc、RegisterHotKey、UnregisterHotKey是五个必须的热键注册、反注册函数；使用它们一定要小心谨慎，否则可能会导致开发平台的暂时崩溃，你不得不看到“该程序执行了非法操作，即将被关闭”的警示窗口，而且你的工作成果会立即化为乌有；但是如果你按照本文的编写方法，保你“一路平安”；
（4）为了方便“记忆力”不好的朋友，我们需要一个列表框来显示已经被隐藏的项目的句柄，以便能够适当、必要的提醒。
二、编程实践
（1）启动vb6，建立一个标准exe工程，添加一个窗体CHINAHIDE，添加四个command控件hideOK对应“开始隐藏”、unhide对应“恢复一个”、uNhideall对应“全部恢复”；添加listbox控件list1（用来纪录句柄）；两个标签控件用来显示有关提示信息。调整上述控件到适当位置和合适大小，双击窗体，写入以下代码：
DimLasthWndAsInteger'被隐藏项目句柄
PrivateSubForm_Load()
'程序启动时注册功能热键F12
preWinProc=GetWindowLong(Me.hwnd,GWL_WNDPROC)
SetWindowLongMe.hwnd,GWL_WNDPROC,AddressOfWndproc
uVirtKey=vbKeyF12
RegisterHotKeyMe.hwnd,1,Modifiers,uVirtKey
EndSub
PrivateSubuNhideall_Click()
'恢复所有被隐藏项目
Forres=0ToList1.ListCount-1
LasthWnd=List1.List(res)
ShowWindowLasthWnd,SW_SHOW
Nextres
List1.Clear
'清空句柄列表框
EndSub
PublicSubhideOK_Click()
'当"开始隐藏"按钮被点击时，将窗口最小化
Me.WindowState=1
EndSub
PrivateSubUNHIDE_Click()
'恢复一个选定的被隐藏项目
IfList1.ListIndex0Then
MsgBox"请首先选择一个被恢复的隐藏项目！",vbExclamation
ExitSub
EndIf'验证句柄列表栏目是否已经被选中
hideINDEX=List1.ListIndex
LasthWnd=List1.List(hideINDEX)
X=ShowWindow(LasthWnd,SW_SHOW)
'恢复选定的被隐藏项目
List1.RemoveItem(hideINDEX)
'移除该项目有关信息
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'当程序被关闭时，取消已经注册的热键
SetWindowLongMe.hwnd,GWL_WNDPROC,preWinProc
UnregisterHotKeyMe.hwnd,uVirtKey
'取消系统级热键,释放资源
End'终止程序运行
EndSub
'主窗体代码结束
（2）添加一个标准模块，命名为MOULDLE1，写入以下代码：
PublicDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
'在窗口结构中为指定的窗口设置信息
PublicDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLong
'从指定窗口的结构中取得信息
PublicDeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
'运行指定的进程
PublicDeclareFunctionRegisterHotKeyLib"user32"(ByValhwndAsLong,ByValIDAsLong,ByValfsModifiersAsLong,ByValvkAsLong)AsLong
'向系统注册一个指定的热键
PublicDeclareFunctionUnregisterHotKeyLib"user32"(ByValhwndAsLong,ByValIDAsLong)AsLong
'取消热键并释放占用的资源
'上述五个API函数是注册系统级热键所必需的，具体实现过程如后文所示
PublicDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
'本函数是实现隐藏的核心，参数HWND既是需要隐藏项目的句柄
'nCmdShow参数可以决定使隐藏还是显示
PublicDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
'本函数得到当前鼠标所在位置的屏幕坐标
PublicDeclareFunctionWindowFromPointXYLib"user32"Alias"WindowFromPoint"(ByValxPointAsLong,ByValyPointAsLong)AsLong
'本函数根据屏幕坐标返回被隐藏项目的句柄
PublicTypePOINTAPI
XAsLong
YAsLong
EndType'鼠标坐标类型定义
PublicConstSW_HIDE=0'隐藏常数
PublicConstSW_SHOW=5'显示常数
PublicConstWM_HOTKEY=&H312
'热键标志常数,用来判断当键盘按键被按下时是否命中了我们设定的热键
PublicConstGWL_WNDPROC=(-4)
PublicpreWinProcAsLong,MyhWndAsLong,uVirtKeyAsLong
'定义系统的热键,原中断标示,被隐藏的项目句柄
'请紧记下面的热键拦截函数,它将对你将来编写WINDOWS32高级控制程序大有帮助!
PublicFunctionWndproc(ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
'热键拦截过程
IfMsg=WM_HOTKEYThen'如果拦截到热键标志常数
IfwParam=1Then
'如果是我们的定义的热键F12...
'为了节省篇幅，我对热键拦截处理不是非常严密...
hideDONE
'执行隐藏鼠标所指项目
EndIf
EndIf
'如果不是热键,或者不是我们设置的热键,交还控制权给
'系统,继续监测热键
Wndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)
EndFunction
PublicSubhideDONE()'最关键的项目隐藏过程
PublicSubhideDONE()
Dimpt32AsPOINTAPI
GetCursorPospt32''得到鼠标屏幕坐标
MyhWnd=WindowFromPointXY(pt32.X,pt32.Y)
''得到所在位置窗体项目句柄
IfMyhWnd=Chinahide.hwndThenExitSub
'拒绝隐藏程序自身
Chinahide.List1.AddItem(MyhWnd)
''添加相关信息
ShowWindowMyhWnd,SW_HIDE
'执行隐藏功能
EndSub
‘模块结束
本文代码不仅将向编程爱好者展示“隐藏引擎”的魅力，也将让您立刻成为一个后台控制和系统级热键的编程高手。它适用于windows95/98/nt4/me/2000，vb5/6开发平台。
看到这里，你一定会想到能够将它应用到哪里了吧(譬如加个密码就可以保护你的桌面！)——心动不如行动，DOITBYYOUSELF!
->
