Clipper On Line

Andei testando algumas opções da API do WHATSAPP tem um potencial bem legal aqui, queria saber como enviar arquivos pois mensagem é bem fácil

https://api.whatsapp.com/send?1=pt_BR&phone= colocar o numero do PAIS+DDD+NUMERO 5551982199988

ou colocando uma mensagem https://api.whatsapp.com/send?1=pt_BR&phone=5551982199988&text=teste%20de%20envio%20de%20mensagem

https://chat-api.com/pt-br/docs.html DOCUMENTACAO DO CHAT API , em breve mandando as coisas via WAPP :)) :)) :)) :)) :))

Olá!

Grato por compartilhar.

O primeiro link está quebrado.

alxsts escreveu:Olá!

Grato por compartilhar.

O primeiro link está quebrado.

o primeiro link tem de colocar o numero do telefone que você quer , coloquei como exemplo

Importante:

Posso fazer envios em massa por meio do Chat API?
Não. A funtional Chat API permite enviar até 6000 mensagens por dia (não mais que 120 por minuto). MAS! Se os destinatários não quiserem receber essas mensagens, eles clicarão no botão "Spam" no WhatsApp. Sua conta do WhatsApp será bloqueada. Apenas as mensagens que os destinatários podem esperar estão disponíveis.
Eu preciso enviar mais de 6.000 mensagens por dia. O que fazer?
Use várias contas. Vários números do WhatsApp permitem enviar mais mensagens por dia. Ao usar mais de 20 contas, oferecemos um desconto. As contas são adicionadas mediante solicitação ao suporte técnico.
Quantas contas do WhatsApp posso conectar por $39/mês?
este é o pagamento para conectar ao serviço do Chat API 1 conta do WhatsApp. Ao usar mais de 5 contas, há um preço especial.
O custo ao usar mais de 5 contas?
1 conta Chat API = 1 número do WhatsApp
1- 5 contas $39 /por conta
6-20 contas $34 /por conta
20-50 contas $29 /por conta
50-100 contas $19 /por conta
100-500 contas $15 /por conta
500+ contas $9 /por conta

https://chat-api.com/pt-br/faq.html

Esse último link não parece ser do whatszap, deve ser de terceiro. Cuidado

No teste que fiz aqui, ele trabalha em conjunto com o WhatsApp Web que tenho no PC, é isso mesmo ?

Ou fiz algo errado ?

Achei que fosse algo que pudéssemos integrar em nossos sistemas, de maneira "um pouco mais automatizada". Ou estou esperando muito !?

Usando web-whatszap já integrei faz tempo, mas depende de ter uma conta scaneada pelo qr code, e não usar essa API CHAT

e não usar essa API CHAT

Não entendi Leo.

Esse segundo link, alterei o número de telefone e quando eu coloco este link no browser, ele abre o Web WhatsApp.

Leonardo, :% agora não entendi que interessante, que tipo de integração conseguiste?
:{
HASA

O video abaixo é para scriptcase, mas da pra entender como seria essa integração

Olá Pessoal,

Alguém conseguiu produzir um teste com sucesso?
Tentei enviar uma mensagem usando jSON, sem sucesso.

O que já uso a muito tempo não é bem uma integração e sim, como o Alamino falou eu chamo de dentro do sistema um link para o Web-whatsapp

Exemplo:

FUNCTION MAIN()
LOCAL cURL:='https://wa.me/5551991913474?text=olá'

SHELLEXECUTE( cURL, "open", NIL, NIL, 2 )

RETURN(.T.)

Para a questão do anexo, eu subo o anexo que o cliente deseja na hora, para um link temporário e, envio o link no web whatsapp.

Referente a essa integração postada(chat-api.com), eu dei uma analisada e, não consigo achar referencias dela oficial do whatsapp, inclusive ela pede também para ler o qrcode do whatsapp, para pode ter um conta que será usada, penso que de certa forma eles conseguiram automatizar o envio, usando o web whatsapp para envio das mensagens, de cada um e criaram a Api deles para o pessoal integrar os sistemas, não é ruim, mas por outro lado eles tem acesso a todas nossas conversas e mensagens da conta usada e compartilhada com eles.
https://chat-api.com/pt-br/docs.html

Oi Leonardo...
Essa função q vc usa requer :
1)que o computador emitente esteja previamente logado via web.whatsapp.com
2)que mesmo assim vc precisa clicar em "ENVIAR" na tela do whats que vai se abrir

LOCAL cURL:='https://wa.me/5551991913474?text=olá'
SHELLEXECUTE( cURL, "open", NIL, NIL, 2 )

Pergunta:
Tem como evitar a opção 2 ? Ou seja: que apos o shelexecute() a mensagem seja enviada sem passar pelo click em ENVIAR ?

sygecom escreveu:Pergunta:
Tem como evitar a opção 2 ? Ou seja: que apos o shelexecute() a mensagem seja enviada sem passar pelo click em ENVIAR ?

Acho que teria que simular um Click no btão, mas acho que não rola isso dai não.

Ola!

mas acho que não rola isso dai não.

Via Html + JS (Java Script ) vc acha na net zilhões de exemplos...
Eu mesmo uso aqui no meu "EPI" do restaurante há tempos.

      cHtml += '<!DOCTYPE html>' + cEOL
      cHtml += '<html lang="pt-BR">' + cEOL
      cHtml += '<head>' + cEOL
      cHtml += '<title>Sistema Farol Web</title>' + cEOL
      cHtml += '<meta charset="WINDOWS-1252" />' + cEOL

      cHtml += '<form id="manda" name="login" action="/cgi-bin/grupos.hrb" method="post">' + cEOL
      cHtml += '<input type="hidden" name="cPDV"         value="'+ cPDV + '">' + cEOL
      cHtml += '<input type="hidden" name="cCodCliente"  value="'+ cCodCliente + '">' + cEOL
      cHtml += '<input type="hidden" name="cCliente"     value="'+ cCliente + '">' + cEOL
      cHtml += '<input type="hidden" name="cCargo"       value="'+ cCargo + '">' + cEOL
      cHtml += '<input type="hidden" name="cCodVendedor" value="'+ cCodVendedor + '">' + cEOL
      cHtml += '<input type="hidden" name="cLogin"       value="'+ cLogin + '">' + cEOL
      cHtml += '<input type="hidden" name="cSenha"       value="'+ cSenha + '">' + cEOL
      cHtml += '<input type="hidden" name="cHost"        value="'+ cHost + '">' + cEOL

      cHtml += '<input type="hidden" name="cEscolha"    value="LANCAR">' + cEOL
      cHtml += "</form><script>document.getElementById('manda').submit();</script></html>"
      //GravarLog(cHtml,"autolog.html")
      Return cHtml

Saudações,
Itamar M. Lins Jr.

asimoes escreveu:

sygecom escreveu:Pergunta:
Tem como evitar a opção 2 ? Ou seja: que apos o shelexecute() a mensagem seja enviada sem passar pelo click em ENVIAR ?

Acho que teria que simular um Click no btão, mas acho que não rola isso dai não.

Veja abaixo
http://forums.fivetechsupport.com/viewt ... e&start=30

Testei aqui e funciona mesmo.

Function Main()
   Local oShell

   oShell := CreateObject( "WScript.Shell" )
   oShell:run("chrome.exe https://api.whatsapp.com/send?phone=34666666666" )
   Sleep(1500)
   oShell:sendkeys("{tab}{tab}")
   oShell:SendKeys("~")
   Sleep(5000)
   oShell:sendkeys("Mensaje de prueba")
   oShell:SendKeys("~")

Return nil
 

ola
boa tarde

1) ha como enviar watsapp de dentro do sistema xharbour ( console)

e mail ja consegui
ex..
quero enviar uma mensagem " Seu boleto esta disponivel no site ....etc.. "

entra na base de dados localiza telefone cecular e envia

2) - salvar um arquivos a ser impresso
ex.. set printer to teste em pdf
use cliente
do while .not. eof()

localiza envia etc....

skip
enddo
grato
wilson
wilceci2006@yahoo.com.br

Wilson,

Veja os exemplos nesse tópico, eles funcionam em console sem problema.

Ola!
Aqui toda vez abre nova aba do whatsapp
Qual é o segredo para enviar ?

Saudações,
Itamar M. Lins Jr.

+1
:%

Parece que em xHarbour vai e em Harbour 3.2 não abre para as mensagens, só abre a pagina ok.
:'(
HASA

De uma olhada no exemplo que o Fabio Luna postou no Fivewin
http://fivewin.com.br/index.php?/topic/ ... o-com-web/

:(Neg

Bom dia, é esse mesmo no Harbour + Minigui Extend não funfa.
:%
HASA

Boa tarde,

Consegui enviar mensagens utilizando o exemplo do Fivewin, mas encontrei alguns problemas:

1) Demora bastante para enviar uma única mensagem, já que a rotina tem vários "WaitSeconds" / "Sleeps" longos e sem eles, não funciona corretamente.
2) A cada mensagem enviada, é aberta uma nova aba no navegador (caso ele fique aberto), se fechá-lo, o processo demora mais ainda.

Alguém tem alguma solução melhor para enviar uma mensagem para diversos contatos, como uma mensagem de marketing, por exemplo?

Obrigado,

Passando para compartilhar uma API Whatsapp q conheci através do fórum do ACBr.

Sem custo mensal nem limite de mensagens... [url=https://documenter.getpostman.com/view/4545782/SWTHbveC?version=latest#intro]segue link da documentação[/url]

Vc vincula o Whats do cliente na API e ele usa, logicamente respeitando as regras do Whats para SPAM etc, e consegue enviar arquivos etc.

Fiz uns videos e compartilhei um exemplo de como integrar (mas em outra linguagem) porém como é via GET e POST da pra fazer tranquilo em Harbour/Fivewin.
Só uma observação, se vc trabalha puramente com CONSOLE terá q ver como fazer pq um dos requisitos é obter o QRCode e carregar isso pro usuario do teu sistema vincular o Whats dele (igual Whatsweb)

Não comprei a API ainda, mas tenho conhecidos q usam, ela esta ativa a 3 anos. No link abaixo vc encontra os vídeos, informações e o contato do criador da mesma (telefone dele) e tb manual de utilização.
Ele liberou um ENDPOINT e Token pra uso e esta funcionando aki nos testes

[b]O bacana é q vc pode comprar a API e usar na tua carteira de clientes. [/b]

A API estava com promoção até este final de semana, achei ela no fórum do ACBr a promoção era até dia 13/03 ai conversei com o Hendell criador e falei q não tinha conhecimento da mesma onde o mesmo estendeu a promoção até este final de semana.

[url=https://wxdev.com.br/forum/index.php?/forum/20-dicas-e-truques/]Link da postagem em q fiz em outro fórum com os vídeos demonstrando e o contato do criador da API[/url]

Fiz uma classe pra Harbour pra testes e funcionou bem tb... só tem a questão do QRCode q vc tem usar alguma lib grafica pra carregar e mostrar isso pro cliente.
Vou compartilhar a classe (agradecimentos ao Oliveira q usa a API e cedeu um trecho de código q permitiu a criação da classe a partir do trecho, logicamente q alterado e ajustado a minha realidade)

[code]********************************************************************************
FUNCTION EXEMPLO_API_WHATS()
LOCAL oWhats := TWhatsappAPI_WTS():New()
oWhats:Situacao()
oWhats:NivelBateria()
oWhats:NrConectado()
oWhats:EnviarMsg('5567992354872', 'Teste *mensagem*')
oWhats:EnviarMsg('5567992354872', NIL, 'd:\documento.pdf') ; Inkey(2) // PAUSAR UNS 2 SEGUNDOS ENTRE UMA MENSAGEM E OUTRA
oWhats:EnviarMsg('5567992354872', NIL, 'd:\imagem.png') ; Inkey(2)
oWhats:End()
Quit()

********************************************************************************
#DEFINE httpGet 1
#DEFINE httpPost 2

********************************************************************************
CLASS TWhatsappAPI_WTS

DATA sToken INIT 'O TOKEN Q VC ADQUIRIR OU PEDE PRO HENDELL PRA TESTES'
DATA sEndPoint INIT 'URL DO ENDPOINT Q ELE FORNECE PRA TESTES QDO VC TIVER O SEU SERA O SEU URL, VC NAO USA ESTRUTURA DELE E SIM A SUA'

DATA sRet INIT ''
DATA hHash INIT hb_Hash()
DATA nMetodo INIT 0 // 1 GET 2 POST

METHOD ComunicaAPI()
METHOD Situacao()
METHOD Obter_QRCode()
METHOD NrConectado()
METHOD NivelBateria()
METHOD EnviarMsg()
METHOD MostraRetorno() INLINE PTAlert( 'Codigo..:;'+ PADC( hb_cStr(::hHash['codigo'],70) ) +';' +;
'Mensagem:;'+ PADC( UPPER(ALLTRIM(hb_UTF8ToStr(hb_cStr(::hHash['mensagem'])))),70) +';' +;
'Retorno.:;'+ PADC( hb_cStr(::hHash['retorno'],70) ), aOk, vcroxo)

// METHOD WhatsAPI_SetarWebhook() // PRA LER O RETORNO DAS MENSAGENS, ESSA PARTE NAO FIZ AINDA.

Method End() INLINE Self := Nil
ENDCLASS

*******************************************************************************
METHOD Situacao() Class TWhatsappAPI_WTS
Mensag("Consultando situacao da API...")
::ComunicaAPI("/whatsapp/situacao", httpGet)

If 'false' $ ::hHash['retorno']
MsgInfo( "Nao conectado. Obtenha QRCode", 'Atenção' )
Else
MsgInfo( "Whatsapp ja esta conectado.", 'Atenção' )
EndIf
Return

*******************************************************************************
METHOD NivelBateria() Class TWhatsappAPI_WTS
Mensag("Consultando nivel bateria")
::ComunicaAPI("/whatsapp/bateria", httpGet)
::MostraRetorno()
*******************************************************************************
METHOD NrConectado() Class TWhatsappAPI_WTS
Mensag("Consultando Nr Conectado API...")
::ComunicaAPI("/whatsapp/meunumero", httpGet)
::MostraRetorno()
Return
********************************************************************************
METHOD EnviarMsg(sContato, sMsg, sFilename) Class TWhatsappAPI_WTS
LOCAL sURL
DEFAULT sMsg TO ''
DEFAULT sFilename TO ''
IF EMPTY(sFilename) .AND. EMPTY(sMsg)
Alert('falta parametro')
RETURN
ENDIF
IF EMPTY(sFilename)
Mensag("Enviando mensagem de texto...")
sURL := "/whatsapp/msg"
ELSE
Mensag("Enviando arquivo...")
sURL := "/whatsapp/arquivo"
ENDIF
::ComunicaAPI(sURL, httpPost, sContato, sMsg, sFilename)
::MostraRetorno()
********************************************************************************
Procedure Obter_QRCode() Class TWhatsappAPI_WTS
Mensag("Obtendo QRCode...")
::ComunicaAPIWhats('/whatsapp/qrcode', httpGet)

// ATEN€ÇO O RETORNO AKI  RETORNADO O QRCODE EM Q VC TEM Q CARREGAR UM OBJETO GRAFICO ATRAVES DE UMA LIB GRAFICA FIVEWIN, XAILER, MINIGUI, HWGUI ETC
// If 'obtido com sucesso' $ ::hHash['mensagem']
// AKI CARREGA O OBJETO GRAFICO NA LIB Q VC USAR ::hHash['retorno'], { 20,20,-20,-20 }, "QR-CODE"
// Else
// MsgInfo( "O Whatsapp esta reiniciando. Favor repetir a operação.", 'Atenção' )
// EndIf
Return
*------------------------------------------------------------------------------*

METHOD ComunicaAPI(sURL, nMetodo, sContato, sMsg, sFilename) Class TWhatsappAPI_WTS
LOCAL cMetodo, oWeb, sContent := ''
TRY
oWeb := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )
CATCH
oWeb := CreateObject( 'MSXML2.XMLHTTP' )
END
IF EMPTY(sContato) .AND. nMetodo = httpPost
Alert("Falta telefone")
RETURN NIL
END

sURL := ::sEndPoint + sURL
cMetodo := IIF( nMetodo == httpGet, 'GET', 'POST')
oWeb:Open( cMetodo, sUrl, .F.) // True = pra vir o ResponseBody
oWeb:SetRequestHeader( 'token', ::sToken )

IF nMetodo = httpPost
oWeb:setRequestHeader( "contato", sContato )
IF .NOT. EMPTY(sFilename)
oWeb:setRequestHeader( "filename", SUBSTR(ALLTRIM( CharRem( "[<(-)>]*&@:", sFileName ) ),2))
oWeb:setRequestHeader( "caption", SUBSTR(ALLTRIM( CharRem( "[<(-)>]*&@:", sFileName ) ),2))

sContent = hb_MemoRead(sFileName)
sContent = hb_base64encode(sContent)
sContent = hb_StrToUTF8(sContent)
sContent = ALLTRIM( CharRem( CRLF, sContent ) )
ELSE
IF .NOT. EMPTY(sMsg)
sContent = sMsg
ENDIF
END
oWeb:setRequestHeader( "Content-Type", "text/plain; charset=UTF-8" )
END
TRY
IF EMPTY(sContent)
oWeb:Send( )
ELSE
oWeb:Send( sContent )
ENDIF
::sRet := oWeb:ResponseBody()
hb_jsondecode( ::sRet, @::hHash )
CATCH ; END
RETURN NIL
[/code]

Estava rodando ate o mes passado certinho.
Fui usar hoje, 31/03 negativo. ele pede pra baixar o app ( que ja esta instalado ) ou abrir url whatsapp ou cancelar

Alguem passando por isso?

essa q eu postei ta rodando aki, não sei se vc se refere a essa ou a outra