Clipper On Line • Ver Tópico - Web server para operadora de telefonia

Web server para operadora de telefonia

Discussão sobre ferramentas de apoio à programação (Clipper/[x]Harbour)

Moderador: Moderadores

 

Web server para operadora de telefonia

Mensagempor mhackervix » 11 Out 2016 09:32

Colegas,

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

Obrigado,
Mhackervix, Msc.
Avatar de usuário

mhackervix
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 105
Data de registro: 11 Fev 2008 01:06
Cidade/Estado: ES
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

Web server para operadora de telefonia

Mensagempor fladimir » 20 Out 2016 19:34

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...)
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Web server para operadora de telefonia

Mensagempor mhackervix » 20 Out 2016 19:44

Fladimir,

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

Att

MhackerVix
Mhackervix, Msc.
Avatar de usuário

mhackervix
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 105
Data de registro: 11 Fev 2008 01:06
Cidade/Estado: ES
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

Web server para operadora de telefonia

Mensagempor fladimir » 20 Out 2016 22:59

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.

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/
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para Ferramentas de Apoio

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro