yannosch
Goto Top

VBScript: Entertaste simulieren

Hallo zusammen,

folgende Situation:

    i=0
	
        set WshShell2 = CreateObject("WScript.Shell")  
	
    do until i > 60
	msgbox "Zeit in Sekunden: " & i & ""    
	WScript.Sleep(1000)
	WshShell2.SendKeys "{ENTER}"  
	i = i+1
    loop

Enter wird nicht gedrückt... wo liegt mein Problem? Kann mir jemand netterweise helfen?
Vielen Danke schonmal im Vorraus face-smile !

Grüße
Y@nnosch face-smile

Content-Key: 262268

Url: https://administrator.de/contentid/262268

Printed on: April 24, 2024 at 08:04 o'clock

Mitglied: 114757
114757 Feb 04, 2015 updated at 14:45:56 (UTC)
Goto Top
Soll das ein Countdown werden ?
Der geht einfacher so
Fehler bei Zeitmakro (Uhrzeit soll automatisch jede Minute aktualisiert werden)

Mit deiner Methode müsste man die MSGBox explizit in den Vordergund holen, ist so aber Murks.

Gruß jodel32
Member: Yannosch
Yannosch Feb 04, 2015 at 14:47:42 (UTC)
Goto Top
Es handelt sich hierbei um VB-Script. Nicht VBA. Leider gibt es keine Kategorie für VBS - oder ich bin einfach blind :D
Mitglied: 114757
114757 Feb 04, 2015 updated at 14:56:42 (UTC)
Goto Top
na dann
set WshShell2 = CreateObject("WScript.Shell")  
for i = 0 to 60
	WshShell2.Popup "Zeit in Sekunden: " & i ,1  
Next
Leider gibt es keine Kategorie für VBS - oder ich bin einfach blind :D
VBA gibt's als Kategorie, ist jedenfalls besser als Visual Studio ...