Zum Thema Registry ändern unter VB...
In der MSDN is da eigentlich ne recht ausführliche Hilfe drüber... Ich hau trotzdem mal etwas Code hier hin, mit dem ich es mache
(is von einem "anonymer Browser" an dem ich zur Zeit arbeite):
(sollte sinnvollerweise in einem Modul, NICHT in einem Formular geschehn:
*** Deklarationen ***
Code:
Public 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
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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Global Const reg_NONE = 0
Global Const REG_SZ = 1
Global Const reg_EXPAND_SZ = 2
Global Const reg_BINARY = 3
Global Const REG_DWORD = 4
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Global Const KEY_QUERY_VALUE = &H1
'Global Const doof = 3
Soo... und nu SICHERN von Registry-Einstellungen:
Code:
If GetSetting("Pirate Browser", "ANONYM", "Fake Registry", "false") = "true" Then
whatToDo.Panels(1).Text = "Sichere Registry-Settings!"
' >>>
RetVal = RegOpenKeyEx(HKEY_CURRENT_USER, .Fields("Verzeichnis"), 0, KEY_QUERY_VALUE, hKey)
RetVal = RegQueryValueEx(hKey, .Fields("Wert"), 0, REG_SZ, ByVal Wert, Len(Wert)) (Wo bei mir ".fields("Verzeichnis") steht kommt das entsprechende Verzeichnis der Registry rein, also z.B. :"software\microsoft\windows\currentversion\"
wo bei mir ".fields("Wert")" steht der Schlüssel, also z.B. "ProductId"
hoffe geholfen zu haben....