Also Leute ich bin kurz vorm Verzweifeln.
Dies ist ein etwas größerer Script den ich geschrieben habe. Er liest im Prinzip Koordinaten ein um diese dann anzuklicken und dann abzuschicken
Spoiler anzeigen
HotKeySet("{ESC}", "close")
func close()
Exit
endFunc ;==>close
Func position1()
[/autoit] [autoit][/autoit] [autoit]global $x1 = MouseGetPos(0)
global $y1 = MouseGetPos(1)
Exit
EndFunc ;==>position1
Func position2()
global $x2 = MouseGetPos(0)
global $y2 = MouseGetPos(1)
EndFunc ;==>position2
[/autoit] [autoit][/autoit] [autoit]Func position3()
global $x3 = MouseGetPos(0)
global $y3 = MouseGetPos(1)
EndFunc ;==>position3
[/autoit] [autoit][/autoit] [autoit]Func position4()
global $x4 = MouseGetPos(0)
global $y4 = MouseGetPos(1)
EndFunc ;==>position4
[/autoit] [autoit][/autoit] [autoit]Func position6()
global $x6 = MouseGetPos(0)
global $y6 = MouseGetPos(1)
EndFunc ;==>position6
[/autoit] [autoit][/autoit] [autoit];### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
Func position5()
global $x5 = MouseGetPos(0)
global $y5 = MouseGetPos(1)
EndFunc ;==>position5
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\jonas\downloads\koda_1.7.2.0\forms\bookmarkit.kxf
$Bookmark = GUICreate("Bookmark it !", 295, 610, 644, 303)
$newbmx = GUICtrlCreateInput("", 192, 55, 41, 21)
$linkx = GUICtrlCreateInput("", 192, 88, 41, 21)
$titelx = GUICtrlCreateInput("", 192, 120, 41, 21)
$beschreibungx = GUICtrlCreateInput("", 192, 150, 41, 21)
$Group1 = GUICtrlCreateGroup("Positionsdaten", 16, 24, 265, 297)
$Koordinaten = GUICtrlCreateLabel("Koordinaten Neuer Bookmark:", 26, 61, 147, 17)
$Label1 = GUICtrlCreateLabel("Koordinaten Link:", 26, 93, 87, 17)
$Label2 = GUICtrlCreateLabel("Koordinaten Titel:", 27, 125, 87, 17)
$Label3 = GUICtrlCreateLabel("Koordinaten Beschreibung:", 27, 155, 132, 17)
$tagsx = GUICtrlCreateInput("", 192, 186, 41, 21)
$Label4 = GUICtrlCreateLabel("Koordinaten Tags:", 27, 189, 91, 17)
$Label5 = GUICtrlCreateLabel("Koordinaten Erstellen Button:", 27, 216, 141, 17)
$createx = GUICtrlCreateInput("", 192, 214, 41, 21)
$autoithelper = GUICtrlCreateButton("Koordinatenhilfe", 24, 248, 123, 25, $WS_GROUP)
$newbmy = GUICtrlCreateInput("", 235, 55, 41, 21)
$linky = GUICtrlCreateInput("", 235, 88, 41, 21)
$titely = GUICtrlCreateInput("", 236, 122, 41, 21)
$beschreibungy = GUICtrlCreateInput("", 237, 151, 41, 21)
$tagsy = GUICtrlCreateInput("", 237, 186, 41, 21)
$createy = GUICtrlCreateInput("", 237, 214, 41, 21)
$Label9 = GUICtrlCreateLabel("X", 209, 37, 11, 17)
$Label10 = GUICtrlCreateLabel("Y", 251, 37, 11, 17)
$positionload = GUICtrlCreateButton("Positionsdaten laden", 152, 248, 123, 25, $WS_GROUP)
$positionsave = GUICtrlCreateButton("Positionsdaten speichern", 24, 280, 251, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Bookmark Wahl", 16, 346, 257, 113)
$newini = GUICtrlCreateButton("Neue Bookmarkliste anlegen", 64, 378, 163, 25, $WS_GROUP)
$laden = GUICtrlCreateButton("Bookmarkliste laden", 64, 410, 163, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$starteauto = GUICtrlCreateButton("Bookmark it !", 98, 552, 91, 25, $WS_GROUP)
$kzfront = GUICtrlCreateInput("JK| <<-", 48, 506, 65, 21)
$Label6 = GUICtrlCreateLabel("Titel", 126, 503, 39, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$kzback = GUICtrlCreateInput("->>", 175, 507, 65, 21)
$Label7 = GUICtrlCreateLabel("K�rzel 1", 57, 489, 42, 17)
$Label8 = GUICtrlCreateLabel("K�rzel 2", 188, 490, 42, 17)
$Group3 = GUICtrlCreateGroup("Titel Einstellungen", 16, 468, 257, 73)
$filemenue = GUICtrlCreateMenu("Datei")
$fileitem1 = GUICtrlCreateMenuItem("Positionsdaten speichern", $filemenue)
$fileitem2 = GUICtrlCreateMenuItem("Einstellungen", $filemenue)
$fileitem3 = GUICtrlCreateMenuItem("Beenden", $filemenue)
$filemenue2 = GUICtrlCreateMenu("?")
$fileitem4 = GUICtrlCreateMenuItem("Hilfe", $filemenue2)
$fileitem5 = GUICtrlCreateMenuItem("�ber", $filemenue2)
dim $bookdir
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$error = 0
$key1 = 1
$key2 = 1
$key3 = 1
$key4 = 1
Func error($key1)
[/autoit] [autoit][/autoit] [autoit]$error = 1
$total = 1
EndFunc ;==>error
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
[/autoit] [autoit][/autoit] [autoit]Select
Case $nMsg = $laden
$bookdir = FileOpenDialog("Bitte w�hlen sie ihre gew�nschte Liste aus !", @scriptdir & "\Bookmarkinis", "Bookmarklisten (*.ini)")
Case $nMsg = $positionsave
[/autoit] [autoit][/autoit] [autoit]$Positionsdaten = FileSaveDialog("Positionen speichern", @scriptdir & "\Positionen", "Positionsdaten (*.ini)")
[/autoit] [autoit][/autoit] [autoit]iniwrite($Positionsdaten, "NeuerBM", "1", GUICtrlRead($newbmx))
iniwrite($Positionsdaten, "NeuerBM", "2", GUICtrlRead($newbmy))
iniwrite($Positionsdaten, "Link", "1", GUICtrlRead($linkx))
iniwrite($Positionsdaten, "Link", "2", GUICtrlRead($linky))
iniwrite($Positionsdaten, "Titel", "1", GUICtrlRead($titelx))
iniwrite($Positionsdaten, "Titel", "2", GUICtrlRead($titely))
iniwrite($Positionsdaten, "Beschreibung", "1", GUICtrlRead($beschreibungx))
iniwrite($Positionsdaten, "Beschreibung", "2", GUICtrlRead($beschreibungy))
iniwrite($Positionsdaten, "Tags", "1", GUICtrlRead($tagsx))
iniwrite($Positionsdaten, "Tags", "2", GUICtrlRead($tagsy))
iniwrite($Positionsdaten, "Create", "1", GUICtrlRead($createx))
iniwrite($Positionsdaten, "Create", "2", GUICtrlRead($createy))
Case $nMsg = $positionload
[/autoit] [autoit][/autoit] [autoit]$openfile = FileOpenDialog("Positionsdaten laden", @scriptdir & "\Positionen", "Positionsdaten (*.ini)")
$newbmx2 = IniRead($openfile, "NeuerBM", "1", "Ein Fehler beim Laden ist aufetreten")
$newbmy2 = IniRead($openfile, "NeuerBM", "2", "Ein Fehler beim Laden ist aufetreten")
$linkx2 = IniRead($openfile, "Link", "1", "Ein Fehler beim Laden ist aufetreten")
$linky2 = IniRead($openfile, "Link", "2", "Ein Fehler beim Laden ist aufetreten")
$titelx2 = IniRead($openfile, "Titel", "1", "Ein Fehler beim Laden ist aufetreten")
$titely2 = IniRead($openfile, "Titel", "2", "Ein Fehler beim Laden ist aufetreten")
$beschreibungx2 = IniRead($openfile, "Beschreibung", "1", "Ein Fehler beim Laden ist aufetreten")
$beschreibungy2 = IniRead($openfile, "Beschreibung", "2", "Ein Fehler beim Laden ist aufetreten")
$tagsx2 = IniRead($openfile, "Tags", "1", "Ein Fehler beim Laden ist aufetreten")
$tagsy2 = IniRead($openfile, "Tags", "2", "Ein Fehler beim Laden ist aufetreten")
$createx2 = IniRead($openfile, "Create", "1", "Ein Fehler beim Laden ist aufetreten")
$createy2 = IniRead($openfile, "Create", "2", "Ein Fehler beim Laden ist aufetreten")
$newmbmx = GUICtrlSetData($newbmx, $newbmx2)
$newbmy = GUICtrlSetData($newbmy, $newbmy2)
$linkx =GUICtrlSetData($linkx, $linkx2)
$linky =GUICtrlSetData($linky, $linky2)
$titelx =GUICtrlSetData($titelx, $titelx2)
$titely =GUICtrlSetData($titely, $titely2)
$beschreibungx =GUICtrlSetData($beschreibungx, $beschreibungx2)
$beschreibungy =GUICtrlSetData($beschreibungy, $beschreibungy2)
$tagsx =GUICtrlSetData($tagsx, $tagsx2)
$tagsy =GUICtrlSetData($tagsy, $tagsy2)
$createx=GUICtrlSetData($createx, $createx2)
$createy=GUICtrlSetData($createy, $createy2)
Case $nMsg = $starteauto
GUISetState(@SW_Hide)
$total = InIRead($bookdir, "Total", "1", "Fehler")
For $key1 = 1 to $total; Nur pvovisorisch. Muss noch an die Anzahl der BM angepasst werden
MouseClick("left", $newbmx2,$newbmy2, 1) ;auf neuer BM Button klicken
Sleep(5000)
MouseClick("left",$linkx2, $linky2, 1) ;Auf Link klicken
$BMLink = IniRead($bookdir, "Link", $key1, "Fehler")
$key1 = +1
Send($BMLink) ;Sende Link
Sleep(500);n�tig da PC nicht schnell genug reagiert
Send("{RIGHT}")
MouseClick("left", $titelx2, $titely2, 1)
$BMTitel = IniRead($bookdir, "Titel", $key2, "Fehler")
Send("{CTRLDOWN}")
Send("A")
Send("{CTRLUP}")
Send("{Del}")
Send( GUICtrlRead($kzfront) & "" & $BMTitel & "" & GUICtrlRead($kzback))
$key2 += 1
Sleep(500)
Send("{RIGHT}")
MouseClick("left", $beschreibungx2, $beschreibungy2, 1)
$BMBeschreibung = IniRead($bookdir, "Beschreibung", $key3, "Fehler")
;eventuell eine Pause ( bei anderen Seiten Pr�fen)
Send("{CTRLDOWN}")
Send("A")
Send("{CTRLUP}")
Send("{Del}")
Send($BMBeschreibung)
$key3 += 1
Send("{RIGHT}")
MouseClick("left", $tagsx2, $tagsy2, 1)
$BMTags = IniRead($bookdir, "Tags", $key4, "Fehler")
Send("{CTRLDOWN}")
Send("A")
Send("{CTRLUP}")
Send("{Del}")
Send($BMTags)
$key4 += 1
Send("{RIGHT}")
Next
If $error = 1 then
MsgBox(16, "Fehler", "Ein fehler beim �ffnen von Bookmark " & $key1 & " ist aufgetreten ! Der Vorgang wurde beendet!")
Else
MsgBox(64, "Erfolgreich", "Es wurden erfolgreich " & $key1 & " Bookmark/s erstellt!")
EndIf
[/autoit] [autoit][/autoit] [autoit]Case $nMsg = $autoithelper
[/autoit] [autoit][/autoit] [autoit]MsgBox(64, "Koordinatenhilfe", "Willkommen zur Hilfe um ihre Koordinaten zu bestimmen.")
HotKeySet("{SPACE}", "position1")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun als erstes ihre Neuer Bookmark Koordinaten in dem Sie ihre Maus auf den Button bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:." & $x1 & "," & $y1)
HotKeySet("{SPACE}", "position2")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun ihre Koordinaten f�r das Linkeingabefeld, indem Sie ihre Maus darauf bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:" & $x2 & "," & $y2)
HotKeySet("{SPACE}", "position3")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun ihre Koordinaten f�r das Titeleingabefeld, indem Sie ihre Maus darauf bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:." & $x3 & "," & $y3)
HotKeySet("{SPACE}", "position4")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun ihre Koordinaten f�r das Beschreibungseingabefeld, indem Sie ihre Maus darauf bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:." & $x4 & "," & $y4)
HotKeySet("{SPACE}", "position5")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun ihre Koordinaten f�r das Tagseingabefeld, indem Sie ihre Maus darauf bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:." & $x5 & "," & $y5)
HotKeySet("{SPACE}", "position6")
MsgBox(64, "Koordinatenhilfe", "Bestimmen sie nun ihre Koordinaten f�r den Erstellenbutton, indem Sie ihre Maus darauf bewegen und dann die SPACE-Taste dr�cken.Dr�cken sie anschlie�end OK")
;### Tidy Error -> case Not closed before "Func" statement.
;### Tidy Error -> "func" cannot be inside any IF/Do/While/For/Case/Func statement.
HotKeySet("{SPACE}")
MsgBox(64, "Koordinatenhilfe", "Die folgenden Koordinaten wurden erkannt:." & $x6 & "," & $y6)
MsgBox(64, "Koordinatenhilfe", "Die Konfigurationen sind nun abgeschlossen. Die Koordinaten wurden erkannt und werden nun automatisch in ihre passenden Felder eingef�gt. Diese Daten k�nnen sie anschlie�end mit einem KLick auf Positionsdaten speichern speichern !")
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($newbmx, $x1)
GUICtrlSetData($newbmy, $y1)
GUICtrlSetData($linkx, $x2)
GUICtrlSetData($linky, $y2)
GUICtrlSetData($titelx, $x3)
GUICtrlSetData($titely, $y3)
GUICtrlSetData($beschreibungx, $x4)
GUICtrlSetData($beschreibungy, $y4)
GUICtrlSetData($tagsx, $x5)
GUICtrlSetData($tagsy, $y5)
GUICtrlSetData($createx, $x6)
GUICtrlSetData($createy, $y6)
Case $nMsg = $newini
[/autoit] [autoit][/autoit] [autoit]MsgBox(64, "Bookmarkliste erstellen", "Klicken sie OK um einen Speicherort f�r Ihre Bookmarkliste auszuw�hlen.")
$listdir = FileSaveDialog("Speicherort ausw�hlen", @scriptdir & "\Bookmarkinis", "Bookmarklisten (*.ini)")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Jonas\Downloads\koda_1.7.2.0\Forms\Anlegen.kxf
$Form1 = GUICreate("Bookmarkliste anlegen", 503, 189, 192, 146)
$linkinput = GUICtrlCreateInput("", 112, 36, 361, 21)
$laber123 = GUICtrlCreateLabel("Link:", 75, 36, 31, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Titel:", 73, 60, 33, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Beschreibung:", 16, 84, 90, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Tags:", 67, 108, 39, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$titelinput = GUICtrlCreateInput("", 112, 60, 361, 21)
$beschreibunginput = GUICtrlCreateInput("", 112, 84, 361, 21)
$tagsinput = GUICtrlCreateInput("", 112, 108, 361, 21)
$naechster = GUICtrlCreateButton("N�chsten Bookmark erstellen", 248, 144, 163, 25, $WS_GROUP)
$Fertig = GUICtrlCreateButton("Fertig", 416, 144, 75, 25, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("Bookmark Nr.:", 16, 4, 104, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$bookmarknummer = GUICtrlCreateLabel("1", 120, 5, 13, 16)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xA0A0A4)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$nummer = 1
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
EndSwitch
[/autoit] [autoit][/autoit] [autoit]Select
Case $Msg = $naechster
GUICtrlSetData($linkinput, "")
GUICtrlSetData($titelinput, "")
GUICtrlSetData($beschreibunginput, "")
GUICtrlSetData($tagsinput, "")
$nummer += 1
GUICtrlSetData($bookmarknummer, $nummer)
iniwrite($listdir, "Link", $nummer, $linkinput)
iniwrite($listdir, "Titel", $nummer, $titelinput)
iniwrite($listdir, "Beschreibung", $nummer, $beschreibunginput)
iniwrite($listdir, "Tags", $nummer, $tagsinput)
Case $Msg = $Fertig
[/autoit] [autoit][/autoit] [autoit]iniwrite($listdir, "Total", "1", $nummer)
MsgBox(64, "Fertig !", " Es wurden erfolgreich " & $nummer & " Bookmarks in einer Liste erstellt !")
$nummer = 1
GUIDelete()
ExitLoop
EndSelect
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];### Tidy Error -> "endselect" is closing previous "case" on line 93
EndSelect
;### Tidy Error -> "wend" is closing previous "select" on line 92
WEnd
;### Tidy Error -> while is never closed in your script.
So jetzt ignoriert mal die tidy meldungen die sind alt habe die schon alles umgeändert.
Wenn der button starteauto gedrückt wird soll er eine ini datei mit den koordinaten einlesen und diese dann als Variable deklarieren.
So mein Problem ist das das Programm nicht dahin klickt wo es hin soll sondern immer in die Mitte. Ich habe mal mit dem Debugger die Variabken $newbmx2 und $newbmy2 angeschaut. Sie werden richtig zugewiesen aber trotzdem klickt er falsch
Ich weiß echt nicht mehr weiter
Wenn ihr mir helfen könntet wäre ich sehr dankbar ... 
Fragen bitte posten
lg
P.S. Der wichtige Teil mit dem Klicken ist $starteauto