[VB.NET] Esecuzione automatica programma all'avvio

[fedrock]

Ciao sto progettando un piccolo programma e dovrei mettere che si avvii in automatico ad ogni avvio del PC , purtroppo non sò il codice che faccia svolgere questa funzione , se magari qualcuno sà il codice mi farebbe un grande favore , lo sò che chiedo troppo ma non saprei dove trovarlo .

PS: uso vb 08

[raffaeu]

Normalmente si mette uno shortcut del programma nel menu' Esecuzione Automatica di windows ...

[fedrock]

mi potresti dire come si mette questo shortcut ? , io ho trovato questo :
http://www.codeproject.com/KB/vb/StartupItem.aspx
ma non ho capito bene come farlo

[Zlatan8.]

Hmm...Basta che crei un collegamento del tuo exe nella cartella "Esecuzione Automatica"...
Vai su Start--->Tutti i programmi--->Esecuzione Automatica, tasto destro sopra di essa e clicca apri...Nella finestra che ti appare incolli il tuo collegamento...Ciao...

[fedrock]

grazie a tutti ci sono riuscito e bastato creare un checkbox e mettere :
If checkbox1.Checked Then
AddCurrentKey("StartupExample", System.Reflection.Assembly.GetEntryAssembly.Locati on)
Else
RemoveCurrentKey("StartupExample")
End If

Ed inserire prima questo :
Imports Microsoft.Win32
Public Class Main

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsof t\Windows\CurrentVersion\Run", True)
key.SetValue(name, path)
End Sub

Private Sub RemoveCurrentKey(ByVal name As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsof t\Windows\CurrentVersion\Run", True)
key.DeleteValue(name, False)
End Sub

Private Sub AddLocalKey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microso ft\Windows\CurrentVersion\Run", True)
key.SetValue(name, path)
End Sub

Private Sub RemoveLocalKey(ByVal name As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microso ft\Windows\CurrentVersion\Run", True)
key.DeleteValue(name, False)
End Sub

ho scritto il codice in modo se qualkuno avrebbe lo stesso problema si possa aiutare da qui .