STRG kombiniert mit Maustaste

  • Habe ich dich wohl falsch verstanden ^^

    Habe mein Beispiel nun angepasst:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>

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

    HotKeySet("{ESC}","_Exit")
    Global Static $STRun=False

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

    While 1
    If _IsPressed(11) And _IsPressed(01) And $STRun=False Then
    $aCord = MouseGetPos()
    TrayTip("Position","X: "&$aCord[0]&" "&"Y: "&$aCord[1],20)
    $STRun=True
    ElseIf Not _IsPressed(11) Or Not _IsPressed(01) Then
    $STRun=False
    EndIf
    Sleep(20)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Lg, Fabian

  • also sry by mir funkt es wunderbar egal wie oft ich klick du musst halt die taste wieder loslassen

    versuchs mal damit

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include<Misc.au3>
    #include<file.au3>

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

    HotKeySet("!e", "_Pause")
    $pause = False
    $pos_old = ""

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

    while sleep(75)
    if _IsPressed(11) And _IsPressed(01) Then
    $pos = MouseGetPos()
    If $pos_old = $pos Then
    Sleep(100)
    Else
    $pos = $pos_old
    FileWriteLine("coords.txt", $pos[0] & "|" & $pos[1] & " | Text")
    EndIf
    EndIf
    WEnd

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

    Func _Pause()
    $pause= Not $pause
    If Not $pause then Return
    Do
    Sleep(100)
    Until not $pause
    EndFunc

    [/autoit]