使用 VBScript 启动 ClickOnce 部署的 Windows 应用程序

Question

我有一个 ClickOnce 部署的应用程序，我想从 VBScript 启动，类似于在以下示例中启动 Microsoft Word：

Dim word
Set word = CreateObject("Word.Application")
word.Visible = True

问题是我不知道将什么参数传递到 CreateObject 函数来启动我的应用程序。 我在哪里可以找到我的电脑上安装的应用程序的主列表/调用以启动它们的快捷方式？

Answer 1

ClickOnce 根本就不是这样安装的。 它们通常没有 COM 挂钩（用于 CreateObject），并且安装在用户配置文件（不是该计算机的配置文件）的隔离部分中。 并且不要忘记，您还可以通过 ClickOnce（从不同位置）一次获取同一应用程序的多个副本/版本。

一种选择（在 3.5/VS2008 中）可能是使用新的文件关联内容...将您的应用程序与“.foo”文件关联，创建一个空的“.foo”文件并启动它。 这可能有用。 查看 VS2008 中的 Publish=>Options 对话框。

否则 - 基本上，如果您想要这种类型的使用，我怀疑您将需要使用 msi（即常规安装程序；而不是 ClickOnce）将您的应用程序注册为 COM 库 (dll)。 请注意，.NET 不能构成良好的 COM 服务器 (exe) - 因此不能直接与 Word 进行比较。 如果您想要一个 .NET COM 服务器，那么“服务组件”是您最好的选择 - 但这些组件在 UI 上往往并不重要。

有关信息，隔离区域位于“%userprofile%\Local Settings\Apps\2.0”附近，但这只是出于兴趣，以便您可以看到它..不要尝试从那里运行它。

Answer 2

谢谢（你的）信息。 这让我意识到我可以使用 .Net 可执行文件而不是 vbscript 来启动我的应用程序。

    Dim program As New Process

    'Try to run a .Net click-once application
    Try
        Dim shortcut As String = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
        shortcut = shortcut + "specific\shorctut\path\shortcut.appref-ms"
        program .StartInfo.FileName = lpsShortcut
        program .Start()
    Catch
        'If not go to the web site for a fresh install
        Try
            .Diagnostics.Process.Start("IExplore.exe", "http://url/program.application")
        Catch ex As Exception
            'Log or Email alert here...
        End Try
    End Try