Ich teste es gerade die ganze Zeit so, dass genau 2 Dateien gefunden werden.
Ich habe deines eingebaut und der erste Durchlauf ist super. Nur bei der zweiten will es nicht. Das Programm ist offen mit dem neuen Fenster, aber wieder nicht im Vordergrund...
Spoiler anzeigen
While $x <= $y
$datei = $aFiles[$x]
If @error Then
MsgBox(48, "", "Fehler", 2)
ExitLoop
EndIf
$dateiarray = _PathSplit($datei, $szDrive, $szDir, $szFName, $szExt) ; Pfad zerlegen
$Datei_name = $dateiarray[3] & $dateiarray[4]
$Datei_oE = $datei
$Datei_oE = StringTrimRight($datei, 3)
Sleep (2000)
ShellExecute ($datei)
While WinActive("Technobox CAD6") = 0
WinActivate("Technobox CAD6")
WEnd
Sleep (1000)
Send ("{F12}") ;F12 Befehl für Speichern unter
sleep (2000)
While WinActive("Zeichnung speichern unter") = 0
WinActivate("Zeichnung speichern unter")
WEnd
Send("{ALTDOWN}") ;Alt + S Befehl für Speichern
Sleep (500)
Send("s")
Sleep (500)
Send("{ALTUP}")
Sleep (2000)
While WinActive("DWG Export") = 0
WinActivate("DWG Export")
WEnd
Send("{ENTER}") ;Enter Befehl für Ok
Sleep (2000)
Send("{CTRLDOWN}")
Sleep (500)
Send("{F4}") ;Strg + F4 Befehl für aktuelle Fenster vom Programm schliessen
Sleep (500)
Send("{CTRLUP}")
sleep (2000)
$x += 1
WEnd
[/autoit]