VB.NET项目 实现开机自启

Imports Microsoft.Win32
Imports System.IO

Public Class AutoStartHelper
    Private Const RunRegistryKey As String = "Software\Microsoft\Windows\CurrentVersion\Run"
    Private Shared ReadOnly AppName As String = "MyApplicationName" ' 自定义应用标识名'

    ''' <summary>
    ''' 获取当前程序路径（自动处理空格）
    ''' </summary>
    Public Shared ReadOnly Property AppPath As String
        Get
            Return """" & Application.ExecutablePath & """"
        End Get
    End Property

    ''' <summary>
    ''' 启用/禁用自启动
    ''' </summary>
    Public Shared Sub SetAutoStart(enable As Boolean)
        Try
            Using key = Registry.CurrentUser.OpenSubKey(RunRegistryKey, True)
                If enable Then
                    key.SetValue(AppName, AppPath)
                Else
                    key.DeleteValue(AppName, False)
                End If
            End Using
        Catch ex As Exception
            MessageBox.Show($"操作注册表失败: {ex.Message}")
        End Try
    End Sub

    ''' <summary>
    ''' 检查当前自启动状态
    ''' </summary>
    Public Shared Function IsAutoStartEnabled() As Boolean
        Try
            Using key = Registry.CurrentUser.OpenSubKey(RunRegistryKey, False)
                Dim value = key.GetValue(AppName)
                Return value IsNot Nothing AndAlso value.ToString() = AppPath
            End Using
        Catch ex As Exception
            Return False
        End Try
    End Function
End Class

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 窗体加载时更新复选框状态'
        chkAutoStart.Checked = AutoStartHelper.IsAutoStartEnabled()
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        ' 保存设置时应用选择'
        AutoStartHelper.SetAutoStart(chkAutoStart.Checked)
        MessageBox.Show("设置已保存，重启后生效")
    End Sub

    Private Sub chkAutoStart_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoStart.CheckedChanged
        ' 实时显示状态文本'
        lblStatus.Text = If(chkAutoStart.Checked, "已启用开机自启动", "已禁用开机自启动")
    End Sub
End Class

<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

你的项目
├── Form1.vb          (主窗体)
├── AutoStartHelper.vb (注册表操作类)
├── app.manifest      (权限配置文件)
└── My Project
    └── Application.myapp