开发学院软件开发VB 用VB6编写强力的windows隐藏引擎 阅读

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

 2006-02-27 21:11:54 来源:WEB开发网   
核心提示:用VB6编写强力的windows隐藏引擎编程爱好者一定经常见到能够隐藏桌面项目和状态栏等的软件,其中最著名的就是Hide-It,用VB6编写强力的windows隐藏引擎,其实我们能够编写一个功能更加强大的即时超级隐藏引擎,它不仅可以隐藏桌面项目、开始按钮、状态栏、时钟栏,vb5/6开发平台,看到这里,而且可以隐藏任何软
用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.ListIndex<0Then
  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!

->

Tags:VB 编写 强力

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接