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

qubolz 2003-01-19 09:04:10
我想模拟键盘输入。可用sendkeys不行,有个软件,不支持,估计是捕获后没有返回,大家有什么好的办法吗?谢谢
...全文
122 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧