Question

VB 程序运行时如何在"任务管理器"中彻底隐藏

注意：操作系统是 2000 和 XP

Answer 1

从任务列表中隐藏 按Ctrl+Alt+Del时也不会显示出来

程序说明:

这个程序比较简单,只使用了GetCurrentProcessId 和 RegisterServiceProcess 两个函数就可以达到。

这种方法只能在 Windows98 中运行,在 Windows2000中是不行的

程序代码:

Module1

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

下面代码为隐藏

Public Sub MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId() 注释：取的当前运行的程序Id

regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
对当前的程序传入 RSP_SIMPLE_SERVICE 消息,使此程序
从任务列表中隐藏
End Sub

注释：恢复隐藏
Public Sub UnMakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
原理同上
End Sub

Private Sub Command1_Click()
Call MakeMeService
End Sub

Private Sub Command2_Click()
Call UnMakeMeService
End Sub

Private Sub Form_Load()
Form1.Left = Screen.Width / 2 - Form1.Width / 2
Form1.Top = Screen.Height / 2 - Form1.Height / 2
End Sub

Answer 2

指定的 DLL 函数未找到（错误 453）

在用户库引用中找到动态链接库 (DLL)，但在 DLL 内找不到指定的 DLL 函数。此错误有以下的原因和解决方法：

在函数声明中指定了错误的序号：
检查序号或以名称调用的函数。

所给的 DLL 名称虽正确，但指定的函数的版本并非当前的。
从机器上可得到正确的版本，但如果路径中含有错误版本的目录是在含有正确版本的目录之前的话，就会访问到错误的 DLL。检查机器上不同的版本，如果是较旧的版本，联系供给商以取得较新的版本。

如果在 32-位 Microsoft Windows 平台上工作的话，DLL 名称和别名（如果使用的话）都必须正确。
确保 DLL 名称和别名都正确。

有些 32-位 DLL 包含少量不同版本的函数，以适应 Unicode和 ANSI字符串。函数名称尾端的 "A" 表示是 ANSI 版本。函数名称尾端的 "W" 表示是 Unicode 版本。
如果函数有字符串类型参数，试着在函数名称尾端加上 "A"。

详细信息，可选取有问题的项目，并按下 F1 键。

Answer 3

支持楼上的
我也要记下