Как я могу сделать обратный отсчет обновления в VBS? - PullRequest
Новая
       21

Как я могу сделать обратный отсчет обновления в VBS?

0 голосов
/ 28 апреля 2020

Я пытаюсь сделать сообщение с обратным отсчетом до 7 вечера. Я прочитал в другой ветке, что MsgBox не может обновить данные, которые он содержит. Поэтому я должен использовать IE для этого. Вот что я попробовал: 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "about:blank"

While ie.ReadyState <> 4 : WScript.Sleep 100 : Wend

ie.ToolBar   = False
ie.StatusBar = False
ie.Width     = 200
ie.Height    = 100

ie.document.body.innerHTML = "<p id='msg'>0</p>"

Set style = ie.document.CreateStyleSheet
style.AddRule "p", "text-align: center;"

ie.Visible = True

Do  
    For Each objItem In colItems
        ie.document.getElementById("msg").innerText = "Time Left: " & vbCrLf & 19-objItem.Hour & " : " & 60-objItem.Minute & " : " & 60-objItem.Second
    Next
Loop
...