用于以编程方式在Windows 8上启动快捷方式

时间:2012-09-17 08:03:00

标签: vbscript windows-8 installshield-2011

我使用Installshield 2011创建了一个安装程序。此安装程序在StartMenu - >程序中创建了一个快捷方式,它在安装过程中也运行了一个vbscript。此VB脚本在StartMenu中创建另一个快捷方式 - >程序。

问题是,Installshield创建的快捷方式会自动“固定到”开始“,因此在Windows 8上的地铁用户界面上显示为一个磁贴,但是VBScript创建的快捷方式是”未固定为启动“,只有在单击Metro UI桌面上的“所有应用程序”。

我可以在VBScript中更改什么,以便将快捷方式固定为启动。有没有我可以使用的API?

1 个答案:

答案 0 :(得分:0)

我这里没有Windows 8,所以我不确定这是否可行,但尝试一下也不会有什么坏处:

Set sa   = CreateObject("Shell.Application")
Set fldr = sa.NameSpace("C:\PATH\TO\SHORTCUT\FOLDER")
Set lnk  = fldr.ParseName("SHORTCUT.lnk")
For Each verb In lnk.Verbs
  If verb.Name = "Pin to Tas&kbar" Then verb.DoIt()
Next