HASA Posted April 13, 2020 Report Share Posted April 13, 2020 Estranho, uso esta rotina em varios clientes e não tem problemas. Voce pode deixar o whatsapp carregado que ele envia certinho. Mostra pra mim a linha de comando, a variavel lc_cLink lc_cLink := chr(34)+f_cWhatsAppCaminho+chr(34)+" https://api.whatsapp.com/send?phone=55"+TXT_CHAR_CLEAN(f_cNumeroWhats,{"(",")","-",".","+"}) Boa tarde a minha está assim: lc_cLink := chr(34)+f_cWhatsAppCaminho+chr(34)+" https://api.whatsapp.com/send?phone=55"+f_cNumeroWhats HASA Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted April 14, 2020 Report Share Posted April 14, 2020 Pega a variavel depois de processada. Assim MsgInfo(lc_clink) Quote Link to comment Share on other sites More sharing options...
HASA Posted April 14, 2020 Report Share Posted April 14, 2020 Estranho, uso esta rotina em varios clientes e não tem problemas. Voce pode deixar o whatsapp carregado que ele envia certinho. Mostra pra mim a linha de comando, a variavel lc_cLink lc_cLink := chr(34)+f_cWhatsAppCaminho+chr(34)+" https://api.whatsapp.com/send?phone=55"+TXT_CHAR_CLEAN(f_cNumeroWhats,{"(",")","-",".","+"}) Boa tarde HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 15, 2020 Report Share Posted April 15, 2020 Não aceita png, não aceita JPG?? HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 15, 2020 Report Share Posted April 15, 2020 Tem outra maneira ? HASA Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted April 16, 2020 Report Share Posted April 16, 2020 Tem outra maneira ? HASA Copie a tela e compartilhe neste site https://pt-br.imgbb.com/ Quote Link to comment Share on other sites More sharing options...
HASA Posted April 16, 2020 Report Share Posted April 16, 2020 Certo vamos ver agora> https://ibb.co/c86SQhj HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 16, 2020 Report Share Posted April 16, 2020 Legal, a imagem está com o celular falho no final de proprosito. HASA Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted April 16, 2020 Report Share Posted April 16, 2020 Adiciona eu no skype Skype: giovany.vecchi Quote Link to comment Share on other sites More sharing options...
HASA Posted April 16, 2020 Report Share Posted April 16, 2020 Putzzz só Zap HASA Quote Link to comment Share on other sites More sharing options...
Theotokos Posted April 18, 2020 Report Share Posted April 18, 2020 fiz tamb este teste ai, e fica da mesma forma que o do HASA.... esta certo ou errado? Quote Link to comment Share on other sites More sharing options...
Theotokos Posted April 23, 2020 Report Share Posted April 23, 2020 @HASA conseguiu resolver ? Quote Link to comment Share on other sites More sharing options...
HASA Posted April 24, 2020 Report Share Posted April 24, 2020 Bom dia, infelizmente não, parei com o projeto na verdade. HASA Quote Link to comment Share on other sites More sharing options...
Theotokos Posted April 24, 2020 Report Share Posted April 24, 2020 Adaptei a rotina abaixo e funciona... só que este usa whatsapp no navegador... Function RLIWhatsapp( cPara, cMens ) ************************** Local oShell,wCodCli,lSair,lOk DEFAULT cMens := "Vem nos Visitar... Estamos lhe esperando..." If !IsInternet() MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada") Return(.f.) Endif cPara:=cPara cNome:="RL Informatica" CursorWait() nSegs:=0 cSair:='S' If empty(nSegs) nSegs:=15 // 10 segundos Endif cPara:=AjustaFone( cPara ) If Empty( cPara ) MsgInfo("Número do telefone de "+cNome+" inválido, verifique!") return(.f.) endif cHora:=Time() nHora:=val(substr(cHora,1,2)+substr(cHora,4,2)) cHora:=iif(nHora>=0000 .and. nHora <=1200 ,"Bom Dia, " , "" ) cHora:=iif(nHora>=1201 .and. nHora <=1800 ,"Boa Tarde, ",cHora) cHora:=iif(nHora>=1801 .and. nHora <=2359 ,"Boa Noite, ",cHora) cCabc:= cHora+"A *"+AllTrim(cNomeEmpresa)+"* tem um recado para voce!" oShell:= CreateObject( "WScript.Shell" ) oShell:run("https://web.whatsapp.com/send?phone="+cPara) WaitSeconds(nSegs) oShell:sendkeys("~") WaitSeconds( 3 ) oShell:SendKeys(".......") WaitSeconds( 3 ) oShell:sendkeys(" _"+AllTrim(cCabc)+"_ ") ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 1 ) oShell:sendkeys(AllTrim(cMens)) ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 1 ) oShell:sendkeys("*Nosso contato: _"+cTelefoneEmpresa+"_*") ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 3 ) If cSair="S" oShell:SendKeys("%{F4}") // ALT+F4 fecha o navegador, mas deixar aberto fica mais rápido.... Endif CursorArrow() Return nil Quote Link to comment Share on other sites More sharing options...
HASA Posted April 25, 2020 Report Share Posted April 25, 2020 Acho que é o HARBOUR não uso xHarbour, com essa dica não acontece nada ? HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 25, 2020 Report Share Posted April 25, 2020 oPSS, Avancei mais um pouquinho essa linha está errada cCabc:= cHora+"A *"+AllTrim(cNomeEmpresa)+"* tem um recado para voce!" o correto é cCabc:= cHora+"A *"+AllTrim(cNome)+"* tem um recado para voce!". Ainda não funcionou mais um passinho. HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 25, 2020 Report Share Posted April 25, 2020 Desisto, não vai, até abre uma seção no Google Chrome mesmo que já esteja aberta mas não envia. :-( HASA Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted April 26, 2020 Report Share Posted April 26, 2020 Execute o programa em modo administrador e tente novamente Theotokos 1 Quote Link to comment Share on other sites More sharing options...
HASA Posted April 27, 2020 Report Share Posted April 27, 2020 - Bom dia, achei mais essa variavel perdida cTelefoneEmpresa tem que retirar ou carregar ela, execitei como ADM o zap estava setado em outro usuario, setou para o usuário que enviei ( ou enviaria ) a mensagem, porem não carregou a mensagem. Avançando.... HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted April 27, 2020 Report Share Posted April 27, 2020 Realmente seta o numero do telefone mas a mensagem não é entregue, fiz com o numero não setado e deixando selecionado, não entrega a mensagem mesmo. Harbour 3.2.0dev (r1904111533) Copyright (c) 1999-2019, https://harbour.github.io/ HASA Quote Link to comment Share on other sites More sharing options...
Theotokos Posted April 27, 2020 Report Share Posted April 27, 2020 - Bom dia, achei mais essa variavel perdida cTelefoneEmpresa tem que retirar ou carregar ela, execitei como ADM o zap estava setado em outro usuario, setou para o usuário que enviei ( ou enviaria ) a mensagem, porem não carregou a mensagem. Avançando.... HASA as variaveis vc desconsidera,coloque a sua,pois são que adaptei para o meu sistema. onde pega o nome da empresa onde esta instalado osistema... cNomeEmpresa := nome da empresa.... assim vai Quote Link to comment Share on other sites More sharing options...
HASA Posted April 27, 2020 Report Share Posted April 27, 2020 Ok, Só mencionei para o caso de alguem pegar o fonte acima, mas.. estou trocando para as minhas ok. MAS... :-( HASA Quote Link to comment Share on other sites More sharing options...
HASA Posted May 18, 2020 Report Share Posted May 18, 2020 E desisti mesmo, não funfa, valeu pessoal por toda ajuda. HASA Quote Link to comment Share on other sites More sharing options...
fladimir Posted May 19, 2020 Report Share Posted May 19, 2020 Se quiser algo q funcione (não posso dizer da q vc tentou se funciona ou não, não testei) mas a API q eu citei alguns posts atrás to usando aki e esta funcionando, imagem, PDF texto tudo blz. aferra 1 Quote Link to comment Share on other sites More sharing options...
HASA Posted May 19, 2020 Report Share Posted May 19, 2020 Se quiser algo q funcione (não posso dizer da q vc tentou se funciona ou não, não testei) mas a API q eu citei alguns posts atrás to usando aki e esta funcionando, imagem, PDF texto tudo blz. Verdade, vou verificar sim, valeu.... HASA Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.