启动文件夹中的快捷方式未加载 Visual Basic 应用程序的正确设置

Question

最近，我开始使用 Microsoft Visual Basic 2010 Express，并创建一个将 URL 加载到浏览器组件中的应用程序。

用户可以配置的设置之一是“Windows 启动时启动应用程序”。当选中此复选框并且用户保存其首选项时，我会在 microsoft 启动文件夹中创建一个快捷方式，以便在 Windows 启动时运行该应用程序。

我使用以下代码执行此操作：

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
Dim startup As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)
IO.File.Copy(Application.ExecutablePath, startup & "\ApplicationName.exe")

问题是，当我使用 Visual Basic 安装时位于桌面或开始菜单程序文件夹上的快捷方式时，它会加载用户定义的设置。但是，当运行启动文件夹中的快捷方式时，它会加载一个完全“新”的应用程序，所有设置均为默认设置。

有人知道我可能做错了什么吗？我在互联网上进行了大量搜索，还查看了 StackOverflow 主题，例如 将应用程序快捷方式复制到启动文件夹 VB （这对我不起作用）

任何帮助将不胜感激。如果您需要更多信息，请询问，我会尽快查找。

Answer 1

您不是在创建快捷方式，而是将可执行文件复制到启动文件夹！
这个复制的可执行文件不会在它附近找到配置文件，因此它将创建一个新的！这就是为什么它显示默认值..
要创建快捷方式，请从项目 -> 引用 -> 添加...的“COM”选项卡导入“Windows 脚本宿主对象模型”

Dim oShell As IWshRuntimeLibrary.WshShell
Dim oShortCut As IWshRuntimeLibrary.WshShortcut

oShell = New IWshRuntimeLibrary.WshShell
oShortCut = oShell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & _
                                                    "\" & GetFileName(Application.ExecutablePath) & ".lnk")
Dim s = Environment.GetFolderPath(Environment.SpecialFolder.Startup)
With oShortCut
    .TargetPath = Application.ExecutablePath
    .Arguments = ""
    .WorkingDirectory = GetDirectoryName(Application.ExecutablePath)
End With
oShortCut.Save()
oShortCut = Nothing : oShell = Nothing