Question

跪求~~~vb6如何模拟小键盘的输入！~~~高手必会！~~~

Answer 1

小键盘的话，可以试下SendKeys。

如：
Private Sub Command1_Click()
Sendkeys("8")
End Sub

等同于小键盘的8

Answer 2

用Keybd_Event来模拟
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'调用
Keybd_event vbkey1,0,0,0
Keybd_event vbkey2,0,0,0
Keybd_event vbkey3,0,0,0
...

追问

你这是模拟按下.
那如何模拟松开呢？

还有，注意是“小键盘”.
谢谢.

追答

KeyCode 96 至105 分别对应的是小键盘的0 至9

要弹起的话,加一句
keybd_event(96, 0, 0, 0) '按下0
Sleep 200 '延时200毫秒
keybd_event(96, 0, KEYEVENTF_KEYUP, 0) '弹起

追问

呃，我已经有了一个模拟Alt按下的代码了。
请看图吧。
如何修改？
Alt模拟： Private Declare Sub keybd_event Lib "user32 " (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

追答

把"m = keybd_event(103..."这一句改为"keybd_event 103,..."

仔细瞅下定义,keybd_event没有返回值的说~