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)!
21/11/2023 | Build: 32
Do pacote: Script Enviador Whats
Descrição: Este script pode ser usado para extrair telefones listados no histórico de conversas, em listagens de grupos do Whatsapp ou dentro de conversas abertas
&criarbotao("Abrir Whatsapp Web"; "abrir whatsapp web")
&criarbotao("Configurações"; "configurações")
&criarbotao("Extrair telefones"; "extrair telefones")
&CriarBotao("Ajuda";"informações_exibir") //*
#informações_exibir
&ExecutarComando("https://www.linkws.com.br/zbot/loja/script_det.php?id=20106132545323")[0]
#
//* - - - - - - - - - - -
#abrir whatsapp web
[whatsapp_url] = "https://web.whatsapp.com"
&NavegadorIr([whatsapp_url])[1] //*
&NavegadorPosicionar(10;10;920;650)[0] //* topo, esquerda, largura, altura
[abriu whatsapp] = "sim"
&TextoGerarIdUnico("id único")[0] //*
#
#configurações
&ValorPedirVarios("Configurações"; "Qtd. rolagem de página,Rolar quantas vezes a cada ciclo,Adicionar código do país,OBS padrão")[0] //*
#
#extrair telefones
&Se([abriu whatsapp];diferente;"sim")
&Mensagem("Primeiro clique no botão 'abrir whatsapp web'")
&ScriptEncerrar()
.fimse
[qtd rolou] = 0
[max rolar] = [Qtd. rolagem de página]
&Marcador("loop")
&NavegadorTextoObter("texto")[0] //*
&TextoExtrairTelefones([texto]; "dados")[0] //*
&TextoQtdLinhas([dados]; "qtd")[0] //*
&TextoObterDataHora("hoje")[0] //*
&TextoDataInfo([hoje]; "secao_data"; "hoje")[0]
&Repetir([qtd])
[numero] = [dados*[_indice]]
&StatusInserir("número: [numero]";"cinza")[0]
&TextoDeixarNumeros([numero];"numero")[0] //* Retorna os números de um texto
&TextoAdicionarComeco([numero]; [Adicionar código do país]; "numero")[0] //*
&TextoFormatarTelefone([numero];"numero")[0] //*
&TbInserir("id_unico,whatsapp,categoria,obs,data_cadastro,data_atualizacao";"[id único],[numero],extração,[obs padrão],[hoje],[hoje]")[0] //*
.fimrepetir
&Se([max rolar];maior;[qtd rolou])
&ValorInc("qtd rolou";1)[0] //*
&Repetir([Rolar quantas vezes a cada ciclo])
&NavegadorClicarPerguntar(20231121100630834;"Local para rolar a página (ponto mais embaixo que conseguir)")[0.2] //*
.fimrepetir
&VaiPara("loop")
.fimse
//&TbComando("último")[0]
#