AutoIt Français

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