在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的框shorcut？

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

您的应用程序在什么特权下运行？我相信它将需要管理员凭据来执行您正在查找的内容。