Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\RunOnce")
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.Users.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.Users.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\RunOnce")
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.Users.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\RunOnceEx") 'Den gibt es unter Vista nicht
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.Users.OpenSubKey(".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run")

Visual Basic Quellcode

    Environment.GetFolderPath(Environment.SpecialFolder.Startup) 'Das ist der für den aktuellen Benutzer
'Unter XP: C:\Dokumente und Einstellungen\[Benutzername]\Lokale Einstellungen\Microsoft\Windows\Startmenü\Programme\Autostart
'Unter Vista: C:\Users\Thomas\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

'Alle Benutzer:
'XP:
C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\
'Vista:
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup

Visual Basic Quellcode

 dim PfadUndNameDerNeuenVerknüpfung as string 'Hier den Pfad (siehe oben) und den Namen der Verknüpfung speichern (MIT Endung *.lnk)
dim PfadUndNameDesProgramms as string 'Hier Pfad und Name des Programms
dim WorkingDirectory as string 'In diesem Ordner soll das Programm dann ausgeführt werden

   Dim wsh As IWshRuntimeLibrary.IWshShell = New IWshRuntimeLibrary.WshShellClass()
                        Dim ShortCut As IWshRuntimeLibrary.IWshShortcut = DirectCast(wsh.CreateShortcut(PfadUndNameDerNeuenVerknüpfung), IWshRuntimeLibrary.IWshShortcut)
                        With ShortCut
                            .WindowStyle = 1
                            .TargetPath = PfadUndNameDesProgramms 
                            .WorkingDirectory = WorkingDirectory 
                            .Save()
                        End With

Visual Basic Quellcode

Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

Visual Basic Quellcode

 My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

Visual Basic Quellcode

Public Function Autostart(ByVal AutostartEnable As Boolean)
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
If AutostartEnable = True Then
key.SetValue(My.Application.Info.AssemblyName, System.Reflection.Assembly.GetEntryAssembly.Location)
Else
key.DeleteValue(My.Application.Info.AssemblyName, False)
End If
key.Close()
Return AutostartEnable
End Function

Visual Basic Quellcode

Autostart(true)

Visual Basic Quellcode

Imports Microsoft.Win32

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim regkey As RegistryKey = Nothing
        Dim value As Object = Nothing

        regkey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

        value = regkey.GetValue("Test", "Key existiert nicht")

    End Sub
End Class

Visual Basic Quellcode

        Dim AppOrdner As String = Application.StartupPath
        Dim AppPfad As String = Application.ExecutablePath
        Dim AppExe As String = AppPfad.Replace(AppOrdner, "")

        If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", Test", AppOrdner & AppExe) IsNot Nothing Then
            Return True
        Else
            Return False
        End If