www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.'Save And Load Data From The Registery #2'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)'Add 5 Command Buttons To your Form.'Insert this code to the module :Public Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type 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 Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongDeclare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" _(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _ Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal _hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _ dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _(ByVal hKey As Long, ByVal lpValueName As String) As Long 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 Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _(ByVal hKey As Long, ByVal lpSubKey As String) As Long Public Enum T_KeyClasses HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_CONFIG = &H80000005 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 End Enum Private Const SYNCHRONIZE = &H100000 Private Const STANDARD_RIGHTS_ALL = &H1F0000 Private Const KEY_QUERY_VALUE = &H1 Private Const KEY_SET_VALUE = &H2 Private Const KEY_CREATE_LINK = &H20 Private Const KEY_CREATE_SUB_KEY = &H4 Private Const KEY_ENUMERATE_SUB_KEYS = &H8 Private Const KEY_EVENT = &H1 Private Const KEY_NOTIFY = &H10 Private Const READ_CONTROL = &H20000 Private Const STANDARD_RIGHTS_READ = (READ_CONTROL) Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Private 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)) Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _ KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _ And (Not SYNCHRONIZE)) Private Const KEY_EXECUTE = (KEY_READ) Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _ KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) Private Const REG_BINARY = 3 Private Const REG_CREATED_NEW_KEY = &H1 Private Const REG_DWORD = 4 Private Const REG_DWORD_BIG_ENDIAN = 5 Private Const REG_DWORD_LITTLE_ENDIAN = 4 Private Const REG_EXPAND_SZ = 2 Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9 Private Const REG_LINK = 6 Private Const REG_MULTI_SZ = 7 Private Const REG_NONE = 0 Private Const REG_SZ = 1 Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2 Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4 Private Const REG_NOTIFY_CHANGE_NAME = &H1 Private Const REG_NOTIFY_CHANGE_SECURITY = &H8 Private Const REG_OPTION_BACKUP_RESTORE = 4 Private Const REG_OPTION_CREATE_LINK = 2 Private Const REG_OPTION_NON_VOLATILE = 0 Private Const REG_OPTION_RESERVED = 0 Private Const REG_OPTION_VOLATILE = 1 Private 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) Private 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 Sub DeleteRegistryKey(rClass As T_KeyClasses, Path As String) Dim res As Long res = RegDeleteKey(rClass, Path) End Sub Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String) Dim hKey As Long Dim res As Long res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey) res = RegDeleteValue(hKey, sKey) RegCloseKey hKey End Sub Public Sub CreateRegistryKey(rClass As T_KeyClasses, Path As String) Dim hKey As Long Dim res As Long Dim y As SECURITY_ATTRIBUTES Dim Operation As Long res = RegCreateKeyEx(rClass, Path, 0, "", 0, KEY_ALL_ACCESS, y, hKey, Operation)RegCloseKey hKey End Sub Public Function GetRegValue(KeyRoot As T_KeyClasses, Path As String, _ sKey As String) As String Dim hKey As Long Dim KeyValType As Long Dim KeyValSize As Long Dim KeyVal As String Dim tmpVal As String Dim res As Long Dim I As Integer res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey) If res <> 0 Then GoTo Errore tmpVal = String(1024, 0) KeyValSize = 1024 res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize) If res <> 0 Then GoTo Errore If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then tmpVal = Left(tmpVal, KeyValSize - 1) Else tmpVal = Left(tmpVal, KeyValSize) End If Select Case KeyValType Case REG_SZ KeyVal = tmpVal Case REG_DWORD For I = Len(tmpVal) To 1 Step -1 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, I, 1))) Next KeyVal = Format( "&h" + KeyVal)End Select GetRegValue = KeyVal RegCloseKey hKey Exit Function Errore: GetRegValue = ""RegCloseKey hKey End Function Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _ String, NewValue As String) As Boolean Dim hKey As Long Dim KeyValType As Long Dim KeyValSize As Long Dim KeyVal As String Dim tmpVal As String Dim res As Long Dim I As Integer Dim x As Long res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey) If res <> 0 Then GoTo Errore tmpVal = String(1024, 0) KeyValSize = 1024 res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize) Select Case res Case 2 KeyValType = REG_SZ Case Is <> 0 GoTo Errore End Select Select Case KeyValType Case REG_SZ tmpVal = NewValue Case REG_DWORD x = Val(NewValue) tmpVal = ""For I = 0 To 3 tmpVal = tmpVal & Chr(x Mod 256) x = x \ 256 Next End Select KeyValSize = Len(tmpVal) res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize) If res <> 0 Then GoTo Errore SetRegValue = True RegCloseKey hKey Exit Function Errore: SetRegValue = False RegCloseKey hKey End Function 'Insert the following code to your form:Private Sub Command1_Click() 'This will get the value of 'wallpaper' key from 'HKEY_CURRENT_USER\Control Panel\Desktop' pathMsgBox GetRegValue(HKEY_CURRENT_USER, "Control Panel\Desktop", "wallpaper")End Sub Private Sub Command2_Click() 'This will create the path 'HKEY_CURRENT_USER\MyKey\MySubKey'CreateRegistryKey HKEY_CURRENT_USER, "MyKey\MySubKey"End Sub Private Sub Command3_Click() 'This will delete the path 'HKEY_CURRENT_USER\MyKey' and all its Sub DirectoriesDeleteRegistryKey HKEY_CURRENT_USER, "MyKey"End Sub Private Sub Command4_Click() 'This will change the value of 'MyKeyName' Key that in the path 'HKEY_CURRENT_USER\MyKey\MySubKey'. To set the Key value you must'first create the key path (as mention in Command2_Click)SetRegValue HKEY_CURRENT_USER, "MyKey\MySubKey", "MyKeyName", "MyValue"End Sub Private Sub Command5_Click() 'This will delete the Key 'MyKeyName' that found in the path'HKEY_CURRENT_USER\MyKey\MySubKey'DeleteValue HKEY_CURRENT_USER, "MyKey\MySubKey", "MyKeyName"End Sub
