- https://docs.microsoft.com/zh-cn/windows/win32/inputdev/virtual-key-codes
- Set WshShell = WScript.CreateObject("WScript.Shell")
- set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\翻译（好）Ctrl + Alt + 1.lnk") '快捷方式路径
- oShellLink.TargetPath = "D:\1绿色软件\翻译工具\翻译（好）\启动--翻译（好）.vbs" '可执行文件的路径
- oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
- oShellLink.Hotkey = "CTRL+Numpad2" '快捷键
- oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标路径(可不指定)
- oShellLink.Description = "" '备注信息
- oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\" '文件所在目录
- oShellLink.Save '保存快捷方式
| 
发表于 2022-9-12 14:07
|