Question

VB如何模拟按键

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Private Sub Command1_Click()
Dim hwd As Long
hwd = 1574346
PostMessage hwd, WM_KEYDOWN, vbKeyReturn, 0 '向目标句柄发送回车键
PostMessage hwd, WM_KEYUP, vbKeyReturn, 0
End Sub

请问如何在此基础上 能发送1健 2健后F1 F2 等

在线等
请问如何在此基础上能发送1健 2健 或F1 F2 等

Answer 1

vbKeyReturn是回车，可以改成：
1键：vbkey1
2键：vbkey2
F1：vbkeyF1
F2：vbkeyF2

追问

PostMessage hwd, WM_KEYDOWN, vbkeyF1, 0
PostMessage hwd, WM_KEYUP, vbkeyF1, 0
就改这句吗

追答

是的

Answer 2

Private Const WM_KEY1 =&H31
Private Const WM_KEY2 ==&H32
Private Const WM_KEYF1 ==&H70
Private Const WM_KEYF2 = =&H71

Answer 3

使用sendkeys函数。

sendkeys "a"'按a

sendkeys "+a"'按Shift+a

sendkeys "^a"'Ctrl+a
sendkeys "%a"'Alt+a

sendkeys "{Enter}"'回车

sendkeys "abcdef"'按顺序输入

Answer 4

vbKeyF1 112 F1 键
vbKeyF2 113 F2 键
vbKeyF3 114 F3 键
vbKeyF4 115 F4 键
vbKeyF5 116 F5 键
vbKeyF6 117 F6 键
vbKeyF7 118 F7 键
vbKeyF8 119 F8 键
vbKeyF9 120 F9 键
vbKeyF10 121 F10 键
vbKeyF11 122 F11 键
vbKeyF12 123 F12 键
vbKeyF13 124 F13 键
vbKeyF14 125 F14 键
vbKeyF15 126 F15 键
vbKeyF16 127 F16 键