[VBScript] Hoe een Timer functie gebruiken???

[Woudloper]

Ik ben nu even bezig om een .vbs script aan het maken en heb daarbij een Timer functie nodig...

Ik heb de reference doorgelopen, maar kan dat niet vinden... Wellicht omdat het te warm is, maar ik denk gewoon omdat het er niet is...

Weet iemand hoe ik zelf een soortement van Timer functie kan maken...

Zelf dacht ik aan zoiets...

code:

'Declarations
Dim TRunning = False

Sub StartTimer()

   TRunning = True

   'hier de code.... Tussen do ... while

   do

   while TRunning = True

End Sub

Sub StopTimer()

   TRunning = False

End Sub

Of gaat dit niet werken

[gorgi_19]

Waarom doe je het niet eenvoudiger?

Neem op het moment dat je de timer start, de tijd (en stop deze in een variabele).
Neem vervolgens op het moment dat je de 'timer' stopt, de tijd.

Trek deze van elkaar af en je hebt de tijd?

[Woudloper]

gorgi_19:
Waarom doe je het niet eenvoudiger?

Neem op het moment dat je de timer start, de tijd (en stop deze in een variabele).
Neem vervolgens op het moment dat je de 'timer' stopt, de tijd.

Trek deze van elkaar af en je hebt de tijd?

Het is niet zo dat ik de tijd wil berekenen, maar ik wil dat ik vanuit een andere functie iets start wat met een regelmatige interval (5/10 sec.) een waarde ophoogt. Dit om een progressbar te laten doorlopen...

Nadat ik deze functie heb aangeroepen, start ik de werkelijke actie (die helaas geen progress doorgeeft) en als dit dan klaar is, want daar kan ik natuurlijk wel op wachten, zie:

code:

    Dim sh

    Set sh = CreateObject("WScript.Shell")

    sh.Run [programma of actie] , 0, true
    '0 omdat niemand het dan ziet, want ze zien al progressbar...

Dan stop ik het geheel.... Het verhogen van de progressbar dus...

edit:

Wat mij dus niet lukt is om een soortement van interval mee te geven...

[McMad]

Volgens mij moet je dan iets van multithreading gaan doen. Dat gaat niet lukken met VBscript.

[Woudloper]

McMad schreef op 31 juli 2002 @ 12:38:
Volgens mij moet je dan iets van multithreading gaan doen. Dat gaat niet lukken met VBscript.

Jammer

Ik was al aan het klooien geweest met do.. while / do... until / etc...

maar dat kreeg ik allemaal niet aan de praat....

[Sinedia]

Het probleem is namelijk dat er geen Timer object is in VBS zoals wel het geval is in VB, maar dit kan je omzeilen door het gebruik van een meta tag.

Als je deze meta tag naar dezelfde pagina verwijst als waar je de tag in hebt gezet en je hebt de timer functie nagebootst.
Nu hoef je alleen maar bij te hoe vaak er gerefreshed is.

code:

<meta http-equiv='refresh' content='<%=RedirectTimeInSeconds%>;
URL=dezepagina.asp?redirecttime=<%=RedirectTimeInSeconds%>
&timesrefreshed=<%=timesrefreshed%>'>

[ Voor 0% gewijzigd door Sinedia op 31-07-2002 16:10 . Reden: FF code tag ingevoegd. ]

[Woudloper]

[b[Sinedia[/b] het is niet zo dat ik het binnen .asp wil gaan gebruiken, maar het is echt voor een .vbs file zodat een backup process wordt geautomatiseerd....