'Mouse simulator 'Constantes et function pour la souris 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) Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long) Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Const MOUSEEVENTF_WHEEL = &H80 Const MOUSEEVENTF_XDOWN = &H100 Const MOUSEEVENTF_XUP = &H200 Const WHEEL_DELTA = 120 Const XBUTTON1 = &H1 Const XBUTTON2 = &H2 'Function Pause => met le programme en attente pendant x secondes Private Function Pause(ByVal nbSecondes As Single) Dim Tmp As Single Tmp = Timer Do While Timer < Tmp + nbSecondes DoEvents Loop End Function Private Sub Command1_Click() X = 39 Y = 402 'position de la souris au coordonnée X et Y '(ici si vous êtes en 1024 x 768,cela va cliquer sur le bouton 'Démarrer' de la barre des taches) Pause 5 SetCursorPos X, Y 'Le bouton gauche de la souris s'enfonce Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) ' 'le bouton gauche de la souris se relache Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) 'Le bouton gauche de la souris s'enfonce Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) ' 'le bouton gauche de la souris se relache Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 20 X = 460 Y = 300 SetCursorPos X, Y Pause 10 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 10 X = 674 Y = 430 SetCursorPos X, Y Pause 1 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 10 X = 656 Y = 405 SetCursorPos X, Y Pause 10 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 10 X = 254 Y = 232 SetCursorPos X, Y Pause 10 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 10 X = 231 Y = 352 SetCursorPos X, Y Pause 10 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 10 X = 143 Y = 175 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 5 'Envoie une serie de touche au clavier => le clavier ecrit calc SendKeys "{A}" + "{T}" Pause 11 X = 200 Y = 284 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 5 X = 300 Y = 222 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Do Call Cc22c Loop Until a = 1000000000 End Sub Private Sub Cc22c() Pause 5 X = 143 Y = 175 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 5 'Envoie une serie de touche au clavier => le clavier ecrit calc SendKeys "{A}" + "{T}" Pause 5 X = 200 Y = 284 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Pause 5 X = 300 Y = 222 SetCursorPos X, Y Pause 5 Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) End Sub Private Sub Fin_Click() Close End End Sub Private Sub Form_Load() End Sub

'Function Pause => met le programme en attente pendant x secondes Private Function Pause(ByVal nbSecondes As Single) Dim Tmp As Single Tmp = Timer Do While Timer < Tmp + nbSecondes DoEvents Loop End Function

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'procédure Pause => met le programme en attente pendant x secondes Private Sub Pause(ByRef iSecs As Integer) Call Sleep(iSecs * 1000) DoEvents End Sub