WinActivate bei minimiertem RDP-Fenster

r0m

Folgendes Problem. Ich möchte auf ein Upload-Fenster warten und dann Dateinamen übergeben. Es funktioniert auch wunderbar, leider habe ich ein komisches Problem auf einem entfernten System auf welches ich per RDP zugreife. Wenn das Fenster offen ist, funktioniert alles. Wenn dieses RDP-Fenster minimiert ist, läuft WinActivate ins Leere und WinWaitActive (Zeile 10 bzw. Zeile 11) wird entsprechend nicht ausgelöst! Wenn ich mich das RDP-Fenster in den Vordergrund hole, funktioniert das Skript...

Das Problem scheint nicht neu zu sein, eine Lösung kann ich leider nicht entdecken.

Code

Func manageUploadDialog($fileDir, $fileName)
	;Diese Funktion kann sowohl für Chrome, als auch Firefox verwendet werden
	$fullpath = StringReplace($fileDir & $fileName, "/", "\")
	For $i = $timetowait To 1 Step -1
		writeLog("Waiting for Window (Firefox): Datei hochladen")
		If WinExists("Datei hochladen") Then
			;MsgBox("","WinExists!","WinExists mit 'Datei hochladen'")
			WinActivate("Datei hochladen")
			;MsgBox("","WinActivate!","WinActivate mit 'Datei hochladen'")
			If WinWaitActive("Datei hochladen") <> 0 Then
				MsgBox("","WinWaitActivate!","WinWaitActivate mit 'Datei hochladen'")
				writeLog("Uploading File in : " & $fullPath)
				Send($fullPath)
				Send("{ENTER}")
				ExitLoop
			EndIf
		Else
			;MsgBox(48, "", "Window does not exist 1",2)
		EndIf
		writeLog("Waiting for Window (Chrome): Öffnen")
		If WinExists("Öffnen") Then
			WinActivate("Öffnen")
			If WinWaitActive("Öffnen") <> 0 Then
				writeLog("Uploading File in : " & $fullPath)
				Send($fullPath)
				Send("{ENTER}")
				ExitLoop
			EndIf
		Else
			;MsgBox(48, "", "Window does not exist 2",2)
		EndIf
		Sleep(1000)
	Next
	If $i = 0 Then
		MsgBox(16,"Eingabe","Fenster nicht gefunden",2)
		writeLog("Error: Uploadwindow not found", true)
	Else
		MsgBox(64,"Eingabe","Fenster gefunden!" & @CRLF & @CRLF & "[1] " & $fileDir & @CRLF & "[2] " & $fileName,2)
		evaluate("upload dialog successful")
		writeLog("SCRIPT FINISHED UPLOAD-DIALOG")
	EndIf
EndFunc

Alles anzeigen

olfibits

Versuche es vielleicht mit GUISetState(@SW_Minimize, WinGetHandle(" [Fenstertitel] "))

BLinz

Das hatte ich auch schon.
Eine Möglichkeit ist VNC statt RDP zu nehmen, es muss dann die Consolen-Sitzung sein

Oder du probierst das hier aus: https://blog.smartbear.com/software-quali…ws/?printable=1
Den Schlüssel kann man auch pro Benutzer setzen - sprich du kannst diesen in dein Programm mit einbauen.

Ich weis aber nicht ob das sofort geht oder erst nach der nächsten Anmeldung

NO1 :-)

Du kannst auch deine eigene AutoIt GUI erstellen und RDP einbetten, dann kannst du auch die Optionen für das Fenster festlegen.

Beispiel:

AutoIt

#include <GUIConstants.au3>


$oRDP = ObjCreate("MsTscAx.MsTscAx") 
GUICreate("Embedded RDP control Test", 640, 480, -1 , -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oRDP, 10, 10, 620, 460)
GUISetState()


$oRDP.Server = "SERVERNAME"
$oRDP.Domain = "DOMAIN"
$oRDP.UserName = "USERNAME"


$oRDP.Connect()


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd


GUIDelete()


Exit

Alles anzeigen