256 lines
5.0 KiB
Markdown
256 lines
5.0 KiB
Markdown
---
|
||
title: "「合集」VBS 代码"
|
||
date: 2025-03-16T22:03:27Z
|
||
lastmod: 2025-03-16T22:06:33Z
|
||
tags: [合集,Windows,VBS,脚本,代码片段]
|
||
---
|
||
|
||
# 「合集」VBS 代码
|
||
|
||
## 激活窗口
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
WshShell.AppActivate "窗口标题"
|
||
```
|
||
|
||
---
|
||
|
||
## 模拟输入
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
WshShell.SendKeys "按键"
|
||
```
|
||
|
||
参考：[博客园](https://www.cnblogs.com/xhyang110/archive/2011/03/25/1995327.html)
|
||
|
||
**1. 基本键**
|
||
|
||
一般来说，要发送的按键都可以直接用该按键字符本身来表示：
|
||
|
||
> 发送字母 `X`，用 `WshShell.SendKeys "X"`。
|
||
|
||
也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可：
|
||
|
||
> 发送按键 `Test`，用 `WshShell.SendKeys "Test"`。
|
||
|
||
**2. 特殊功能键**
|
||
|
||
对于需要与 `Shift`、`Ctrl`、`Alt` 三个控制键组合的按键，SendKeys 使用特殊字符来表示：
|
||
|
||
|按键|代码|
|
||
| :------| :----------------------|
|
||
|Shift|WshShell.SendKeys "+"|
|
||
|Ctrl|WshShell.SendKeys "^"|
|
||
|Alt|WshShell.SendKeys "%"|
|
||
|
||
> 注意：这样使用时，不需要使用 `大括号` 括起这些特殊字符。
|
||
|
||
由于 `+`、`^` 这些字符用来表示特殊的控制按键，所以如果要表示这些 `字符` 的按键，要用 `大括号` 括住这些字符：
|
||
|
||
> 发送加号 `+`，用 `WshShell.SendKeys "{+}"`。
|
||
|
||
对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称。
|
||
如果发送是基本字符用 `“”` 括起来：
|
||
|
||
> 发送 `回车键`，用 `WshShell.SendKeys "{ENTER}"`
|
||
> 发送 `向下的方向键`，用 `WshShell.SendKeys "{DOWN}"`
|
||
|
||
**3. 组合键**
|
||
|
||
发送 `Ctrl + Shift + ESC`，用 `WshShell.SendKeys "^+{ESC}"`。
|
||
|
||
**4. 发送多个重复的单字母按键**
|
||
|
||
不必重复输入该字母，SendKeys 允许使用简化格式进行描述。
|
||
使用格式：`{按键 数字}`
|
||
|
||
> 发送 10 个字母 `X`，用 `WshShell.SendKeys "{X 10}"`。
|
||
|
||
**5. 列表**
|
||
|
||
|按键|代码|
|
||
| :------------------| :----------------------------|
|
||
|↑（UP ARROW）|{UP}|
|
||
|↓（DOWN ARROW）|{DOWN}|
|
||
|←（LEFT ARROW）|{LEFT}|
|
||
|→（RIGHT ARROW）|{RIGHT}|
|
||
|BACKSPACE|{BACKSPACE} / {BS} / {BKSP}|
|
||
|BREAK|{BREAK}|
|
||
|CAPS LOCK|{CAPSLOCK}|
|
||
|DEL（Delete）|{Delete} / {DEL}|
|
||
|END|{END}|
|
||
|ENTER|{ENTER} / ~|
|
||
|ESC|{ESC}|
|
||
|HELP|{HELP}|
|
||
|HOME|{HOME}|
|
||
|INS（Insert）|{Insert} / {INS}|
|
||
|NUM LOCK|{NUMLOCK}|
|
||
|PAGE DOWN|{PGDN}|
|
||
|PAGE UP|{PGUP}|
|
||
|PRINT SCREEN|{PRTSC}|
|
||
|SCROLL LOCK|{SCROLLLOCK}|
|
||
|Space|` `（空格）|
|
||
|TAB|{TAB}|
|
||
|F1|{F1}|
|
||
|F2|{F2}|
|
||
|F3|{F3}|
|
||
|F4|{F4}|
|
||
|F5|{F5}|
|
||
|F6|{F6}|
|
||
|F7|{F7}|
|
||
|F8|{F8}|
|
||
|F9|{F9}|
|
||
|F10|{F10}|
|
||
|
||
---
|
||
|
||
## 循环
|
||
|
||
```vbs
|
||
do
|
||
...
|
||
loop
|
||
```
|
||
|
||
---
|
||
|
||
## 语音合成（TTS）
|
||
|
||
```vbs
|
||
CreateObject("SAPI.SpVoice").Speak "内容"
|
||
```
|
||
|
||
---
|
||
|
||
## 暂停
|
||
|
||
```vbs
|
||
WScript.Sleep 毫秒
|
||
```
|
||
|
||
---
|
||
|
||
## 示例代码
|
||
|
||
### 模拟输入
|
||
|
||
#### 键盘灯闪烁
|
||
|
||
倒计时（时间到后闪烁 NumLock 5 次，间隔 0.2s）
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
m = InputBox("分")
|
||
s = InputBox("秒")
|
||
WScript.sleep m*6000+s*1000
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.sleep 200
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
```
|
||
|
||
循环闪烁（NumLock，间隔 1s）
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
do
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.Sleep 1000
|
||
loop
|
||
```
|
||
|
||
循环闪烁（NumLock，自定义间隔）
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
t = InputBox("请输入闪烁间隔(毫秒)")
|
||
do
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.Sleep t
|
||
loop
|
||
```
|
||
|
||
循环闪烁（3 灯轮换，间隔 0.5s）
|
||
|
||
```vbs
|
||
Dim WshShell
|
||
Set WshShell = CreateObject("WScript.Shell")
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.Sleep 500
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.Sleep 500
|
||
do
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WshShell.SendKeys "{CAPSLOCK}"
|
||
WScript.Sleep 500
|
||
WshShell.SendKeys "{CAPSLOCK}"
|
||
WshShell.SendKeys "{SCROLLLOCK}"
|
||
WScript.Sleep 500
|
||
WshShell.SendKeys "{SCROLLLOCK}"
|
||
WshShell.SendKeys "{NUMLOCK}"
|
||
WScript.Sleep 500
|
||
loop
|
||
```
|
||
|
||
### 提示框
|
||
|
||
#### 简易，有输入框
|
||
|
||
```vbs
|
||
Dim i, msg
|
||
msg = "请输入内容："
|
||
i = InputBox(msg)
|
||
Msgbox i
|
||
```
|
||
|
||
### 音乐播放器
|
||
|
||
#### 简易，有输入框
|
||
|
||
```vbs
|
||
Set Player = CreateObject("WMPlayer.OCX")
|
||
song = InputBox("请输入歌曲路径" & vbCrLf & "", "简易音乐播放器 [等待中]")
|
||
if song <>"" then
|
||
do
|
||
Player.url = song
|
||
song = InputBox(song & vbCrLf & "", "简易音乐播放器 [正在播放]", song)
|
||
if song = "" then exit do
|
||
loop
|
||
end if
|
||
Set Player = nothing
|
||
```
|
||
|
||
### 语音合成
|
||
|
||
#### 有输入框
|
||
|
||
```vbs
|
||
Set s = CreateObject("SAPI.SpVoice")
|
||
i = InputBox("请输入内容" & vbCrLf & "", "语音合成 [等待中]")
|
||
s.speak i
|
||
```
|
||
|
||
|