Vb.net startup [vb.net bilenler baksın]

[qhosT*]

Arkadaşlar , ben programıma bir CheckBox ekleyeceğim ve o CheckBox işaretliyse bilgisayar açıldığında programım da açılacak . Eğer işaretli değilse programım bilgisayar açıldığında açılmayacak . Kodunu verirseniz çok iyi olacak . Çok güzel bir proje tasarladım . Şuanda son aşamasındayım . Yani bu kodu bulabilirsem , Ar-Ge Tim'de paylaşacağım . Lütfen yardım edin ! Şimdiden teşekkürler .

 

[TheSLaYe®]

Kardeşim Sanırım Sen Keyloggerlerdeki Gibi Özelliği İstiyosun ? yanlış anlamadıysam

 

[qhosT*]

Evet öyle istiyorum ama keylogger yapmıyorum . Daha farklı bir proje . Hack ile ilgisi yok

 

[WhisPer*]

Public Class form1 in hemen altına :

Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
        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(Name, Path, Microsoft.Win32.RegistryValueKind.String)
    End Sub

CheckBox1 nesnesinin kod alanına

if checkbox1.checked = true then
SaveSetting("MyAppName", "checkboxs", "startup", checkbox1.checked)
else
DeleteSetting("MyAppName", "checkboxs", "startup", checkbox1.checked)
end if

Form1 load kod alanına

on error resume next
Checkbox1.Checked = (GetSetting("MyAppName", "checkboxs", "startup", checkbox1.checked))
if checkbox1.checked = true then

AddStartup(Me.Text, Application.ExecutablePath)
else
[COLOR="Lime"]'burada ekleme var ama kaldırmayı unuttum. deletestartup olabilir dene bir[/COLOR]
end if

 

[Gr££D]

Sen daha bu yapamiyosan benxe argede paylasma

 

[qhosT*]

Sen daha bu yapamiyosan benxe argede paylasma

Kardeşim , bilmemek ayıp değil , öğrenmemek ayıp ! Bunu kafana sok ve bidaha kimseye böyle bişey yazma lütfen , rica ediyorum . Biliyorsan söyle , bilmiyorsan otur oturduğun yerde . Onur , bu arada sana teşekkür ederim .

 

[furkan169]

darkstel sen ne biliyosun dinime küfreden müslüman olsa bari