VB 驱动控制类

1. Option Explicit
2. Private Const STANDARD_RIGHTS_REQUIRED = 
3. Private Const SC_MANAGER_CONNECT = 
4. Private Const SC_MANAGER_CREATE_SERVICE = 
5. Private Const SC_MANAGER_ENUMERATE_SERVICE = 
6. Private Const SC_MANAGER_LOCK = 
7. Private Const SC_MANAGER_QUERY_LOCK_STATUS = 
8. Private Const SC_MANAGER_MODIFY_BOOT_CONFIG = 
11. Private Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
12.                                        SC_MANAGER_CONNECT Or _
13.                                        SC_MANAGER_CREATE_SERVICE Or _
14.                                        SC_MANAGER_ENUMERATE_SERVICE Or _
15.                                        SC_MANAGER_LOCK Or _
16.                                        SC_MANAGER_QUERY_LOCK_STATUS Or _
17.                                        SC_MANAGER_MODIFY_BOOT_CONFIG)
19. Private Const SERVICE_KERNEL_DRIVER = 1
21. Private Type SERVICE_STATUS
22.     dwCurrentState   As Long
23.     dwServiceType   As Long
24.     dwControlsAccepted   As Long
25.     dwWin32ExitCode   As Long
26.     dwServiceSpecificExitCode   As Long
27.     dwCheckPoint   As Long
28.     dwWaitHint   As Long
29. End Type
30. Private Const SERVICE_AUTO_START = 2
31. Private Const SERVICE_DEMAND_START = 3
32. Private Const SERVICE_ERROR_NORMAL = 1
34. Private Const SERVICE_CONTROL_STOP = 
35. Private Const SERVICE_CONTROL_PAUSE = 
36. Private Const SERVICE_CONTROL_CONTINUE = 
37. Private Const SERVICE_CONTROL_INTERROGATE = 
38. Private Const SERVICE_CONTROL_SHUTDOWN = 
41. Private Const SERVICE_QUERY_CONFIG = &H1
42. Private Const SERVICE_CHANGE_CONFIG = &H2
43. Private Const SERVICE_QUERY_STATUS = &H4
44. Private Const SERVICE_ENUMERATE_DEPENDENTS = &H8
45. Private Const SERVICE_START = &H10
46. Private Const SERVICE_STOP = &H20
47. Private Const SERVICE_PAUSE_CONTINUE = &H40
48. Private Const SERVICE_INTERROGATE = &H80
49. Private Const SERVICE_USER_DEFINED_CONTROL = &H100
50. Private Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
51.                                     SERVICE_QUERY_CONFIG Or _
52.                                     SERVICE_CHANGE_CONFIG Or _
53.                                     SERVICE_QUERY_STATUS Or _
54.                                     SERVICE_ENUMERATE_DEPENDENTS Or _
55.                                     SERVICE_START Or _
56.