Option Explicit
‘\u6ce8\u518c\u8868\u64cd\u4f5c
Public Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hkey As Long) As Long
Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal hkey As Long, ByVal lpSubKey As String, phkResult 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 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 RegSetValueEx Lib “advapi32.dll” Alias “RegSetValueExA” (ByVal hkey&, ByVal lpValueName$, ByVal Reserved&, ByVal dwType&, ByVal lpData$, ByVal cbData&) As Long
Private 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
Private Declare Function RegDeleteValue Lib “advapi32.dll” Alias “RegDeleteValueA” (ByVal hkey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKeyEx Lib “advapi32” Alias “RegOpenKeyExA” (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Public Declare Function RegCreateKeyEx Lib “advapi32.dll” Alias “RegCreateKeyExA” (ByVal hkey&, ByVal lpSubKey$, ByVal Reserved&, ByVal lpClass$, ByVal dwOptions&, ByVal samDesired&, ByVal SecAtts&, phkResult&, lpdwDisp&) As Long
Private Declare Function RegDeleteKey Lib “advapi32.dll” Alias “RegDeleteKeyA” (ByVal hkey As Long, ByVal lpSubKey As String) As Long
Public Declare Function SHDeleteKey Lib “shlwapi.dll” Alias “SHDeleteKeyA” (ByVal hkey As Long, ByVal pszSubKey As String) As Long<\/p>\n\n\n\n
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const KEY_ALL_ACCESS = (&H1F0000 Or &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &H20) And (Not &H100000)
Public Const REG_NONE = (0)
Public Const REG_SZ = (1) ‘REG_SZ \u2014\u2014\u952e\u503c\u5b58\u50a8\u4e3a\u5b57\u7b26\u4e32\u503c
Public Const REG_EXPAND_SZ = (2)
Public Const REG_BINARY = (3) ‘REG_BINARY \u2014\u2014\u952e\u503c\u5b58\u50a8\u4e3a\u4e8c\u8fdb\u5236\u503c
Public Const REG_DWORD = (4) ‘REG_DWORD \u2014\u2014\u952e\u503c\u5b58\u50a8\u4e3aDWORD\u503c\uff08\u53cc\u5b57\uff09
Public Const REG_DWORD_BIG_ENDIAN = (5)
Public Const REG_LINK = (6)
Public Const REG_MULTI_SZ = (7)
Public Const REG_RESOURCE_LIST = (8)
Public Const REG_FULL_RESOURCE_DESCRIPTOR = (9)
Public Const REG_RESOURCE_REQUIREMENTS_LIST = (10)<\/p>\n\n\n\n
Function RegQueryStringValue(ByVal hkey As Long, ByVal sValueName As String) As String Function GetString(ByVal hkey As Long, sPath As String, ByVal sValue As String, ByVal sApp As Variant, ByVal sIniFile As Variant) ‘\u4ece\u6ce8\u518c\u8868\u8bfb\u53d6\u6570\u636e, \u5982\u679c\u5931\u8d25\u5219\u4ece\u521d\u59cb\u5316\u6587\u4ef6\u8bfb\u53d6 Sub SaveString(ByVal hkey As Long, ByVal sPath As String, ByVal sValue As String, ByVal sData As String, ByVal sApp As Variant, ByVal sIniFile As Variant) ‘\u5411\u6ce8\u518c\u8868\u5199\u5165\u6570\u636e, \u5982\u679c\u5931\u8d25\u5219\u5411\u521d\u59cb\u5316\u6587\u4ef6\u5199\u5165 Sub DelSetting(ByVal hkey As Long, ByVal sPath As String, ByVal sValue As String, ByVal sApp As Variant, ByVal sIniFile As Variant) ‘\u5220\u9664\u6ce8\u518c\u8868\u6570\u636e, \u5982\u679c\u5931\u8d25\u5219\u5220\u9664\u521d\u59cb\u5316\u6587\u4ef6\u6570\u636e Public Sub DelKey(hkey As Long, sKey As String) <\/p>\n\n\n\n <\/p>\n\n\n\n <\/p>\n","protected":false},"excerpt":{"rendered":"
On Error Resume Next
Dim lResult As Long, lValueType As Long, sBuf As String, lDataBufSize As Long
‘retrieve nformation about the key
lResult = RegQueryValueEx(hkey, sValueName, 0, lValueType, ByVal 0, lDataBufSize)
If lResult = 0 Then
If lValueType = REG_SZ Then
‘Create a buffer
sBuf = String(lDataBufSize, Chr$(0))
‘retrieve the key’s content
lResult = RegQueryValueEx(hkey, sValueName, 0, 0, ByVal sBuf, lDataBufSize)
If lResult = 0 Then
‘Remove the unnecessary chr$(0)’s
‘RegQueryStringValue = Left$(sBuf, InStr(1, sBuf, Chr$(0)) \u2013 1)
‘Avoid making mistakes when chr$(0) is zero
RegQueryStringValue = GetAPIString<\/a>(sBuf)
End If
ElseIf lValueType = REG_BINARY Then
Dim sData As Integer
‘retrieve the key’s value
lResult = RegQueryValueEx(hkey, sValueName, 0, 0, sData, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = sData
End If
End If
End If
On Error GoTo 0
End Function<\/p>\n\n\n\n
On Error Resume Next
Dim lResult1, lResult2
‘Open the key
lResult1 = RegOpenKey(hkey, sPath, lRet)
‘Get the key’s content
lResult2 = RegQueryStringValue(lRet, sValue)
GetString = lResult2
‘Close the key
RegCloseKey lRet
On Error GoTo 0
‘OS is diversity, determine if registry success
If IsMissing(sApp) Then Exit Function
If IsMissing(sIniFile) Then Exit Function
If lResult1 = 0 And Len(lResult2) > 0 And Not ChineseExist<\/a>(lResult2) Then Exit Function ‘\u542b\u6c49\u5b57\u5b57\u7b26\u4e32\u65f6\u4e0d\u4e00\u5b9a\u5bf9
On Error Resume Next
‘Read ini file, when operating Registry is fail.
GetString = ReadIniFile<\/a>(sApp, sValue, sIniFile)
On Error GoTo 0
End Function<\/p>\n\n\n\n
On Error Resume Next
Dim lResult1, lResult2
‘Create a new key
lResult1 = RegCreateKey(hkey, sPath, lRet)
‘Save a string to the key
lResult2 = RegSetValueEx(lRet, sValue, 0, REG_SZ, ByVal sData, Len(sData))
‘close the key
RegCloseKey lRet
On Error GoTo 0
‘Debug.Print lResult1
‘Debug.Print lResult2
‘OS is diversity, determine if registry success
If IsMissing(sApp) Then Exit Function
If IsMissing(sIniFile) Then Exit Function
If lResult1 = 0 And lResult2 = 0 And Not ChineseExist<\/a>(sData) Then Exit Sub ‘\u542b\u6c49\u5b57\u5b57\u7b26\u4e32\u65f6\u7ed3\u679c\u6709\u95ee\u9898
On Error Resume Next
‘Write ini file, when operating Registry is fail.
WriteIniFile<\/a> sApp, sValue, sData, sIniFile
‘WritePrivateProfileString<\/a> sApp, sValue, sData, sIniFile
On Error GoTo 0
End Sub<\/p>\n\n\n\n
On Error Resume Next
‘Debug.Print hKey
‘Debug.Print sPath
‘Debug.Print sValue
Dim lResult1, lResult2
‘Create a new key
lResult1 = RegCreateKey(hkey, sPath, lRet)
‘Delete the key’s value
lResult2 = RegDeleteValue(lRet, sValue)
‘close the key
RegCloseKey lRet
On Error GoTo 0
‘Debug.Print lResult1
‘Debug.Print lResult2
‘OS is diversity, determine if registry success
If IsMissing(sApp) Then Exit Function
If IsMissing(sIniFile) Then Exit Function
If lResult1 = 0 And hkey = HKEY_LOCAL_MACHINE Then Exit Sub ‘lResult2 = 2 or 5 \u542b\u6c49\u5b57\u5b57\u7b26\u4e32\u65f6\u987b\u4e24\u5904\u5220\u9664
On Error Resume Next
‘Write ini file, when operating Registry is fail.
WriteIniFile<\/a> sApp, sValue, vbNullString, sIniFile
‘WritePrivateProfileString<\/a> sApp, sValue, vbNullString, sIniFile
On Error GoTo 0
End Sub<\/p>\n\n\n\n
‘Delete the key
lRet = RegDeleteKey(hkey, sKey)
End Sub<\/p>\n\n\n\n