如何利用VB编写NT服务程序

一、NT服务程序

所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。象FTP server、HTTP server、脱机打印脊首宽等都是采用NT服务的形式提供的。这实际上类似Unix的root daemon进程。NT服务归纳起来，NT服务又以下几个特征：

1、可以自启动，不需要交互启动。这对于服务器来说是一个重要的特征。当然，你可以决定服务是否自启动，甚至可以屏蔽某个服务。

2、NT服务没有用户界面，基本上类似一个DOS 程序，因为NT服务必须长时间运行，所以不想普通win32进程一样有自己的界面。但是NT服务可以同用户有界面交互，这是一类特殊的服务进程。可以通过NT的任务管理器来看到服务进程。

3、NT服务通过SCM（Services Control Manager）接口来管理，安装、启动、停止、撤除等都需要SCM的接口功能来进行。控制面板的服务控制器就是利用SCM接口来管理系统中的所有服务的。实际上，还有一些可以控制服务的程序或者命令，有net.exe 、服务器管理器等 、SCM.exe等。

4、这些进程都以一定的身份运行，以方便进行服务器资源的存取。一般情况下使用域中的LocalSystem账号运行，此账号对本机上的大多数资源（除非特别禁止）有完全的存取权限，这样可以保证服务程序的“强大”。但是，也有些服务采用特别的账号运行，你也可以特别设定一个服务的帐号。

5、由系统自动以线程方式运行，一般情况下不过多占用系统资源，这同普通的进程有所区别，如果不采用线程方式，一般进程往往消耗整个CPU资源。一般需要时时存在，又不能过多消耗资源的任务以服务来实现最合适。

二、服务樱亮控件

一般认为编写NT服务需要使用C/C++来实现，VC6利用ATL向导来提供一个基本的服务框架。具体实现步骤为:FileàNew…àATL COM AppWizardàserviceàFinish.但是使用VC编写NT服务需要编写太多的代码，这也意味着需要太多的调试、维护。实际上，NT服务不是必须由C/C++才可以编写的，实际上可以由任何能够实现上一节几个特点的任何语言实现，包括VB。

VB编写服务有那些好处呢，至少可以列出以下几条：

1、编码简单，熟悉Vb语法的任何人理解本文后都可编写。

2、意味着修改服务实现的逻辑简单，维护简单。

3、可以利用几乎大多数的Vb中的组件功能，编写一个强大的服务，譬如ado等，如果用VC来实现，相信任何人都会发怵。

4、(牵强一点)可以证明Vb在Bill的天空下是多么强大。

那么，Vb如何实现NT服务编写呢？据我所至，至少有两种途径：

1、 按照C/C++的思路利用WinAPI来实现。

2、 利用组件按照Vb传统方式实现。

如果利用方法1实际上是照搬C/C++的套路，如果有更好的路子可以实现，相信任何人都不会走这条“绝路”，因为相对于其他语言来说这种编程完全丧失了Vb自身得特点同时也没有获得其他语言的任何优势。在这里，想告诉大家的是利用OCX来实现一个服务。如果您在MSDN中搜索Samples/msdn/techart/4920/，您可以看到一个已经编写好的vc5的工程文件。编译这个工程实际上会得到一个ntsvc.ocx的。如果您对C/C++不熟悉，可以从http://www.mywebtech.net/download/ntsvc.zip 下载一个ntsvc.ocx,此OCX是我从backoffice碟中获得的，将其拷贝到/winnt/system32/下，利用regsvr32 ntsvc.ocx命令注册之。这样，您的Vb就可以从project/components…引出的对话框列表中看到名为“Microsoft NT Service Control”项。此组件拥有我们创建一个服务的基本的功能,如果要编写一个NT服务，我们将其拖进我们的窗体，然后设定其属性，调用其与系统、注册表、SCM交互的功能就可以实现完成一个服务了。

我们首先了解这个组件的属性，并向大家解释这些属性的用法：

Account String ,账号属性，即本NT服务在哪一个NT域账号下运行，缺省是LocalSystem账号，芹衫实际上大多数的NT服务都可以在此账号下安全圆满的运行。

ControlsAccepted Long,此服务接受那些SCM控制，为以下值：

0 允许Start 以及 Stop .

2 允许Pause 以及 Continue .

4 允许 shutdown 。

其他值，用户自定义的某些事件.

利用这个属性，您可以自己决定NT服务进程某个（譬如某个不可中断 *** 作）时刻是否允许SCM停止、暂停、启动等 *** 作。

Dependencies String ,如果您编写的服务依赖于某个或者某些服务才能正常运行，您必须在注册服务时指定依赖的服务列表。Dependencies按照依赖顺序以chr(0)来分隔多个服务，最后必须以两个chr(0)结束。（大家可以看到这是一个C/C++的存在痕迹）

DisplayName String,显示名，NT服务以何种名字显示给察看者。

Interactive Boolean ,是否允许有同桌面用户有交互的部分。

LoadOrderGroup String,同Dependencies相关，决定如果本服务启动之前，那些服务必须启动，格式也类似，也以chr(0)分割，连续的两个chr(0)结尾。

Password String,服务启动的口令，如果使用缺省得账号，就没有必要设定服务启动的帐号。

ServiceName String,服务名，如果使用net.exe来控制服务，net.exe的指定那一个服务的参数就是此属性中的字符串。

StartMode 枚举型，具体为：

vcStartAutomatic 2 服务可以自己启动

svcStartManual 3 服务手动启动

svcStartDisabled 4 服务不能自启动

另外有一个Debug属性，不做讨论。

我们要将一个VB程序当作一个NT服务，必须向系统作一些“申请”,而相应的工作VB是无法很好的完成的。所以，NTSVC.ocx提供了相应的方法留作我们想系统传递相关信息。

Install ,将当前Vb程序安装成NT服务，在此之前，您必须至少设置DisplayName, ServiceName, ControlsAccepted以及StartMode等属性。除此之外您可能还要设置Account、Password、LoadOrderGroup、Dependencies等。这些信息的设置正确与否，决定您的服务程序能否正常启动运行。

Uninstall, 将当前NTSVC.ocx指定的服务从系统注册表中删除。NT服务取决于系统服务注册表的设定，这是一个众所周知的秘密。

StartService，将指定的服务启动，如果该服务注册了。

StopService，停止服务，如果服务正在运行。

LogEvent ,记录服务事件。服务运行中，可能发生错误以及意料不到的事件，这些可以通过此方法记录下来，供管理员通过“事件察看器”察看相关的信息，以最优化服务。此方法有三个参数event, id, message. Event指发生的事件类型，可以设为以下值：

svcEventError 1 错误事件

svcEventWarning 2 警告事件.

svcEventInformation 4 提供参考信息.

svcEventAuditSuccess 8 审计成功.

svcEventAuditFailure 10 审计失败

除了以上方法，可能用户还需要读写注册表，此控件还提供了注册表的访问方法：

DeleteSetting (section[, key])

GetAllSettings(section)

GetSetting(section, key[, default])

SaveSetting(section, key, setting).

三、编写服务

了解以上内容，下面我们开始来设计一个服务，通过例子，让大家理解如何在VB中编写服务.

在此之前，我们决定写一个什么样的服务。我参考C++Build中的一个例子，写一个不断报警的服务进程。该进程启动后在后台不断间隔5秒发出Beep叫，这可以让大家更深切知道此服务的存在，虽然有些令人讨厌。服务的名字为VBBeepSVC,在SCM中显示为The VB NT SVC View。

跟着我一起来吧！

1、创建工程，设定相关使用到的控件。

所有的Vb的控件必须有一个Form作为载体，所以，首先我们创建一个标准工程,选择菜单project—>Components…,然后选取（Microsoft NT Service Control）,会在Toolbar中出现NT服务控件。再拖一个Timer控件到Form上。然后保存一下。基本上，创建过程完成。

2、设定控件属性。

选中NtSvc.ocx实例，在属性栏中设定：DisplayName: The VB NT SVC View,ServiceName: VBBeepSVC,StartMode:3(手动启动服务).其他的就缺省吧。

由于我们希望每个5秒就beep一次，所以我们必须依靠一种定时机制来实现，所以我们将timer的Interval设定位5000毫秒。

以上属性的设定视您的需要而定，我只是说在我的VBBeepSVC中如此设定足够了。

3、编写代码，实现服务逻辑以及服务安装、撤除。

因为服务程序实际上是一个Exe文件，并且需要自己解决安装、撤除问题，因此需要在此程序中加入利用NT服务控件来实现安装、撤除问题。那么，应当在什么时候进行了。VB程序启动时正时Form装载的时候，所以，我们需要在窗体的Load事件中加入一些代码：

On Error GoTo Err_Load ‘如果出现错误就纪录以供参考

Dim strDisplayName As String

strDisplayName = NTService1.DisplayName

If Command = "-install" Then ‘当启动时带上 –install的参数时

NTService1.Interactive = True

If NTService1.Install Then

Call NTService1.SaveSetting("Parameters", "TimerInterval", "1000") ‘系统参数存储

MsgBox strDisplayName &" 安装成功！"

Else

MsgBox strDisplayName &" 安装失败"

End If

End ‘终止安装

Else

If Command = "-uninstall" Then ‘如果启动时带上 撤除参数

If NTService1.Uninstall Then

MsgBox strDisplayName &" 撤除成功"

Else

MsgBox strDisplayName &" 撤除失败"

End If

End ‘终止撤除

Else

End If

End If

‘假若不是安装或撤除 *** 作，即为启动服务

Timer1.Interval = CInt(NTService1.GetSetting("Parameters", "TimerInterval", "2000"))

‘使用Timer控件来模拟服务的线程特性

NTService1.ControlsAccepted = svcCtrlPauseContinue ‘接受暂停、停止 *** 作，意味着需要为此编码

NTService1.StartService ‘设置好参数后启动服务

Err_Load:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description) ‘svcMessageError为NT服务控件的错误值

4、添加控制服务的代码。

尽管服务的连续线程等特性是依赖Timer实现的，但是服务的控制却是有SCM接口向每一个服务发出的，表现在VB服务程序中为NT服务控件捕获到相关的事件发生，我们就应当在这些事件中根据具体的情况响应，决定能不能、如何控制服务逻辑。当然，具体的逻辑在Timer事件中表现，但是通过改变NT服务控件和Timer控件均支持的全局变量，可以实现控制服务的逻辑实现。具体代码演示：

Private Sub NTService1_Control(ByVal EventID As Long)

On Error GoTo Err_Control

‘在此加入一些自己的处理逻辑，当然也可以如本例一样空缺

Err_Control:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description) ‘纪录

End Sub

Private Sub NTService1_Pause(Success As Boolean)

On Error GoTo Err_Pause

Timer1.Enabled = False ‘禁止Timer事件，因此也停止了服务的发生

Call NTService1.LogEvent(svcEventError, svcMessageError, "Service paused")

Success = True ‘返回给SCM命令发出者,表示服务成功停止

Err_Pause:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description)

End Sub

Private Sub NTService1_Start(Success As Boolean)

On Error GoTo Err_Start

Success = True

Timer1.Enabled = True ‘允许服务逻辑进行

Err_Start:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description)

End Sub

Private Sub NTService1_Stop()

On Error GoTo Err_Stop

Unload Me ‘撤除Form,自然Timer也不存在，服务逻辑停止了

Err_Stop:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description)

End Sub

5、编写服务逻辑。

具体就是在Timer事件中，根据约定写一些服务细节。本例中就是发出Been，但是考虑到对SCM命令的响应，所以需要编码为：

On Error GoTo Err_Timer

Beep ‘此处即具体的服务细节

Err_Timer:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" &Err.Number &"] " &Err.Description)

End Sub

6、编译安装、测试

如果以上没有什么错误的话，现在可以编译程序了。假设我们得到的服务程序的文件名为：VBBeepSVC.exe,我们需要通过以下命令进行安装：

d:/vbprog/>VBBeepSVC –install

如果需要撤除已经安装的服务，则：

d:/vbprog/>VBBeepSVC –uninstall

安装完后，打开控制面板的“服务”（win2000中在“管理工具”）,好了，看到其中的NT服务列表中包含我们加入的服务，显示为：“The VB NT SVC View”，我们可以类似启动其他任何服务一样启动、停止、暂停此服务。启动服务时，我们会听到服务发出的讨厌的beep声音。我们的测试完成。

四、VB编写服务的几个说明：

1、首先声明：VB编写服务是一种尝试，技术研究，并非提倡所有服务都要用VB写才对头。同理，也说明了服务非VC写不可。

2、VB写的服务仅适合win32服务，不适合NT底层服务。

3、VB的优势在ActiveX控件，NT服务中我们可以使用绝大多数控件来完成我们的服务逻辑，譬如涉及数据库 *** 作，我们可以使用ADO组件，这方面，同VC相比，VB具有天然的优势。

4、做好服务内部的错误事件记载，只有用好这一点，才能够真正符合服务编写规范，也方便我们的除错。

5、最后一点，本文仅供参考，如有错误以及错误引起的后果，本人概不负责.

转载

C#框架设计(第2版)个人认为好一点 作为深受编程人员爱戴和尊敬的编程专家，微软．NET开发团队的顾问，本书作者Jeffrey Richter针对开发各种应用程序(如Web Form、Windows Form和Web服务、Microsoft SQL Server解决方案、控制台应用程序、NT Service)的开发人员，深入揭示了公共语言运行库(CLR)和．NET Framework．，演示了如何将这些知识应用到实际开发。全书分5部分，共24章。第1部分讲述CLR基础，第11部分介绍类型的使用，第III部分说明类型的设计，第Ⅳ部分介绍基本类型，第V部分讲述CLR实用特性。.

通过本书的阅读，读腔态者可以掌握CLR精髓，轻松、高效地创建高性能应用程序。

在经典畅销书《Microsoft .NET框架程序设计》的最新版中，深入剖析了.NET Framework和CLR 2.0的内部机制。Jeffrey是深受爱戴的编程专家，同时也是Microsoft .NET开发团队备圆亮的顾问。本书是他多年开发和咨询经验的结晶，是开发人员开发任何一类应用程序（包括ASP.NET、Windows窗体、Microsoft SQL Server，Web服务和控制台应用程序）的理想参考。

通过本书提供的动手指导和丰富的C#范例代码，开发人员可掌握难解的主题，开发出高性能的应用程序。

本书特色主题：..

· 构建、部署、管理应用程序、组件和共享程序集并对其进行版本控制

· 用常量、字段、构造函数、方法、属性和事件来设计类型

· 高效使用CLR的特殊类型，如枚举器、数组和字符串等

· 声明、创建和使用委托来揭示回调函数

· 用接口和泛仿宽型来定义和部署可重用的算法

· 定义、使用和检测自定义属性

· 使用异常处理来构建健壮、稳定、安全性更强的组件

· 用垃圾收集机制自动管理内存，并使用本地资源

· 应用CLR宿主、应用程序域、程序集加载和反射，构建动态可扩展的应用程序。...

Windows NT 技术简介 NT:New Technoly(新技术，因比DOS、WIN9X采用了很多新技术而得名) 一、Windows NT基本介绍 WindowsNT是Microsoft推出的面向工作站、网络服务器和大型计算机的网络 *** 作系统，也可做PC *** 作系统。它与通信服务紧密集成，提供文件和打印服务，能运行客户机／服务器应用程序，内置了Internet／Intranet功能，已逐渐成为企业组网的标准平台。本文介绍以Windows NT Server 4.0为准。 1.Windows NT的主要特点 ①32位 *** 作系统,多重引导功能，键前可与其它 *** 作系统共存。 ②实现了“抢先式”多任务和多线程 *** 作。 ③采用饥镇SMP（对称多处理）技术，支持多CPU系统。 ④支持CISC（如Intel系统）和RISC（如Power PC、R4400等）多种硬件平台。 ⑤可与各种网络 *** 作系统实现互 *** 作。如：UNIX、Novel Netware、Macintosh等系统；对客户 *** 作系统提供广泛支持，如MS-DOS、Windows、Windows NT Workstation、UINX、OS／2、Macintosh等；支持多种协议：TCP／IP、NetBEUI、DLC、AppleTalk、NWLINK等。 ⑥安全性达到美国国防部的C2标准。 2.Windows NT的两个版本 Windows NT的两个版本分别是Windows NT Workstation 和Windows NT Server 。Windows NT Workstation的设计目标是工作站 *** 作系统，适用于交互式桌面环境；Windows NT Server的设计目标是企业级的网络 *** 作系统，提供容易管理、反应迅速的网络环境。两者在系统结构上完全一样，只是为适应不同应用环境在运行效率上做相应调整。Windows NT Server具有更多的高级功能，可把Windows NT Workstation 看作它的子集。 Windows NT Server Windows NT Workstation 专为服务器进行了优化，硬件 适合个人用户，当工作站上有如 配置要求较高。 CAD／CAM等高级应用要求时选用。 最多支持32个处理器。 可支持2个处理器。 充当网络服务器，可无限制连 充当网络服务器，可以连入不超过 入客户机，完成繁重的网络任务。 10个客户机，完成有限网络服务功能。 可支持多达256个远程客户。 同时只能支持一个远程客户存取。 支持Macintosh文件及打印， 不支持Macintosh文件及打印，不具备 具备磁盘容错功能。 磁盘容错功能。 3.Windows NT引入的新概念 （1）NTFS（Windows NT File System）：Windows NT采用的新型文件系统。可提供安全存取控制及容错能力，在大容量磁盘上，它的效率比FAT高。 （2）共享：对烂亮粗网络资源设置一定的权限许可，没有得到权限许可，就无法访问网络资源。 （3）用户账户（User Account）：要想使用网络资源，必须有用户账户。Windows NT对用户和服务程序，都要求提供合法账户。专为应用程序或服务进程创建的账户即服务账户，在系统启动时，服务进程使用服务账户登录以获得在系统中使用资源的权利和权限。普通用户账户由用户登录时提供，用于Windows NT控制该用户在系统中的权利和权限，与服务账户本质上无区别。 （4）域（Domain）：是Windows NT中数据安全和集中管理的基本单位。网络由域组成，域具有唯一的名称。域可以看作由运行NT的服务器组成的系统，一组电脑共用相同的账户及安全数据库。 （5）工作群组（Workgroup）：一种资源与系统管理皆分散的网络结构。工作群组里，每台电脑之间是对等关系，彼此可以是服务器，也可以当作工作站。 （6）权利（Right）：授权某用户可以在系统上执行某些 *** 作。权利用来保护系统整体。 （7）权限（Permission）：用来保护特定对象。权限规定可以使用某一对象的用户以及用什么方法使用。 （8）安全审核：Windows NT将记录发生在电脑上各项与安全系统相关的过程。 情天一剑 2005-4-19 09:30 其时WIN NT.我没有用过.. 它只有这两个版本么?? NT SEVER 和2003 SEVER有那些区别.. 能说下么?? flashhero 2005-4-21 01:33 拿2000来说吧，分为Professional ,Server 和Advanced Server三个版本。Professional主要面向个人和小型企业，Server版提供更加强大的网络功能，作为服务器 *** 作系统，主要面向企业。其实三个版本的安装文件几乎相同，只是后面的比前面的多一些组件而已。这也是为什么后来的补丁包三个系统可以通用的原因。 flashhero 2005-4-21 01:40 NT Server和2003的区别么，这样说吧，NT类的服务器 *** 作系统的升级历程是NT4，2000,20003 Server，后者是前者的升级版本。详细的区别么，我还真的说不上来，新的 *** 作系统主要引入了一些新的技术，比如活动目录，更新版本的IIS服务器组件，以及更加强大的网络功能和安全性。 还有个WindowsXp，使用了NT的技术，但是更多的是面向家庭用户的一个 *** 作系统。似乎企业级的服务器很少有用这个的。 http://www.qilubbs.com/archiver/?tid-3418.html 参考 百度

---