用VB6编写强力的windows隐藏引擎

　　编程爱好者一定经常见到能够隐藏桌面项目和状态栏等的软件，其中最著名的就是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!