Registry manipulation

Question

RenanLazarotto 0 Posting Whiz in Training

13 Years Ago

Hey!

I'm trying to create a app that will add some reg keys. But I need to change the default value. How can I do it? I don't work :@

Imports Microsoft.Win32

Public Class Form1

    Dim regstr As RegistryKey = Registry.ClassesRoot

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        regstr.OpenSubKey("*\shell", True)
        regstr.CreateSubKey("*\shell\runas")
        regstr.SetValue("@", "Should be the default value")

    End Sub
End Class

Thanks!

vb.net

1 Contributor
2 Replies
152 Views
7 Hours Discussion Span
Latest Post 13 Years Ago Latest Post by RenanLazarotto

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

RenanLazarotto 0 Posting Whiz in Training · Answer 1 · 2011-01-30T01:23:08+00:00

Nice. Got it working. Now I'm with another trouble:

Imports Microsoft.Win32

Public Class Form1

    Dim regstr As RegistryKey = Registry.ClassesRoot
    Dim subregstr As RegistryKey

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        subregstr = regstr.OpenSubKey("*\shell\runas", True)
        subregstr.CreateSubKey("runas")
        subregstr.SetValue("", "Value")
    End Sub
End Class

The new value should be inside the 'runas' sub key, but it is not. What I did wrong? =(

RenanLazarotto 0 Posting Whiz in Training · Answer 2 · 2011-01-30T03:11:35+00:00

nevermind. found the problem:

subregstr = regstr.OpenSubKey("*\shell", True)
            subregstr.CreateSubKey("runas")
            subregstr = regstr.OpenSubKey("*\shell\runas", True)
            subregstr.SetValue("", "Tornar-se proprietário")
            subregstr.SetValue("NoWorkingDirectory", "")