Reply to thread

Message

<blockquote data-quote="larry_S" data-source="post: 647503" data-attributes="member: 85587">AW: per Batch Programme in best. Reihenfolge starten[USER=62730]lembugu[/USER]Dein Code dürft nur mit Visual Studio laufen.[USER=53383]Ponyriemen[/USER]Hier mal ein simpler Code welcher eine Excel Tabelle aufruft, wartet bis das Fenster &quot;Kennwort&quot; kommt und dann test123 eingibt.[CODE]Set WshShell = Wscript.CreateObject(&quot;WScript.Shell&quot;)intreturn = wshshell.run(chr(34) &amp; &quot;S:\xxx\xxx\Tabelle.XLS&quot;&amp;chr(34) ,9,false)PW=&quot;test123&quot;'Warten bis das Fenster Kennwort kommt. Nach 10 Sekunden abbrechen.while wshShell.AppActivate(&quot;Kennwort&quot;) = FALSE and a&lt;&gt;20&nbsp; &nbsp; a=a+1&nbsp; &nbsp; wscript.sleep 500 '500 Millisekunden wartenwendif&nbsp; wshShell.AppActivate(&quot;Kennwort&quot;) = True then&nbsp; wshShell.AppActivate(&quot;Kennwort&quot;)&nbsp; wscript.sleep 150&nbsp; wshShell.SendKeys PW&nbsp; wscript.sleep 150&nbsp; wshShell.AppActivate(&quot;Kennwort&quot;)&nbsp; wscript.sleep 150&nbsp; wshShell.SendKeys &quot;{TAB}&quot;&nbsp; wscript.sleep 150&nbsp; wshShell.AppActivate(&quot;Kennwort&quot;)&nbsp; wscript.sleep 150&nbsp; wshShell.SendKeys &quot; &quot;end if[/CODE]GrußLarry</blockquote>

[QUOTE="larry_S, post: 647503, member: 85587"] [b]AW: per Batch Programme in best. Reihenfolge starten[/b] [USER=62730]lembugu[/USER] Dein Code dürft nur mit Visual Studio laufen. [USER=53383]Ponyriemen[/USER] Hier mal ein simpler Code welcher eine Excel Tabelle aufruft, wartet bis das Fenster "Kennwort" kommt und dann test123 eingibt. [CODE]Set WshShell = Wscript.CreateObject("WScript.Shell") intreturn = wshshell.run(chr(34) & "S:\xxx\xxx\Tabelle.XLS"&chr(34) ,9,false) PW="test123" 'Warten bis das Fenster Kennwort kommt. Nach 10 Sekunden abbrechen. while wshShell.AppActivate("Kennwort") = FALSE and a<>20 a=a+1 wscript.sleep 500 '500 Millisekunden warten wend if wshShell.AppActivate("Kennwort") = True then wshShell.AppActivate("Kennwort") wscript.sleep 150 wshShell.SendKeys PW wscript.sleep 150 wshShell.AppActivate("Kennwort") wscript.sleep 150 wshShell.SendKeys "{TAB}" wscript.sleep 150 wshShell.AppActivate("Kennwort") wscript.sleep 150 wshShell.SendKeys " " end if[/CODE] Gruß Larry [/QUOTE]

Verification