Maussteuerprogramm

    Hallo Leute,
    da meine Maus aus welchen Gründen auch immer oft ausfällt, habe ich gedacht, dass ich mir doch einfach ein Programm programmieren könnte, womit ich meine Maus per Tastatur steuern kann. Leider ist das Programm nicht ganz flüssig. Wie könnte ich das ganze schneller machen?

    Spoiler anzeigen
    [autoit]

    HotKeySet ("{Right}","rechts")
    HotKeySet ("{Left}","links")
    HotKeySet ("{up}","hoch")
    HotKeySet ("{down}","runter")
    HotKeySet ("{ESC}","Ende")

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

    While 1
    $mouse = MouseGetPos ()
    WEnd

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

    Func rechts ()
    MouseMove ($mouse[0] +10,$mouse[1],1000)
    EndFunc

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

    Func links ()
    MouseMove ($mouse[0] -10,$mouse[1],1000)
    EndFunc

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

    Func hoch ()
    MouseMove ($mouse[0] ,$mouse[1] -10,1000)
    EndFunc

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

    Func runter ()
    MouseMove ($mouse[0] ,$mouse[1] +10,1000)
    EndFunc

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

    Func Ende ()
    Exit
    EndFunc

    [/autoit]

    Danke

    LG
    Manlius

    Hi,

    Spoiler anzeigen
    [autoit]

    HotKeySet("{RIGHT}", "rechts")
    HotKeySet("{LEFT}", "links")
    HotKeySet("{UP}", "hoch")
    HotKeySet("{DOWN}", "runter")
    HotKeySet("{ESC}", "Ende")

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

    Global $posx, $posy, $speed = 10

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

    While 1
    Sleep(100)
    WEnd

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

    Func rechts()
    $posx = MouseGetPos(0)
    $posy = MouseGetPos(1)

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

    $posx += $speed
    If $posx < 0 Then $posx = 0
    MouseMove($posx, $posy, 0)
    EndFunc ;==>rechts

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

    Func links()
    $posx = MouseGetPos(0)
    $posy = MouseGetPos(1)

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

    If $posx > @DesktopWidth Then $posx = @DesktopWidth
    $posx -= $speed
    MouseMove($posx, $posy, 0)
    EndFunc ;==>links

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

    Func hoch()
    $posx = MouseGetPos(0)
    $posy = MouseGetPos(1)

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

    If $posy > @DesktopHeight Then $posy = @DesktopHeight
    $posy -= $speed
    MouseMove($posx, $posy, 0)
    EndFunc ;==>hoch

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

    Func runter()
    $posx = MouseGetPos(0)
    $posy = MouseGetPos(1)

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

    If $posy < 0 Then $posy = 0
    $posy += $speed
    MouseMove($posx, $posy, 0)
    EndFunc ;==>runter

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

    Func Ende()
    Exit
    EndFunc ;==>Ende

    [/autoit]

    Kannste ja noch ausbauen :).
    Z.b. dass wenn man länger drückt, dass dann die Geschwindigkeit immer höher wird.
    Lass deinen Gedanken freienlauf :)

    anno2008