1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
'Zuerst eine Funktion um den Autostarteintrag hinzu zu fügen:
Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.SetValue(name, path)
key.Close()
End Sub
'Die nächsten funktion entfernt den Key wieder
Private Sub RemoveCurrentKey(ByVal name As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.DeleteValue(name, False)
key.Close()
End Sub
'Aufruf zum hinzufügen:
AddCurrentKey(My.Application.Info.AssemblyName, System.Reflection.Assembly.GetEntryAssembly.Location)
'Aufruf zum entfernen des Eintrages
RemoveCurrentKey(My.Application.Info.AssemblyName)
|