[EX] Mouse action
Posté : ven. 14 oct. 2011 21:19
voila vous n'avez plus de souris pendant un moment et comment bouger le curseur
grace a ce petit script
voila c'est a peut pres tout
grace a ce petit script
► Afficher le textecommandes
Code : Tout sélectionner
#include <Misc.au3>
#NoTrayIcon
HotKeySet("{UP}","haut")
HotKeySet("{DOWN}","bas")
HotKeySet("{LEFT}","gauche")
HotKeySet("{RIGHT}","droite")
HotKeySet("^{LEFT}","cliqueg")
HotKeySet("^{RIGHT}","cliqued")
While 1
If _IsPressed("23") Then Exit
WEnd
Func haut ()
$mouse = MouseGetPos()
MouseMove($mouse[0], $mouse[1] - 20,20)
EndFunc
Func bas ()
$mouse = MouseGetPos()
MouseMove($mouse[0], $mouse[1] + 20,20)
EndFunc
Func gauche ()
$mouse = MouseGetPos()
MouseMove($mouse[0] - 20, $mouse[1],20)
EndFunc
Func droite ()
$mouse = MouseGetPos()
MouseMove($mouse[0] + 20, $mouse[1],20)
EndFunc
Func cliqueg ()
MouseClick("left")
EndFunc
Func cliqued ()
MouseClick("right")
EndFunc