este e com o YAHOO
Try
oServer:= win_OleCreateObject("MSXML2.ServerXMLHTTP.6.0")
Catch
MsgInfo('Erro na Criação do Serviço')
Return .f.
End
Try
oServer:Open( "GET", 'https://finance.yahoo.com/quote/PETR3.SA/', .f. )
oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
oServer:SetRequestHeader( "Connection", "keep-alive" )
oServer:Send()
oServer:WaitForResponse( 100000 )
Catch
MsgInfo('Erro na Conexão com o Site')
Return .f.
End
cHtml:= oServer:ResponseBody
// MemoWrit('siteA.txt', cHtml)
nIni := At('" window.rapidInstance = new window.YAHOO.i13n.Rapid(rapidConfig);', cHtml)
cHtml1:= SubStr( cHtml, nIni)
nIni := At('D(ib)" data-reactid="35">', cHtml1) + 25
cHtml:= SubStr( cHtml1, nIni)
nFim := At('</span>', cHtml) - 1
msginfo(SubStr(cHtml1, nIni, nFim))
nIni := At('" data-reactid="36">', cHtml) + 20
cHtml1:= SubStr( cHtml, nIni)
nFim := At('</span>', cHtml1) - 1
msginfo(SubStr(cHtml, nIni, nFim))