Hallo zusammen,
ich bräuchte mal eure Hilfe.
Und zwar versuche ich unserem Programm(eine Drucker Print Engine) Kommandos über TCP/IP zu schicken um eine Produktion eines Kunden zu simulieren.
Da mir deren übergeordnetes System nicht zur Verfügung steht dachte ich AutoIt ist dafür ja eigentlich prädestiniert
Autoit soll folgendes tun:
- Starten von Telnet localhost 8000 <-- Ja geht auch über TCPconnect, aber so sehe ich was an unser Programm geschickt wird, ohne zusätzliche GUI laufen zu haben. Das hab ich nach bisschen rumprobieren auch hinbekommen:
Send("{LWINDOWN}r")
send("{LWINUP}")
WinWaitActive("Ausführen")
Send("telnet localhost 8000")
send("{Enter}")
WinWaitActive("telnet localhost 8000")
Nun sollte die Schleife beginnen und für eine bestimmte Anzahl laufen und das hier abarbeiten:
Send("statusprint{Enter}")
Send("loadPrint c:\layout\5095600_V1.3.dsn{Enter}")
Sleep(2000)
Send( "StartPrint{Enter}")
Sleep(2000)
Mein Programm legt mir im C:\temp Ordner dann ein output_000.tiff file ab. Das File sollte dann umbenannt werden in zum Beispiel 1.tiff. Da wenn die Schleife funktioniert das Output file jedesmal überschrieben wird, ich aber jedes Bild brauche um Fehler analysieren zu können
Dies hätte ich dann theoretisch mit FileExist abgefragt ob die Datei vorhanden ist und dann mit FileCopy umbenannt. Bei mir scheitert es nun aber dabei den Dateinamen variable als Zähler von 1 - xxxx einzufügen...
So z.B.:
$rename_outfile = FileExists("C:\temp\output_000.tiff")
If $rename_outfile = 1 Then
FileCopy("C:\temp\output_000.tiff", "C:\temp\" & $zahl &".tiff")
EndIf
Aber wie lege ich fest das AutoIt für $zahl den richtigen Wert bzw. die richtige Zahl einsetzt??
Für die While Schleife hab ich folgendes versucht:
$i = 0
While $i <= 1000 ; Beispiel Wert
; dann kommen die Kommandos und das umbenennen der Out files
$i = $i + 1
WEnd
Aber irgendwie klappt es nicht
Es öffnet sich Telnet und das wars dann
Ich hoffe das ist einigermaßen verständlich was ich machen möchte...
Vielen Dank schon mal für eure Hilfe bin in Sachen programmieren totaler Anfänger.
LG
BadCompany