Vb6 加载快捷方式，然后自动关闭窗体

我想实现当快捷链接运行。。。表单会自动关闭，顺便说一句，我对vb编码还不熟悉，所以非常感谢您的帮助，这是我目前的代码

Private Sub Form_Load()

Set ss = CreateObject("WScript.Shell")
ss.Run Chr(34) & ss.specialfolders("Desktop") & "\app\SOMEGAME.lnk" & Chr(34)

End Sub

---

假设您使用的是VB6，这是您的代码的外观，您可以通过调用

Unload Me

在表单的末尾，加载事件处理程序

但是，您不需要使用表单启动快捷方式-您可以向项目中添加模块右键单击项目，选择“添加->模块”，然后只需调用函数即可启动快捷方式，如下所示：

'Declare the ShellExecute() API function
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL As Long = 1

'Entry point of your program
Public Sub Main()

    Dim sPath As String

    sPath = "C:\app\SOMEGAME.lnk"
    ShellExecute 0, vbNullString, sPath, vbNullString, "C:\", SW_SHOWNORMAL

End Sub

若要执行此操作，请将项目属性下的启动对象设置为Sub Main

使用这种方法，您没有表单——您的程序只是从命令行或它自己的快捷方式运行。如果程序不需要表单，通常最好不要创建/显示表单，因为表单会使用额外的资源

---

话虽如此，您应该尝试使用VB.Net或C为Windows编写程序-VB6是没有支持的旧技术，无法处理许多新技术。如果您还不了解VB6，那么现在学习它没有什么意义-学习VB.Net/C可以更好地利用您的时间。

您想做什么？是否尝试运行快捷方式，然后立即关闭打开的窗体？代码应该是VB 6还是VB.Net？我是电脑咖啡馆的老板，我决定在exe中嵌入一个本地站点，这样用户可以通过exe窗口启动程序，并将其设置为chrome的主页，由于uac特权，我不能直接启动程序到它的目录，所以我必须通过快捷链接启动程序，很好，谢谢你的代码工作。谢谢你的快速回复。现在它工作得很好。我只需要在win7中测试它，就像你说的vb6太旧了，win7是一项新技术，我在xp上测试了它，它工作得很好。再次感谢。