VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之用VB6编写强力的windows隐藏引擎

编程爱好者一定经常见到能够隐藏桌面项目和状态栏等的软件,其中最著名的就是Hide-It。其实我们能够编写一个功能更加强大的即时超级隐藏引擎,它不仅可以隐藏桌面项目、开始按钮、状态栏、时钟栏,而且可以隐藏任何软件的按钮、菜单、工具栏、文本框、状态栏等等,只要是能够看见的独立部分——当然也可以轻松的将它们恢复出来。操作更是方便到了点击“开始隐藏”按钮,然后将鼠标放到需要隐藏的项目上,按下F12键即可——点哪就隐藏哪——这也是我称之为“隐藏引擎”的原因。 

  一、编程原理

  (1)WINDOWS API函数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(用来纪录句柄);两个标签控件用来显示有关提示信息。调整上述控件到适当位置和合适大小,双击窗体,写入以下代码: 

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()
 '恢复所有被隐藏项目
 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
‘模块结束 
 
  本文代码不仅将向编程爱好者展示“隐藏引擎”的魅力,也将让您立刻成为一个后台控制和系统级热键的编程高手。它适用于windows95/98/nt4/me/2000,vb5/6开发平台。

  看到这里,你一定会想到能够将它应用到哪里了吧(譬如加个密码就可以保护你的桌面!)——心动不如行动,DO IT BY YOUSELF!

相关教程