高考问答touch all bases:跑跑外挂!
来源：百度文库 编辑：高考问答 时间：2024/04/28 15:57:45
Const KEYEVENTF_EXTENDEDKEY = &H1
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
keybd_event 38, 0, KEYEVENTF_EXTENDEDKEY, 100
End Sub
模拟键盘UP按下事件可是运行跑跑时怎么就是不自己加速!
VB高手指教!
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
keybd_event 38, 0, KEYEVENTF_EXTENDEDKEY, 100
End Sub
模拟键盘UP按下事件可是运行跑跑时怎么就是不自己加速!
VB高手指教!