Salut, donc on va commencer directement :
Créez un nouveau projet, faite un désigne rapide et rajouter un openfiledialog :
Double cliquez sur le bouton parcourir :
Puis sur le bouton valider :
Petite explication :
Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) est la clef qui dit a windows de lancer l'application écrite avec le Key.SetValue()
Final :
Déboguer, et voila !
Si vous voulez supprimez la clef : Key.DeleteValue()
Créez un nouveau projet, faite un désigne rapide et rajouter un openfiledialog :
Double cliquez sur le bouton parcourir :
Code:
Dim result = ofd_file.ShowDialog 'sert à ouvrir l'openfiledialog et à récupérer le résultat de fermeture
If result = Windows.Forms.DialogResult.OK Then
txt_file.Text = ofd_file.FileName
End IfPuis sur le bouton valider :
Code:
If txt_key.Text = "" Or txt_file.Text = "" Then
MsgBox("Remplissez tout les champs !", MsgBoxStyle.Exclamation)
Else
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.SetValue(txt_key.Text, txt_file.Text, Microsoft.Win32.RegistryValueKind.String)
MsgBox("Ajouter !", MsgBoxStyle.Information)
End IfPetite explication :
Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) est la clef qui dit a windows de lancer l'application écrite avec le Key.SetValue()
Final :
Déboguer, et voila !
Si vous voulez supprimez la clef : Key.DeleteValue()
Last edited:
