Jump to content
Fivewin Brasil

fladimir

Membros
  • Posts

    364
  • Joined

  • Last visited

  • Days Won

    12

Posts posted by fladimir

  1. Olá pessoal,

    Uns anos atrás, quem enviava e-mail pelos seus sistemas usando conta GMail teve q criar seu aplicativo na conta google onde era definida uma senha e ai sim atribuir essa senha (mais forte digamos) para continuar usando (não sei se tinha outra forma)

    Recebi um e-mail ontem (19/01) do google e pelo q entendi vai deixar de funcionar isso a partir de Setembro de 2024, só sendo possível via oAuth2.

    Compartilho print do e-mail abaixo e fiquei na dúvida se interpretei corretamente o e-mail recebido. Caso sim, teremos (quem usa GMail) pensar em como resolver isso, pq não entendo como implementar o Auth2 no meu sistema pra permitir o envio de e-mail, tipo a cada envio de e-mail terá q abrir uma janela tipo browser pro usuário conectar na conta google? Se for assim não vai ficar prático e talvez a solução seja via API.

     

    image.thumb.png.7dc41ea9bc5ecaad6d96445460de44a2.png

  2. Em 18/08/2023 at 09:46, Ladinilson disse:

    A dúvida amigo é onde podemos comprar e como comprar.

    Exato com o pessoal do Xailer q o Kapiaba postou, ou manda um e-mail para jlalin@nuevocodigo.com esse cara é (ou era) da panela dos responsáveis pelo Xailer.

  3.  

    chrome_MLyWa3ad67.png.7fcc33c4f62b2c2e0be6b77a52314f33.png

    Se interpretar ao pé da letra, o Google fala q vai desativar se não estiver sendo usada ou seja, no meu caso ali esta ATIVADO, então não dá a impressão q vai continuar funcionando sem fazer nada?

    Pq eu já tive q trocar a senha q não era segura para uma segura em Fevereiro, deu uma trabalheira danada ter q atualizar os clientes q não conseguiam mandar e-mail de notas fiscais etc, ai fiz uma senha para os padrões do google aceitável e REATIVOU o acesso a app menos seguro, e mesmo com esse comunicado ai acima, a impressão q se tem é q eles vão cortar de todos q não usavam isso e não permitir mais e manter ativo para os q já usavam não seria?

  4. 31 minutos atrás, william disse:

    bom dia

    estou prestes a comprar a API do Hendell porem o cliente me fez umas perguntas que eu nao soube responder, talvez os amigos que já utilizam possam dar sua opiniao.

    1) tem limite de envio de mensagens ?

    2) quantas mensagens consegue enviar por minuto?

    3) se houver bloqueio, pode ser utilizado com mais de um chip ?

    4) o cliente disse que utilizava em 2018 um sistema de envio em massa de mensagens e que sempre "queimava" os chips. Isso acontece mesmo?

    o cliente é uma escola que deseja enviar mensagens aos seus alunos via zap, sao mais de 4000 alunos , será que a api suportará?

     

    obrigado

     

    William

     

    1) não tem limite de mensagens

    2) não use para mandar mensagens em massa se não enquadra como SPAM e perde a conta de Whatsapp no número vinculado

    3) a API vc gera quantas instâncias precisar, ou seja, pra quantos números precisar, cada número ficará vinculado a uma porta do teu servidor onde vc instalar ela

    4) Não tem nada a ver isso ai com a API, o chip não fica amarrado, vinculado a uma chipeira algo assim, não é uma tecnologia física, é totalmente software.

    Pode ser usado pra enviar quantas mensagens quiser, pra todos os alunos, só tem q cuidar pra não incorrer em SPAM ou seja, cria uma fila de envio com intervalos de envios aleatórios entre as mensagens é uma sugestão.

    Pra vc entender, imagine o Whatsapp WEB, conhece? é essa tecnologia encapsulada em uma instância, ou seja, cada instância q vc gera para um número gera um EXE rodando no Tray (processo do windows) q tem o Whatsapp WEB (a grosso modo falando) encapsulado onde vc vincula o número q quiser. Talvez assim fique mais fácil de entender.

  5. 1 hora atrás, sistem disse:

    da aultima ver que vi o clipboard do no help fivewin a parte de copia arquivos não estava pronta,(na olhei de novo).... mais vc pode usar o powershell ou memso vbs para copiar um img para o clipboard e depois usar o ctl+v para colcar essa imagem no whtsapp,,, veja o exemplo ou tambem pode usar a api do amigo ai em cima

    
    Whatsapp("5585999998888", "café teste", "c:\fwh\bitmaps\007.bmp", .f.)
    Whatsapp("5585999998888", "https://www.youtube.com/watch?v=aw_lZ6uTYtE",, .t.)
    
    *--------------------------------------------------------------------------------
    Function Whatsapp(cPara, cMsg, cFile, lYt)
     Local oShell, oClp, oClp1, cStringNome, cTextPS1, cArq
          If cFile # nil
           Ferase("img.ps1")
           cTextPS1 := "Add-Type -Assembly System.Windows.Forms" + CRLF + ;
                      "Add-Type -Assembly System.Drawing" + CRLF + CRLF + ;
                      '$imgpath = "'+cFile+'"' + CRLF + ;                                      // cFile nome do arquivo foto ex: teste.jpg
                      "$img = [Drawing.Image]::FromFile($imgpath)" + CRLF + ;
                      "[Windows.Forms.Clipboard]::SetImage($img)"
           cArq := fcreate(GetCurDir()+"\img.ps1" )
           fwrite( cArq, cTextPS1 )
           fclose( cArq )
           MYRUN("powershell -executionpolicy bypass -File img.ps1", 0)  // executa o powershell p/copiar a img p/o clipboard
          endif 
    
       oShell := CreateObject( "WScript.Shell" )
       oShell:run("chrome.exe https://web.whatsapp.com/send?phone="+cPara)
       Sleep(8000)
    
       oShell:sendkeys("^(v)")           // CTRL + V p/colocar a foto no whtsapp
       Sleep(1000)
    
       oClp := TClipBoard():New(, oLbx )
       cStringNome := TokenUpper(Lower(Alltrim(AcentosMenusc(ClieTemp->Nom_Clie))))
       cMsg := StrTran(cMsg, "[nome]", cStringNome)
       oClp:SetText(cMsg)
       Sleep(600)
       oShell:sendkeys("^(v)")       // CTRL + V p/color a msg com acentuacao correta se usar sendkey direto acentos nao trabalha bem
       If lYt      // uso essa variavel caso a msg texto seja um link do youtube ou similar. isso dah tempo p/ carregar a imagem/video ou algo no whtsapp
          Sleep(4000)                
       Endif
       oShell:SendKeys("~")
       Sleep(4000)
       oShell:SendKeys("%{F4}")
    
       oClp := nil
    
    Return nil

     

    Sim mas o esquema é automatizar processos, desse jeito depende de interação humana, se usar a API vc automatiza mais o processo.

     

  6. 14 minutos atrás, sygecom disse:

    Fladimir,

    Ainda usa a API ? estou tentando obter o QR CODE para iniciar o uso e está trancando sem resposta da API, está usando ainda ?

    Bom dia

    Sim eu uso, teve uma atualização recentemente, veja se a sua esta atualizada

    Qualquer coisa posso liberar um endpoint, token e porta pra vc testar, caso funcione saberá q é a versão da sua API

  7.  

    Existe sem custo mensal nem limite de mensagens... segue

    https://documenter.getpostman.com/view/4545782/SWTHbveC?version=latest#intro

    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.

    Não comprei a API 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

    O bacana é q vc pode comprar a API e usar na tua carteira de clientes. 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.

    https://wxdev.com.br/forum/index.php?/forum/20-dicas-e-truques/

    Essa aki q mostrei no vídeo @oliveiros e aproveitando obrigado pro compartilhar o trecho do teu código q permitiu criar a classe acima

    É da WTSApi q falei, ai nos links q compartilhei tem os vídeos e contato do Hendell.

  8.  

    Fiz um classe em HARBOUR pra essa API e compartilhei no fórum do Toledo, vou compartilhar aki tb, caso alguém queira testar.

     

    ********************************************************************************	
    function Exemplo_API_Whats
    	LOCAL oWhats := TWhatsappAPI_WTS():New()
    
    	oWhats:Situacao()
    	oWhats:NivelBateria()
    	oWhats:NrConectado()
    	oWhats:EnviarMsg('55DDDCelularDestino', 'Teste *mensagem*')
    	oWhats:EnviarMsg('55DDDCelularDestino', NIL, 'd:\documento.pdf') ; Inkey(2)
    	oWhats:EnviarMsg('55DDDCelularDestino', NIL, 'd:\imagem.png')    ; Inkey(2)
    	oWhats:End()
    Quit()
    
    ********************************************************************************
    #DEFINE httpGet  1
    #DEFINE httpPost 2
    
    ********************************************************************************
    CLASS TWhatsappAPI_WTS
    
    		DATA sToken    INIT 'Token qdo vc adquirir ou pede pro Hendell pra testes'
    		DATA sEndPoint INIT 'URL do seu ENDPOINT fica na tua estrutura, ou pede um pra testes'
    
    		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() // essa parte nao fiz ainda q é a parte pra ler o retorno das mensagens
    
    		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

     

  9. Existe sem custo mensal nem limite de mensagens... segue

    https://documenter.getpostman.com/view/4545782/SWTHbveC?version=latest#intro

    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.

    Não comprei a API 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

    O bacana é q vc pode comprar a API e usar na tua carteira de clientes. 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.

    https://wxdev.com.br/forum/index.php?/forum/20-dicas-e-truques/

  10. Bom dia

    Eu uso e foi o melhor investimento q fiz. Comprei os 3 Desktop, Mobile e Web.

    Deu uma sobre vida pra minha empresa e sistemas

    Meu foco é mobile, mas tenho projetos em Desktop e Web (pra 2 via de boleto e clinica de terapia)

    No q puder auxiliar pra dirimir as dúvidas baseadas na minha experiência fique a vontade, te mandei meus contatos em privado

    Temos um fórum brasileiro q começou em Outubro/2019 ( pq as comunidades existentes são internacionais e resolvemos criar um a nível Brasil.)

    Tem tb grupos de Skype onde o pessoal coloca as dúvidas.

    Tem tb um canal no youtube com + de 2000 videos demonstrando a linguagem e ferramenta (Windev Amarildo Matos q tb tem um BLOG)

    Tem alguns conhecidos do fórum Toledo e Fivewin q migraram ou usam como complemento Mobile/Web como Luis Fernando, Dorneles, Janio, Eu, Paulo RS, Automono. Pode ser q tenha mais mas estes são os q conheço. O Gilmer não sei se chegou a ver algo a nível de Mobile, até onde sei ele estava nos grupos de skype, talvez ele possa compartilhar a opinião dele tb, caso ele tenha aderido tb.

    No mais fico a disposição.

     

    Grande abraço.

  11. Uso go global para desenvolvimento valor denlicenca em torno de 600 primão ano depois 250 renovação anual mas para usar com os clientes não vejo vantagem devido o custo de licença apesar de ser um excelente produto

  12. O Terminal Services de uns tempos pra cá esta complicado devido forçar a migração para W10 e WServers mais atualizados.

    Agora na tua fala @alex2002 entendi q o Microtik faria o trabalho igual ao TS? Ou seja trafegar somente telas? Seria isso? Se for resolve pra mim tb. Tem algum material a respeito se for isso q eu entendi?

  13.  

    Esse ano , infelizmente não deu, muitas obrigações. Não sabia que vc tinha ido. Ano que vem, acredito que não faltarei.

    []s,

     

    Isso ai Jorge, a DEVCON vai além de uma linguagem, promove um networking fantástico e trata de vários assuntos, e tb é uma forma de sair da rotina e descontrair com os amigos, trocar experiências e ideias.

    Sendo em SP acredito q muito mais pessoas poderão participar.

    Grande abraço.

×
×
  • Create New...