Urgent! Registry update!

[RoYeti]

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

[Static]

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

[RoYeti]

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

[RoYeti]

anyoane?

[dglienna]

Do display this key, use this:

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

[RoYeti]

it give an error "Syntax error"

[RoYeti]

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

[dglienna]

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

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

This is the correct code:

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.

[RoYeti]

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

[dglienna]

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.

[RoYeti]

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

[|2eM!x]

The last line explains it perfectly..

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

[RoYeti]

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