7449
社区成员
- 主页
谁知道除了sendkeys的模拟键盘输入方法
我想模拟键盘输入。可用sendkeys不行，有个软件，不支持，估计是捕获后没有返回，大家有什么好的办法吗？谢谢
...全文
请发表友善的回复…
发表回复
SNUMA 2003-03-02
? 字符映射表里看
uzlan 2003-03-02
如果是输入汉字呢？
qubolz 2003-01-20
好的，我去试试看。谢谢，实过结帖
zyl910 2003-01-19
发送WM_Char、WM_KeyDown、WM_KeyUp消息
antshome 2003-01-19
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
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