在网上找到了这样的一段代码
Private  Declare Function GetCurrentProcessid Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long)
Const RSP_SIMPLE_SERVICE = 1
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

但一运行就弹出对话 框说 " 实时错误 '453' 找不到DLL入口点GetCurrenProcessid in kernel32"
这是什么问题 怎么解决???

XP下不行

那XP如何实现这样的功能呢???

总之很麻烦……

要是容易的话大家都这么做了对吧？