|
編程愛好者一定經(jīng)常見到能夠隱藏桌面項目和狀態(tài)欄等的軟件，其中最著名的就是Hide-It。其實我們能夠編寫一個功能更加強大的即時超級隱藏引擎，它不僅可以隱藏桌面項目、開始按鈕、狀態(tài)欄、時鐘欄，而且可以隱藏任何軟件的按鈕、菜單、工具欄、文本框、狀態(tài)欄等等，只要是能夠看見的獨立部分——當(dāng)然也可以輕松的將它們恢復(fù)出來。操作更是方便到了點擊“開始隱藏”按鈕，然后將鼠標(biāo)放到需要隱藏的項目上，按下F12鍵即可——點哪就隱藏哪——這也是我稱之為“隱藏引擎”的原因。
一、編程原理
�。�1）WINDOWS API函數(shù)ShowWindow可以實現(xiàn)對程序界面（包括WINDOWS9X和其他應(yīng)用軟件）以及子項目的顯示控制，通過調(diào)用相關(guān)消息常數(shù)SW_HIDE = 0（隱藏）和SW_SHOW = 5（顯示）就可以執(zhí)行對指定界面項目的隱藏和重新顯示出來。它所需要的另外一個參數(shù)是被隱藏項目的句柄；
�。�2）GetCursorPos函數(shù)能夠返回當(dāng)前鼠標(biāo)所在位置的屏幕坐標(biāo)，而函數(shù)WindowFromPointXY恰好能夠根據(jù)屏幕坐標(biāo)返回該位置的窗體項目句柄——這正是我們所需要的！
�。�3）為了方便操作，我們需要為它注冊一個系統(tǒng)級工作（激活）熱鍵，我選擇了F12；SetWindowLong、GetWindowLong、CallWindowProc、RegisterHotKey、UnregisterHotKey是五個必須的熱鍵注冊、反注冊函數(shù)；使用它們一定要小心謹(jǐn)慎，否則可能會導(dǎo)致開發(fā)平臺的暫時崩潰，你不得不看到“該程序執(zhí)行了非法操作，即將被關(guān)閉”的警示窗口，而且你的工作成果會立即化為烏有；但是如果你按照本文的編寫方法，保你“一路平安”；
�。�4）為了方便“記憶力”不好的朋友，我們需要一個列表框來顯示已經(jīng)被隱藏的項目的句柄，以便能夠適當(dāng)、必要的提醒。
二、編程實踐
�。�1）啟動vb6，建立一個標(biāo)準(zhǔn)exe工程，添加一個窗體CHINAHIDE，添加四個command控件hideOK對應(yīng)“開始隱藏”、unhide對應(yīng)“恢復(fù)一個”、uNhideall對應(yīng)“全部恢復(fù)”；添加listbox控件list1（用來紀(jì)錄句柄）；兩個標(biāo)簽控件用來顯示有關(guān)提示信息。調(diào)整上述控件到適當(dāng)位置和合適大小，雙擊窗體，寫入以下代碼：
Dim LasthWnd As Integer '被隱藏項目句柄
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()
'恢復(fù)所有被隱藏項目
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()
'當(dāng)"開始隱藏"按鈕被點擊時，將窗口最小化
Me.WindowState = 1
End Sub
Private Sub UNHIDE_Click()
'恢復(fù)一個選定的被隱藏項目
If List1.ListIndex < 0 Then
MsgBox "請首先選擇一個被恢復(fù)的隱藏項目！", vbExclamation
Exit Sub
End If'驗證句柄列表欄目是否已經(jīng)被選中
hideINDEX = List1.ListIndex
LasthWnd = List1.List(hideINDEX)
X = ShowWindow(LasthWnd, SW_SHOW)
'恢復(fù)選定的被隱藏項目
List1.RemoveItem (hideINDEX)
'移除該項目有關(guān)信息
End Sub
Private Sub Form_Unload(Cancel As Integer)
'當(dāng)程序被關(guān)閉時，取消已經(jīng)注冊的熱鍵
SetWindowLong Me.hwnd, GWL_WNDPROC, preWinProc
UnregisterHotKey Me.hwnd, uVirtKey
'取消系統(tǒng)級熱鍵,釋放資源
End'終止程序運行
End Sub
'主窗體代碼結(jié)束
（2）添加一個標(biāo)準(zhǔn)模塊，命名為MOULDLE1，寫入以下代碼：
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'在窗口結(jié)構(gòu)中為指定的窗口設(shè)置信息
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'從指定窗口的結(jié)構(gòu)中取得信息
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
'運行指定的進(jìn)程
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
'向系統(tǒng)注冊一個指定的熱鍵
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal ID As Long) As Long
'取消熱鍵并釋放占用的資源
'上述五個API函數(shù)是注冊系統(tǒng)級熱鍵所必需的，具體實現(xiàn)過程如后文所示
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'本函數(shù)是實現(xiàn)隱藏的核心，參數(shù)HWND既是需要隱藏項目的句柄
'nCmdShow參數(shù)可以決定使隱藏還是顯示
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'本函數(shù)得到當(dāng)前鼠標(biāo)所在位置的屏幕坐標(biāo)
Public Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
'本函數(shù)根據(jù)屏幕坐標(biāo)返回被隱藏項目的句柄
Public Type POINTAPI
X As Long
Y As Long
End Type'鼠標(biāo)坐標(biāo)類型定義
Public Const SW_HIDE = 0'隱藏常數(shù)
Public Const SW_SHOW = 5'顯示常數(shù)
Public Const WM_HOTKEY = &H312
'熱鍵標(biāo)志常數(shù),用來判斷當(dāng)鍵盤按鍵被按下時是否命中了我們設(shè)定的熱鍵
Public Const GWL_WNDPROC = (-4)
Public preWinProc As Long, MyhWnd As Long,uVirtKey As Long
'定義系統(tǒng)的熱鍵,原中斷標(biāo)示,被隱藏的項目句柄
'請緊記下面的熱鍵攔截函數(shù),它將對你將來編寫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'如果攔截到熱鍵標(biāo)志常數(shù)
If wParam = 1 Then
'如果是我們的定義的熱鍵F12...
'為了節(jié)省篇幅，我對熱鍵攔截處理不是非常嚴(yán)密...
hideDONE
'執(zhí)行隱藏鼠標(biāo)所指項目
End If
End If
'如果不是熱鍵,或者不是我們設(shè)置的熱鍵,交還控制權(quán)給
'系統(tǒng),繼續(xù)監(jiān)測熱鍵
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function
Public Sub hideDONE()'最關(guān)鍵的項目隱藏過程
Public Sub hideDONE()
Dim pt32 As POINTAPI
GetCursorPos pt32 ''得到鼠標(biāo)屏幕坐標(biāo)
MyhWnd = WindowFromPointXY(pt32.X, pt32.Y)
''得到所在位置窗體項目句柄
If MyhWnd = Chinahide.hwnd Then Exit Sub
'拒絕隱藏程序自身
Chinahide.List1.AddItem (MyhWnd)
''添加相關(guān)信息
ShowWindow MyhWnd, SW_HIDE
'執(zhí)行隱藏功能
End Sub
‘模塊結(jié)束
本文代碼不僅將向編程愛好者展示“隱藏引擎”的魅力，也將讓您立刻成為一個后臺控制和系統(tǒng)級熱鍵的編程高手。它適用于windows95/98/nt4/me/2000，vb5/6開發(fā)平臺。
看到這里，你一定會想到能夠?qū)⑺鼞?yīng)用到哪里了吧(譬如加個密碼就可以保護你的桌面！)——心動不如行動，DO IT BY YOUSELF!
|
