Registry Keys maken

[THWIT]

Hallo,

Ik ben bezig om voor mijn programmaatje een RegistryKey te maken in HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, zodat het programmaatje wordt gestart als de gebruiker inlogt.
Het probleem is echter dat hij het programmaatje niet in de goede map zet... Hij maakt namelijk een nieuwe map aan:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersi-on\Run

Hoe kan dat en wat doe ik ertegen?

De code:

            Dim FileName As String
            Dim FilePath As Object
            Dim RegistryKey As Object
            FileName = Application.ExecutablePath

            RegistryKey = CreateObject("WScript.Shell")
            RegistryKey.RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersi*on\Run\SpotplanetViewerWatchdog", FileName)

            MsgBox("key " & KeyName & " has been created")

Alvast bedankt!

 

[JoZ1]

[CPP]Dim regKey As Microsoft.Win32.RegistryKey
Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("Naam", Application.ExecutablePath,Microsoft.Win32.RegistryValueKind.String)[/CPP]

Dat SpotplanetViewerWatchdog moet eruit, dat is die map.

 

[The Mighty Atom]

CurrentVersi*on?

Volgens mij ligt daar de fout.

En is dit voor VBS of voor VB.Net?

 

[THWIT]

Het is voor VB.net 2010 express, ik heb geen idee hoe dat sterretje er komt, want die zie ik namelijk in het programma niet staan...
Als ik de code van JoZ1 probeer krijg ik de volgende foutmelding:
NullReferenceException was unhandled.

 

[JoZ1]

Oeps, excusez-moi.

[CPP] Dim regKey As Microsoft.Win32.RegistryKey
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("Naam", Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String)[/CPP]

Regkey moet natuurlijk wel een waarde hebben

 

[THWIT]

Thanx! It worked!
Nou moet ik alleen nog testen of hij ook daadwerkelijk opstart bij een system boot.
(Ook gelukt!, Thanx! Deze is opgelost!)