Página 1 de 1
Web server para operadora de telefonia
Enviado: 11 Out 2016 09:32
por mhackervix
Colegas,
Existe (e como usar) algum web server para se descobrir a operadora de um número de telefone?
Obrigado,
Web server para operadora de telefonia
Enviado: 20 Out 2016 20:34
por fladimir
Não conheço mas talvez daria pra montarmos algo semelhante fazemos pra consultar Chave NFe no portal do governo...
Tem esse site:
http://www.qualoperadora.net/
Lá coloca o número e pesquisar e ele retora a operadora e de qual UF...
Se conseguirmos preencher e fazer o clique pra consulta seria ler o resultado... q esta no HTML (abri com F12 do navegador e esta numa tag DIV etc...)
Web server para operadora de telefonia
Enviado: 20 Out 2016 20:44
por mhackervix
Fladimir,
Você usa Xailer?
Já criou algo parecido (classe) para ler HTML?
Att
MhackerVix
Web server para operadora de telefonia
Enviado: 20 Out 2016 23:59
por fladimir
Uso Xailer tb...
não criei nada, mas pode usar do Harbour normal no Xailer q funciona tb... (só carregar o retorno em outro objeto do Xailer sem ser o MemoEdit... aki fiz um código pra Console)
Meio q dei uma montada pra vc, nos testes aki deu certo, abre o site, preenche o telefone, clica pra consultar e lê o resultado.... NÃO TRABALHEI O RETORNO... apenas pra demonstrar a teoria.
Código: Selecionar todos
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.
Outros sites q o código acima pode ser usado/adaptado:
http://www.consulteoperadora.com.br/
http://qualoperadora.info/