'==================================================
레지스트리 연산 문
공개 선언 함수 RegOpenKey Lib "advapi32.dll" 별칭 " RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
공개 선언 함수 RegEnumValue Lib "advapi32.dll "별칭" 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)
공개 선언 함수 RegCloseKey Lib " advapi 32 . dll " (ByVal hKey As Long) As Long
공개 선언 함수 RegCreateKey Lib "advapi32.dll" 별칭 " RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String. phkResult는 Long)는 Long
공개 선언 함수 RegQueryValueEx Lib " advapi 32 . dll" 별칭 " RegQueryValueExA" (ByVal hKey는 Long, ByVal lpValueName은 String, ByVal lpReserved는 Long, lpType은 Long, lpData는 Any, lpcbData는 Long) is Long
공개 선언 함수 RegEnumKeyEx Lib "advapi32.dll" 별칭 " 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 Any)Long
공개 선언 함수 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
공개적으로 선언된 함수 RegDeleteValue Lib "advapi32.dll" 별칭 " RegDeleteValueA" (ByVal hKey is Long, ByVal lpValueName is String) is Long
공개적으로 선언된 함수 RegDeleteKey Lib "advapi32.dll" 별칭 " RegDeleteKeyA" (ByVal hKey는 Long, ByVal lpSubKey는 String)는 Long
공개 상수 HKEY _ class _ ROOT = & amp; H80000000
공개 구조체입니다. HKEY _ CURRENT _ USER = & ampH80000001
공개 상수 HKEY _ LOCAL _ MACHINE = & ampH80000002
공개 구조 HKEY _ USER = & ampH80000003
개인 상수 REG _ SZ = 1 & amp;
private constant REG _ EXPAND _ SZ = 2 & amp
private constant REG _ BINARY = 3 & amp
private constant REG _ DWORD = 4 & amp
private constant ERROR _ SUCCESS = 0 & amp
'================ ==================================
'================================
Registry manipulation function
'================================
레지스트리 문자열 키 읽기
공개 함수 GetString(hKey As Long, strPath As String, strValue As String)
Dim Keyboard As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
Dim lValueType As Long 'New Add
RegOpenKey hKey, strPath, keyhand
lResult = RegQueryValueEx(keyhand, strValue, 0 & amplValueType, ByVal 0 & amp, lDataBufSize)
왼쪽 값 유형 = REG_SZ 또는 왼쪽 값 유형 = REG_EXPAND_SZ
이면 strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(keyhand, strValue, 0 & amp, lValueType, ByVal strBuf, lDataBufSize)
If lResult = ERROR_SUCCESS then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos & gt then 0
GetString = left$(strBuf, intZeroPos - 1)
Else: GetString = strBuf
If... then end
If... then end
If... then end
함수 종료
레지스트리에 쓰기
함수 종료 문자열 키
공개 하위 SetString(hKey는 Long, strPath는 String, strValue는 String, strdata는 String)
암호 키보드를 긴 키로
RegCreateKey hKey. strPath, 키핸드
RegSetValueEx 키핸드, strValue, 0, REG_SZ, ByVal strdata, Len(strdata)
RegCloseKey 키보드
끝 커넥터
레지스트리 읽기 DWORD 키 값
Function GetDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dark Keyboard As Long
r = RegOpenKey(hKey, strPath, keyhand )
길이/데이터 유형 가져오기
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0 & amp, lValueType, lBuf, lDataBufSize)
p>If lResult = ERROR_SUCCESS, then
If LeftValueType = REG_DWORD, then
GetDword = lBuf
If ... it's over
Other
Call errlog("" GetDWORD-" & amp; strPath, False)
It ends if...it ends
r = RegCloseKey(keyhand)
End Function
레지스트리에 DWORD 키 값을 씁니다.
Function SetDword(ByVal hKey is Long, ByVal strPath is String, ByVal strValueName is String, ByVal lData is Long)
암호 키는
RegCreateKey hKey , strPath, 키손
RegSetValueEx 키손, strValueName, 0 & amp, REG_DWORD, lData, 4
RegCloseKey 키보드
종료 함수
레지스트리 이진 키를 읽습니다.
Function GetBinary(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dark Keyboard As Long
r = RegOpenKey(hKey, strPath, keyhand)
Get Length /데이터 유형
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0 & amp, lValueType, lBuf, lDataBufSize)
If lResult = ERROR_SUCCESS이면
왼쪽 값 유형이 REG_BINARY이면
GetBinary = lBuf
다음이면...
다음이면...
이것은 끝납니다...
r = RegCloseKey(keyhand)
함수 종료
레지스트리 바이너리 키 쓰기
Function SetBinary(ByVal hKey is Long, ByVal strPath is String, ByVal strValueName is String. ByVal lData는 Long, ByVal BitNumber는 Long)
다크 키보드를 Long으로
RegCreateKey hKey, strPath, 키손
RegSetValueEx 키손, strValueName, 0 & amp, REG_BINARY, lData, 비트 번호
RegCloseKey 키보드
종료 함수
레지스트리 키를 제거합니다.
공개 함수 DeleteValue(ByVal hKey는 길이, ByVal strPath는 문자열, ByVal strVal은 문자열)
키보드를 길게
RegOpenKey hKey, strPath, keyhand< /p>
RegDeleteValue 키보드, strValue
RegCloseKey 키보드
종료 함수
CreateKey
공개 함수 CreateKey(ByVal hKey as Long, ByVal strKey as String)
암흑 키보드 손 & 앰프
RegCreateKey hKey, strKey, keyhand
RegCloseKey 키보드 손 & 앰프
종료 함수