Timer countdown

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Timer countdown

Logged in as: Guest

arrSession:exec spGetSession 2,2,63401

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Timer countdown
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Timer countdown - 8/12/2008 9:29:38 PM

durbslaw

Posts: 2
Score: 0
Joined: 8/12/2008
Status: offline

Hi People, I would certainly appreciate all help with the following code, i am attempting to output a 30 second timer.

Dim i, interval
i=30
for i= 30 to 1 step -1
if i=0 then wscript.quit
wscript.echo i
next
wscript.quit

Post #: 1

RE: Timer countdown - 8/12/2008 10:41:54 PM

TomRiddle

Posts: 191
Score: 4
Joined: 2/7/2008
Status: offline

Hi durbslaw,

wscript.echo pauses the script when run from wscript.

I added a bit of code on yours to force it to run in cscript console window
I also added a chr(7) echo which is a beep and a 995 milisecond sleep between beeps.

You could try getting rid of the beep and changing the sleep to 1000 milliseconds(1 second).

Personally I would prefer do it in a HTA with a set.interval timer updating display

(in reply to durbslaw)

Post #: 2

RE: Timer countdown - 8/13/2008 12:21:45 AM

durbslaw

Posts: 2
Score: 0
Joined: 8/12/2008
Status: offline

Thanks Dude!!!, I will give it a shot...

(in reply to TomRiddle)

Post #: 3

RE: Timer countdown - 8/14/2008 1:15:47 PM

ploosie

Posts: 45
Score: 0
Joined: 3/2/2008
Status: offline

Try this: (It will display a counter for 30 seconds and close IExplore.exe - you can remove this part if you want)

nDisplayTime= 30 
nStartTime= clng(timer) 
sMsg= (nDisplayTime) _ 
& " seconds remaining"

nScrW= createobject( _ 
"htmlfile").parentWindow.screen.availWidth 
nScrHt= createobject( _ 
"htmlfile").parentWindow.screen.availHeight

showBar oIe 
wscript.sleep 1000

oIe.document.parentWindow.document.script.barop 0

do 'your operational loop

'  ...

nElapsedTime= cint(timer- nStartTime) 
if (nElapsedTime<0) then 
nStartTime= nStartTime -(60 *60 *24) 
nElapsedTime= clng(timer- nStartTime) 
end if

if (nElapsedTime>nLastTime) then 
iPct= cint((nElapsedTime /nDisplayTime) *100) 
sMsg= (nDisplayTime -nElapsedTime) _ 
 & " seconds remaining" 
nLastTime= nElapsedTime

on error resume next 
 oIe.document.parentWindow.document.script.barop iPct 
 if (err=0) then 
  oIe.document.all.msgcell.innerText= sMsg 
 end if

if err then 
  err.clear 
  showBar oIe 
  oIe.document.parentWindow.document.script.barop iPct 
  oIe.document.all.msgcell.innerText= sMsg 
 end if 
end if 
on error goto 0

loop until (nElapsedTime=nDisplayTime)

oIe.close

wscript.quit

function showBar (oIe)

set oIe= createobject( _ 
     "internetExplorer.application") 
oIe.navigate("about:blank") 
do: wscript.sleep 50: loop until oIe.readyState=4

with oIe 
.fullScreen= true 
.toolbar = false 
.statusBar = false 
.addressBar = false 
.resizable= false 
.width= 420 
.height= 160 
.left= (nScrW -420) \2 
.top= (nScrHt -120) \2

with .document 
 .writeLn ("<!doctype html public>") 
 .writeLn ("<html style=""border-style:outset;" _ 
  & "border-width:4px"">") 
 .writeLn  ("<head>") 
 .writeLn   ("<title>Internet Explorer will shutdown in 30 seconds</title>") 
 .writeLn   ("<style type=""text/css"">") 
 .writeLn    ("body {background-color:#ece9d8;" _ 
              & "text-align:center;" _ 
              & "vertical-align:middle}") 
 .writeLn   ("</style>") 
 .writeLn   ("<script language=""vbscript"">") 
 .writeLn    ("function BarOp (vnPct)") 
 .writeln     ("window.bar.style.width= vnPct & ""%""") 
 .writeLn    ("end function") 
 .writeLn   ("</script>") 
 .writeLn  ("</head>") 
 .writeLn  ("<body scroll=""no"">") 
 .writeLn   ("<table>") 
 .writeLn    ("<tr>") 
 .writeLn     ("<td style=""text-align:center;" _ 
               & "font-family:Arial;font-size:16pt;" _ 
               & "font-weight:bold"">") 
 .writeLn      ("Internet Explorer will shutdown in 30 seconds") 
 .writeLn     ("</td>") 
 .writeLn    ("</tr>") 
 .writeLn    ("<tr>") 
 .writeLn     ("<td id=""barcell"" " _ 
               & "style=""width:400px;" _ 
               & "padding-left:7px;" _ 
               & "padding-right:" _ 
               & "7px;text-align:left;" _ 
               & "border-style:inset;" _ 
               & "border-width:thin;" _ 
               & "background-color:navajowhite"">") 
 .writeLn      ("<hr id=""bar"" " _ 
                & "style=""width:0%;height:15px;" _ 
                & "color:darkblue"" />") 
 .writeLn     ("</td>") 
 .writeLn    ("</tr>") 
'  .writeLn    ("<tr>") 
'  .writeLn     ("<td>") 
'  .writeLn      ("<br /><br />") 
'  .writeLn     ("</td>") 
'  .writeLn    ("</tr>") 
 .writeLn    ("<tr>") 
 .writeLn     ("<td id=""msgcell"" " _ 
               & "style=""width:400px;" _ 
               & "text-align:center;" _ 
               & "font-family:Arial;font-size:12pt;" _ 
               & "font-weight:bold;" _ 
               & "border-style:inset;" _ 
               & "border-width:thin"">") 
 .writeLn      (sMsg) 
 .writeLn     ("</td>") 
 .writeLn    ("</tr>") 
 .writeLn   ("</table>") 
 .writeLn  ("</body>") 
 .writeLn ("</html>") 
end with 
end with

oIe.visible= true 
end function

(in reply to durbslaw)