Voltar

Instruções para aquisição

Instale o zBot (para Windows). Rode este sistema no seu computador e vários outros que podem ser baixados diretamente pelo zBot ou criados por você mesmo(a)!

Detalhes do Sistema

Validador Whats PC Turbo

12/12/2023 | Build: 23
Do pacote: Validador de contatos

Descrição: Usa o Whatsapp PC para verificar se números tem ou não tem uma conta ativa de Whatsapp. As interações são feitas usando chamadas da API oficial do Whatsapp

Tutorial em Vídeo

Ajuda

Atenção: Este script é um exemplo de uso para demonstrar as funcionalidades do zBot. O zBot não tem relação com nenhum produto de terceiros nem responsabilidade por termos particulares de uso de nenhum site ou sistema com o qual possa ser programado para interagir, cabendo ao usuário verificar, adaptar e decidir por sua utilização.

Clique no botão "inserir" para adicionar os números que quer validar e então execute a validação para ele testar cada número, verificando se há ou não uma conta de Whatsapp associada:

Código do script

Este script também pode ser baixado diretamente pelo software zBot 
&TbDefinirCamposVisiveis("whatsapp,nome,status")[0] //*

&CriarBotao("Abrir Whatsapp PC";"abrir whatsapp pc";130) //*
&CriarBotao("Validar todos";"validar lista";125;"btnValidar") //*
&CriarBotao("Configurações";"configurações";105) //*
&CriarBotao("Abrir contato atual";"abrir contato";135) //*
&CriarBotao("Zerar status";"zerar status";90) //*
//&CriarBotao("Validar contato aberto";"validar contato aberto") //*

&JanelaAppComando("dados";"restaurar")
&JanelaAppComando("dados";"maximizar")
&JanelaAppComando("app";"restaurar")
&JanelaAppPosicionarEspecial("app";"centro")[0] //* posições: total_esquerda|total_direita|total_topo|total_baixo|topo_esquerda|topo_direita|topo_centro|baixo_esquerda|baixo_direita|baixo_centro|meio_esquerda|meio_direita|meio_centro|centro
&JanelaAppPosicionar("app";-1;-1;-1;550)
&AppDefinirProp("app";"btnValidar";"font.name=Arial black")

&MensagemDica(20609102954383;"Atenção: É necessário ter o Whatsapp para PC instalado, que deve ser baixado no site www.whatsapp.com/download")[0]

#configurações
   &ValorPedirVarios("Configurações gerais"; "código país, tempo aguardar contato abrir")[0] //*
#


// valida todos os contatos listados na tabela que estiverem com status vazio
#validar lista
   &TbComando("primeiro")[0] //* primeiro, anterior, próximo, último, apagar
   &Marcador("loop validar")
   
   //* Pula para o próximo contato se o status for vazio
   &TbLerCampo("status")[0]
   &Se([status];diferente;"") 
      &VaiPara("continuar")
   .fimse   
   
   &BlocoExec("abrir contato")[0] //* Abre o contato atual
   &Pausar([tempo aguardar contato abrir])
   &BlocoExec("validar contato aberto") //* Valida o contato atual
   &TbValorDefinir("status"; [válido])[0] //*      
   
   // Vai para o próximo contato
   &Marcador("continuar")
   &TbComando("próximo")[0]
   &Se([último resultado];igual;"OK")
      &VaiPara("loop validar")
   .fimse   

#

#abrir whatsapp pc
   [whatsapp_url] = "whatsapp://"
   &ExecutarComando([whatsapp_url])[1]
   &JanelaAtivaPosicionar(5;5;900;600)[0] //* topo, esquerda, largura, altura
#

#abrir contato   
   &TbLerCampo("whatsapp")[0] //*   
   &TextoDeixarNumeros("[whatsapp]";"whatsapp")[0] //* Retorna os números de um texto
   &TextoAdicionarComeco([whatsapp]; [código país]; "whatsapp")[0] //*
   [whatsapp_url] = "whatsapp://send?phone=[whatsapp]"
   &ExecutarComando([whatsapp_url])[1]
   &JanelaAtivaPosicionar(5;5;900;600)[0] //* topo, esquerda, largura, altura
#

#validar contato aberto
   &MonitorEscala("escala") //* retorna 100, 125, 150 etc.
   [válido] = "válido"
   &Se([escala];igual;100)
      &MouseCorPonto("cor";511;342)[0] //*
      &MouseBotaoPrimario(368;447)[0] //*  
   .senao
      &MouseCorPonto("cor";539;369)[0] //*
      &MouseBotaoPrimario(417;450)[0] //*              
   .fimse
   
   //* Tema escuro
   &Se([cor];igual;"$0061AA1D")
      [válido] = "inválido"
   .fimse 
   
   //* Tema claro
   &Se([cor];igual;"$0055871B")
      [válido] = "inválido"
   .fimse     
   
     
   //&mensagem("[cor]")
   //&mensagem("[válido]")
#

#zerar status
   &TbComando("primeiro")[0]
   &marcador("loop zerar")
   &TbValorDefinir("status"; "")[0] //*
   &TbComando("próximo")[0]
   &Se([último resultado];igual;"OK")
      &VaiPara("loop zerar")
   .fimse   
   &TbComando("primeiro")[0]
#

Termos gerais dos scripts

Os scritps gratuitos ou pagos tem como objetivo disponibilizar funções ou demonstrar possíveis aplicações que podem ser criadas usando a linguagem de programação de scripts do zBot.
Seu código-fonte é fornecido e pode ser livremente estudado, adaptado ou alterado pelo usuário que o adquire. Eventualmente são usados links ou exemplos de funções interagindo com sistemas ou sites populares, mas o zBot não tem nenhum vínculo, propriedade nem parceria com quaisquer produtos de terceiros, nem se responsabiliza por nenhuma consequência de sua utilização, cabendo exclusivamente ao usuário a total responsabilidade sobre isso, sempre levando em conta a licitide de sua aplicação e eventuais termos de uso ou propriedade de terceiros que devam ser considerados.
 Fale conosco