Zeitablauf in vbs vor neuem Befehl[gelöst]

[Jag Panzer]

HI,
habe gerade ein Problem mit der Zeitangabe in vbs. Habe diese beiden Standard Scripte laufen um eine Config ein und aus zu blenden. Beide auf Klick.
1.

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=0"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei show"

2.

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=1"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei hide"

Jetzt zu meinem Problem:
Ich möchte einen Zeitraum verstreichen lassen und dann die Config wieder automatisch ausblenden lassen.
Ungefähr so:
3.

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=0"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei show"
WSHShell.RUN "runtime10000"
WSHshell.RUN "D:\Jag\Schriftliches\Scripte\Hide Home menü.vbs"

Ausprobiert habe ich auch leider ohne Erfolg:
4.

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=0"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei show"
WSHShell.RUN "C:\Programme\Samurize\Client.exe i=Drei togglerrunning 10000"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=1"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei hide"

Die unterste Zeile in 3. ist der Pfad zu vbs 2. s.o.. Für mich wäre also die Zeile 3 in Beispiel 3. wichtig.
Kann mir da jemand einen Tipp geben. Bei mir hackelt es gerade im Oberstübchen. Vorallem hatten wir das Thema glaube ich auch schon mal hier besprochen im Forum.

mfg Jag

[Tante Google]

[moinmoin]

Meinst du eine Pause setzen mit

Code: Alles auswählen

WScript.Sleep 2000 

Zeit natürlich einstellbar.

[Jag Panzer]

Hi,
super moinmoin, da Danke ich Dir herzlich. Auf "WScript" wäre ich nicht gekommen. Mit "Sleep" hatte ich es auch ausprobiert aber halt mit "WSHShell.Run" vorangestellt. Jetzt läuft es.
Lösung:

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=0"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei show"
WScript.Sleep "2000" 
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei hide"
WSHShell.Run "C:\Programme\Samurize\Client.exe i=Drei paused=1"

mfg Jag

[moinmoin]

Fein.