Maus per Tastatur steuern

    Hatte grade das Problem das der Akku meiner Maus leer war... Aber trotzdem habe ich die Maus benötigt :S
    Also hatte ich eben dieses kleie Script geschrieben damit ich die Maus per Tastatur steuern kann :)
    Ich denke mal es kann hier bestimmt jemand anderes außer mir ebenfalls mal gebrauchen!

    Es kann:
    PFEILTASTE OBEN - MAUS NACH OBEN BEWEGEN
    PFEILTASTE UNTEN - MAUS NACH UNTEN BEWEGEN
    PFEILTASTE RECHTS - MAUS NACH RECHTS BEWEGEN
    PFEILTASTE LINKS - MAUS NACH LINKS BEWEGEN
    STRG TASTE - LINKER MAUSCLICK
    ALT TASTE - RECHTER MAUSCLICK

    Allerdings ist kein Drag & Drop Möglich :S Wenn ihr die TASTEN länger gedrückt lasst steigert sich die Geschwindigkeit!

    Script:

    [autoit]

    #INCLUDE <MISC.AU3>

    [/autoit][autoit][/autoit][autoit]

    GLOBAL $DLL = "USER32.DLL"
    GLOBAL $PARA = 0

    [/autoit][autoit][/autoit][autoit]

    MAIN()

    [/autoit][autoit][/autoit][autoit]

    FUNC MAIN()
    WHILE 1
    IF _ISPRESSED("11", $DLL) THEN
    MOUSECLICK("LEFT")
    SLEEP(10)
    ELSEIF _ISPRESSED("12", $DLL) THEN
    MOUSECLICK("RIGHT")
    SLEEP(10)
    ENDIF
    IF _ISPRESSED("25",$DLL) THEN
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0]-1,$POS[1],1000)
    IF _ISPRESSED("25",$DLL) THEN
    WHILE 1
    IF _ISPRESSED("25",$DLL) THEN
    $PARA = $PARA+1
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0]-$PARA,$POS[1],1000)
    SLEEP(10)
    ELSE
    $PARA = 0
    EXITLOOP
    ENDIF
    WEND
    ENDIF
    ELSEIF _ISPRESSED("26",$DLL) THEN
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0],$POS[1]-1,1000)
    IF _ISPRESSED("26",$DLL) THEN
    WHILE 1
    IF _ISPRESSED("26",$DLL) THEN
    $PARA = $PARA+1
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0],$POS[1]-$PARA,1000)
    SLEEP(10)
    ELSE
    $PARA = 0
    EXITLOOP
    ENDIF
    WEND
    ENDIF
    ELSEIF _ISPRESSED("27",$DLL) THEN
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0]+1,$POS[1],1000)
    IF _ISPRESSED("27",$DLL) THEN
    WHILE 1
    IF _ISPRESSED("27",$DLL) THEN
    $PARA = $PARA+1
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0]+$PARA,$POS[1],1000)
    SLEEP(10)
    ELSE
    $PARA = 0
    EXITLOOP
    ENDIF
    WEND
    ENDIF
    ELSEIF _ISPRESSED("28",$DLL) THEN
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0],$POS[1]+1,1000)
    IF _ISPRESSED("28",$DLL) THEN
    WHILE 1
    IF _ISPRESSED("28",$DLL) THEN
    $PARA = $PARA+1
    $POS = MOUSEGETPOS()
    MOUSEMOVE($POS[0],$POS[1]+$PARA,1000)
    SLEEP(10)
    ELSE
    $PARA = 0
    EXITLOOP
    ENDIF
    WEND
    ENDIF
    ENDIF
    SLEEP(100)
    WEND
    ENDFUNC ;==>MAIN

    [/autoit]