|
|
<p>'--------安装卸载系统服务-------- </p>
<p> </p>
<p>'作者:家新de粽子 </p>
<p>'日期:2009-10-25 </p>
<p> </p>
<p>'--------调用方法-------- </p>
<p> </p>
<p>'Dim Service_Value As New Service_Class </p>
<p> </p>
<p>'With Service_Value </p>
<p>' .Name = "Home New" </p>
<p>' .Account = "LocalSystem" </p>
<p>' .Description = "Home New" </p>
<p>' .DisplayName = "Home New" </p>
<p>' .Command = "D:\APP.exe" </p>
<p>' .Interact = SERVICE_INTERACT_WITH_DESKTOP </p>
<p>' .StartType = SERVICE_DEMAND_START </p>
<p>'End With </p>
<p> </p>
<p>'Call Service_Value.SetupNTService </p>
<p> </p>
<p>'安装服务 </p>
<p>'SetupNTService </p>
<p>'开始服务 </p>
<p>'StartNTService </p>
<p>'停止服务 </p>
<p>'StopNTService </p>
<p>'卸载服务 </p>
<p>'DeleteNTService </p>
<p>'检测服务是否安装 </p>
<p>'GetServiceConfig </p>
<p>'当前服务状态 </p>
<p>'GetServiceStatus </p>
<p> </p>
<p>'--------调用方法--------</p>
<p> </p>
<p>
BqmstKNH.cls
(11 KB, 下载次数: 22676)
<br/></p> |
|
发表于 2009-10-25 20:07:01
发表于 2009-10-25 20:30:18
