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

qubolz 辽宁点速网络传播有限公司 部门经理/部门主管  2003-01-19 09:04:10
我想模拟键盘输入。可用sendkeys不行,有个软件,不支持,估计是捕获后没有返回,大家有什么好的办法吗?谢谢
...全文
8 点赞 收藏 5
写回复
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
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7449

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告