Colegas,
Existe (e como usar) algum web server para se descobrir a operadora de um número de telefone?
Obrigado,
Moderador: Moderadores
function QualOperadora()
local oOle, oOleDoc := Array(2)
oOle := Cria_OLE( 'InternetExplorer.Application', , .T.)
if ISNIL(oOle) .or. empty(oOle)
return .F.
endif
oOle:Visible := .F. // Não Apresenta o Browser....
oOle:ToolBar := .F. // Desativa a barra de ferramentas
oOle:StatusBar := .F. // Desativa a barra de status
oOle:MenuBar := .F. // desativa a barra de menu
oOle:Navigate2("http://www.qualoperadora.net/")
while oOLE:Busy
HB_IDLESLEEP( .5 )
END
INKEY(.2)
oOle:Document:All( 'telefone', 0 ):Value := '64999614573' // inventei o nr... teste com o seu... aki deu certo com os q informei.
oOle:Document:All( 'consultar', 0 ):click(.T.) && faz o clink pra consultar
Inkey(1.5)
cRetorno := oOle:Document:body:innerhtml() // pega o HTML da pagina de retorno... dei uma olhada e da pra tratar e pegar o "miolo" ou seja qual operadora. etc...
MemoEdit(cRetorno, 0,0,24,79)
iif( oOle != NIL, oOle:Quit(), NIL )
return .T.
Retornar para Ferramentas de Apoio
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes