Mouse simulator

Commenter

Contenu du snippet

Permet de faire une simulation parfaite de sa souris !!!

By JejeSoftware® (autres pseudo Grossoft®,Grossoft)

Source / Exemple : 


'By JejeSoftware®
'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 = 45
    Y = 755
'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 1
    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)
 Pause 1
  X = 85
  Y = 650
  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 1
 'Envoie une serie de touche au clavier => le clavier ecrit calc
  SendKeys "{c}" + "{a}" + "{l}" + "{c}"
 Pause 1
 'Puis le clavier appuie sur Entree => calc se lance
  SendKeys "{ENTER}"
  'Pour plus d'info sur SendKeys voir l'aide MSDN (c'est bien expliqué)
End Sub

Conclusion :


Explication simple. Si vous n'arrivez pas a faire fonctionner cette source désinstaller VB et joueur au solitaire !!! Ce sera plus de votre niveau !!!!!!!

Bonne prise de tête !!!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.