很久不更新了,汇报一下俺研究最新成果NTSVC.OCX【附下载】——让VB也能作为服务启动

并不是每个程序都能作为服务启动的,不信大家可以随便拿一个程序,添加到服务中

服务添加实际上很容易,系统已经给出了一个很简单的命令——sc

让我们来看下WIN7系统下的用法【XP中是英文】:

描述:
        SC 是用于与服务控制管理器和服务进行通信的命令行程序。
用法:
        sc <server> [command] [service name] <option1> <option2>

        选项 <server> 的格式为 "\\ServerName"
        键入 "sc [command]" 可以获得有关命令的进一步帮助
        命令:
          query-----------查询服务的状态,
                          或枚举服务类型的状态。
          queryex---------查询服务的扩展状态,
                          或枚举服务类型的状态。
          start-----------启动服务。
          pause-----------向服务发送 PAUSE 控制请求。
          interrogate-----向服务发送 INTERROGATE 控制请求。
          continue--------向服务发送 CONTINUE 控制请求。
          stop------------向服务发送 STOP 请求。
          config----------更改服务的配置(永久)。
          description-----更改服务的描述。
          failure---------更改服务失败时执行的操作。
          failureflag-----更改服务的失败操作标志。
          sidtype---------更改服务的服务 SID 类型。
          privs-----------更改服务的所需权限。
          qc--------------查询服务的配置信息。
          qdescription----查询服务的描述。
          qfailure--------查询失败时服务执行的操作。
          qfailureflag----查询服务的失败操作标志。
          qsidtype--------查询服务的服务 SID 类型。
          qprivs----------查询服务的所需权限。
          qtriggerinfo----查询服务的触发器参数。
          qpreferrednode--查询首选的服务 NUMA 节点。
          delete----------(从注册表)删除服务。
          create----------创建服务(将其添加到注册表)。
          control---------向服务发送控制。
          sdshow----------显示服务的安全描述符。
          sdset-----------设置服务的安全描述符。
          showsid---------显示相应于假定名称的 SID 字符串。
          triggerinfo-----配置服务的触发器参数。
          preferrednode---设置首选的服务 NUMA 节点。
          GetDisplayName--获取服务的 DisplayName
          GetKeyName------获取服务的 ServiceKeyName。
          EnumDepend------枚举服务的依存关系。

        下列命令不要求服务名称:
        sc <server> <command> <option>
          boot------------(ok | bad) 指示是否将上一次启动保存为
                          最近一次已知的正确启动配置
          Lock------------锁定服务数据库
          QueryLock-------查询 SCManager 数据库的 LockStatus
示例:
        sc start MyService

创建一个服务很简单,命令格式:

sc create 【替换为服务名称,不同于显示名称,具体你在系统的服务管理中就可以看出差别了】 binpath= "【执行文件路径】" start=【初始启动状态,可选boot|system(前面几个都是较为内核的,不管)|auto|demand|disabled|delayed-auto(仅WIN7)】此外还可以加上显示名称displayname= "【显示名称】"

例如创建notepad为系统服务,并开机自动运行

sc create notepad binpath= "c:\windows\system32\notepad.exe" start= auto displayname= "notepad服务"

创建好后,在计算机管理中试图启动它,会出现什么呢?

你会发现,没反应,且在进程列表中已经有了

过了一下,会弹一个框:

内容:没有及时相应启动请求

并且在进程中消失

好了,测试完了,打扫战场,删除服务即可:

sc delete notepad【你可以注意到我用的是服务名称,不是显示名称(显示名称是用作显示的)】

PS:以上种种示例在Vista和Win7都需要管理员权限

可见,普通程序是不能直接加入服务的

从提示框我们可以看出,是因为程序没有应答SCManage的启动。打个比方,我喊你跑了,你听到了并跑了。但是却没有给我说我已经跑了,于是我认为你没有正常的跑,又叫你停下来了

怎么告诉SCManage程序已经启动了呢?C、C++都提供了很多方法,但是VB是以简单著称,最简单的方法就是使用NTSVC.OCX

安装方法:

点此下载NTSVC.OCX

解压到C:\Windows\System32

在cmd下输入regsvr32 NTSVC.OCX,即注册成功

在VB工程菜单中找到部件——找到Microsoft NT Service Control,打上勾

便会发现在左侧工具栏中多了一个齿轮标志:齿轮就是它了

拖到界面上,就可以使用了

使用方法:

先点齿轮在右侧属性写上你的服务的描述和Service name等【不填也可以,如果你想让程序自身就具备自我创建、删除服务的功能,这些必须得填】

由于程序一运行就要回应系统的“召唤”,所以我们需要在Form_Load()代码中加入一句【越快越好^_^】:

NTService1.StartService

这样,按照前面方法增加服务,启动服务,你就会发现进度条一闪就过了

如何让程序自身具备创建服务的功能呢?

很简单,首先你得判断运行你的参数,例如/install /uninstall和没有参数

    If Command = "/install" Then
        NTService1.Interactive = True
        NTService1.Install '【创建服务】

就像这样

没有参数就执行NTService1.StartService就好了

如果想让服务能够接受暂停和继续的命令,就加上一句:

NTService1.ControlsAccepted = svcCtrlPauseContinue

加上后,就意味着要为此写上代码

Private Sub NTService1_Pause(Success As Boolean)

'在此加上暂停后的行为,停止做些什么

Success = True '返回SCM一个成功暂停服务的消息

End Sub

Private Sub NTService1_Start(Success As Boolean)

'在此加上服务接受到继续命令后的行为

Success = True '返回SCM一个使服务继续运行的消息

End Sub

还有就是诸如Private Sub NTService1_Stop(),同理也就可以了

如果要让服务启动后停止,并要告诉SCM,怎么做呢?

Private Sub Form_Load()
NTService1.StartService
'.....
NTService1.StopService
End Sub

此时运行服务,就会提示该服务启动后又停止了,而不是提示进程意外终止

End...

3 个回复 to “很久不更新了,汇报一下俺研究最新成果NTSVC.OCX【附下载】——让VB也能作为服务启动”

  1. 凤翎 Says:

    我是XP系统,按照上面命令创建服务,但是管理中却没有notepad这项服务。命令后面出现help的信息。也没有说执行失败之类的。

    [回复]

    雨宫优子 回复:

    C:\Documents and Settings\Administrator>sc create notepad binpath= "c:\windows\s
    ystem32\notepad.exe" start= auto displayname= "notepad服务"
    [SC] CreateService SUCCESS

    确定没有少复制些啥么?

    [回复]

  2. t6 Says:

    :no :qian :smoke :tanqi :tian :tian

    [回复]

为何不留个言呢?

我要把我的最新文章显示在这!