[Ex] Souris Virtuel | Virtual Mouse

Sh4dows · #1

Bonjour à tous !

Après le clavier virtuel, j'ai eu l'idée de faire une souris virtuel

Voici les raccourcis clavier :

2010-08-09 15:45:47 : {TOP} Déplacement vers le haut
2010-08-09 15:46:06 : {RIGHT} Déplacement vers la droite
2010-08-09 15:46:20 : {DOWN} Déplacement vers le bas
2010-08-09 15:47:48 : {LEFT} Déplacement vers la gauche
2010-08-09 15:48:36 : {Alt + Z} Clic Gauche
2010-08-09 15:49:08 : {Alt + E} Clic Droit
2010-08-09 15:50:04 : {Alt + DOWN} Maintient du clic gauche
2010-08-09 15:50:33 : {Alt + UP} Relâche du clic gauche
2010-08-09 15:50:51 : {Alt + F1} Quitter

Code :

Code : Tout sélectionner

#NoTrayIcon
HotKeySet("{LEFT}", "_MOUSE_LEFT")
HotKeySet("{RIGHT}", "_MOUSE_RIGHT")
HotKeySet("{UP}", "_MOUSE_TOP")
HotKeySet("{DOWN}", "_MOUSE_DOWN")
HotKeySet("!z", "_MOUSE_LEFT_CLICK")
HotKeySet("!e", "_MOUSE_RIGHT_CLICK")
HotKeySet("!{DOWN}", "_MOUSE_LEFT_CLICK_PRESS")
HotKeySet("!{UP}", "_MOUSE_LEFT_CLICK_UNPRESS")
HotKeySet("!{F1}", "_STATS_CHANGE")

Global $COOR = MouseGetPos()
Global $STATS = 1

While 1
    Sleep(100)
    $COOR = MouseGetPos()
WEnd

Func _MOUSE_LEFT()
    If $STATS = 1 Then MouseMove($COOR[0] -25, $COOR[1], 1)
EndFunc

Func _MOUSE_RIGHT()
    If $STATS = 1 Then MouseMove($COOR[0] +25, $COOR[1], 1)
EndFunc

Func _MOUSE_TOP()
    If $STATS = 1 Then MouseMove($COOR[0], $COOR[1] -25, 1)
EndFunc

Func _MOUSE_DOWN()
    If $STATS = 1 Then MouseMove($COOR[0], $COOR[1] +25, 1)
EndFunc

Func _MOUSE_LEFT_CLICK()
    If $STATS = 1 Then MouseClick("", $COOR[0], $COOR[1], 1, 1)
EndFunc

Func _MOUSE_RIGHT_CLICK()
    If $STATS = 1 Then MouseDown("right")
    If $STATS = 1 Then Sleep(10)
    If $STATS = 1 Then MouseUp("right")
EndFunc

Func _MOUSE_LEFT_CLICK_PRESS()
    If $STATS = 1 Then MouseDown("left")
EndFunc

Func _MOUSE_LEFT_CLICK_UNPRESS()
    If $STATS = 1 Then MouseUp("left")
EndFunc

Func _STATS_CHANGE()
    If $STATS = 1 Then
        $STATS = 0
        Exit
    Else
        $STATS = 1
    EndIf
EndFunc

Mon code est un code de base, il peut être amélioré notamment la partie déplacement de la souris, pourquoi même ne pas ajouté un système de déplacement par un certain nombres de pixels qui sera paramétrable pas l'utilisateur !

Ou encore créer une interface graphique et j'en passe...

J'espère que ce petit bout de code vous plaira

Cordialement Sh4dows

P.S : $STATS était à la base pour activé désactiver l'utilisation de la souris virtuel, si vous le mettez à zéro il vous faudra rajouté des Send() !!