在 Windows 7 盒子（64 位）上从 vb.net 创建快捷方式

Question

我正在尝试在 Windows 7 机器（64 位）上从 vb.net 代码创建桌面快捷方式。以下代码适用于 XP，但在 Win7 上运行时，我只是收到一条消息，指出该应用程序已停止工作：

Imports IWshRuntimeLibrary

Dim WshShell As WshShellClass = New WshShellClass

            Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut

            ' The shortcut will be created on the desktop
            'Win 7 
            MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut)

            'MyShortcut = CType(WshShell.CreateShortcut("C:\Documents and Settings\All Users\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut)

            MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path
            MyShortcut.Description = "IE"

            MyShortcut.Save()

有任何想法或更好的方法在 Win7 盒子上从代码创建快捷方式吗？

Answer 1

这里是 Windows 7 64 位。将其编译为 32 位并且它有效：

Imports IWshRuntimeLibrary

Module Module1

    Sub Main()
        Dim WshShell As WshShell = New WshShell

        Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut

        MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\Dah Browser.lnk"), IWshRuntimeLibrary.IWshShortcut)
        MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path
        MyShortcut.Description = "IE"

        MyShortcut.Save()
    End Sub

End Module

注意：我以管理员身份运行并关闭了 UAC。

另请注意，我将 WshShellClass 更改为 WshShell

Answer 2

您的应用程序在什么权限下运行？我相信它将需要管理员凭据才能执行您正在寻找的操作。