[Ex] Souris Virtuel | Virtual Mouse
Posté : lun. 09 août 2010 23:20
Bonjour à tous !
Après le clavier virtuel, j'ai eu l'idée de faire une souris virtuel
Voici les raccourcis clavier :
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() !!
Après le clavier virtuel, j'ai eu l'idée de faire une souris virtuel
Voici les raccourcis clavier :
Code :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 : 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
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() !!