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

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-9-11 20:06 | 只看该作者

[问题求助] 【已解决】vbs中怎样表示小键盘2？谢谢

本帖最后由 yyz219 于 2022-9-12 21:44 编辑

【已解决】  Numpad2=小键盘2
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"    '快捷键【CTRL+小键盘2】
oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标路径(可不指定)
oShellLink.Description = ""    '备注信息
oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\"   '文件所在目录
oShellLink.Save '保存快捷方式
收藏 分享
我是小白，希望老师多多帮助

yakeyun

Rank: 5Rank: 5

帖子
349 
积分
508 
技术
33  
捐助
0  
注册时间
2021-6-19 
2楼
发表于 2022-9-12 00:27 | 只看该作者
回复 1# yyz219

存为VBS，然后运行后切换到记事本，可以看到效果。中途有延时5秒，时间足够切换界面了。
  1. Set WshShell = CreateObject ("WScript.Shell")

  2. WScript.sleep 5000

  3. WshShell.SendKeys "{2}"
复制代码
1

评分人数

    • yyz219: 我试一试先，谢谢技术 + 1

TOP

yyz219

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
3楼
发表于 2022-9-12 08:17 | 只看该作者
我试一试先，谢谢
我是小白，希望老师多多帮助

TOP

yyz219

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
4楼
发表于 2022-9-12 08:23 | 只看该作者
回复  yyz219

存为VBS，然后运行后切换到记事本，可以看到效果。中途有延时5秒，时间足够切换界面了。
yakeyun 发表于 2022-9-12 00:27


这是发送数字“2”  我需要的是小键盘的2（加到快捷键）
我是小白，希望老师多多帮助

TOP

yakeyun

Rank: 5Rank: 5

帖子
349 
积分
508 
技术
33  
捐助
0  
注册时间
2021-6-19 
5楼
发表于 2022-9-12 09:14 | 只看该作者
本帖最后由 yakeyun 于 2022-9-12 10:08 编辑

回复 4# yyz219

VBS解决终端窗口中特殊快捷键问题 - 酒水不犯茶水 - BlogJava  http://www.blogjava.net/baicker/archive/2007/10/15/153033.html
  1. Set WshShell = CreateObject ("WScript.Shell")

  2. WScript.sleep 5000

  3. WshShell.SendKeys "{CTRL}+{2}"
复制代码

TOP

yyz219

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
6楼
发表于 2022-9-12 09:46 | 只看该作者
本帖最后由 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 '保存快捷方式
我是小白，希望老师多多帮助

TOP

idwma

Rank: 6Rank: 6

帖子
977 
积分
1712 
技术
242  
捐助
0  
注册时间
2014-6-17 
7楼
发表于 2022-9-12 14:07 | 只看该作者 
  1. https://docs.microsoft.com/zh-cn/windows/win32/inputdev/virtual-key-codes
复制代码
  1. Set WshShell = WScript.CreateObject("WScript.Shell")

  2. set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\翻译搜狗OCR手写\翻译（好）Ctrl + Alt + 1.lnk") '快捷方式路径

  3. oShellLink.TargetPath = "D:\1绿色软件\翻译工具\翻译（好）\启动--翻译（好）.vbs"   '可执行文件的路径

  4. oShellLink.WindowStyle = 1 '运行方式(窗体打开的方式)

  5. oShellLink.Hotkey = "CTRL+Numpad2"    '快捷键

  6. oShellLink.IconLocation = "D:\1绿色软件\翻译工具\翻译（好）\翻译（好）.exe, 0" '图标路径(可不指定)

  7. oShellLink.Description = ""    '备注信息

  8. oShellLink.WorkingDirectory = "D:\1绿色软件\翻译工具\翻译（好）\"   '文件所在目录

  9. oShellLink.Save '保存快捷方式
复制代码
1

评分人数

TOP

yyz219

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
8楼
发表于 2022-9-12 19:12 | 只看该作者
idwma 发表于 2022-9-12 14:07



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

TOP

yyz219

Rank: 5Rank: 5

帖子
758 
积分
977 
技术
4  
捐助
0  
注册时间
2021-8-30 
9楼
发表于 2022-9-12 19:14 | 只看该作者
我试一试先 非常感谢
yyz219 发表于 2022-9-12 19:12



    非常成功  非常感谢
我是小白，希望老师多多帮助

TOP

返回列表