谁知道除了sendkeys的模拟键盘输入方法

[qubolz]

我想模拟键盘输入。可用sendkeys不行，有个软件，不支持，估计是捕获后没有返回，大家有什么好的办法吗？谢谢

[antshome]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_TAB = &H9

Public Sub KeyNext(ByRef KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
KeyAscii = 0
End If

End Sub




调用：
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyNext KeyAscii
End Sub

• 打赏
• 举报

回复 赞

[zyl910]

发送WM_Char、WM_KeyDown、WM_KeyUp消息

• 打赏
• 举报

回复 赞

[qubolz]

好的，我去试试看。谢谢，实过结帖

• 打赏
• 举报

回复 赞

[uzlan]

如果是输入汉字呢？

• 打赏
• 举报

回复 赞

[SNUMA]

? 字符映射表里看

• 打赏
• 举报

回复 赞