loop help

[asad1912]

hey every1
i need to know how to make this code work with a do while loop

the statement is that

do while webbrowser1.locationurl="www.xxxxxxxxxxxxxxx.com"

Private Sub Command1_Click()
    Dim strfindword As String
        strfindword = InputBox("What are you looking for?", "Find", "") ' what word to find?
            If WebPageContains(strfindword) = True Then 'check if the word is in page
                MsgBox "The webpage contains the text" 'string is in page
            Else
                MsgBox "The webpage doesn't contains the text" 'string is not in page
            End If
End Sub
Private Function WebPageContains(ByVal s As String) As Boolean
    Dim i As Long, EHTML
    For i = 1 To WebBrowser1.Document.All.length
        Set EHTML = _
        WebBrowser1.Document.All.Item(i)
 
 
        If Not (EHTML Is Nothing) Then
            If InStr(1, EHTML.innerHTML, _
            s, vbTextCompare) > 0 Then
            WebPageContains = True
            Exit Function
        End If
    End If
Next i
End Function
Private Sub Form_Load()
    WebBrowser1.Navigate2 "www.msn.com"
End Sub

so the bottom line is that i wanna do all the above code with a loop that is:

do while webbrowser1.locationurl="www.xxxxxxxxxxxxxxx.com"

[.paul.]

the problem is the loop will run forever. there's nowhere that the webbrowser navigates away from the original url.
you can't put the Form_Load event in a loop. + you seem to be using pre .net style event declarations.

if you can explain exactly what you're trying to do, i'll try to help you.

edit: i just noticed. this isn't a .net question. i don't use pre .net vb

[asad1912]

help would be really appreciated...... :S

[deathfxu]

It seems to me that you are just trying to search the webpage for desired text, and you want it to stop searching if they navigate away from the page in the middle of searching (if I am understanding correctly):

'In global declarations
Dim NavTarget As String
 
'In the form
Private Sub webbrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    NavTarget = webbrowser1.LocationURL
End Sub
 
Sub webpageFind(FindText As String)
Dim Results As New Collection
Dim pageHTML As String
Dim lastPos As Long
Dim startURL As String
 
pageHTML = WebBrowser1.document.documentElement.innerHTML
startURL = NavTarget
lastPos = InStr(1, pageHTML, FindText)
Do While lastPos > 0 and startURL = NavTarget
    Results.Add lastPos
    lastPos = InStr(lastPos + 1, pageHTML, FindText)
    DoEvents
Loop
'all the locations are stored in the Results collection now to do with as you want
End Sub

Lemme know if you have any questions. Good luck!

[asad1912]

im a bit confused...
can u help me deploy this code...
im bit of a newbie so an example would be amazing