Question

VB模拟按键

如何用VB模拟按方向键中的上键？急！！！！！！

Answer 1

v

'一个timer，一个command，一个text

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Timer1.Interval = Text1 'text1内输入数字，范围1-60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call keybd_event(38, 0, 0, 0) '模拟按下"向上"键
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Answer 2

If KeyAscii = 97 Then SendKeys "{UP}" ’如果你按a键，则转换成向上键，可以把97改成你需要ascii码

Answer 3

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

keybd_event vbKeyUp, 0, 0, 0 '按下↑键
keybd_event vbKeyUp, 0, 2, 0 '释放↑键

End Sub

加个List测试一下

Answer 4

SendKeys "{UP}"
或keybd_event均可。

Answer 5

你傻了啊，花这么多分提问，这种问题在黑客网站编程教学一大堆