[非原创]纯VB6实现Windows服务

一直以来,很多人都认为VB天生实现不了很多事情,如标准DLL/安全多线程/控制面板程序,我在实践过程中确认了VB可以实现上述功能,今天,我为大家带来纯VB实现Windows服务。其实,之前已经有人利用微软的ntsvc.ocx实现过,但那是依赖外部组件的。现在介绍不依赖外部组件的方法:

http://www.smsoft.ru/en/ntservice.htm

我改善了一下,可以在Windows事件中根据自定义名称添加事件,并且修正原来的一些问题。

下载:http://www.cnblogs.com/Files/unruledboy/vb6svc06June2004_fixed.zip
创建系统服务的模块,木马使用的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"
评论 5
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值