(VB 6) Per Klick auf Button Werte in Registry schreiben

Hallo liebe Forenmitglieder,

ich möchte in Visual Basic 6 ein Programm schreiben, das bei Klick auf den Button "Update" z. B. folgende Werte in die Registrierung schreibt:

HKEY_USERS\.DEFAULT\Control Panel\Colors\ActiveBorder = "212 208 200"
HKEY_USERS\.DEFAULT\Control Panel\Desktop\WindowMetrics\CaptionFont = hex:f5,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,00,\
00,00,00,00,00,00,00,00,54,00,61,00,68,00,6f,00,6d,00,61,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00

Wie kann ich das am geschicksten lösen?

Gruß,
Ahnenforscher

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 41168

Url: https://administrator.de/forum/vb-6-per-klick-auf-button-werte-in-registry-schreiben-41168.html

Ausgedruckt am: 05.04.2025 um 23:04 Uhr

7 Kommentare

Neuester Kommentar

Hi,

wenn es Windows XP/2000 ist, da gibt es ein Programm REG.EXE, mit welchem man beliebige Werte in die Regsitry schreiben kann - das würde ich nach dem OnClick Ereignis aufrufen und eben mittels entsprechender Parameter die richtigen Werte reinschreiben.

Oder: Die Werte exportieren in ein .reg File und dieses einlesen.

Eine andere umständlichere aber eventuell besser zu wartende Variante wäre, es mittels WMI zu machen.

cu,
Alex

Hallo Peter!

Umfangreiche Lösung: siehe http://www.andreavb.com/tip080001.html

kürzer: http://www.vbcode.com/Asp/showsn.asp?theID=3856

und bei MS: http://msdn2.microsoft.com/en-us/library/yfdfhz1b.aspx

HTH
bastla

... und als Nachtrag:

http://www.vbarchiv.net/archiv/tipp_907.htm

bastla

Danke für eure Antworten!

@bastla: Ich habe mich für den zweiten Link entschieden. Danke für diesen Tipp.

Jetzt ergibt sich aber ein anderes Problem: Ich muss noch einen Dienst beenden und den gleichen Dienst auch deaktivieren. Einen anderen muss ich starten und auf den Typ "automatisch" setzen.

Beenden ist kein Problem: Über konsole per "net stop dienstname"
Starten ist auch kein Problem: ebenfalls per konsole: "net start dienstname"

Aber wie kann ich einen Starttyp auf "Deaktiviert" und auf "Automatisch" mit Hilfe von Visual Basic 6 setzen? Dies soll bei einem Klick auf den gleichen Button wie eben passieren.

Danke, und Gruß,
Ahnenforscher

Hallo Peter!

Umfangreich: http://www.andreavb.com/tip060002.html

kürzer: http://www.devx.com/vb2themax/Tip/19045

oder so: http://www.freevbcode.com/ShowCode.Asp?ID=249

mit WMI: http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts ...

bei MS: http://windowssdk.msdn.microsoft.com/en-us/library/ms758356.aspx

HTH
bastla

Hi bastla!

Danke für die vielen tipps!

Eine Frage habe ich aber noch: Wie kann ich mit Hilfe der Funktion RegWrite einen Wert in die Registrierung vom Typ REG_DWORD bzw. REG_BINARY hinzufügen? RegWrite schreibt immer nur "REG_SZ", also einfache Zeichenfolgen.

Gruß,
Ahnenforscher