Sub Form_Load()
Me.TimerInterval = 1000*60
End Sub
Private Sub Form_Timer()
t = t + 1
If t > 1 Then
SendKeys "{PGDN}"
t = 0
Else
SendKeys "{PGUP}"
End If
End Sub
不保证一定能行,呵呵。作者: Henry D. Sy 时间: 2011-10-17 20:07
虚拟击键应该不行吧! 作者: 软件下载 时间: 2011-10-17 20:17
我先拍下来,回头试试后汇报.作者: andymark 时间: 2011-10-17 20:25
模拟鼠标移动, 也可以加入模拟鼠标的单出事件,这里省去。。。
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)