Visual Basic Forum

aMphetaMin · Tutorial Leser Anmeldedatum: 29.06.2008 Beiträge: 33

Ich möchte gerne einen Wert aus der Registry auslesen.
Wie stelle ich das an ?
Ich möchte nämlich einen Keychanger für COD 4 coden.

Der Key befindet sich hier :
HKEY_LOCAL_MACHINESOFTWAREActivisionCall of Duty 4codkey

igoe · Gast

Ich denke mal das kannste gebrauchen http://www.visual-basic-forum.de/viewtopic.php/einstel...hlight=registry

RedShark · Poster Anmeldedatum: 01.07.2008 Beiträge: 145

Wert lesen

Visual Basic: [code]Public Function RegRead(Path As String) As String
Dim ws As Object

On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function

ErrHandler:
RegRead = ""
End Function[/code]

Wert speichern

Visual Basic: [code]Public Function RegWrite(ByVal Path As String, _
ByVal Value As String, _
Optional ByVal Typ As String = "REG_SZ") As Boolean

Dim ws As Object

On Error Goto ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegWrite Path, Value, Typ
RegWrite = True
Exit Function

ErrHandler:
RegWrite = False
End Function [/code]

Wert löschen
Visual Basic: [code]
Public Function RegDelete(Path As String) As Boolean
Dim ws As Object

On Error Goto ErrHandler
Set ws = CreateObject("WScript.Shell")
ws.RegDelete Path
RegDelete = True
Exit Function

ErrHandler:
RegDelete = False
End Function
[/code]

Quelle: vbarchiv.de

Verwendung:

Visual Basic: [code]Text1.Text = RegRead ("HKEY_LOCAL_MACHINESOFTWAREActivisionCall of Duty 4codkey")[/code]

aMphetaMin · Tutorial Leser Anmeldedatum: 29.06.2008 Beiträge: 33

Jo danke, aber wie liest man einne Wert aus, der den Namen (Standard) hat? oO

aMphetaMin · Tutorial Leser Anmeldedatum: 29.06.2008 Beiträge: 33

Push...

Keiner eine Idee?

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

in .net lesen geht so: redsharks tipp is eig. vb6^^

Visual Basic: [code] Imports Microsoft.Win32

Dim MeinKey As RegistryKey
Dim MeinName As String
MeinKey = Registry.CurrentUser.OpenSubKey( _
"SoftwareMicrosoftWindows" _
& "CurrentVersionExplorer")
MeinName = MeinKey.GetValue("Logon User Name", "Metty")
MeinKey.Close()
MessageBox.Show("Hallo " & MeinName & "!")[/code]

quelle: http://msdn.microsoft.com/de-de/library/bb979300.aspx

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Wie wärs mit System.Environment.Username?