Web server para operadora de telefonia

[mhackervix]

Colegas,

Existe (e como usar) algum web server para se descobrir a operadora de um número de telefone?

Obrigado,

[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...)

[mhackervix]

Fladimir,

Você usa Xailer?
Já criou algo parecido (classe) para ler HTML?

Att

MhackerVix

[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/