vbs 按键：启动应用，执行热键

- 日理万妓 2023-03-04 13:27 4阅读 0赞

# 备注 #

使用`SendKeys`方法将击键发送到没有自动化接口的应用程序。大多数键盘字符由一个按键表示。有些键盘字符是由按键组合组成的(例如 CTRL+SHIFT+HOME)。要发送单个键盘字符，请将字符本身作为字符串参数发送。例如：

*  要发送字母`x`，使用字符串参数`"x"`；
 *  要发送空格，使用参数`" "`；
 *  要发送字符串`abc`，使用参数 `"abc"`

## 功能键 ##

<table> 
 <thead> 
  <tr> 
   <th>功能键</th> 
   <th>参数字</th> 
  </tr> 
 </thead> 
 <tbody> 
  <tr> 
   <td>SHIFT</td> 
   <td>+</td> 
  </tr> 
  <tr> 
   <td>CTRL</td> 
   <td>^</td> 
  </tr> 
  <tr> 
   <td>ALT</td> 
   <td>%</td> 
  </tr> 
 </tbody> 
</table>

*  要发送字符串`Abc`，使用参数 `"+abc"`

## 特殊字符 ##

特殊字符需要使用花括号包起来转义：`{特殊字符}`。

# 例子 #

不完美

WshShell.Run "Postman" '启动 Postman
    
    ' 判断标题为 Postman 的窗口是否已经激活
    While WshShell.AppActivate("Postman") = false
    	wscript.sleep 5000
    Wend

暂时没能实现启动 + 执行热键。只好先打开`Postman`再执行下面

on error resume next
    Dim WshShell 
    Set WshShell=WScript.CreateObject("WScript.Shell") 
    wscript.sleep 1000 * 60 * 60 * 5 ' 5小时后执行 
    
    WshShell.AppActivate "Postman" 
    wscript.sleep 3000
    WshShell.SendKeys "^~"  ' ctrl + enter

dim wsh
    set wsh = createobject("wscript.shell")
    wsh.appactivate("无标题")
    wscript.sleep 700
    wsh.SendKeys "+App9527"
    wsh.SendKeys "~"

自动输入`(Abc@)520@qq.com`

dim wsh,titleStr
    set wsh = createobject("wscript.shell")
    titleStr=InputBox("目标窗口titel:")
    if titleStr = "" then
    	titleStr = "aaa.txt"
    end if
    wsh.appactivate(titleStr)
    wscript.sleep 700
    ' 输入：(Abc@)520@qq.com
    wsh.SendKeys "{
       (}+Abc@{
       )}520@qq.com"
    wscript.sleep 200
    wsh.SendKeys "{ENTER}"
    wscript.sleep 200
    wsh.SendKeys "{ENTER}"

# 问题 #

注意：编码问题 ANSI 正常，UTF8 报错

# 参考资料 #

[MSDN WshShell.SendKeys()][MSDN WshShell.SendKeys]

[MSDN WshShell.SendKeys]: https://docs.microsoft.com/en-us/previous-versions//8c6yea83%28v=vs.85%29?redirectedfrom=MSDN