纯VB真正实现稳定的NT服务
'* ************************************************************** *
'* 程序名称：modNtSrv
'* 程序功能：实现NT服务
'* 作者：lyserver
'* 联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
'服务控制常量
Public Enum SERVICE_CONTROL
SERVICE_CONTROL_STOP = 1&
SERVICE_CONTROL_PAUSE = 2&
SERVICE_CONTROL_CONTINUE = 3&
SERVICE_CONTROL_INTERROGATE = 4&
SERVICE_CONTROL_SHUTDOWN = 5&
End Enum
'服务状态常量
Public Enum SERVICE_STATE
SERVICE_STOPPED = &H1
SERVICE_START_PENDING = &H2
SERVICE_STOP_PENDING = &H3
SERVICE_RUNNING = &H4
SERVICE_CONTINUE_PENDING = &H5
SERVICE_PAUSE_PENDING = &H6
SERVICE_PAUSED = &H7
Delete = &H10000
End Enum
'服务启动方式常量
Public Const SERVICE_SYSTEM_START As Long = &H1
Public Const SERVICE_AUTO_START As Long = &H2
Public Const SERVICE_DEMAND_START As Long = &H3
'服务错误控制级别
Private Const SERVICE_ERROR_NORMAL As Long = &H1
'SCM权限常量
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const SC_MANAGER_CONNECT = &H1
Public Const SC_MANAGER_CREATE_SERVICE = &H2
Public Const SC_MANAGER_ENUMERATE_SERVICE = &H4
Public Const SC_MANAGER_LOCK = &H8
Public Const SC_MANAGER_QUERY_LOCK_STATUS = &H10
Public Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20
Public Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG)
'接受SCP控制消息常量
Public Const SERVICE_ACCEPT_STOP As Long = &H1
Public Const SERVICE_ACCEPT_PAUSE_CONTINUE As Long = &H2
Public Const SERVICE_ACCEPT_SHUTDOWN As Long = &
相关文档：
一、 VB读写EXCEL表：
VB本身提自动化功能可以读写EXCEL表，其方法如下：
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象 ......
没壳,没有Command Button,所有的内容都在Form_Load里。用VBDE查看，Form_Load在00406A90,打开W32dsm，载入Casino轮盘智能机器人，查找00406A90，反汇编代码如下：
Quote:
:00406A90 55 &nb ......
重拾VB之三，二进制文件篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
读取、修改二进制文件仍是大部分编程语言的基本开发技能。可以提高处理文件效率，主要应用在通信、交换数据等方面。
'open filena ......
简单而实用的合并Excel文件的函数，能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里。当然，如果只是数据合并，则使用ADO就可以实现，但如果要保留表格格式，则恐怕只能使用俺的方法了。
一、函数代码：
Option Explicit
'* ********************************************************* ......
有时，为了实现动态更新，我们需要对正处于运行状态的应用程序进行自删除，就像360安全卫士在线升级那样。但是，Windows是不允许删除正处于运行状态的应用程序的，怎么办？一般来说，我们可以使用两个程序来实现，一个专门负责版本检测和删除，一个才是业务需要的主应用程序。能不能将二者合二为一呢？� ......
