Mouse simulator

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 073 fois - Téléchargée 46 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
22
Pose ta main sur ta souris et bouge ta tête, tu verras, la souris bouge toute seule, c'est magique !
Messages postés
5
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
3 mai 2008

Merci
Mais comment je peut déplacer un curseur par des mouvements de la tête sous vb.net
Messages postés
274
Date d'inscription
jeudi 22 février 2001
Statut
Membre
Dernière intervention
7 octobre 2013

Bah non je m'appelle toujours jeromax moi, et pas eltaris....
Mais il ne faut pas trop crier, tout le monde prend du code sur tout le monde.
C'est un peu le principe depuis quelque années, et c'est logique: pas la peine de se faire ch.. à refaire du code qu'y existe déjà ! (surtout si on sait le faire): plus on developpe vite et mieux c'est.
Alors il a laissé les commentaires et c'est déjà bien. ;-)

Je pense qu'il a plutôt
Ah, si j'ai trouvé ! La source s'appelle Effectuer des simulations de souris, par un certain Jeromax. D'ailleurs, voici le bout de code :

Private Sub Command1_Click()
X = 30
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)
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)
End Sub


Les commentaires sont identiques, la coord Y pareil.
Ah moins que tu sois la même personne, dans ce cas, regardes d'abord les sources que t'as posté avant d'en balancer une. Surtout que Jéromax, il n'en a mis que 3 (donc c'est pas dur de s'en rappeller).
T'aurais pas piqué ça ailleurs par hasard ?
Parce que le coup de la souris qui va cliquer sur le bouton démarrer quand on est en 1024x768, ça me dit quelquechose, je l'ai déjà vu.
Je me demande même si c'était pas sur vbfrance.
Afficher les 6 commentaires

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.