VB模拟按键

显示全部楼层 · 2008-7-19 20:48:11

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

千问 · 2008-7-19 20:48:11

v'一个timer，一个command，一个textPrivate 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-60000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Call keybd_even

千问 · 2008-7-19 20:48:11

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

千问 · 2008-7-19 20:48:11

Option ExplicitPrivate 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_Mou

千问 · 2008-7-19 20:48:11

SendKeys "{UP}" 或keybd_event均可。

千问 · 2008-7-19 20:48:11

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