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

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2022-5-15 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-5-15 04:47 | 只看该作者

[问题求助] VBS中如何模拟出Ctrl+Alt+P

set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000

' 尝试了多种方法，有

' WshShell.SendKeys "^%P"
' WshShell.SendKeys "^%{P}"
' WshShell.SendKeys ("^%{P}")
' WshShell.SendKeys "(^%P)"
' WshShell.SendKeys "^(%P)"
' WshShell.SendKeys "^(%(P))"
' WshShell.SendKeys "(^(%(P)))"

但是发现系统在模拟时总是会自动的加上一个Shift，变成Ctrl+Alt+Shift+P，激发不了原先的热键，有点尴尬。
是我的电脑有问题吗？还是我哪里写错了。请高手们指导。
收藏 分享

flashercs

Rank: 6Rank: 6

帖子
1251 
积分
2217 
技术
279  
捐助
0  
注册时间
2017-3-20 
2楼
发表于 2022-5-15 09:56 | 只看该作者 
  1. WshShell.SendKeys "^%P"
复制代码
加shift 有可能是键盘shift 卡住了,或者锁定了Capslock
微信:flashercs
QQ:49908356

TOP

ZZMRSY

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2022-5-15 
3楼
发表于 2022-5-15 15:57 | 只看该作者
回复 2# flashercs


    您试过这样写可以激发对应的快捷键吗？我的电脑没有出现那两个问题，但是我这边用这种写法和其他几种写法，系统按键都模拟的是Ctrl+Alt +Shift+P。没有激发原来的快捷键，真是怪事情。

TOP

czjt1234

Rank: 6Rank: 6

帖子
1061 
积分
1562 
技术
112  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 2022-10-18 17:16 | 只看该作者
闲来无事，瞎猫碰到死耗子

oWshShell.SendKeys "(^%i)"     'ctlr + alt + i
oWshShell.SendKeys "(^%I)"     'ctlr + alt + shift + i

QQ 20147578

TOP

ZZMRSY

Rank: 1

帖子
4 
积分
16 
技术
0  
捐助
0  
注册时间
2022-5-15 
5楼
发表于 2022-11-21 21:10 | 只看该作者
回复 4# czjt1234


    哈哈，原来是我不该把p大写的。看了你的答案才知道，多谢。

TOP

返回列表