VB WINIO模拟键盘的问题(2)

2025-03-04 07:24:18
推荐回答(1个)
回答1:

建议你使用我这代码:

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i Mod 2 = 0 Then
SendKeys ("{left}")
Else
SendKeys ("{right}")
End If
End Sub