lcURL='http://www.levelextreme.com' lnTime=1200 && 12 seconds lox=Createobject('internetexplorer.application') lox.Visible=.t. lox.Navigate(lcURL) lox.Visible=.T. Wait 'Navigating!' Window Nowait If !NavComplete(lox,lnTime) ??Chr(7) Wait 'Timeout feil!' Window lox.Visible=.F. Release lox Return Endif Wait Clear lcHTML=lox.document.body.innertext If !Empty(lcHTML) MessageBox(lcHTML) EndIf ***************************************************************************** Function NavComplete Lpara toIE, tnTimeout lnTimeout=Iif( Type("tnTimeout")="N",tnTimeout ,60 ) lnTimeElapsed=0 lnStartSeconds=Seconds() Do While .T. If toIE.ReadyState=4 And !toIE.Busy Do While .T. If toIE.Document.ReadyState="complete" Return .T. Endif If (Seconds()-lnStartSeconds)>lnTimeout Return .F. Endif Enddo Endif If (Seconds()-lnStartSeconds)>lnTimeout Return .F. Endif Enddo Endfunc