Question

为什么我看到这条消息。我只想添加应用程序，每次使用Windows启动，然后它弹出这个消息。

拒绝访问路径....

我使用此代码添加startup

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim info As New FileInfo(Application.StartupPath)
       info.CopyTo(My.Computer.FileSystem.SpecialDirectories.Programs + "\startup\Apps.exe")
    End Sub

Answer 1

如果您希望应用程序在Windows启动时启动，则可以使用注册表。

要将应用程序添加到系统，请使用此代码 -

Imports Microsoft.Win32
Public Sub RunAtStartup(ByVal ApplicationName As String, ByVal ApplicationPath As String)
    Dim CU As Microsoft.Win32.RegistryKey = Registry.CurrentUser.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
    With CU
        .OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

        .SetValue(ApplicationName, ApplicationPath)

    End With
End Sub

使用该功能只需做 -

RunAtStartup(Application.ProductName,Application.ExecutablePath)

路径的访问被拒绝vb.net

1 个答案: