VB 驱动加载类(直接使用NtLoadDriver加载方式)

这段代码展示了如何使用VB来加载和卸载驱动。通过调用NTDLL.DLL库中的函数,如NtLoadDriver和NtUnloadDriver,以及进行注册表操作,实现了驱动的加载和卸载功能。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

加载驱动需要有加载驱动的权限

使用前先加载“SE_LOAD_DRIVER_PRIVILEGE”权限

 

  1. Option Explicit
  2. Private Const STATUS_IMAGE_ALREADY_LOADED = 
  3. Private Const HKEY_CLASSES_ROOT = 
  4. Private Const HKEY_CURRENT_USER = 
  5. Private Const HKEY_LOCAL_MACHINE = 
  6. Private Const HKEY_USERS = 
  7. Private Const HKEY_PERFORMANCE_DATA = 
  8. Private Const HKEY_CURRENT_CONFIG = 
  9. Private Const HKEY_DYN_DATA = 
  10. Private Const REG_SZ = 1                            ' 字符串值
  11. Private Const REG_EXPAND_SZ = 2                     ' 可扩充字符串值
  12. Private Const REG_BINARY = 3                        ' 二进制值
  13. Private Const REG_DWORD = 4                         ' DWORD值
  14. Private Const REG_MULTI_SZ = 7
  15. Private Const READ_CONTROL = 
  16. Private Const KEY_QUERY_VALUE = 
  17. Private Const KEY_SET_VALUE = 
  18. Private Const KEY_CREATE_SUB_KEY = 
  19. Private Const KEY_ENUMERATE_SUB_KEYS = 
  20. Private Const KEY_NOTIFY = 
  21. Private Const KEY_CREATE_LINK = 
  22. Private Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
  23. Private Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
  24. Private Const KEY_EXECUTE = KEY_READ
  25. Private Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
  26. Private Type UNICODE_STRING
  27.     uLength As Integer
  28.     uMaximumLength As Integer
  29.     pBuffer As Long
  30. End Type
  31. Private Declare Sub RtlInitUnicodeString Lib "ntdll.dll" (DestinationString As Any, ByVal SourceString As Long)
  32. Private Declare Function NtLoadDriver Lib "ntdll.dll" (ByVal DriverServiceName As LongAs Long
  33. Private Declare Function NtUnloadDriver Lib "ntdll.dll" (ByVal DriverServiceName As LongAs Long
  34. Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, _
  35.                                                                                     ByVal lpSubKey As String, _
  36.                                                                                     ByVal Reserved As Long, _
  37.                                                                                     ByVal lpClass As Str
评论 5
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值