ich verwende in einem Thread folgenden Code:
Code: Alles auswählen
SetGadgetText(#Browser,GetDatabaseString(#DB, DatabaseColumnIndex(#DB, "url")))
While GetGadgetAttribute(#Browser, #PB_Web_Busy):Delay(100):Wend
Manchmal bleibt es aber im While:Wend stecken, da anscheinend irgendwie keine Mitteilung via #PB_Web_Busy kommt (die Seite wurde aber definitiv vollständig geladen).
Die Idee wäre jetzt im While:Wend vielleicht die Zeit hochzuzählen und wenn es 30 Sekunden erreicht hat (=hängt also), dann soll ein Refresh für das Webgadget angestoßen werden.
Code: Alles auswählen
StartTime.q = ElapsedMilliseconds()
While GetGadgetAttribute(#Browser, #PB_Web_Busy)
Delay(100)
If(ElapsedMilliseconds() - StartTime)>30000
SetGadgetState(#Browser,#PB_Web_Refresh)
StartTime.q = ElapsedMilliseconds()
Debug "Ist hängengeblieben, Refresh!"
EndIf
Wend
Danke!