Reply to thread

Message

<blockquote data-quote="larry_S" data-source="post: 647531" data-attributes="member: 85587">AW: per Batch Programme in best. Reihenfolge startenNatürlich geht es auch simpel. Kann dann aber Probleme machen.Simpel wäre[CODE]Set WshShell = Wscript.CreateObject(&quot;WScript.Shell&quot;)intreturn = wshshell.run(chr(34) &amp; &quot;C:\WINDOWS\Notepad.exe&quot;&amp;chr(34) ,9,false)wscript.sleep 1000wshShell.SendKeys &quot;Eine Zeile Text&quot;[/CODE]Daraus ergeben sich aber ggf. Probleme.Wenn das Notepad länger wie eine Sekunde braucht werden die Tastatureingaben trotzdem getätigt.Daher wird mit folgendem Code gewartet bis das Fenster mit dem Titel Notepad aktiv ist und setzt erst dann die Eingaben fort. Zusätzlich gibt es eine Notausgang nach 20 Sekunden. Kann das Notepad nämlich nicht gestartet werden, befindet man sich in einer Endlosschleife. Da hilft dann nur der Taskmanager.[CODE]while wshShell.AppActivate(&quot;Notepad&quot;) = FALSE and a&lt;&gt;20&nbsp; &nbsp; a=a+1&nbsp; &nbsp; wscript.sleep 500 '500 Millisekunden wartenwend[/CODE]Und folgende If Then Schleife prüft nur, ob das Fenster auch vorhanden ist.[CODE]if&nbsp; wshShell.AppActivate(&quot;Notepad&quot;) = True then&nbsp; Anweisungenend if[/CODE]Zusätzlich empfiehlt es sich das Fenster öfters in den Vordergrund zu holen und zu aktivieren. Wenn die Tasteneingaben in ein anderen Programm wandern kann dies unerwartete Folgen haben. Daher:[CODE]wshShell.AppActivate(&quot;Notepad&quot;)[/CODE]GrußLarry</blockquote>

[QUOTE="larry_S, post: 647531, member: 85587"] [b]AW: per Batch Programme in best. Reihenfolge starten[/b] Natürlich geht es auch simpel. Kann dann aber Probleme machen. Simpel wäre [CODE] Set WshShell = Wscript.CreateObject("WScript.Shell") intreturn = wshshell.run(chr(34) & "C:\WINDOWS\Notepad.exe"&chr(34) ,9,false) wscript.sleep 1000 wshShell.SendKeys "Eine Zeile Text" [/CODE] Daraus ergeben sich aber ggf. Probleme. Wenn das Notepad länger wie eine Sekunde braucht werden die Tastatureingaben trotzdem getätigt. Daher wird mit folgendem Code gewartet bis das Fenster mit dem Titel Notepad aktiv ist und setzt erst dann die Eingaben fort. Zusätzlich gibt es eine Notausgang nach 20 Sekunden. Kann das Notepad nämlich nicht gestartet werden, befindet man sich in einer Endlosschleife. Da hilft dann nur der Taskmanager. [CODE] while wshShell.AppActivate("Notepad") = FALSE and a<>20 a=a+1 wscript.sleep 500 '500 Millisekunden warten wend [/CODE] Und folgende If Then Schleife prüft nur, ob das Fenster auch vorhanden ist. [CODE] if wshShell.AppActivate("Notepad") = True then Anweisungen end if [/CODE] Zusätzlich empfiehlt es sich das Fenster öfters in den Vordergrund zu holen und zu aktivieren. Wenn die Tasteneingaben in ein anderen Programm wandern kann dies unerwartete Folgen haben. Daher: [CODE] wshShell.AppActivate("Notepad") [/CODE] Gruß Larry [/QUOTE]

Verification