API 系统问题！

[gqz]

用那条API函数使程序运行起来后不在任务管理器内显示！！

[sworddx]

是个REGISTERSERVICE API，具体声明我帮你找找。

[sworddx]

这是个例子：
　　为了防止运行在客户端的程序被用户发现，可以把窗体隐藏，并调用API函数让其在Ctrl＋Alt＋Del的程序列表中消失，需要把自己的程序注册为服务器（Service），这可以利用RegisterService API函数将程序的进程ID进行注册来实现。在程序退出时再次使用此API函数将服务器注册取消。方法如下：
　　1.在窗体的声明部分声明加入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
　　2.注册为service和释放注册的过程：
　　在Form_Load事件的开始添加如下代码
　　Dim pid As Long
　　Dim reserv As Long
　　pid = GetCurrentProcessId() ′得到当前进程ID
　　regserv = RegisterServiceProcess(pid， RSP_SIMPLE_SERVICE) ′把本程序注册为service
　　把Form_QueryUnload事件修改为如下代码，即在程序结束时把服务器注册取消
　　Private Sub Form_QueryUnload(Cancel As Integer， UnloadMode As Integer)
　　Dim pid As Long
　　Dim reserv As Long
　　Close ＃1
　　pid = GetCurrentProcessId()
　　regserv = RegisterServiceProcess(pid， RSP_UNREGISTER_SERVICE)
　　End Sub
　　如果让程序开机运行，需要先把文件编译为可执行文件放到特定目录下，并修改注册表让其开机便运行，路径是\HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVerson\Run，用API函数在里面写入个字符串型的键值，并把内容修改成为你的文件名(包括路径)即可，当然，更为实用的功能是把访问的网址信息定时传送到服务器，需要用到Winsock控件和定时传输。