Guten Tag ich habe ein Problem und zwar arbeite ich gerade an einen kleinen script der datein exportieren soll und das in schleife doch irgendwie will der nicht so wie ich will kann mir da mal einer ne lösung sagen ?! währe super bin nicht so der Pro in AutoIt
das is der Code und ab ;;;;;;Branchen Auswahl;;;;;;; soll er den Script komplett in schleife ausführen ca 47 mal
AutoIt
Opt("WinTitleMatchMode", 2)
WinWaitActive("Suchassistent","",10)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Branchen Auswahl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(Ab Hier)
MouseClick("left",139,249,2)
Sleep(1000)
Send("{CTRLDOWN}c{CTRLUP}{DEL}")
MouseClick("left",1081,207,1)
Sleep(500)
Send("{CTRLDOWN}v{CTRLUP}")
Sleep(1000)
MouseClick("left",1844,111,1)
Sleep(3000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Ende;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Dim $Zaehler
Dim $Downline
;Dim $Branche =InputBox("Branche auswählen"," Bitte geben Sie die Branche ein in der gesucht werden soll: ", "Apotheken")
Dim $Anzahl =InputBox("Anzahl der Datensätze","Geben Sie die Anzahl der Datensätze ein",0)
Dim $Dateiname1 =InputBox("Dateiname","Geben Sie einen Dateinamen an: ", "")
Dim $Dateiname
Dim $Exportmenge =InputBox("Exportmenge","Wieviel Zeilen sind sichbar?: ", "41")
HotKeySet("{F5}","Stopp")
$Anzahl=Int($Anzahl/$Exportmenge)+1
MsgBox(0,"Anzahl der Durchläufe",$Anzahl)
MsgBox(0,"Los","Nun am besten die Maus nach Klick auf den Kopf legen." & @CRLF & "5 Sekunden nach ok, gehts los und die Maus sollte nicht mehr bewegt werden!" & @CRLF & "Abbruch des Scriptes mit F5")
Sleep(5000)
Func Stopp()
Exit
EndFunc
for $Zaehler=1 to $Anzahl
; BEREICH MARKIEREN
;-------------------------
MouseClick("left",1202,264)
Sleep(500)
Send("{SHIFTDOWN}")
Sleep(500)
MouseClick("left",1205,904)
Sleep(500)
Send("{SHIFTUP}")
; BEREICH EXPORTIEREN
;-------------------------
MouseClick("left",1193,54) ; Übergebenmenü ausklappen
Send("e") ; e -> Unterpunkt exportieren
Send("{ENTER}") ; Fenster bestätigen
Sleep(500)
$Dateiname=$Dateiname1 & String($Zaehler) ; Dateinamen bilden
Sleep(500)
Send($Dateiname) ; Dateinamen eintragen
Sleep(500)
Send("!S")
Sleep(3000) ; Speichervorgang abwarten
Send("{ENTER}") ; Eingabe bestätigen
; BEREICH NEU POSITIONIEREN
;-------------------------
MouseClick("left",1205,904)
for $Downline=1 to $Exportmenge
Send("{DOWN}")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(Bis hier bzw.)
Next
Sleep(500)
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(HIER)
Alles anzeigen
Schon mal danke für die hilfe