#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Local $Form, $Edit, $Input, $Button1, $Button2, $Counter = 1, $Delay, $Pos ; man sollte seine Controls eigentlich sinnvoll benennen, aber das ist ja nur ein kleiner Test
$Form = GUICreate("MouseGetPos", 400, 300)
$Edit = GUICtrlCreateEdit("", 20, 20, 360, 230, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY, $WS_VSCROLL)) ; der Benutzer darf den Inhalt des Edits nicht verändern
GUICtrlSetFont($Edit, 10, 1000, 0, "Courier New") ; sieht besser aus
GUICtrlSetBkColor($Edit, 0xFFFFFF) ; sieht besser aus
GUICtrlSetColor($Edit, 0x7777777) ; sieht besser aus
$Input = GUICtrlCreateInput("", 20, 260, 120, 20, $ES_NUMBER) ; nur für Zahlen
GUICtrlSendMsg($Input, $EM_SETCUEBANNER, 0, "Wartezeit in Sekunden") ; <- muss man am Anfang nicht verstehen, ich hatte nur keinen Platz für eine Beschreibung über dem Input
$Button1 = GUICtrlCreateButton("nächste Position hinzufügen", 150, 260, 160, 20)
$Button2 = GUICtrlCreateButton("Beenden", 320, 260, 60, 20)
GUISetState(@SW_SHOW, $Form)

Do
    Switch GUIGetMsg()
        Case -3, $Button2
            ExitLoop
        Case $Button1
            $Delay = Number(GUICtrlRead($Input)) * 1000
            If ($Delay = 0) Then $Delay = 10000 ; Standard: 10 Sekunden
            Sleep($Delay) ; dem Benutzer Zeit geben
            $Pos = MouseGetPos()
            ; man könnte die Position an dieser Stelle auch in einer INI speichern,
            ; aber da du das ja sowieso für Automatisierungen verwenden willst,
            ; wird an dieser Stelle gleich ein funktionierendes Skript erstellt.
            ; Speichern kannst du es, indem du es einfach kopierst.
            ; Ich wollte nur schnell eine etwas kürzere Lösung präsentieren.
;~             IniWrite("Log.ini", "Erfassung" & $Counter, "X", $Pos[0])
;~             IniWrite("Log.ini", "Erfassung" & $Counter, "Y", $Pos[1])
            GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'MouseClick("left", ' & $Pos[0] & ', ' & $Pos[1] & ') ; ' & $Counter & @CRLF) ; etwas unsauber - der Text wird an den schon vorhandenen Text angehängt
            $Counter += 1
    EndSwitch
Until False