设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 【已解决】求批处理：修改快捷方式的快捷键，谢谢 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 18555|回复: 5

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

[复制链接]
yyz219
发表于 2022-9-9 22:23:21 | 显示全部楼层 |阅读模式
本帖最后由 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
发表于 2022-9-10 00:10:27 | 显示全部楼层
  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技术 +1 收起 理由
yyz219 + 1 乐于助人

查看全部评分

回复

举报

yyz219
 楼主| 发表于 2022-9-10 21:38:43 | 显示全部楼层
回复 2# idwma


    我试一试先 谢谢
回复

举报

yyz219
 楼主| 发表于 2022-9-10 21:45:38 | 显示全部楼层
回复 2# idwma

没有成功，就是光标一直闪
回复

举报

yyz219
 楼主| 发表于 2022-9-11 19:31:54 | 显示全部楼层
用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
发表于 2022-9-12 14:06:09 | 显示全部楼层
回复 4# yyz219


    powershell第一次启动是会慢点的
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 17:01 , Processed in 0.021260 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表