[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2022-9-9 22:23 | 只看该作者

[其他] 【已解决】求批处理：修改快捷方式的快捷键，谢谢

本帖最后由 yyz219 于 2022-9-11 19:33 编辑

求批处理：修改快捷方式的快捷键，谢谢

例如:
快捷方式是：J:\试一试\123.txt.lnk
怎样用批处理修改这个快捷方式的快捷键，谢谢
用vbs解决了问题：
'【翻译（好）】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+1"】
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+9"    '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
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+Alt+1"    '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\"   '文件所在目录
oShellLink.Save '保存快捷方式
'********************************************************************************************************************
'【搜狗OCR 】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+2"】
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\搜狗OCR Ctrl + Alt + 2.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\screencapture.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+9"    '快捷键
oShellLink.IconLocation = "D:\搜狗拼音便携版\SogouPinyinPortable.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\"   '文件所在目录
oShellLink.Save '保存快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\搜狗OCR Ctrl + Alt + 2.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\screencapture.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+2"    '快捷键
oShellLink.IconLocation = "D:\搜狗拼音便携版\SogouPinyinPortable.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\"   '文件所在目录
oShellLink.Save '保存快捷方式
'********************************************************************************************************************
'【手写输入】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+3"】
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\手写输入Ctrl + Alt + 3.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\handinput.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+9"    '快捷键
'oShellLink.IconLocation = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\"   '文件所在目录
oShellLink.Save '保存快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\手写输入Ctrl + Alt + 3.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\handinput.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+3"    '快捷键
'oShellLink.IconLocation = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\"   '文件所在目录
oShellLink.Save '保存快捷方式


收藏 分享
我是小白，希望老师多多帮助

idwma

Rank: 6Rank: 6

帖子
976 
积分
1708 
技术
241  
捐助
0  
注册时间
2014-6-17 
6楼
发表于 2022-9-12 14:06 | 只看该作者
回复 4# yyz219


    powershell第一次启动是会慢点的

TOP

yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
5楼
发表于 2022-9-11 19:31 | 只看该作者
用vbs解决了问题：
'【翻译（好）】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+1"】
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+9"    '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
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+Alt+1"    '快捷键
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\"   '文件所在目录
oShellLink.Save '保存快捷方式
'********************************************************************************************************************
'【搜狗OCR 】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+2"】
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\搜狗OCR Ctrl + Alt + 2.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\screencapture.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+9"    '快捷键
oShellLink.IconLocation = "D:\搜狗拼音便携版\SogouPinyinPortable.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\"   '文件所在目录
oShellLink.Save '保存快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\搜狗OCR Ctrl + Alt + 2.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\screencapture.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+2"    '快捷键
oShellLink.IconLocation = "D:\搜狗拼音便携版\SogouPinyinPortable.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\多媒体\抓图抓滚动\搜狗拼音截图\"   '文件所在目录
oShellLink.Save '保存快捷方式
'********************************************************************************************************************
'【手写输入】【先设置快捷键为："CTRL+Alt+9"，再设置快捷键为："CTRL+Alt+3"】
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\手写输入Ctrl + Alt + 3.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\handinput.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+9"    '快捷键
'oShellLink.IconLocation = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\"   '文件所在目录
oShellLink.Save '保存快捷方式

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\手写输入Ctrl + Alt + 3.lnk") '快捷方式路径
oShellLink.TargetPath = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\handinput.exe"   '可执行文件的路径
oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)
oShellLink.Hotkey = "CTRL+Alt+3"    '快捷键
'oShellLink.IconLocation = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\翻译（好）.exe, 0" '图标(可不指定)
oShellLink.Description = "ChinaDforce YanMang"    '备注信息
oShellLink.WorkingDirectory = "D:\搜狗拼音便携版\App\SogouExtension\handinput\1.1.0.38\"   '文件所在目录
oShellLink.Save '保存快捷方式
我是小白，希望老师多多帮助

TOP

yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
4楼
发表于 2022-9-10 21:45 | 只看该作者
回复 2# idwma

没有成功，就是光标一直闪
我是小白，希望老师多多帮助

TOP

yyz219

Rank: 5Rank: 5

帖子
757 
积分
976 
技术
4  
捐助
0  
注册时间
2021-8-30 
3楼
发表于 2022-9-10 21:38 | 只看该作者
回复 2# idwma


    我试一试先 谢谢
我是小白，希望老师多多帮助

TOP

idwma

Rank: 6Rank: 6

帖子
976 
积分
1708 
技术
241  
捐助
0  
注册时间
2014-6-17 
2楼
发表于 2022-9-10 00:10 | 只看该作者 
  1. powershell "$f='J:\试一试\123.txt.lnk';$a=gc -enc byte $f;$a[0x40]=104;$a[0x41]=2;sc -enc byte $f ([byte[]]$a)"
复制代码
1

评分人数

TOP

返回列表