Sekunder

Jeg er ved at lave en (simpel) applikation der kan hente en side fra en url. Jeg skal lave en timer, så man kan sætte den til at hente url\'en f.eks. hvert andet sekund.

Jeg bruger IE5\'s browser til formålet. her er min kode:

Dim intKnapNr, numberOfSeconds


Private Sub getbody_Click()
    intKnapNr = 1
    WebBrowser1.Navigate Text1.Text
    numberOfSeconds = GetEachSeconds.Text
End Sub


Private Sub srcText_Change()

End Sub

Private Sub StopGetting_Click()
    intKnapNr = 2
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next
       
    Dim doc As IHTMLDocument2
    Set doc = WebBrowser1.Document
    srcText.Text = \"\"
    If intKnapNr = 1 Then
       
        srcText.Text = doc.body.innerText
    End If
   
\'## HER skal der være noget kode som tager
\'numberOfSeconds (sekunder), det tal der står
\' i denne variabel skal afgøre hvornår
\' getbody_click skal kaldes!!!
    If Not intKnapNr = 2 Then
        Call getbody_Click
    End If
   
End Sub