HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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]
