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)!
17/12/2023 | Build: 18
Do pacote: Enviador de SMS
Descrição: Permite o envio de mensagens SMS usando um celular Android e o site messages.google.com/web
&CriarBotao("Abrir Google Mensagens";"abrir site google mensagens";220) //*
&CriarBotao("Definir mensagem";"definir mensagem";200) //*
&CriarBotao("Enviar para todos";"enviar todas";200) //*
&CriarBotao("Zerar status";"zerar status";200) //*
#pode enviar
[qtd] = 0
&Marcador("loop enviar")
&NavegadorTextoObter("texto")[0] //*
[retorno] = ""
&TextoTem([texto];"Envio de mensagens";"retorno")[0] //* Retorna sim | não
&Se([retorno];diferente;"sim")
&ValorInc("qtd";1)[0] //*
&Se([qtd];menor;5)
&StatusInserir("Aguardando contato abrir...";"alerta")[0] //* cor: erro, sucesso, alerta, preto, cinza, importante
&Pausar(2)
&VaiPara("loop enviar") //*
.fimse
.senao
&StatusInserir("Não abriu [telefone]...";"erro")[0]
.fimse
#
#abrir site google mensagens
&NavegadorIr("https://messages.google.com/web")[0] //*
&NavegadorPosicionar(5;5;850;700)[0] //* topo, esquerda, largura, altura
#
#definir mensagem
&ValorPedirVarios("Definir mensagem"; "Mensagem,pausa operacional")[0] //*
#
#enviar mensagem contato atual
&TbLerCampo("telefone")[0] //*
&TextoDeixarNumeros([telefone];"telefone")[0] //* Retorna os números de um texto
&NavegadorClicarPerguntar(11217133525497;"Local do botão para iniciar chat")[2] //*
&NavegadorClicarPerguntar(11217133525498;"Local do campo 'Para'")[1] //*
&Pausar([pausa operacional])
&ColarTexto([telefone])[1]
&Pausar([pausa operacional])
&DigitarEnter()[2]
&Pausar([pausa operacional])
&NavegadorClicarPerguntar(20321111035671;"Local onde digita a mensagem")[2] //*
&ColarTexto([mensagem])[1]
&NavegadorClicarPerguntar(20321111035670;"Indique o local do botão para enviar a mensagem")[2] //*
//&DigitarEnter()[1] //* envia a mensagem
&Marcador("continuar")
#
#enviar todas
&TextoObterDataHora("hoje")[0] //*
&Marcador("loop envio")
&TbLerCampo("telefone")[0] //*
&StatusInserir("Enviando para [telefone]";"preto")[0]
&BlocoExec("enviar mensagem contato atual")[0] //*
&TbValorDefinir("status"; [hoje])[0] //*
&TbComando("próximo")[0] //* primeiro, anterior, próximo, último, apagar
&Se([último resultado];igual;"OK")
&VaiPara("loop envio")
.fimse
&StatusInserir("Fim do envio";"importante")[0] //* cor: erro, sucesso, alerta, preto, cinza, importante
&Mensagem("Fim do envio")
#
#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]
#