1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Dieses Thema
  • Alles
  • Dieses Thema
  • Dieses Forum
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Forum
  3. AutoIt 3
  4. Skripte

tastatur maus

  • dph_dph
  • 31. Oktober 2009 um 11:48
  • dph_dph
    Beiträge
    41
    • 31. Oktober 2009 um 11:48
    • #1

    Habe mir ma ein script erstellt bei dem man mit der Tastatur die maus bewegen kann eig aus dem grund weil ich ein netbook un nen pc habe un die maus meist am netbook dran hab un dann keine am pc habe :P. Deshalb hab ich mir das ma gemacht.
    könnt ja ma sagen wie es euch gefällt. da ich net oft was mit autoit mache könnt ihr mir gerne verbesserungsvorschläge geben. ich weiß man könnte noch ne gui zur festlegung der hotkeys machen un bestimmt noch einiges kürzen ;)

    [autoit]

    HotKeySet("{UP}", "oben")
    HotKeySet("{down}", "unten")
    HotKeySet("{left}", "links")
    HotKeySet("{right}", "rechts")
    HotKeySet("{#}", "click")
    HotKeySet("{+}","speed")
    HotKeySet("{-}","speed2")
    HotKeySet("{ESC}", "Terminate")

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

    $speed = 1
    $mousepos = Mousegetpos()

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

    while 1
    sleep(10)
    WEnd

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

    Func Terminate()
    Exit 0
    EndFunc

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

    func speed()
    $speed=$speed+1
    traytip("Speed",$speed,1)
    sleep(1000)
    TrayTip("","",0)
    EndFunc

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

    func speed2()
    $speed=$speed-1
    if $speed < 1 then
    $speed=1
    EndIf
    traytip("Speed",$speed,1)
    Sleep(1000)
    TrayTip("","",0)
    EndFunc

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

    func rechts()
    $mousepos = Mousegetpos()
    MouseMove($mousepos[0],$mousepos[1],1)
    $mousepos[0]=$mousepos[0]+ $speed
    MouseMove($mousepos[0],$mousepos[1],1)
    EndFunc

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

    func links()
    $mousepos = Mousegetpos()
    MouseMove($mousepos[0],$mousepos[1],1)
    $mousepos[0]=$mousepos[0]- $speed
    MouseMove($mousepos[0],$mousepos[1],1)
    EndFunc

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

    func unten()
    $mousepos = Mousegetpos()
    MouseMove($mousepos[0],$mousepos[1],1)
    $mousepos[1]=$mousepos[1]+ $speed
    MouseMove($mousepos[0],$mousepos[1],1)
    EndFunc

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

    func oben()
    $mousepos = Mousegetpos()
    MouseMove($mousepos[0],$mousepos[1],1)
    $mousepos[1]=$mousepos[1]- $speed
    MouseMove($mousepos[0],$mousepos[1],1)
    EndFunc

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

    func click()
    $mousepos = Mousegetpos()
    MouseMove($mousepos[0],$mousepos[1],1)
    MouseClick("")
    EndFunc

    [/autoit]

    Meine autoit scripte:

    Spoiler anzeigen


    TastaturMaus
    Ultimativtimer
    React!!! (kleines Reaktionsspiel)
    backgrounder
    dph's downloadsorter

  • PrideRage
    Profi
    Beiträge
    767
    • 31. Oktober 2009 um 13:11
    • #2

    Dieses Mausbewegen ist bei mir in XP Home auch integriert, also ich kanns über systemsteuerung einstellen :D

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

  • Schnitzel
    Poweruser
    Beiträge
    3.529
    • 31. Oktober 2009 um 13:41
    • #3

    kann man auch über Shift+Alt+Num ^^

    Ein Kezboard/Treiber ist v;llig [berfl[ssig

    Autoit-Tutorials
    Tutorials für den Einstieg in Autoit


    Deutsche Hilfedatei mit Beispiel für jeden Befehl
    AutoIt-Wiki
    Richtig Debuggen (Fehler selbst suchen/finden)
    FAQ
    AutoIt Buch von peethebee

    Tutorials für speziellere Themen


    Videos von McPoldy
    Array Tutorial von BugFix
    Bit Tutorial von BugFix
    Dll Tutorial von BugFix
    RegEx Tutorial von BugFix
    Login + Registrierung über eine MySql-DB [+ Hilfedateien]
    AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
    StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
    GDI+

  • dph_dph
    Beiträge
    41
    • 31. Oktober 2009 um 13:51
    • #4

    ja? xD wusst ich gar net :P
    aber bei mir kann man mausspeed schneller machen (kA ob das so au geht) das is bei 40 zoll full hd als pc bildschrim schon bissle besser
    dauert ja sonst ewig von der einen seite zu anderen

    Meine autoit scripte:

    Spoiler anzeigen


    TastaturMaus
    Ultimativtimer
    React!!! (kleines Reaktionsspiel)
    backgrounder
    dph's downloadsorter

    Einmal editiert, zuletzt von dph_dph (31. Oktober 2009 um 13:59)

  • tobi_girst
    Fortgeschrittener
    Beiträge
    454
    • 31. Oktober 2009 um 18:38
    • #5

    Ich glaub das ist unter Eingabehilfen in der Systemsteuerung! Da kann man auch den Speed einstellen glaub ich!
    MfG tobi_girst

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • PrideRage
    Profi
    Beiträge
    767
    • 31. Oktober 2009 um 22:59
    • #6

    genau

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

  • Schnitzel
    Poweruser
    Beiträge
    3.529
    • 1. November 2009 um 01:38
    • #7

    allerdings finde ich dass die geschwindigkeit wenn man sie voll einstellt immer noch zu langsam

    aber ich brauch die tastatur maus auch relativ selten...

    Ein Kezboard/Treiber ist v;llig [berfl[ssig

    Autoit-Tutorials
    Tutorials für den Einstieg in Autoit


    Deutsche Hilfedatei mit Beispiel für jeden Befehl
    AutoIt-Wiki
    Richtig Debuggen (Fehler selbst suchen/finden)
    FAQ
    AutoIt Buch von peethebee

    Tutorials für speziellere Themen


    Videos von McPoldy
    Array Tutorial von BugFix
    Bit Tutorial von BugFix
    Dll Tutorial von BugFix
    RegEx Tutorial von BugFix
    Login + Registrierung über eine MySql-DB [+ Hilfedateien]
    AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
    StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
    GDI+

  • dph_dph
    Beiträge
    41
    • 1. November 2009 um 09:08
    • #8

    mir ging es ja hauptsächlich um die idee und diese in die tat umzusetzen^^ un es klappt sogar einigermaßen :P

    Meine autoit scripte:

    Spoiler anzeigen


    TastaturMaus
    Ultimativtimer
    React!!! (kleines Reaktionsspiel)
    backgrounder
    dph's downloadsorter

  • tobi_girst
    Fortgeschrittener
    Beiträge
    454
    • 2. November 2009 um 12:07
    • #9

    Ich finde, das ist dir auch gelungen! ;)

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • simon
    Gast
    • 2. November 2009 um 13:32
    • #10

    hi ich finde es auch gut gelungen

    oft fehlen einem die ideen für ein programm

    gruss Simon

  • Schnitzel
    Poweruser
    Beiträge
    3.529
    • 2. November 2009 um 15:54
    • #11
    Zitat

    allerdings finde ich dass die geschwindigkeit wenn man sie voll einstellt immer noch zu langsam

    nicht falsch verstehen, mit dem satz hab ich die windoof tastatur-maus gemeint. die is enz langsam.


    dein skript ist sehr gut gelungen ;)

    Ein Kezboard/Treiber ist v;llig [berfl[ssig

    Autoit-Tutorials
    Tutorials für den Einstieg in Autoit


    Deutsche Hilfedatei mit Beispiel für jeden Befehl
    AutoIt-Wiki
    Richtig Debuggen (Fehler selbst suchen/finden)
    FAQ
    AutoIt Buch von peethebee

    Tutorials für speziellere Themen


    Videos von McPoldy
    Array Tutorial von BugFix
    Bit Tutorial von BugFix
    Dll Tutorial von BugFix
    RegEx Tutorial von BugFix
    Login + Registrierung über eine MySql-DB [+ Hilfedateien]
    AutoIt und Assembler UPDATE 09.September 2010 AssembleIt
    StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt
    GDI+

  • Acanis
    Gast
    • 13. Januar 2010 um 00:23
    • #12

    Ich fand die Idee gut und wollte selbst eins machen, weil ich finde, "IsPressed" passt hier auch sehr gut :)...!

    Hier meine Version -> (Anregungen und Kritik auch gerne erwünscht^^)

    Spoiler anzeigen
    [autoit]

    ; --------------------------------
    ; Created by Acanis
    ; Use the Arrows to navigate the mouse
    ; Use the right Shift to get more speed (random = max)
    ; Use the left Shift to get less speed
    ; Use the left Ctrl for a left click (primary)
    ; Use the left Alt for a right click (secondary)
    ; Use the "^" to pause the programm
    ; Use the "Tab" to exit it
    ; --------------------------------

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

    #include <Misc.au3>

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

    $m_speed = 1
    Global $Paused
    HotKeySet("{^}", "_pause")
    HotKeySet("{TAB}", "_exit")

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

    $dll = DllOpen("user32.dll")

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

    while 1

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

    Sleep (10)

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

    If _IsPressed("25", $dll) Then ; linke Pfeiltaste
    Do
    If _IsPressed("28", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] - 5, $pos[1] + 5, $m_speed)
    elseif _IsPressed("26", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] - 5, $pos[1] - 5, $m_speed)
    else
    $pos = MouseGetPos()
    MouseMove($pos[0] - 5, $pos[1], $m_speed)
    Endif
    Until _IsPressed("25", $dll) = 0
    EndIf

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

    If _IsPressed("27", $dll) Then ; rechte Pfeiltaste
    Do
    If _IsPressed("28", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] + 5, $pos[1] + 5, $m_speed)
    elseif _IsPressed("26", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] + 5, $pos[1] - 5, $m_speed)
    else
    $pos = MouseGetPos()
    MouseMove($pos[0] + 5, $pos[1], $m_speed)
    Endif
    Until _IsPressed("27", $dll) = 0
    EndIf

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

    If _IsPressed("26", $dll) Then ; obere Pfeiltaste
    Do
    If _IsPressed("25", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] - 5, $pos[1] - 5, $m_speed)
    elseIf _IsPressed("27", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] + 5, $pos[1] - 5, $m_speed)
    else
    $pos = MouseGetPos()
    MouseMove($pos[0], $pos[1] - 5, $m_speed)
    Endif
    Until _IsPressed("26", $dll) = 0
    EndIf

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

    If _IsPressed("28", $dll) Then ; untere Pfeiltaste
    Do
    If _IsPressed("25", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] - 5, $pos[1] + 5, $m_speed)
    elseIf _IsPressed("27", $dll) Then
    $pos = MouseGetPos()
    MouseMove($pos[0] + 5, $pos[1] + 5, $m_speed)
    else
    $pos = MouseGetPos()
    MouseMove($pos[0], $pos[1] + 5, $m_speed)
    Endif
    Until _IsPressed("28", $dll) = 0
    EndIf

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

    If _IsPressed("A0", $dll) Then ; linke Shifttaste
    Do
    $m_speed +=1 ; langsamere Maus
    ToolTip("Die Mausgeschwindigkeit beträgt: " & $m_speed)
    Sleep (500)
    ToolTip("")
    Until _IsPressed("A0", $dll) = 0
    EndIf

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

    If _IsPressed("A1", $dll) Then ; rechte Shifttaste
    Do
    if $m_speed >= 1 Then
    ToolTip("Die Mausgeschwindigkeit beträgt: " & $m_speed)
    $m_speed -=1 ; schnellere Maus
    Sleep (500)
    ToolTip("")
    endif
    Until _IsPressed("A1", $dll) = 0
    EndIf

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

    If _IsPressed("A2", $dll) Then
    $pos = MouseGetPos()
    MouseClick ("left", $pos[0], $pos[1])
    Do
    Sleep(10)
    Until Not _IsPressed("A2", $dll)
    EndIf

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

    If _IsPressed("A4", $dll) Then
    $pos = MouseGetPos()
    MouseClick ("right" , $pos[0], $pos[1])
    Do
    Sleep(10)
    Until Not _IsPressed("A4", $dll)
    EndIf

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

    WEnd

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

    Func _pause()
    $Paused = NOT $Paused
    While $Paused
    sleep(100)
    ToolTip('Script ist "pausiert!"')
    WEnd
    ToolTip("")
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

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

    DllClose($dll)

    [/autoit]


    Da sind halt auch Querbewegungen mit drin und so :). Ist eig. mein erstes richtiges "Programm", sonst habe ich bisher nur Code-Schnipsel gemacht, fand die Idee einfach nett *hehe*...


    LG

    3 Mal editiert, zuletzt von Acanis (13. Januar 2010 um 20:00)

  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™