|
 
- 帖子
- 851
- 积分
- 1098
- 技术
- 4
- 捐助
- 0
- 注册时间
- 2021-8-30
|
本帖最后由 yyz219 于 2022-9-12 09:52 编辑
回复 yyz219
在vbs中将包含Unicode格式的字符用chrw替换换,这个是原因，需要把案件码转换。
yakeyun 发表于 2022-9-12 09:14 
脚本: D:\桌面\Desktop\新建 vbs 文件.vbs
行: 3
字符: 1
错误: 无效的过程调用或参数
代码: 800A0005
源: Microsoft VBScript 运行时错误
********************************************************
我是用来修改快捷方式的快捷键的
下面是成功的：
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+Alt+2" '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标路径(可不指定)
oShellLink.Description = "" '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\" '文件所在目录
oShellLink.Save '保存快捷方式
*************************************************************
下面是不成功的
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+Num+2" '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标路径(可不指定)
oShellLink.Description = "" '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\" '文件所在目录
oShellLink.Save '保存快捷方式 |
|
发表于 2022-9-11 20:06
| 