clink="http://www.chip7.pt/pesquisa/pesquisa.php?chave=" cFieldKey="c6656a" cFieldName="preco_chip7" oIE = createobject( "internetexplorer.application" ) oIE.Visible = .t. lcUrl=cLink+cFieldKey oIE.Navigate( lcUrl ) * Wait for page to load lnWait4browser = 15 &&seconds lnStartSeconds = SECONDS() DO WHILE oIE.ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= lnWait4browser ) DOEVENTS ENDDO IF oIE.ReadyState = 4 cFieldValue = oIE.Document.all(cFieldName).Value ELSE ? "Time out!" ENDIF WAIT WINDOW cFieldValue oIE=.NULL.João