怎么把VB程序做成服务 啊？

[zuing]

怎么把VB程序做成服务 啊？

[chenkangli]

不太清楚你的意思，请说清楚一点。

[zuing]

我现在有一个VB程序，想把它改成服务放在后台运行！

[chenkangli]

添加一个线程来实现

[fense2002]

应该不会太难。

[自由心证]

我有例子代码，包括一个ntsvc.ocx控件，要的给我发邮件。[e-mail]

[yunok]

我有一个作为服务运行的代码的例子，但只能发给您一部分关键代码。请给我发邮件。

[vcar]

声明：
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwYype As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0


Dim pid As Long, regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) '注册为系统服务程序

'Do something.

Dim pid As Long, regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE) '注销系统服务

[现在还是人类]

楼上的仁兄，Win2000你的程序好像就不行啰

[zuing]

哪位大哥帮帮忙。！发一个实例给我看看！[e-mail]

[chenyu5188]

http://www.dapha.net/down/list.asp?id=2035上有源代码下载。