[EX] souris ac numpad

[legend]

Bonjour,
je viens de faire un script assés nul
mais sa sert pour ceux qui ont souri en panne.
sa permet de bouger souri et cliquer avec les boutons numpad.
Voici le code (amilioré^^)

Code : Tout sélectionner

#Include <Misc.au3>
Global $mouse, $left = 0, $right = 0, $up = 0, $down = 0, $upleft = 0, $upright = 0, $downleft = 0, $downright = 0

Func a()
    $pressed = _IsPressed (64)
if $pressed = True Then
    $left = $left +2
Else
    $left = 0
EndIf
EndFunc

Func b()
    $pressed1 = _IsPressed (66)
if $pressed1 = True Then
    $right = $left +2
Else
    $right = 0
EndIf
EndFunc

Func c()
    $pressed = _IsPressed (68)
if $pressed = True Then
    $up = $up +2
Else
    $up = 0
EndIf
EndFunc

Func d()
    $pressed = _IsPressed (62)
if $pressed = True Then
    $down = $down +2
Else
    $down = 0
EndIf
EndFunc

Func e()
    $pressed = _IsPressed (61)
if $pressed = True Then
    $downleft = $downleft +2
Else
    $downleft = 0
EndIf
EndFunc

Func f()
    $pressed = _IsPressed (63)
if $pressed = True Then
    $downright = $downright +2
Else
    $downright = 0
EndIf

EndFunc
Func g()
    $pressed = _IsPressed (67)
if $pressed = True Then
    $upleft = $upleft +2
Else
    $upleft = 0
EndIf
EndFunc
Func h()
    $pressed = _IsPressed (69)
if $pressed = True Then
    $upright = $upright +2
Else
    $upright = 0
EndIf
EndFunc

AdlibRegister ("a", 100)
AdlibRegister ("b", 100)
AdlibRegister ("c", 100)
AdlibRegister ("d", 100)
AdlibRegister ("e", 100)
AdlibRegister ("f", 100)
AdlibRegister ("g", 100)
AdlibRegister ("h", 100)


Func left()
    MouseMove ($mouse[0] - 10 - $left, $mouse[1], 0)
EndFunc
Func right()
    MouseMove ($mouse[0] +10 +$right, $mouse[1], 0)
EndFunc
Func up()
    MouseMove ($mouse[0], $mouse[1] - 10 -$up, 0)
EndFunc
Func down()
    MouseMove ($mouse[0], $mouse[1] + 10 +$down, 0)
EndFunc
Func upleft()
    MouseMove ($mouse[0] - 10 - $upleft, $mouse[1] - 10 - $upleft, 0)
EndFunc
Func upright()
    MouseMove ($mouse[0] + 10+ $upright, $mouse[1] - 10 -$upright, 0)
EndFunc
Func downright()
    MouseMove ($mouse[0] + 10+ $downright, $mouse[1] + 10 +$downright, 0)
EndFunc
Func downleft()
    MouseMove ($mouse[0] - 10 -$downleft, $mouse[1] + 10 +$downleft, 0)
EndFunc
func click()
    mouseclick ("left")
    EndFunc
func click2()
    mouseclick ("right")
    EndFunc
HotKeySet ("{numpad4}", "left")
HotKeySet ("{numpad6}", "right")
HotKeySet ("{numpad8}", "up")
HotKeySet ("{numpad2}", "down")
HotKeySet ("{numpad7}", "upleft")
HotKeySet ("{numpad1}", "downleft")
HotKeySet ("{numpad3}", "downright")
HotKeySet ("{numpad9}", "upright")
hotkeyset ("{numpad5}", "click")
HotKeySet ("{Numpad0}", "click2")
while 1
        $mouse = MouseGetPos ()
sleep (30) ; 100 sera trop parce qu'il faut une recherche rapide :)
    WEnd

Bonne journée a tous ^^

[timmalos]

Alors première chose, rajoute un Sleep(100) dans ta boucle, sinon ton PC va pas aimer. Ensuite le MouseGetPos serait mieux dans chaque fonction, ca évite de l'appeler pour rien à chaque tour de boucle.

Enfin, tu pourrais rajouter que si la touche reste enfoncée (Cf _IsPressed) alors au bout d'un moment ca bouge plus vite, ca améliorerait l'utilité et la performance de ton script.

[legend]

j'avais deja cette idée en tête mais pas de temp ^^
voila mtn c fait, merci.
bonne journée

[SrBelial]

c'est gentil de poster votre exemple, nous vous en remercions !

par contre Merci de bien vouloir à l'avenir faire un effort sur l'écriture : nous sommes sur le forum AutoIt-fr, et comme son nom l'indique nous y communiquons en français ... et non pas en javanais, chinois, anglais, allemand ... et EN AUCUNE FAçON EN SMS !!!

voila c'est dit presque sans s'énerver ... je tiens compte du fait que vous êtes tout neuf sur le forum, donc prière à l'avenir de faire un effort, merci pour ceux qui vous liront

[legend]

Ok j’éviterais le sms.
non seulement je suis nouveau mais très jeune (15ans) ^^
je vous remercie pour votre accueil et votre aide sur ce forum.
bonne journée.

[legend]

désolé trompé de sujet o_O

[pop45]

Le double post est interdit aussi , utilise la fonction "Editer" pour modifier tes messages

Je vais utiliser gmail
mon adresse est legendary1995@gmail.com
vous pouvez me donner ce que je dois mettre dans les autres formulaires a remplir?
Merci

Par contre je n'ai pas compris cette partie!