i wanna change a regedit key in vb, how can i do that?:confused:
Printable View
i wanna change a regedit key in vb, how can i do that?:confused:
can someone help me??????????
sorry im a newbie in vb, how can i like edit "local_machine, software, microsoft, msn, theres a key right here" <<< how can i edit that key?
look at the function
SetKeyValue
in that module i linked to you.. it has full commented instructions on what parameters you have to pass for it to change the desired key
VB Code:
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hkey As Long, ByVal lpSubKey As String) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hkey As Long, ByVal lpValueName As String) As Long Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 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 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 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 REG_SZ = 1 Function RegQueryStringValue(ByVal hkey As Long, ByVal strValueName As String) Dim lResult As Long Dim lValueType As Long Dim strBuf As String Dim lDataBufSize As Long On Error GoTo 0 lResult = RegQueryValueEx(hkey, strValueName, 0&, lValueType, ByVal 0&, lDataBufSize) If lResult = ERROR_SUCCESS Then If lValueType = REG_SZ Then strBuf = String(lDataBufSize, " ") lResult = RegQueryValueEx(hkey, strValueName, 0&, 0&, ByVal strBuf, lDataBufSize) If lResult = ERROR_SUCCESS Then RegQueryStringValue = StripTerminator(strBuf) End If End If End If End Function Public Function GetString(hkey As Long, strpath As String, strvalue As String) Dim keyhand& Dim datatype& r = RegOpenKey(hkey, strpath, keyhand&) GetString = RegQueryStringValue(keyhand&, strvalue) r = RegCloseKey(keyhand&) End Function Function StripTerminator(ByVal strString As String) As String Dim intZeroPos As Integer intZeroPos = InStr(strString, Chr$(0)) If intZeroPos > 0 Then StripTerminator = Left$(strString, intZeroPos - 1) Else StripTerminator = strString End If End Function Public Sub savestring(hkey As Long, strpath As String, strvalue As String, strdata As String) Dim keyhand& r = RegCreateKey(hkey, strpath, keyhand&) r = RegSetValueEx(keyhand&, strvalue, 0, REG_SZ, ByVal strdata, Len(strdata)) r = RegCloseKey(keyhand&) End Sub 'In a FORM Private Sub Command1_Click() 'Save a Value to the Registry savestring HKEY_CURRENT_USER, "Software\Myapp", "Te555sting", "Hello" End Sub Private Sub Command2_Click() 'Get a value from the Registry Retval = GetString(HKEY_CURRENT_USER, "Software\Myapp", "Te555sting") Print Retval End Sub
it doesnt work, most of the text are in red.
you are probably not doing something right then... post your form...Quote:
Originally posted by 3MeMoS
it doesnt work, most of the text are in red.
this is megatrons code. just making it clear to him:
PUT THIS IN A MODULE:
VB Code:
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hkey As Long, ByVal lpSubKey As String) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hkey As Long, ByVal lpValueName As String) As Long Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 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 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 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 REG_SZ = 1 Function RegQueryStringValue(ByVal hkey As Long, ByVal strValueName As String) Dim lResult As Long Dim lValueType As Long Dim strBuf As String Dim lDataBufSize As Long On Error GoTo 0 lResult = RegQueryValueEx(hkey, strValueName, 0&, lValueType, ByVal 0&, lDataBufSize) If lResult = ERROR_SUCCESS Then If lValueType = REG_SZ Then strBuf = String(lDataBufSize, " ") lResult = RegQueryValueEx(hkey, strValueName, 0&, 0&, ByVal strBuf, lDataBufSize) If lResult = ERROR_SUCCESS Then RegQueryStringValue = StripTerminator(strBuf) End If End If End If End Function Public Function GetString(hkey As Long, strpath As String, strvalue As String) Dim keyhand& Dim datatype& r = RegOpenKey(hkey, strpath, keyhand&) GetString = RegQueryStringValue(keyhand&, strvalue) r = RegCloseKey(keyhand&) End Function Function StripTerminator(ByVal strString As String) As String Dim intZeroPos As Integer intZeroPos = InStr(strString, Chr$(0)) If intZeroPos > 0 Then StripTerminator = Left$(strString, intZeroPos - 1) Else StripTerminator = strString End If End Function Public Sub savestring(hkey As Long, strpath As String, strvalue As String, strdata As String) Dim keyhand& r = RegCreateKey(hkey, strpath, keyhand&) r = RegSetValueEx(keyhand&, strvalue, 0, REG_SZ, ByVal strdata, Len(strdata)) r = RegCloseKey(keyhand&) End Sub
PUT THIS IN YOUR FORM, WITH 2 COMMAND BUTTONs (Command1, Command2)
VB Code:
Private Sub Command1_Click() 'Save a Value to the Registry savestring HKEY_CURRENT_USER, "Software\Myapp", "Te555sting", "Hello" End Sub Private Sub Command2_Click() 'Get a value from the Registry Retval = GetString(HKEY_CURRENT_USER, "Software\Myapp", "Te555sting") Print Retval End Sub
help :(
I know I'm dragging up an old thread, but I need help on this.
I used the example buggyprogrammer posted, and I have it saving the key, but I can't get it to retrieve the key.
It's saying "r" isn't defined, and I'm not sure what to define it as.
c'mon... somebody help me out here...