让应用程序从Ctrl-Alt-Del下文中消失|雨林木风下载站

导读山东济宁鲁抗医药集团研究所许振华---- 在WIN9X 中，如果你按下Ctrl-Alt-Del，就会看到目前打开的应用程序。现在的一些黑客程 ...

山东济宁鲁抗医药集团研究所  许振华

---- 在WIN9X 中，如果你按下Ctrl-Alt-Del，就会看到目前打开的应用程序。现在的一些黑客程序是从 Ctrl-Alt-Del 列表中看不到的，那么这是如何实现的，想使你的程序也被别人看不到吗？下面告诉是实现的方法。

---- 要实现这一点，需要将你的程序注册为服务器（service），这可以利用RegisterService API 函数将程序的进程ID 进行注册来实现。但程序退出时不要忘记需要使用此API 函数将服务器注册取消。下面以VB 程序举例说明。

---- 在窗体中加入两个按钮，Command1、Command2，在窗体的总体声明部分声明API 函数、需要的常数并编写注册和释放注册的过程：

Private Declare Function GetCurrentProcessId _
      Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess _
      Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess _
      Lib "kernel32" (ByVal dwProcessID As Long, _
      ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Sub MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess
(pid, RSP_SIMPLE_SERVICE)
End Sub

Private Sub UnMakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
End Sub
    双击命令按钮1, 写如下代码：
Private Sub Command1_Click()
Call MakeMeService
End Sub
    双击命令按钮2, 写如下代码：
Private Sub Command2_Click()
Call UnMakeMeService
End Sub

---- 下面就可以运行了，运行此程序，单击按钮1，按下Ctrl-Alt-Del 键，在列表中看到你的程序了吗？再单击按钮2，按下Ctrl-Alt-Del，再看一看发生了什么？
---- 本程序在VB 5.0、WIN98 中调试通过。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:雨林木风下载站 > 网页设计教程 > 详细页面

让应用程序从Ctrl-Alt-Del下文中消失

本类教程下载

系统下载排行