vb创建SvcHost服务,vb6用的NT系统服务操作模块，创建、删除、配置 NT服务的模块

创建系统服务的模块，木马使用的SvcHost服务方式启动， 现在不用，共享一下，拿些积分！ '=======================================================++ ' 函数名称：CreateNormalService ' 函数说明：创建一个标准系统服务 ' 返回数值：4-提供参数不对,2-服务存在,0-创建成功 ' 参数说明：(服务名,映像路径,服务显示名,服务描述) ' 必填参数：(serviceName,serviceImagePath,"","") '=======================================================++ ' 函数名称：CreateSvcHostService ' 函数说明：创建一个SvcHost启动的服务 ' 返回数值：True-成功,False-失败 ' 参数说明：(服务名,DLL路径,SvcHost组名,服务显示名,服务描述) ' 必填参数：(serviceName,serviceDll,scvHostGroup,"","") '=======================================================++ ' 函数名称：ReplaceSvcHostService ' 函数说明：替换一个原来的SvcHost服务 ' 返回数值：True-成功,False-失败 ' 参数说明：(服务名,DLL路径,SvcHost组名) '=======================================================++ ' 函数名称：DeleteTheService ' 函数说明：删除一个服务 ' 参数说明：(服务名,SvcHost服务组名) ' 调用说明：第二个参数一般为空，(删除SvcHost的服务才用) '======================================================= ' 函数名称：Add_SvcHost_serviceName ' 函数说明：在SvcHost服务组里增加一个服务名称 ' 返回数值：返回BOOL,并设置serviceNameIsAlreadyExist(BOOL) ' 参数说明：(SvcHost组名,SvcHost服务名,服务名是否已存在标志) '=======================================================+ ' 函数名称：ControlServiceStatus ' 函数说明：控制服务运行状态 ' 参数说明：(服务名,运行状态) ' 调用说明：第二个参数:"pause","continue","stop"