使用 vbscript 更改快速启动图标

Question

我是 vbscript 的新手。我正在尝试通过 vbscript 更改我的快速启动图标。这些图标之一适用于我目前正在玩的任何游戏，并且经常更改。我的问题是如何在不知道快捷方式名称的情况下设置图标。是否可以搜索文件夹中的所有快捷方式，不包括不会更改的快捷方式，然后使用剩余的快捷方式为游戏快捷方式设置“set objFolderItem()”语句的参数。我当前的代码。

Set objShell = CreateObject("Shell.Application")
usrname = CreateObject("WScript.Network").UserName
Set objFolder = objShell.NameSpace("C:\Users\" + usrname + "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch")
Set objFolderItem = objFolder.ParseName("foobar2000.lnk")
Set objShortcut = objFolderItem.GetLink
objShortcut.SetIconLocation "D:\Arthur\Graphics\Icons\Quicklaunch\Ico\Music.ico", 0
objShortcut.Save

Set objFolderItem = objFolder.ParseName("Game.lnk")
Set objShortcut = objFolderItem.GetLink
objShortcut.SetIconLocation "D:\Arthur\Graphics\Icons\Quicklaunch\Ico\Game.ico", 0
objShortcut.Save

Answer 1

你可以试试这个。

RefreshMenu Method

--------------------------------------------------------------------------------

Description

Refreshes the contents of the Start Menu.


Syntax
object.RefreshMenu



Parameter Description 
object  Required. An object expression that evaluates to a Shell object. 


See Also
Shell

否则杀死并重新启动 explorer.exe。