Inet control refreshing problem !?!?

[VB Client/Server]

Hello, I use this code to monitor some changes on site index,
evrything works OK when first time getting data, and when I
use it in loop mode, all info remains same but it chages on site!
What is wrong with this code, why he dont read site info in loop mode?

lStart = 1
  lEnd = 1
  sFindStart = "news this hour:" 
  sFindEnd = vbNewLine 
  sSource = ""
  sSource = Inet1.OpenURL(GetSetting(App.EXEName, "Settings", "text1", "")) 
 
  Do While Inet1.StillExecuting
   DoEvents
    Loop
 
Inet1.Execute , "CLOSE"
  
  lStart = InStr(lStart, sSource, sFindStart, vbTextCompare)
       If lStart Then
              lStart = lStart + Len(sFindStart)
                    lEnd = InStr(lStart, sSource, sFindEnd, vbTextCompare)
       If lEnd > lStart Then
          Text1.Text = Mid$(sSource, lStart, lEnd - lStart)
          Else
              Debug.Print "Cant find text."
          End If
          Else
              Debug.Print "Cant find text."
          
      End If
   End If

So Text1.Text remains same when using loop mode, WHY
And web site info changes

[gavio]

That Do loop doesn't help you much - when Inet is done, it stops "looping". Do you have this in a timer or some other sub?

[VB Client/Server]

I have Timer, and all posted above code is in main do loop, there are
different option's and only this one not working correctly ( stuck on old info )!

[smUX]

That Do loop doesn't help you much - when Inet is done, it stops "looping".

I think you'll find that's the *point* of the do loop...without it, it'd try to read partial source...that's there to wait until inet's finished then do stuff with the HTML source downloaded...a trick I use often

[VB Client/Server]

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Pause(Milliseconds As Single)
    Dim sngEnding As Single
    sngEnding = Timer + (Milliseconds / 1000)
    Do Until Timer >= sngEnding
        Sleep 1
        DoEvents
    Loop
End Sub

here is problem....

Private Sub Timer1_Timer()
On Error Resume Next
 
Do
If Option1.Value = True Then
lStart = 1
  lEnd = 1
  sFindStart = "news this hour:" 
  sFindEnd = vbNewLine 
  sSource = ""
  sSource = Inet1.OpenURL(GetSetting(App.EXEName, "Settings", "text1", "")) 
 
  Do While Inet1.StillExecuting
   DoEvents
    Loop
 
Inet1.Execute , "CLOSE"
  
  lStart = InStr(lStart, sSource, sFindStart, vbTextCompare)
       If lStart Then
              lStart = lStart + Len(sFindStart)
                    lEnd = InStr(lStart, sSource, sFindEnd, vbTextCompare)
       If lEnd > lStart Then
          Text1.Text = Mid$(sSource, lStart, lEnd - lStart)
          Else
              Debug.Print "Cant find text."
          End If
          Else
              Debug.Print "Cant find text."
          
      End If
   End If
 
pause 2000
 
If Option2.Value = True Then
another code...
 
 
 
 
...
 
Loop Until Text2.Text <> Text1.Text