Wie kann ich Mauskordinaten zur Laufzeit an Script übergeben--- KEIN BOT

  • [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.1.1 (beta)
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $dummy = "-----"
    Dim $default_size = "53|333|22,4"
    Dim $pos_main = MouseGetPos()
    Dim $pos_shape = MouseGetPos()

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

    MsgBox(0, "Mouse x,y:", $pos_main[0] & "," & $pos_main[1])

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

    #Region ### START Koda GUI section ### Form=
    $frm_core_resize = GUICreate("Corel Resize Tool", 352, 116, 350, 234)
    $label_main_size = GUICtrlCreateLabel("1. Bildgrösse: ", 24, 20, 80,20)
    $input_main_size = GUICtrlCreateInput($dummy,110, 20, 100,20)
    GUICtrlSetState($input_main_size,$GUI_DISABLE)
    $label_shape_size = GUICtrlCreateLabel("2. Shapegrösse: ", 24, 50, 80, 20)
    $input_shape_size = GUICtrlCreateInput($dummy,110, 50, 100,20)
    GUICtrlSetState($input_shape_size,$GUI_DISABLE)
    $label_resize = GUICtrlCreateLabel("3. Skaliere auf: ", 24, 80, 80, 20)
    $combo_resize = GUICtrlCreateCombo("", 110, 75, 100, 25)
    GUICtrlSetData($combo_resize,$default_size,"53")
    $reset_size = GUICtrlCreateButton("Reset", 256, 26, 65, 33, $WS_GROUP)
    $start_resize = GUICtrlCreateButton("Resize", 256, 66, 65, 33, $WS_GROUP)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $reset_size
    GUICtrlSetData($input_main_size,$dummy)
    GUICtrlSetData($input_shape_size,$dummy)

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

    Case $start_resize
    If GUICtrlRead($input_main_size) = $dummy Or GUICtrlRead($input_shape_size) = $dummy Then
    MsgBox(0,"Achtung","Die Bilder mittels Mausklick auswählen")
    Else

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

    ;~ MouseClick(

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

    EndIf
    EndSwitch
    WEnd

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


    Ich möchte Kordinaten des ersten Klicks in die 1. Inputbox schreiben danach den 2. Klick in die 2. Inputbox
    so wie wenn Klick auf CorelFenster merke Position das in 2 Variablen, wie bekomme ich das hin das er merkt das ich woanders hinklicke also nicht auf die Buttons der Gui

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

  • Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Include <Misc.au3>

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

    Dim $dummy = "-----"
    Dim $default_size = "53|333|22,4"
    Dim $pos_main = MouseGetPos()
    Dim $pos_shape = MouseGetPos()
    Global $ClickCount = 0
    Global $dll = DllOpen("user32.dll")

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

    MsgBox(0, "Mouse x,y:", $pos_main[0] & "," & $pos_main[1])

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

    #Region ### START Koda GUI section ### Form=
    $frm_core_resize = GUICreate("Corel Resize Tool", 352, 116, 350, 234, -1, $WS_EX_TOPMOST)
    $label_main_size = GUICtrlCreateLabel("1. Bildgrösse: ", 24, 20, 80,20)
    $input_main_size = GUICtrlCreateInput($dummy,110, 20, 100,20)
    GUICtrlSetState($input_main_size,$GUI_DISABLE)
    $label_shape_size = GUICtrlCreateLabel("2. Shapegrösse: ", 24, 50, 80, 20)
    $input_shape_size = GUICtrlCreateInput($dummy,110, 50, 100,20)
    GUICtrlSetState($input_shape_size,$GUI_DISABLE)
    $label_resize = GUICtrlCreateLabel("3. Skaliere auf: ", 24, 80, 80, 20)
    $combo_resize = GUICtrlCreateCombo("", 110, 75, 100, 25, 0x0003)
    GUICtrlSetData($combo_resize,$default_size,"53")
    $reset_size = GUICtrlCreateButton("Reset", 256, 26, 65, 33, $WS_GROUP)
    $start_resize = GUICtrlCreateButton("Resize", 256, 66, 65, 33, $WS_GROUP)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $reset_size
    GUICtrlSetData($input_main_size,$dummy)
    GUICtrlSetData($input_shape_size,$dummy)

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

    Case $start_resize
    If GUICtrlRead($input_main_size) = $dummy Or GUICtrlRead($input_shape_size) = $dummy Then
    MsgBox(0,"Achtung","Die Bilder mittels Mausklick auswählen")
    Else

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

    ;~ MouseClick(

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

    EndIf
    EndSwitch
    If _IsPressed("01", $dll) And $ClickCount < 3 Then _Klick()
    WEnd

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

    Func _Klick()
    $ClickCount += 1
    Switch $ClickCount
    Case 1
    GUICtrlSetData($input_main_size, MouseGetPos(0) & "/" & MouseGetPos(1))
    Case 2
    GUICtrlSetData($input_shape_size, MouseGetPos(0) & "/" & MouseGetPos(1))
    EndSwitch
    Do
    Sleep(20)
    Until Not _IsPressed("01")
    EndFunc

    [/autoit]
  • Besten Dank schon mal :)
    ....jetzt müsste es nach dem Reset nur noch erneut funktionieren....

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o