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)!
29/11/2023 | Build: 17
Do pacote: Validador de contatos
Descrição: Cole uma lista de números (com DDD) e o script fará a validação do contato usando o Whatsapp web aberto e conectado no navegador interno do sistema
&CriarBotao("1- Abrir Whatsapp Web";"abrir whatsapp";200) //*
&CriarBotao("2- Configurações";"configurações";200) //*
&CriarBotao("3- Validar contatos";"validar contatos";200) //*
&CriarBotao("4- Limpar status";"limpar status";200) //*
#validar contatos
&TbComando("primeiro")[0] //* primeiro, anterior, próximo, último, apagar
&Marcador("loop")
&TbLerLinha("linha")[0] //*
[numero] = [linha*whatsapp]
&TextoDeixarNumeros([numero];"numero")[0] //* Retorna os números de um texto
&Se([numero];igual;"")
&VaiPara("continuar")
.fimse
&Se([linha*status];diferente;"")
&VaiPara("continuar")
.fimse
&TextoAdicionarComeco([numero]; [Código do país]; "numero")[0] //*
&BlocoExec("abrir whatsapp")[1] //*
&BlocoExec("aguardar contato abrir")[0] //*
&Se([contato_abriu];"igual";"sim")
&StatusInserir("Contato válido";"sucesso")[0] //*
&TbValorDefinir("status"; "contato válido")[0] //*
.senao
&StatusInserir("Contato inválido";"erro")[0] //*
.fimse
&Marcador("continuar")
&TbComando("próximo")[0] //* primeiro, anterior, próximo, último, apagar
&Se([último resultado];"diferente";"FALHA")
&VaiPara("loop")
.senao
&Mensagem("Fim do processamento")
.fimse
#
//* Funções autiliares
// // // // //
#limpar status
&TbComando("primeiro")[0] //* primeiro, anterior, próximo, último, apagar
&Marcador("loop_limpar")
&TbValorDefinir("status"; "")[0] //*
&TbComando("próximo")[0]
&Se([último resultado];igual;"OK")
&VaiPara("loop_limpar")
.fimse
#
#abrir whatsapp
[whatsapp_url] = "https://web.whatsapp.com/send?phone=[numero]"
&NavegadorIr([whatsapp_url])[1] //*
&NavegadorPosicionar(10;10;650;450)[0] //* topo, esquerda, largura, altura
#
#aguardar contato abrir
[contador]=1
[contato_abriu] = "não"
&Marcador("aguardar")
&NavegadorTextoObter("texto_navegador")[0] //*
&TextoTem([texto_navegador];[texto do campo de mensagem];"resultado")[0] //* texto Digite uma mensagem
&Se([contador];maior;[ciclos de espera para abrir contato])
&VaiPara("sair aguardar")
.fimse
&Se([resultado];"igual";"não")
&StatusInserir("aguardando contato abrir";"alerta")[0] //*
&ValorInc("contador";1)[2] //*
&Se([contador];"maior";2)
//* Vamos ver então se o contato é inválido
[resultado2] = "não"
&TextoTem([texto_navegador];[mensagem de contato inválido];"resultado2")[0] //*
&Se([resultado2];"igual";"sim")
[contato_abriu] = "não"
&StatusInserir("Contato inválido";"erro")[0] //*
&TbValorDefinir("status"; "contato inválido")[0] //*
&VaiPara("sair aguardar")
.fimse
//* Vamos ver então se o contato bloqueado
[resultado3] = "não"
&TextoTem([texto_navegador];[texto contato bloqueado];"resultado3")[0] //*
&Se([resultado3];"igual";"sim")
[contato_abriu] = "não"
&StatusInserir("Contato bloqueado";"erro")[0] //*
&TbValorDefinir("status"; "contato bloqueado")[0] //*
&VaiPara("sair aguardar")
.fimse
.fimse
&VaiPara("aguardar")
.fimse
[contato_abriu] = "sim"
&Marcador("sair aguardar")
#
#abrir contato atual
&TbLerCampo("whatsapp")[0] //*
[numero] = [whatsapp]
&mensagem([numero])
&TextoDeixarNumeros([numero];"numero")[0] //* Retorna os números de um texto
[whatsapp_url] = "https://web.whatsapp.com/send?phone=[numero]"
&NavegadorIr([whatsapp_url])[1] //*
#
#configurações
&ValorPedirVarios("Configurações";"Código do país, Texto do campo de mensagem, Mensagem de contato inválido, texto contato bloqueado, Pausa operacional extra, Ciclos de espera para abrir contato")[0] //*
#