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 码位

WHY

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