[问题求助] vbs在设置快捷方式的快捷键时如何引用非字母数字符号如=-,/

sunvi

代码如下（运行可以）：

set WshShell=Wscript.CreateObject("Wscript.Shell")
set oShellLink=WshShell.CreateShortcut("C:\56.lnk")
oShellLink.Hotkey="Ctrl+Alt+8"
oShellLink.Save
复制代码

代码如下（想用Ctrl+Alt+一个等号来做快捷键，但运行不可以）：

set WshShell=Wscript.CreateObject("Wscript.Shell")
set oShellLink=WshShell.CreateShortcut("C:\56.lnk")
oShellLink.Hotkey="Ctrl+Alt+="
oShellLink.Save
复制代码

WHY

set WshShell=CreateObject("Wscript.Shell")
set oShellLink=WshShell.CreateShortcut("D:\56.lnk")
oShellLink.Save
Set oShell = CreateObject("Shell.Application")
Set oLink = oShell.NameSpace("D:\").ParseName("56.lnk").GetLink
oLink.HotKey = 1024 + 512 + 187
oLink.Save
复制代码

0000011010111011
按照巨硬的Shell.Application文档说明，从右往左数，低8位（187）为"="的虚拟键码位，第9、10、11位分别为 shift、ctrl、alt 码位

sunvi

感谢2楼的代码，运行可以。
昨晚请教了本论坛大佬czjt1234，也得以解决，他的代码如下，运行可以，共勉：
Set oShell = CreateObject("Shell.Application")
Set oShellLinkObject = oShell.NameSpace("C:\").ParseName("56.lnk").GetLink
oShellLinkObject.Hotkey = &H0EBB
oShellLinkObject.Save()
在此感谢大佬czjt1234，谢谢~

sunvi

有个图片解释：

sunvi

参照以上两位大佬的代码，经过验证代码也可以如下：
Set oShell = CreateObject("Shell.Application")
Set oShellLinkObject = oShell.NameSpace("C:\").ParseName("56.lnk").GetLink
oShellLinkObject.Hotkey = 1024 + 512 + 187
oShellLinkObject.Save()

WHY

参考：
https://docs.microsoft.com/en-us ... lllinkobject-hotkey
https://docs.microsoft.com/en-us ... v/virtual-key-codes