How to make my program run at startup?

后端 未结 7 1817
爱一瞬间的悲伤
爱一瞬间的悲伤 2020-12-15 14:28

I\'m programming a desktop application similar to Google desktop but with my own gadget with vb.net 2008 how can i make my application when the user install it on their comp

7条回答
  •  旧时难觅i
    2020-12-15 14:36

    You Can Do this Using the code below

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        ' This is where you'll need to have the program
        ' set the check box to the previous selection that
        ' the user has set. It's up to you how you do this.
        ' For now, I'll set it as "unchecked".
    
        CheckBox1.Checked = False
    
      End Sub
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
        ' The following code is a rendition of one provided by
        ' Firestarter_75, so he gets the credit here:
    
        Dim applicationName As String = Application.ProductName
        Dim applicationPath As String = Application.ExecutablePath
    
        If CheckBox1.Checked Then
          Dim regKey As Microsoft.Win32.RegistryKey
          regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
          regKey.SetValue(applicationName, """" & applicationPath & """")
          regKey.Close()
        Else
          Dim regKey As Microsoft.Win32.RegistryKey
          regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
          regKey.DeleteValue(applicationName, False)
          regKey.Close()
        End If
    
        ' Assuming that you'll run this as a setup form of some sort
        ' and call it using .ShowDialog, simply close this form to
        ' return to the main program
        Close()
        End Sub
    

提交回复
热议问题