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

qubolz 2003-01-19 09:04:10
我想模拟键盘输入。可用sendkeys不行,有个软件,不支持,估计是捕获后没有返回,大家有什么好的办法吗?谢谢
...全文
76 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
  • 打赏
  • 举报
回复
发帖
VB基础类

7635

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2003-01-19 09:04
社区公告
暂无公告