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]
#