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 !!!!
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.