VB 驱动控制类

最新推荐文章于 2021-07-09 11:44:24 发布

chenhui530

最新推荐文章于 2021-07-09 11:44:24 发布

阅读量3.1k

点赞数

CC 4.0 BY-SA版权

文章标签： vb manager service query access file

本文链接：https://blog.youkuaiyun.com/chenhui530/article/details/3311123

这段VB代码提供了一组函数，用于加载、卸载驱动程序以及进行设备I/O控制。通过OpenSCManager、CreateService等API操作服务管理器，实现驱动的启动、停止，并通过DeviceIoControl函数与驱动进行交互。

 
 Option Explicit
Private Const STANDARD_RIGHTS_REQUIRED = 
Private Const SC_MANAGER_CONNECT = 
Private Const SC_MANAGER_CREATE_SERVICE = 
Private Const SC_MANAGER_ENUMERATE_SERVICE = 
Private Const SC_MANAGER_LOCK = 
Private Const SC_MANAGER_QUERY_LOCK_STATUS = 
Private Const SC_MANAGER_MODIFY_BOOT_CONFIG = 
Private 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)
Private Const SERVICE_KERNEL_DRIVER = 1
Private Type SERVICE_STATUS
    dwCurrentState   As Long
    dwServiceType   As Long
    dwControlsAccepted   As Long
    dwWin32ExitCode   As Long
    dwServiceSpecificExitCode   As Long
    dwCheckPoint   As Long
    dwWaitHint   As Long
End Type
Private Const SERVICE_AUTO_START = 2
Private Const SERVICE_DEMAND_START = 3
Private Const SERVICE_ERROR_NORMAL = 1
Private Const SERVICE_CONTROL_STOP = 
Private Const SERVICE_CONTROL_PAUSE = 
Private Const SERVICE_CONTROL_CONTINUE = 
Private Const SERVICE_CONTROL_INTERROGATE = 
Private Const SERVICE_CONTROL_SHUTDOWN = 
Private Const SERVICE_QUERY_CONFIG = &H1
Private Const SERVICE_CHANGE_CONFIG = &H2
Private Const SERVICE_QUERY_STATUS = &H4
Private Const SERVICE_ENUMERATE_DEPENDENTS = &H8
Private Const SERVICE_START = &H10
Private Const SERVICE_STOP = &H20
Private Const SERVICE_PAUSE_CONTINUE = &H40
Private Const SERVICE_INTERROGATE = &H80
Private Const SERVICE_USER_DEFINED_CONTROL = &H100
Private Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
                                    SERVICE_QUERY_CONFIG Or _
                                    SERVICE_CHANGE_CONFIG Or _
            &n