#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Steffen\Documents\Hautklinik\HiWi-Job\Software\SAAID\Bilder\SAAID.ico
#AutoIt3Wrapper_Outfile_x64=PictureExporter.exe
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <File.au3>
#include <Array.au3>

Dim $LineCount = 1, $LineCounter, $LineCountMax

;Ordner auswählen --> Voreinstellung ist "D:\Arbeit"
$folder=FileSelectFolder("Ordner auswählen", "D:\Arbeit")
$folder2=_PathFull($folder)
MsgBox(4096, "XYZ", $folder2)
;alle *.tif-Dateien zählen bzw. filtern und in ein Array schreiben
$dir=_FileListToArray($folder, '*.tif')

;Array anzeigen
_ArrayDisplay($dir, "")

;Arbeitsverzeichnis an den zu exportierenden Ordner anpassen bzw. in diesen wechseln
FileChangeDir($folder)

IniWrite("D:\filecount.ini", "Path", "test", $dir)

;erzeugt Datei "FileCount" neu und...
_FileCreate("FileCount.txt")

;...schreibt die Dateinamen in die Datei
_FileWriteFromArray("FileCount.txt", $dir, 1)

;zählt die Einträge in der Datei und gibt die Anzahl der Dateien aus
$CountLines = _FileCountLines("FileCount.txt")
MsgBox(4096, "Zeilenanzahl", $CountLines)

;öffnet die Datei "FileCount"
$file = FileOpen("FileCount.txt", 2)

;liest aus der Datei "FileCount.txt"
$LineCounter=FileReadLine("FileCount.txt", $LineCount)

;übergibt die Zeilenanzahl aus der Datei "FileCount" an die Variable $i --> gibt die Anzahl der zu exportierenden dateien an
$i=$CountLines

Do

;JLImage starten
ShellExecute("D:\Arbeit\BMBF WPM\Software\DermaInspect\JLImage\JLImage Demo\JLImage.exe")

;Warten, bis JLImage geöffnet ist
Sleep(6000)

;Arbeitsverzeichnis an den zu exportierenden Ordner anpassen bzw. in diesen wechseln
FileChangeDir($folder)

;Mouse nach rechts auf eine freie graue Fläche bewegen
MouseMove(300, 60)

;rechte Mousetaste betätigen
MouseClick("right", 300, 60, 1)

;Mouse nach unten auf Customize bewegen
MouseMove(330, 140)

;Customize anklicken
MouseClick("left", 330, 140, 1)

;Mouse auf den Reset-Button bewegen
MouseMove(750, 400)

;Reset-Button betätigen
MouseClick("left", 750, 400, 1)

;Mouse auf "Ok" bewegen
MouseMove( 750, 450)

;"Ok" betätigen
MouseClick("left", 750, 450, 1)

;Mouse auf "Close" bewegen
MouseMove( 800, 550)

;"Close" betätigen
MouseCLick( "left", 800, 550, 1)

;Mouse nach oben links auf "Datei" bewegen
MouseMove(25, 25)

;MouseClick
MouseClick("left", 25, 25, 1)

;Mouse nach unten auf "Öffnen" bewegen
MouseMove(30, 80)

;MouseClick
MouseClick("left", 30, 80, 1)

;Mouse in Zeile nach "Objektname:" bewegen
MouseMove( 650, 350)

;MouseKlick in diese Zeile
MouseClick("left", 650, 350, 1)

;Dateipfad angeben
Send($folder &$LineCounter, 1)

;Mouse auf "Öffnen" bewegen
MouseMove( 800, 350)

;"Öffnen" anklicken
MouseClick("left", 800, 350, 1)

;Mouse auf oberes linkes Bild bewegen
MouseMove(100, 200)

;oberes linkes Bild anklicken
MouseCLick("left", 100, 200, 1)

;Mouse auf "Datei" bewegen
MouseMove(25, 25)

;MouseClick
MouseClick("left", 25, 25, 1)

;Mouse nach unten auf "Exportieren" bewegen
MouseMove(40, 170)

;MouseClick auf "Exportieren"
MouseClick("left", 40, 170, 1)

;Mouse nach unten auf "Picture Data" bewegen
MouseMove(300, 170)

;MouseClick auf "Picture Data"
MouseClick("left", 300, 170, 1)

;Kurze Pause --> Dialog lesen
Sleep(1000)

;FEHLERMELDUNG DER DEMO MIT ENTER BESTÄTIGEN
Send("{ENTER}")

;****zweites Bild anklicken****
;Mouse auf oberes rechtes Bild bewegen
MouseMove(450, 200)

;oberes rechtes Bild anklicken
MouseCLick("left", 450, 200, 1)

;Mouse auf "Datei" bewegen
MouseMove(25, 25)

;MouseClick
MouseClick("left", 25, 25, 1)

;Mouse nach unten auf "Exportieren" bewegen
MouseMove(40, 170)

;MouseClick auf "Exportieren"
MouseClick("left", 40, 170, 1)

;Mouse nach unten auf "Picture Data" bewegen
MouseMove(300, 170)

;MouseClick auf "Picture Data"
MouseClick("left", 300, 170, 1)

;Kurze Pause --> Dialog lesen
Sleep(1000)

;FEHLERMELDUNG DER DEMO MIT ENTER BESTÄTIGEN
Send("{ENTER}")

;****drittes Bild anklicken****
;Mouse auf unteres linkes Bild bewegen
MouseMove(100, 650)

;unteres linkes Bild anklicken
MouseCLick("left", 100, 650, 1)

;Mouse auf "Datei" bewegen
MouseMove(25, 25)

;MouseClick
MouseClick("left", 25, 25, 1)

;Mouse nach unten auf "Exportieren" bewegen
MouseMove(40, 170)

;MouseClick auf "Exportieren"
MouseClick("left", 40, 170, 1)

;Mouse nach unten auf "Picture Data" bewegen
MouseMove(300, 170)

;MouseClick auf "Picture Data"
MouseClick("left", 300, 170, 1)

;Kurze Pause --> Dialog lesen
Sleep(1000)

;FEHLERMELDUNG DER DEMO MIT ENTER BESTÄTIGEN
Send("{ENTER}")

;****viertes Bild anklicken****
;Mouse auf unteres rechtes Bild bewegen
MouseMove(450, 650)

;unteres rechtes Bild anklicken
MouseCLick("left", 450, 650, 1)

;Mouse auf "Datei" bewegen
MouseMove(25, 25)

;MouseClick
MouseClick("left", 25, 25, 1)

;Mouse nach unten auf "Exportieren" bewegen
MouseMove(40, 170)

;MouseClick auf "Exportieren"
MouseClick("left", 40, 170, 1)

;Mouse nach unten auf "Picture Data" bewegen
MouseMove(300, 170)

;MouseClick auf "Picture Data"
MouseClick("left", 300, 170, 1)

;Kurze Pause --> Dialog lesen
Sleep(1000)

;FEHLERMELDUNG DER DEMO MIT ENTER BESTÄTIGEN
Send("{ENTER}")

;kurze Pause bevor JLImage geschlossen wird
Sleep(1000)

;JLImage schließen
WinClose("JenLab Image 2.6 (Demo)")

$i=$i - 1

Until $i = 0

;Datei "FileCount" löschen
FileDelete("FileCount.txt")

;Skript beenden
Exit