vb.net projeyi başlanqıçda çalışdırma sorunu (ACİL YARDIM EDİN)

merhaba arkadaşlar bir projem var projeye başlanqıçda çalışdırmak istiyormusunuz seçeneyi eklemek istiyorum interneten bir kaç kod buldum ama onlarda işime yaramadı virüs olarak görünüyorlar antivirüsler engeliyor programı


istediyim kod şu programı kulananlar programın başlangıçda çalışıp çalışmayacağını kendilerinin seçmesini istiyorum bıtona tıklıyında başlanqıçda çalışıcak ACIL YARDIM EDİN

konu güncel hala çözemedim

selam,

bu sekilde ekleyebilirsin

Dim regKey As Microsoft.Win32.RegistryKeyregKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("Uygulamanin Adi", "Exenin Yolu")
regKey.Close()

silmek icin de bu kodu cagirabilirsin

Dim regKey As Microsoft.Win32.RegistryKeyregKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.DeleteValue("Uygulamanin Adi", False)
regKey.Close()

olmazsa buradaki konuya bak

http://stackoverflow.com/a/18895600/1276061

bir kac yol ile yapabilirsin.

hocam ilginiz için teşekür ederim kodu denedim ama çalışdıramamadım bi kaç kod var ama o nlarıda virüs olarak görünüyo başka bir yolu varmı

verdigim kod da calisiyor ama RegistryKeyregKey yerine RegistryKey olmasi lazim..

Ama bu kod direk admin hakki istiyor. O yuzden aktif user a atan basit bir uygulama yaptim. Denedim calisiyor sorunsuz. Buradan indirebilirsin.


https://app.box.com/s/gmn2a5d06xiwgz3z7h4nvb84hr8d8n8e

hocam örnek projeyi açamadım hata verdi projeyi gözden geçirip

visual studio 2015 kullandim, onla ilgili bir problem olablir. Ama bu onemlid degil, formun kodlarini acip onlari kullanabilrisin

hocam sizide yoruyorum ama formu açamadım kodları vere bilirmisiniz

notepad ile acabilirdin..

Imports Microsoft.Win32

<Runtime.InteropServices.Guid("40745805-081B-47DD-8DDF-DAC8362DB53C")>
Public Class Form1


    Private Sub DeleteStartUp()
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        regKey.DeleteValue("Deneme", False)
        regKey.Close()
    End Sub

    Private Sub CreateStartUp()

        Try
            Dim regKey As RegistryKey

            regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            regKey.SetValue("Deneme", "C:\Temp\WindowsApplication1.exe")
            regKey.Close()

            Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

     
        


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MessageBox.Show("Uygulama basladi")
    End Sub

    Private Sub btnUygula_Click(sender As Object, e As EventArgs) Handles btnUygula.Click
        if (chkBaslangic.CheckState = CheckState.Checked)
            CreateStartUp()
        Else
            DeleteStartUp()

        End If
    End Sub
End Class