普遍的方法是将自身注册为服务，但是在XP。2000下依然看得见。 如何做到怎样也看不见我还不知道，希望哪位大哥知道不吝赐教。



Public Declare Function GetCurrentProcessid Lib "kernel32" （) As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" （ByVal dwProcessID As Long, ByVal dwType As Long)
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Public Sub MakeMeService（)
Dim pid As Long
Dim resery As Long
pid = GetCurrentProcessid（)
regserv = RegisterServiceProcess（pid, RSP_SIMPLE_SERVICE)
End Sub