利用VBS脚本来模拟按键

关注

转载 2023-03-08 15:22:16 1w 阅读 AI 写同款· GEO 优化 ›

确认并移动鼠标位置 Dim WshShell,mouse 'path Set WshShell = WScript.CreateObject("WScript.Shell") 'Path = WshShell.CurrentDirectory Set mouse=New SetMouse MsgBox "请准备" WScript.Sleep 9000 For i = 1 To 2 ... 阅读详情

新建后缀为.vbs的文件，复制下面内容并保存文件

Set ws = CreateObject("WScript.Shell")
wscript.sleep 1000
For i = 1 To 1
    ws.sendkeys("^s")
    ws.sendkeys("{ENTER}")
Next
wscript.quit
'运行程序，会在1秒后
'执行一次保存键，一次回车键

常用编码表

空格键 " "
退格键 {BACKSPACE} 或 {BS} 或 {BKSP}
BREAK {BREAK}
Delete {Delete} 或 {DEL}
向下键 {DOWN}
向上键 {UP}
向左键 {LEFT}
向右键 {RIGHT}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
Insert {Insert} 或 {INS}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
SCROLL LOCK {SCROLLLOCK}

F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}

要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：

SHIFT     +     
CTRL      ^     
ALT       %

举例1

'alt + f "%F"
'ctrl + s "^S"
'shift + m "+M"
'alt + tab "%{TAB}"
'alt + f4 "%{F4}"
'win + r "^({ESC}R)"

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%F" ' 这就是ALT + F

举例2

Set ws = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1000
For i = 1 To 17
  ws.SendKeys "{INSERT}"
  ws.SendKeys "^s"
  WScript.Sleep 200
Next