VBScript-Display Countdown-die Verwendung von Vbscript, Grafische Elemente

Wollte ich eine MessageBox angezeigt, die zeigt countdown von 10 bis 1 und autocloses nach 10 Sekunden. Wie Msgbox in vbscript geht die code-Ausführung, bis der Benutzer wirkt auf es, ich versuchte es mit Popup Wscript-Shell Object

Dim counter 
Dim oShell 
counter = 10 
Set oShell= CreateObject("Wscript.Shell") 
Während counter > 0 

oShell.Popup "Links" & counter & "Sekunden",1,"Erinnern" 
Zähler = Zähler-1 
Wend

Aber es auto-schließt für jedes zweite und öffnet ein neues popup gibt es eine Möglichkeit, kann ich die Anzeige der countdown-und autoclose mit den verfügbaren GUI-Elemente in vb-script

InformationsquelleAutor Dungeon Hunter | 2012-01-17
  1. 1

    Angst nicht, die popup modal & kann nicht mit interagiert werden, während dessen angezeigt, es gibt also keine Möglichkeit einer Aktualisierung der vorhandenen Inhalte.

    Wenn Sie möchten, eine mehr flexible Benutzeroberfläche, die Sie brauchen, um etwas anderes, der Konsole oder HTML in einer HTA.

    InformationsquelleAutor Alex K.
  2. 1

    Können Sie Internet Explorer, verwenden um eine nicht-modal anzeigen.

    Set oIE = CreateObject("InternetExplorer.Application")

With oIE
    .navigate("about:blank")
    .Document.Title = "Countdown" & string(100, chrb(160))
    .resizable=0
    .height=200
    .width=100
    .menubar=0
    .toolbar=0
    .statusBar=0
    .visible=1
End With

' wait for page to load
Do while oIE.Busy
    wscript.sleep 500
Loop

' prepare document body
oIE.document.body.innerHTML = "<div id=""countdown"" style=""font: 36pt sans-serif;text-align:center;""></div>"

' display the countdown
for i=10 to 0 step -1
    oIE.document.all.countdown.innerText= i
    wscript.sleep 1000
next
oIE.quit
    InformationsquelleAutor MBu
Schreibe einen Kommentar