Als je een willekeurige key (niet uit HKCU\Software\VB And VBA Program Settings) wil wijzigen, dan ga je echt wel je toevlucht moeten zoeken tot de Windows API functies. Lijkt Chinees in het begin, maar dat went wel.
Ik heb nog even VB6 geopend (best nog wel eens leuk na al die VS.NET
) en heb snel geschreven wat je hebt gevraagd.
Maak een nieuw project, voeg daar een form aan toe met 1 knop en 1 textbox.
De code van de form ziet er uit als volgt:
Option Explicit
Private Sub Command1_Click()
Dim oRegistry As New clsRegistry
oRegistry.SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "User Agent", Text1.Text
Set oRegistry = Nothing
End Sub
Voeg een Class Module toe en noem deze clsRegistry, hierin kopieer je volgende code:
Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private 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
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Const REG_SZ = 1
Private Const KEY_ALL_ACCESS = &H3F
Public Enum e_HKEY
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
End Enum
Public Sub SetKeyValue(KEY As e_HKEY, sKeyName As String, sValueName As String, vValueSetting As Variant)
Dim lretval As Long
Dim lhkey As Long
lretval = RegOpenKeyEx(KEY, sKeyName, 0, KEY_ALL_ACCESS, lhkey)
lretval = SetValueEx(lhkey, sValueName, REG_SZ, vValueSetting)
RegCloseKey lhkey
End Sub
Private Function SetValueEx(ByVal hkey As Long, sValueName As String, lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
sValue = vValue & Chr$(0)
SetValueEx = RegSetValueExString(hkey, sValueName, 0&, lType, sValue, Len(sValue))
End Function
Je hoeft dus gewoon maar deze functie aan te roepen vanuit je hoofdform. De parameters zijn
- KEY: HKEY_CLASSES_ROOT of HKEY_CURRENT_USER of HKEY_LOCAL_MACHINE of HKEY_USERS
- sKeyName: Naam van de key waarin je wil wijzigen
- sValueName: Waarde die je wil wijzigen
- sValueSetting: Nieuwe waarde
