VB 注册表操作模块 代码

最新推荐文章于 2023-01-06 21:14:59 发布
原创 最新推荐文章于 2023-01-06 21:14:59 发布 · 1.7k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vb #string #function #descriptor #attributes #buffer

这个模块提供了创建、删除、查询注册表键值的功能，包括RegCreateKey, RegDeleteKey, RegQueryValue等函数，适用于VB开发者进行注册表操作。" 109460657,9783028,Shell Here Document与Expect详解：自动化交互流程,"['shell', 'linux', 'expect', '免交互']
Attribute VB_Name  =   " Reg_Operation "
' 这是一个操作注册表的Bas文件,其中包含可以建立新键值,删除键值,查询键值的函数.Powered by barenx
 Option   Explicit
Option  Base  0
Public   Declare   Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Public Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hkey As Long, phkResult As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hkey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hkey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hkey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Public Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hkey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hkey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
Public Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Public Declare Function RegGetKeySecurity Lib "advapi32.dll" (ByVal hkey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long
Public Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long
Public Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" (ByVal hkey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hkey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long
Public Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hkey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long
Public Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hkey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Public Declare Function RegSetKeySecurity Lib "advapi32.dll" (ByVal hkey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hkey As Long, ByVal lpSubKey As String) As Long
Public Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Public Type SECURITY_ATTRIBUTES
        nLength As Long
        bInheritHandle As Long
        lpSecurityDescriptor As Long
End Type

Public Type ACL
        AclRevision As Byte
        AceCount As Integer
        Sbz2 As Integer
        AclSize As Integer
        Sbz1 As Byte
End Type

Public Type SECURITY_DESCRIPTOR
        Revision As Byte
        Sacl As ACL
        Dacl As ACL
        Owner As Long
        Group As Long
        Control As Long
        Sbz1 As Byte
End Type
Public Const REG_BINARY = 3
Public Const REG_CREATED_NEW_KEY = &H1
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_DWORD_LITTLE_ENDIAN = 4
Public Const REG_EXPAND_SZ = 2
Public Const REG_FORCE_RESTORE = (&H8)
Public Const REG_FULL_RESOURCE_DESCRIPTOR = 9
Public Const REG_KEY_INSTDEV = ("Installed")
Public Const REG_LINK = 6
Public Const REG_NONE = 0
Public Const REG_MULTI_SZ = 7
Public Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Public Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Public Const REG_NOTIFY_CHANGE_NAME = &H1
Public Const REG_NOTIFY_CHANGE_SECURITY = &H8
Public Const REG_NO_LAZY_FLUSH = &H4
Public Const REG_OPENED_EXISTING_KEY = &H2
Public Const REG_OPTION_BACKUP_RESTORE = 4
Public Const REG_OPTION_CREATE_LINK = 2
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const REG_OPTION_OPEN_LINK = &H8
Public Const REG_OPTION_RESERVED = 0
Public Const REG_OPTION_VOLATILE = 1
Public Const REG_QWORD = 11
Public Const REG_QWORD_LITTLE_ENDIAN = 11
Public Const REG_REFRESH_HIVE = &H2
Public Const REG_RESOURCE_LIST = 8
Public Const REG_RESOURCE_REQUIREMENTS_LIST = 10
Public Const REG_RESTORE_LOG_KEY = "RegRestoreLogFile"
Public Const MORE_ROWS = -1
Public Const REG_ROW = MORE_ROWS
Public Const REG_SAVE_LOG_KEY = "RegSaveLogFile"
Public Const REG_SZ = 1
Public Const REG_WHOLE_HIVE_VOLATILE = &H1
Public Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)
Public Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME Or REG_NOTIFY_CHANGE_ATTRIBUTES Or REG_NOTIFY_CHANGE_LAST_SET Or REG_NOTIFY_CHANGE_SECURITY)

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_USERS = &H80000003

Public Const ERROR_SUCCESS = 0&
Public Const ERROR_NONE = 0
Public Const ERROR_BADDB = 1
Public Const ERROR_BADKEY = 2
Public Const ERROR_CANTOPEN = 3
Public Const ERROR_CANTREAD = 4
Public Const ERROR_CANTWRITE = 5
Public Const ERROR_OUTOFMEMORY = 6
Public Const ERROR_INVALID_PARAMETER = 7
Public Const ERROR_ACCESS_DENIED = 8
Public Const ERROR_INVALID_PARAMETERS = 87
Public Const ERROR_NO_MORE_ITEMS = 259&

Public Const BUFFER_SIZE As Long = 255

Public Const READ_CONTROL = &H20000
Public Const SYNCHRONIZE = &H100000

Public Const STANDARD_RIGHTS_ALL = &H1F0000
Public Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL)
Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)

Public Const KEY_CREATE_LINK = &H20
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_EVENT = &H1
Public Const KEY_LENGTH_MASK = &HFFFF0000
Public Const KEY_NOTIFY = &H10
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Public Const KEY_EXECUTE = (KEY_READ)
Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

'*************************************************************************************

Public Function RegDelAllSubVal(ByVal hKeyR As Long, ByVal mKey As String, Optional ByVal Flush As Boolean = False) As Boolean
  On Error Resume Next
  Dim hkey As Long, Cnt As Long
  Dim sName As String, Ret As Long: sName = Space(BUFFER_SIZE)
  Dim sData(BUFFER_SIZE) As Byte, RetData As Long
  Dim NameSpace() As String: ReDim NameSpace(1)
  
  If RegOpenKeyEx(ByVal hKeyR, ByVal mKey, ByVal 0&, KEY_ALL_ACCESS, hkey) = ERROR_SUCCESS Then
    Cnt = 0: Ret = BUFFER_SIZE: RetData = BUFFER_SIZE
    If RegEnumValue(hkey, Cnt, sName, Ret, ByVal 0&, ByVal 0&, sData(0), RetData) <> ERROR_NO_MORE_ITEMS Then
      Do
        ReDim Preserve NameSpace(Cnt)
        NameSpace(Cnt) = Left$(sName, Ret)
        Cnt = Cnt + 1: Ret = BUFFER_SIZE: RetData = BUFFER_SIZE
      Loop While RegEnumValue(hkey, Cnt, sName, Ret, ByVal 0&, ByVal 0&, sData(0), RetData) <> ERROR_NO_MORE_ITEMS
    
      For Cnt = 0 To UBound(NameSpace)
        Call RegDeleteValue(ByVal hkey, NameSpace(Cnt))
      Next Cnt
    End If
    Cnt = 0:  Ret = BUFFER_SIZE:  RetData = BUFFER_SIZE
    RegDelAllSubVal = (RegEnumValue(hkey, Cnt, sName, Ret, ByVal 0&, ByVal 0&, sData(0), RetData) = ERROR_NO_MORE_ITEMS)
    If Flush Then RegFlushKey hkey
    RegCloseKey hkey
  Else
    RegDelAllSubVal = False
  End If
End Function

Public Function RegDelAllSubKey(ByVal hKeyRoot As Long, ByVal mKey1 As String, Optional ByVal Flush As Boolean = False) As Boolean ', mKey2 As String
  On Error Resume Next
  Dim hkey As Long, Ret As Long, Cnt As Long
  Dim i As Long, t As FILETIME
  Dim sName As String: sName = Space(BUFFER_SIZE)
  Dim NameSpace() As String: ReDim NameSpace(1)
  Call RegDelAllSubVal(ByVal hKeyRoot, ByVal mKey1, False)
  If RegOpenKeyEx(ByVal hKeyRoot, ByVal mKey1, ByVal 0&, KEY_ALL_ACCESS, hkey) = ERROR_SUCCESS Then
    RegDelAllSubKey = True: Cnt = 0: Ret = BUFFER_SIZE
    If RegEnumKeyEx(hkey, Cnt, sName, Ret, ByVal 0&, vbNullString, i, t) <> ERROR_NO_MORE_ITEMS Then
      Do
        ReDim Preserve NameSpace(Cnt)
        NameSpace(Cnt) = Left$(sName, Ret)
        Cnt = Cnt + 1: Ret = BUFFER_SIZE
      Loop While RegEnumKeyEx(hkey, Cnt, sName, Ret, ByVal 0&, vbNullString, i, t) <> ERROR_NO_MORE_ITEMS
      
      For Cnt = LBound(NameSpace) To UBound(NameSpace)
        Call RegDelAllSubKey(ByVal hKeyRoot, ByVal mKey1 & "" & NameSpace(Cnt))
      Next Cnt
    End If
    RegDelAllSubKey = (RegDeleteKey(ByVal hKeyRoot, ByVal mKey1) = ERROR_SUCCESS)
    If Flush Then RegFlushKey hkey
    RegCloseKey hkey
  Else
    RegDelAllSubKey = False
  End If
End Function

Public Function RegDelSingleValue(ByVal mKeyRoot As Long, ByVal sKeyName As String, ByVal sValueName As String) As Long
  On Error Resume Next
  Dim hkey As Long
  If RegOpenKeyEx(mKeyRoot, ByVal sKeyName, ByVal 0&, KEY_ALL_ACCESS, hkey) = ERROR_SUCCESS Then
    RegDelSingleValue = RegDeleteValue(hkey, ByVal sValueName)
    Call RegCloseKey(hkey)
  Else
    RegDelSingleValue = ERROR_CANTOPEN
  End If
End Function

Public Function RegSetSingleValue(ByVal mKeyRoot As Long, ByVal sKeyName As String, ByVal sValueName As String, ByVal sValueType As Long, ByVal sValue As String) As Long
  On Error Resume Next
  Dim hkey As Long
  If RegCreateKey(mKeyRoot, sKeyName, hkey) = ERROR_SUCCESS Then
    RegSetSingleValue = RegSetValueEx(hkey, ByVal sValueName, ByVal 0&, ByVal sValueType, ByVal sValue, ByVal Len(sValue))
    Call RegCloseKey(hkey)
  Else
    RegSetSingleValue = ERROR_CANTOPEN
  End If
End Function
 
VB 利用API创建窗体的模块代码
barenx的专栏
03-29 6671
Public Declare Function RegisterClass()Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class AsClass As WNDCLASS) As LongPublic Declare Function UnregisterClass()Function UnregisterClass
注册表操作VB实例：存取键值、删除键值
05-07
内容索引:VB源码,系统相关,注册表操作,存取键值　　注册表操作VB实例：存取键值、删除键值
vb6读写注册表--vb
07-04
vb读写注册表, (1)所有文件的右键菜单 打开注册表编辑器后，在HKEY_CLASSES_ROOT＼*＼Shellex＼ContextMenuHandlers，根据名称删除相应的子项。 (2)文件夹的右键菜单 在注册表中的HKEY_CLASSES_ROOT＼Directory＼Shell和HKEY_CLASSES_ROOT＼Directory＼Shellex＼ContextMenuHandlers
vb操作注册表，包括创建、修改、删除键值等
03-31
vb6操作注册表，包括创建、修改、删除键值等
VB对注册表的操作模块
学习专栏
08-09 677
<br />Public Const REG_SZ = 1 ' Unicode nul terminated string<br />Public Const REG_BINARY = 3 ' Free form binary<br />Public Const HKEY_CURRENT_USER = &H80000001<br />Public Const REG_OPTION_BACKUP_RESTORE = 4     ' open for backup or restore<br />Public
vb读写注册表模块 visual basic 6.0读写注册表模块 *.bas
04-05
visual basic 6.0读写注册表模块
VB注册表操作模块：实现查询、创建、修改与删除功能
综上所述，该VB注册表操作模块不仅极大地简化了注册表编程的复杂度，还提高了代码的可靠性与可维护性，是VB开发者在进行系统级应用开发、软件配置管理、自动化部署等场景下不可或缺的实用工具。尤其对于需要持久化...
VB注册表操作模块：读取与写入实例演示
通过给出的描述，“注册表模块演示”提供的内容中包含有操作注册表的具体实例代码。这些示例代码使得开发者能够了解如何在VB中运用API函数对注册表进行操作。例如，演示中可能包含了以下操作的示例： - 如何打开和...
vb读写注册表_vb读写注册表_
10-02
通过导入这个模块到VB项目，你可以直接使用这些预定义的函数来简化读写注册表的过程。这通常包括打开注册表键、检查键是否存在、读取不同类型的值、写入新的值以及清理工作。 在实际应用中，需要注意权限问题，因为...
VB 注册表操作模块
08-26
7. **应用实例**：VB注册表模块可以用于各种场景，如安装卸载程序时记录信息、更改用户设置、修复系统问题或优化性能。 8. **学习资源**：对于想要深入了解VB注册表操作的开发者，可以参考MSDN（Microsoft ...
SYSTEM权限的进程操作HKEY_CURRENT_USER注册表
feixi7358的博客
05-15 3030
系统权限进程读取用户注册表 system权限的进程、服务若要操作用户注册表（HKEY_CURRENT_USER）,如果直接操作则获取的内容不是真正想要获取的内容，因为路径被重定向的，所以要从HKEY_USERS中来操作。 首先获取用户SID，然后再将该SID与要操作的注册表项凭借在一起，就可以操作HKEY_CURRENT_USER中的项了 //这个函数的的代码不美观哈 BOOL GetTokenByName(HANDLE &hToken,LPTSTR lpName) { if (!l
vb操作注册表（兼容64位win7）
10-23
vb操作注册表（兼容64位win7
VB6在64位的Windows7环境下对注册表的操作之API篇
09-02
VB6编写的程序是32位软件，在64位Windows系统下处理注册表时，被系统重定位，导致无法正确处理注册表。本文采用API方法操作注册表，自动判断操作系统位数，正确操作注册表。
Attribute VB_Name = "mdlWebQueryIETable" Option Explicit Sub WebQueryIETable() Dim objIE As Obje...
weixin_42611310的博客
01-06 188
这是一个 VBA 子程序，其中包含了定义变量的语句以及对 Internet Explorer 对象的引用。它似乎是用于从网站获取数据表并将其存储到工作表中。 这个子程序使用了五个变量：objIE、objIEDOM、objTable、objTR、strURL。objIE 和 objIEDOM 是对 Internet Explorer 对象的引用，objTable 和 objTR 是对 HTML 表格...
打开VB工程时提示——发现名称冲突
王萌萌
08-07 2753
昨天在快要
vb查找注册表键值
u013082684的博客
07-27 1786
Option Explicit Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long,
vb.net注册表基本操作
u014189392的博客
09-23 3794
vb.net提供了microsoft.win32类，下面有三个子类，全是针对注册表的，Microsoft.Win32.RegistryKey、Microsoft.Win32.Registry、Microsoft.Win32.RegistryHive  Microsoft.Win32.Registry提供了访问各个注册表中根的值  Microsoft.Win32.Registry.Current
用VB操作注册表
05-24 1726
 在Windows出问题时，如果能够了解Windows系统的注册表，将更容易解决问题; 许多商品化的软件或专业化的软件在您的机器上首次安装的时候都会通过改写注册表来完成软件的正确安装运行，要成为编程高手当然需要掌握读写注册表这一技术。用好注册表将会为您的应用程序增色不少，下面笔者将具体介绍VB中与注册表有关的编程方法。 注册表的组织结构 存取注册表以前， 必须先了解注册表的组织结构， 而了解注册表
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值