Sendkeys an "unsichtbare" Programme?

[VBScriptler 10]

Hallo euch allen!

 

Ich habe ein Problem mit VBScript und zwar möchte ich sendkeys Befehle an ein Dos Programm schicken, dass vorher mit dem Run Befehl im "unsichtbaren" Modus gestartet wurde, geht das??? Bin schon seit Stunden im Internet unterwegs, hab aber nichts brauchbares soweit gefunden! Schonmal Danke für alle Ideen!

 

Hier mein Code bis jetzt:

 

Set fs = CreateObject("Wscript.Shell")

'Startet das Dos Programm im Hintergrund und übermittelt einen Parameter 

fs.run "wshget.exe -e C:\Test.exe" , 0 

'Ermittelt die Prozessid von dem Programm

Set wmi = GetObject("winmgmts:") 

Set system = wmi.instancesOf("win32_process") 

for each process in system 

if lcase(process.name)="wshget.exe" then 

wshget = process.processid (0) 

next 

'Schaltet das "unsichtbare" Programm in den Vordergrund 

fs.AppActivate wshget 

'Da das Programm eine InputBox anzeigt, sende ich die Eingabe an 
'die InputBox per Sendkeys 

fs.sendkeys "123" 

wscript.sleep 1000 

fs.AppActivate wshget 

'Bestätigt die InputBox durch drücken der "Enter" Taste! Ab 
'jetzt läuft das Programm automatisch weiter! 

fs.sendkeys "{ENTER}"

 

Da der Endbenutzer davon aber nichts mitbekommen soll, muss das Programm unsichtbar laufen und sendkeys anehmen! Das Problem ist, dass die sendkeys auf dem Desktop landen und nicht im Programm(wenn das Programm sichtbar gestartet wird, gehts wunderbar!)

 

Ich danke allen, denen igendetwas dazu einfällt!

 

Viele Grüße

 

Euer VBScriptler