vba 自动化事件

mousemove

Private Sub C_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim l As Integer, t As Single
l = Int(Rnd() * 10 + 125) * Int((Rnd() * 3 + 1) - 2)
t = Int(Rnd() * 10 + 30) * Int((Rnd() * 3 + 1) - 2)
C.Top = C.Top + t
C.Left = C.Left + l
End Sub

OKey

application.okey “+e” ，“text”
+e表示的是shift + e一起按下去。“text”表示调用text过程代码

ontime

application.ontim now()+timevalue("01:00:00"),"text"