Problem mit webbrowser

tkausl

Gesperrt
Hallo

ein problem
ich mache folgendes:

Code:
WebBrowser1.Navigate "http://www.neopets.com/market.phtml?type=wizard"
waitok = "ne"
While waitok <> "ok"
DoEvents
Wend

dann noch:

Code:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If Not (pDisp Is WebBrowser1.Object) Then
Exit Sub
  End If
  waitok = "ok"
End Sub

problem:
der code nach der while-schleife wird sofort ausgeführt weil das webbrowser formular sofort sagt es wäre fertig obwohl es grad erst angefangen hat! was mache ich falsch?
 
Zurück