vbs控制鼠标键盘

木头的喵喵拖孩
  2023-07-03 15:16:02 2023-07-03 15:16 创建   2024-05-21 10:56:15 2024-05-21 10:56 更新    

控制键盘

1
2
3
'按一次R键
Set WShell = CreateObject("WScript.shell")
WShell.SendKeys "r"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'创建对象
Set WShell = CreateObject("WScript.shell")

'声明子程序（非函数程序）
Sub sendKeyR()

    '等待3秒钟
    WScript.Sleep 3000

    '发送10次向下方向键
    WShell.SendKeys "{DOWN 10}"

    '循环发送R键信号20次
    Dim count
	count = 0
    Do While count < 20
        WShell.SendKeys "r"
        count = count + 1
    Loop

    Dim a
	a = 2
    If a < 3 Then
		'发送SHIFT + r
        WShell.SendKeys "+(r)"
    ElseIf a > 3 Then
        WShell.SendKeys "q"
    Else
        WShell.SendKeys "w"
    End If

End Sub

'调用子程序
sendKeyR()

'激活窗口
WShell.appactivate("窗口名称")

'结束进程
WShell.Run "taskkill /im wscript.exe -f"

特殊字符

  • %：ALT
  • +：SHIFT
  • ^：CTRL

比如百分号是表示按住ALT键，如果想要直接发送百分号，需要用大括号包裹起来

控制鼠标

目前看来需要安装Excel 才能控制,
以后再写

  • 标题: vbs控制鼠标键盘
  • 作者: 木头的喵喵拖孩
  • 创建于: 2023-07-03 15:16:02
  • 更新于: 2024-05-21 10:56:15
  • 链接: https://blog.xx-xx.top/2023/07/03/vbs控制鼠标键盘/
  • 版权声明: 本文章采用 CC BY-NC-SA 4.0 进行许可。
此页目录
vbs控制鼠标键盘
  1. 控制键盘
    1. 特殊字符
  2. 控制鼠标