TimeOut for WebBrowser1.Navigate

hej

har tidligere brugt en løsning herfra på et lign. problem dog mht. til pinging uden netforbindelse - men eksemplet var med webbrowser componentet...:

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_21457496.html

Dette skal således indarbejdes i din procedure hvor du udfører din navigate

    Dim lngTimer  As Long
    Dim blnTimedOut As Boolean
   
    'get current seconds since midnight
    lngTimer = Timer
    blnTimedOut = False
   
    'loop until page is loaded or timeout is reached (in this example, 10 seconds)
    Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
        If Timer - lngTimer >= 1 Then
            MsgBox "Timed out", vbExclamation + vbOKOnly
            blnTimedOut = True
            Exit Do
        End If
        DoEvents
    Loop
   
    If blnTimedOut = False Then
        'proceed with interacting with web page
    End If

/hiks

Tak for det hiks, jeg ska prøve at smi det samen :)

hiks //-> Den virker fint nu :)
Tusind tak for hjelpen.
Lav en svar.

jamen det var da så lidt...

/hiks