Bitte um Hilfe bei einem eigenen Skript

mikee01

Hallo liebe Leute,

ich habe folgende Problematik bei meinem Skript, das von der Komanndozeile mit zwei Argumenten gestartet wird:
Das Skript wird mehrfach (in 20 Sekunden Abständen gestartet).
Leider, trotz Nutzung von Handles, klappt der Ablauf nicht bei parallel laufenden Versionen des Skripts.

Ich weiß leider momentan nicht mehr weiter, warum, die "ControlSend"´s und "WinClose"`s nicht das richtige Ziel, trotz Handle,
finden.

Ich bitte um Hilfe!
Vielen Dank im Voraus.

VG
Mikee

Code

;~ Auto-It-Skript, daß eine ICA-Datei startet und die Session wieder beendet, anschließend wird eine TextDatei erzeugt


AutoItSetOption ("WinTextMatchMode", 2 )




dim $text
dim $notepadtext1
dim $notepadtext2
dim $notepadtext3
dim $handle0
dim $handle1
dim $handle2
dim $handle3
dim $handle4


$text=""
$notepadtext1=""& @ComputerName &"{TAB}ICA_"& $CmdLine[2] &"{TAB}0{TAB}Check OK. ICA-Session wurde sauber beendet."
$notepadtext2=""& @ComputerName &"{TAB}ICA_"& $CmdLine[2] &"{TAB}2{TAB}Check fehlerhaft. ICA-Session wurde nicht aufgebaut."
$notepadtext3=""& @ComputerName &"{TAB}ICA_"& $CmdLine[2] &"{TAB}1{TAB}Check mit Problemen. ICA-Session noch offen."


Func _WinWaitActivate($title,$text,$timeout=0)
	WinWait($title,$text,$timeout)
	If Not WinActive($title,$text) Then WinActivate($title,$text)
	WinWaitActive($title,$text,$timeout)
EndFunc




Func _NotepadSession($notepadtext1)
	Run("notepad.exe c:\temp\autoit\status-files\"& $CmdLine[2] &".txt")
	WinWaitActive("[CLASS:Static; INSTANCE:2; '"& $CmdLine[2] &".txt']")
	$handle1 = ControlGetHandle("[CLASS:Static; INSTANCE:2]", ""& $CmdLine[2] &".txt", "")
	ControlSend( "", "", $handle1, "j")
	WinWaitActive("[TITLE:"& $CmdLine[2] &"; CLASS:Notepad; ""]")
	$handle2 = ControlGetHandle("[TITLE:"& $CmdLine[2] &"; CLASS:Notepad; ""]", "", "")
	ControlSend( "", "", $handle2, ""& $notepadtext1 &"")
	WinClose($handle2)	
	WinWaitActive("[CLASS:Static; INSTANCE:2; '"& $CmdLine[2] &".txt']")
	$handle3 = ControlGetHandle("[CLASS:Static; INSTANCE:2]", ""& $CmdLine[2] &".txt", "")
	ControlSend( "", "", $handle3, "{ENTER}")
EndFunc






;~ Töten von alten Fenstern, die im Skript relevant sein können.
WinKill($CmdLine[2],"")
;~ MsgBox(4096, "Vor dem Start", ""& $CmdLine[2] &"", 2)


;~ Start der ICA-Session
Run($CmdLine[1])
_WinWaitActivate($CmdLine[2],"")
$handle0 = ControlGetHandle(""& $CmdLine[2] &"", "", "")
;~ MsgBox(4096, "Information", ""& $handle0 &"")


If WinExists ($handle0) Then
;~ 	MsgBox(4096, "Information", ""& $handle0 &"", 5)
	Sleep(100000)
	For $i = 1 to 3
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ESC}")
		sleep(400)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ESC}")
		sleep(400)
		;~ Senden  Strg + Alt + Entf
		ControlSend( "", "", $handle0, "{CTRLDOWN}{F1}")
		sleep(100)
		;~ Senden Strg lösen
		ControlSend( "", "", $handle0, "{CTRLDOWN}{CTRLUP}")
		sleep(400)
		;~ Senden der Tab-Taste
		ControlSend( "", "", $handle0, "{TAB}")
		sleep(400)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ENTER}")
		sleep(400)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ENTER}")
		sleep(400)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ESC}")
		sleep(400)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ENTER}")
		sleep(200)
		;~ Senden der Enter-Taste
		ControlSend( "", "", $handle0, "{ENTER}")
		sleep(5000)
	Next
Else
	_NotepadSession($notepadtext2)
	Sleep(100)
	Exit
EndIf




Sleep(5000)


If FileExists("c:\temp\autoit\status-files\"& $CmdLine[2] &".txt") Then
;~ 	MsgBox(4096, "c:\temp\autoit\"& $CmdLine[2] &".txt", "Existiert", 2)
	FileDelete("c:\temp\autoit\status-files\"& $CmdLine[2] &".txt")
;~ 	If @error = 0 Then
;~ 		MsgBox(4096, "c:\temp\autoit\"& $CmdLine[2] &".txt", "wurde gelöscht", 2)
;~ 	Else
;~ 		MsgBox(4096, "c:\temp\autoit\"& $CmdLine[2] &".txt", "ist noch da!", 2)
;~ 	EndIf
;~ Else
;~ 	MsgBox(4096,"c:\temp\autoit\"& $CmdLine[2] &".txt", "existiert NICHT", 2)
EndIf


If WinExists ($handle0) Then
;~ 	MsgBox(4096, "Fehler", "Fenster noch geöffnet!", 2)
		If @error = 0 Then
;~ 			MsgBox(4096, "Fehler - ICA-Session", "Erstellung der NSCA-Datei.", 2)
			_NotepadSession($notepadtext3)
			Sleep(100)
			Exit
		Else
;~ 			MsgBox(4096, "FEHLER - ICA-Session", "Es hat nicht geklappt, versuch es weiter!", 2)
			Exit
		EndIf
Else
	If @error = 0 Then
;~ 			MsgBox(4096, "ERFOLG - ICA-Session", "Erstellung der NSCA-Datei.", 2)
			_NotepadSession($notepadtext1)
			Sleep(100)
			Exit
	Else
;~ 		MsgBox(4096, "FEHLER - ICA-Session", "Es hat nicht geklappt, versuch es weiter!", 2)
		Exit
	EndIf


EndIf
Exit

Alles anzeigen

**Schnitzel**

Also zuerst mal Herzlich Willkommen im Forum

In dem Script sind einige Dinge die sehr fehleranfällig sind.
z.B. in eine ein Textfile mithilfe von notepad zu bearbeiten
Dafür gibt es Funktionen wie: Filewrite.

Auch das ControlgetHandle wird/kann Probleme verursachen, da du keine ControlId angibst (der 3te Parameter der bei dir "" ist)
Und ein Skript öfter starten muss im Normalfall auch nicht sein.

Vielleicht wäre es ganz gut wenn du beschreibst was genau das Script alles machen soll.
Ich denke da lässt sich einiges optimieren

Edit:
und bitte beim nächsten mal Spoiler und Autoit-Code-Boxen verwenden
also die beiden hier:
[Blockierte Grafik: http://www.autoit.de/wcf/icon/wysiwyg/insertSpoilerM.png][Blockierte Grafik: http://www.autoit.de/wcf/icon/wysiwyg/insertAutoItM.png]

Kijan

wenn du unbedingt mit mehreren gleichen arbeiten willst solltest vllt eher mit PIDs arbeiten
Die bekommste zB mit WinGetProcess()

mikee01

Hi @all!

Danke für euer schnelles Feedback!

Also, ich versuche mal zu erläutern, was mit dem Skript machen möchte.

1. Ich nutze ein Windows-Batch-Skript, das die verschiedenen Auto-It-Instanzen startet.Diese Übergibt dem Auto-It-Skript zwei Argumente. Der Autoit-Aufruf würde ungefähr so aussehen.

Code

C:\Programme\AutoIt3\AutoIt3.exe  C:\temp\autoit\\ica-Check_Uebergabe.au3 "C:\Programme\Citrix\ICA Client\wfica32.exe C:\temp\autoit\ica\test1.ica" "Test1 User"

Inhalt des Batch-Skripts:

Code

REM Skript für den Reihenstart von Autoit-Skripten mit zwei Argumenten.
REM Die Argumente werden einerseits durch ein dir-Kommando gebildet, andererseits durch eine Folge von SED- und join-Kommandos.


@echo off


set DIR1=C:\temp\autoit\work
set DIR2=C:\temp\autoit\
set DIR3=C:\temp\autoit\ica
set DATEI1=ica-liste.txt
set DATEI1A=ica-listea.txt
set DATEI2=listing2.txt
set DATEI2A=listing2a.txt
set DATEI3=merge.txt




dir /B %DIR3%\*.ica > %DIR1%\%DATEI1%


del %DIR1%\%DATEI2%


FOR /F %%i IN (%DIR1%\%DATEI1%) DO sed -n "/\[ApplicationServers\]/{n;p;}"  %DIR3%\%%i >> %DIR1%\%DATEI2% 


sed -e "s/\=//g" %DIR1%\%DATEI2% > %DIR1%\%DATEI2A%
move %DIR1%\%DATEI2A% %DIR1%\%DATEI2%


findstr /N "." %DIR1%\%DATEI1% > %DIR1%\%DATEI1A%
sed -e "s/:/;/g" %DIR1%\%DATEI1A% > %DIR1%\%DATEI1%


findstr /N "." %DIR1%\%DATEI2% > %DIR1%\%DATEI2A%
sed -e "s/:/;/g" %DIR1%\%DATEI2A% > %DIR1%\%DATEI2%


join -t ; -1 1 -2 1 %DIR1%\%DATEI1% %DIR1%\%DATEI2% > %DIR1%\%DATEI3%


FOR /F "tokens=2,3 delims=;" %%a IN (%DIR1%\%DATEI3%) DO ( start /i cmd /c "C:\Programme\AutoIt3\AutoIt3.exe  %DIR2%\ica-Check_Uebergabe.au3 "C:\Programme\Citrix\ICA Client\wfica32.exe %DIR3%\%%a" "%%b""
															sleep 20)

Alles anzeigen

2.Das Auto-It-Skript nutzt die übergebenen Argumente um einem Citrix-ICA-Fenster mit einem Titel (enthält Argument 2) Keystrokes zu übergeben. Ziel: Beenden von Programmen und Abmelden des Benutzers aus der Session.

3. Nachdem das ICA-Fenster geschlossen wurde wird eine Text-Datei mit Argument2 als Titelnamen erstellt und Text eingefügt, letzendlich abgespeichert und die Notepad-Session beendet.

--> Starte ich eine Autoit-Skript-Instanz klappt es, Je mehr dazukommen, desto häufiger gibt es Kuddelmuddel (Bspw. wird Text in die Notepad-Datei geschrieben und Keystrokes aus den Ica-Sessions fliegen rein, oder ähnliches.)

Grüße
Mikee

mikee01

Ich habe jetzt die Funktion NotepadSession mit fileopen und filewrite ausgestattet. Das klappt schon mal gut!

Code

Func _NotepadSession($notepadtext1)
	$file = FileOpen("c:\temp\autoit\status-files\"& $CmdLine[2] &".txt", 1)
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open file.")
		Exit
	EndIf
	FileWrite($file, ""& $notepadtext1 &"")
	FileClose($file)
EndFunc

Wie sollte ich Eurer Meinung nach, die Keystrokes an die ICA-Fenster übergeben?

Kijan:
WingetProces() liefert mir die PID des Fensters, aber wie bekomme ich das mit dem Senden von Keys an das passende Fenster hin?

Grüße an alle!

Mikee

Kijan

in etwa so zb

Spoiler anzeigen

[autoit]

#include <Process.au3>
#include <Array.au3>
AutoItSetOption("WinTitleMatchMode", 4)
Run("notepad.exe")
WinWaitActive("[CLASS:Notepad]", "")
$pid = WinGetProcess("[CLASS:Notepad]", "")
$name = _ProcessGetName($pid)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$myWinList = _WinListWithPID()
$find = _ArraySearch($myWinList,$pid,0,0,0,0,1,2)

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "Notepad - " & $pid, "Name: " & $myWinList[$find][0] & @CRLF & _
"WinHandle: " & $myWinList[$find][1] & @CRLF & _
"PID: " & $myWinList[$find][2])

[/autoit] [autoit][/autoit] [autoit]

Func _WinListWithPID()
$aWin = WinList()
Redim $aWin[Ubound($aWin, 1)][3]
For $n = 1 to (Ubound($aWin, 1) - 1)
$aWin[$n][2] = WinGetProcess($aWin[$n][1])
Next
Return $aWin
EndFunc

[/autoit]

so könntest das handle erlangen und weiter weist doch bestimmt alleine^^

mikee01

Okay, so scheint es zu funktionieren..... Danke schon mal an alle!

[autoit]

;~ Auto-It-Skript, daß eine ICA-Datei startet und die Session wieder beendet.