Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
Kod:
[COLOR=#000000][FONT=Verdana]Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run", True)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] key.SetValue(name, path)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]End Sub[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]veya tek satır kodlada yapabiliriz. ; [/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] Registry.CurrentUser.CreateSubKey("SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN").SetValue(Application.ProductName.ToString, Application.ExecutablePath.ToString)[/FONT][/COLOR]