如何隐藏程序的运行 - 古都网络－破解软件,新闻文章，医疗健康，美女图片，免费电影！图形图像, 注册码,注册机,破解补丁,汉化,免费软件下载,免费杀毒软件下载,下载免费软件,下载软件免费,游戏下载,免费系统软件,修改器,注册版,破解版,免费版,汉化版,破解联盟,注册破解,软件下载.

隐藏一个程序的运行最简单的方法是将窗体的Visible设为False。但是只要用Ctrl+Alt+Del将程序列表呼出就完全露馅了。那么怎样彻底隐藏正在运行的程序呢？其实很简单。
我们知道，后台运行的程序有很多。但是只有一部分出现在程序列表里，多数系统程序并不出现。实际上，被注册成为“服务器”的进程不会出现在程序列表里。
所用API函数：热点网络
Private Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long
这个函数可以获得当前进程一个唯一的标识符。
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
这个函数可以将进程 ID 号为dwProcessID的进程注册或取消注册为“服务器”。
所用常量：
这里的常量也就是dwType的值。
Const RSP_SIMPLE_SERVICE = 1
注册为“服务器”。
Const RSP_UNREGISTER_SERVICE = 0
取消“服务器”注册。
程序：
Public Sub MakeMeService()
Dim pid As Long, reserv As Long
'获取当前进程ID
pid = GetCurrentProcessId()
'注册为服务器
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
Dim pid As Long, reserv As Long
'获取当前进程ID
pid = GetCurrentProcessId()
'取消服务器注册热点网络
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
不过用这种方法也不能保证程序运行时不被查到，如用程序猎手就可以查出来。

软件下载：	网络软件 \| 系统工具 \| 应用软件 \| 联络聊天 \| 图形图像 \| 多媒体类 \| 行业软件 \| 教育管理 \| 游戏娱乐 \| 编程开发 \| 安全类
新闻文章：	新闻时事 \| 美女图片 \| 医疗健康 \| 软件资讯 \| 软件教程 \| 站长赚钱 \| 免费空间 \| 网游资讯 \| 影视资讯 \| ALEXA排名 \| 论坛
	动作片 ┆ 喜剧片 ┆ 爱情片 ┆ 恐怖片 ┆ 科幻片 ┆ 战争片 ┆ 动画片 ┆ 伦理片 ┆ 小电影 ┆ 写真集 ┆ 连续剧