Urgent! Registry update!

Hy i have a litle problem. I want to make a program for a game to modify some options from registry. I have a text box for User Id(when i type the user name and press save; its update the registry). In the registry its stored in : HKEY_CURRENT_USER\Software\game\play\Config with string value ID with value data the name of user. For the sound and music its on/off and the registry is HKEY_CURRENT_USER\Software\game\play\Config with DWORD value with data value 0 or 1 (on/off). how can i do this ? Thenx

VB Code:

Private Function Registry_Read(Key_Path, Key_Name) As Variant
    
    On Error Resume Next
    
    Dim Registry As Object
    
    Set Registry = CreateObject("WScript.Shell")
    
    Registry_Read = Registry.RegRead(Key_Path & Key_Name)
    
End Function
 
 
Private Sub Registry_Write(Key_Path As String, Key_Name As String, Key_Value As Variant, Optional Key_Type As String)
    
    On Error Resume Next
    
    'Key Type list (Use within string, ex. "
    '     REG_DWORD")
    '----------------
    
    'REG_BINARY - This type stores the value
    '     as raw binary data. Most hardware compon
    '     ent information is stored as binary data
    '     , and can be displayed in an editor in h
    '     exadecimal format.
    'REG_DWORD - This type represents the da
    '     ta by a four byte number and is commonly
    '     used for boolean values, such as "0" is
    '     disabled and "1" is enabled. Additionall
    '     y many parameters for device driver and
    '     services are this type, and can be displ
    '     ayed in REGEDT32 in binary, hexadecimal
    '     and decimal format, or in REGEDIT in hex
    '     adecimal and decimal format.
    'REG_EXPAND_SZ - This type is an expanda
    '     ble data string that is string containin
    '     g a variable to be replaced when called
    '     by an application. For example, for the
    '     following value, the string "%SystemRoot
    '     %" will replaced by the actual location
    '     of the directory containing the Windows
    '     NT system files. (This type is only avai
    '     lable using an advanced registry editor
    '     such as REGEDT32)
    'REG_MULTI_SZ - This type is a multiple
    '     string used to represent values that con
    '     tain lists or multiple values, each entr
    '     y is separated by a NULL character. (Thi
    '     s type is only available using an advanc
    '     ed registry editor such as REGEDT32)
    'REG_SZ - This type is a standard string
    '     , used to represent human readable text
    '     values.
    
    'Other data types not available through
    '     the standard registry editors include:
    
    'REG_DWORD_LITTLE_ENDIAN - A 32-bit numb
    '     er in little-endian format.
    'REG_DWORD_BIG_ENDIAN - A 32-bit number
    '     in big-endian format.
    'REG_LINK - A Unicode symbolic link. Use
    '     d internally; applications should not us
    '     e this type.
    'REG_NONE - No defined value type.
    'REG_QWORD - A 64-bit number.
    'REG_QWORD_LITTLE_ENDIAN - A 64-bit numb
    '     er in little-endian format.
    'REG_RESOURCE_LIST - A device-driver res
    '     ource list.
    Dim Registry As Object
    
    Dim Registry_Value As Variant
    
    Set Registry = CreateObject("WScript.Shell")
    
    Registry_Value = Registry_Read(Key_Path, Key_Name)
    
    
    
    If Key_Type = "" Then
        
        'REG_SZ is the default.
        
        Registry.RegWrite Key_Path & Key_Name, Key_Value
        
    Else
        
        Registry.RegWrite Key_Path & Key_Name, Key_Value, Key_Type
        
    End If
    
End Sub
 
 
Private Sub Form_Activate()
    'This is only an example of a registry entry.
    MsgBox Registry_Read("HKEY_LOCAL_MACHINEMsgBox Registry_Read("HKEY_Local_MACHINE\Software\Microsoft\Internet Explorer\", "W2kVersion")\Software\Microsoft\Internet Explorer\", "W2kVersion")
    Registry_Write "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\", "Test", 1, "REG_DWORD"
End Sub

ok i learn some things from your code .. but how to do theat my text box display a value data from a value string?

anyoane?

Do display this key, use this:

VB Code:

Text1.text = Registry_Read("HKEY_LOCAL_MACHINEMsgBox Registry_Read("HKEY_Local_MACHINE\Software\Microsoft\Internet Explorer\", "W2kVersion")\Software\Microsoft\Internet Explorer\", "W2kVersion")

it give an error "Syntax error"

ok i resolve theat but now i dont know how to write from text box to registry ? Thenx

Oh. Textboxes don't like variants. The read is too generic. Try this:

VB Code:

Text1.text = Cstr(Registry_Read("HKEY_Local_MACHINE\Software\Microsoft\Internet Explorer\", "W2kVersion"))

This is the correct code:

Quote:

---

Registry_Read("HKEY_Local_MACHINE\Software\Microsoft\Internet Explorer\", "W2kVersion")

---

The result will be converted into a string. That should work. Otherwise, you'd have to change the read to return a string, which might not work in all cases.

EDIT: Oops just notice that it got copied wrong. It should work right the first way, if you remove the duplicate info.

ok i see but now i dont know how to write from text box to registry ? if you can tell me pls.. Thenx

You would need three textboxes. One for the Hive, one for the section, and one for the actual value that you wanted to write.

Edit: Hive is more appropriate.

ok say me only how to use the text box to write in registry for one of that value key

The last line explains it perfectly..

Registry_Write "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\", "Test", text1.text, "REG_DWORD"

Yes it was but i didnt know where to put the text1.text .Now i know Thenx :wave: