Manoel Marinho Posted February 6 Report Share Posted February 6 Recebi de um colega as funções abaixo para integração com a API Whatsapp. Mais nem sei como fazer as chamadas. Alguém pode ajudar ? ****************************************************************************** * Programa ....: UTILIZAR A API WORD SYSTEM * Autor .......: Amaury ******************************************************************************/ #INCLUDE "Hbclass.ch" #INCLUDE "hbcompat.ch" #INCLUDE "hbxml.ch" #DEFINE httpGet 1 #DEFINE httpPost 2 ******************************************************************************** Function EnviarMsg(sInstancia,sToken,sContato,sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-text" LOCAL aData := '' LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb //-- monta o parametro aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + "}" oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') TRY //-- envia oWeb:Send( aData ) //-- retorno aRetorno := oWeb:ResponseText() //-- json hb_jsondecode( aRetorno, @hHash ) CATCH ; END Return(NIL) ******************************************************************************** Function EnviarDoc(sInstancia,sToken,sContato, sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-doc" LOCAL aData := {} LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + ',' + 'url =>' + sURL + "}" TRY oWeb := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) CATCH oWeb := CreateObject( 'MSXML2.XMLHTTP' ) END oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') hb_jsonEncode( aRetorno , @hHash ) TRY oWeb:Send( aData ) CATCH ; END Return(NIL) Quote Link to comment Share on other sites More sharing options...
Theotokos Posted February 7 Report Share Posted February 7 Verificando o sitem Word System... vc faz seu cadastro lá pode usar por 7 dias gratuito e depois assinar um dos planos... mas verificando lá as opções este codigo seu esta incompleto.. esta faltando opções para criar instancia, conexão, etc... só a função enviar não vai... Quote Link to comment Share on other sites More sharing options...
Manoel Marinho Posted February 7 Author Report Share Posted February 7 18 minutos atrás, Theotokos disse: Verificando o sitem Word System... vc faz seu cadastro lá pode usar por 7 dias gratuito e depois assinar um dos planos... mas verificando lá as opções este codigo seu esta incompleto.. esta faltando opções para criar instancia, conexão, etc... só a função enviar não vai... Nesse site tem exemplos para criar essas opções que você citou ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 7 Report Share Posted February 7 https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43918&p=265672&hilit=whatsAPP&sid=de04d28e78a9b98bdfaa71f25ccab382#p265672 Regards, saludos. Quote Link to comment Share on other sites More sharing options...
Manoel Marinho Posted February 8 Author Report Share Posted February 8 23 horas atrás, Theotokos disse: Erro tentando compilar WHATSAPP.PRG da pasta \fwh\samples Type: C >>>xhb.exe -o"whatsapp.c" -m -n -p -q -gc0 -I"C:\fwh2307\include" -I"C:\FWH2307\include" -I"C:\xHBCOM1703\include" -I"C:\xHBCOM1703\include\w32" "whatsapp.prg"<<< xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'whatsapp.obj'... Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"C:\fwh2307\lib" -LIBPATH:"" -LIBPATH:"C:\FWH2307\lib" -LIBPATH:"C:\xHBCOM1703\Lib" -LIBPATH:"C:\xHBCOM1703\c_lib" -LIBPATH:"C:\xHBCOM1703\c_lib\win" "whatsapp.obj" "C:\fwh2307\lib\FiveHCM.lib" "C:\fwh2307\lib\FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"whatsapp.exe"<<< xLINK: fatal error: No argument specified with option /LIBPATH. Type: C >>>Couldn't build: whatsapp.exe<<< Type: C >>>TMAKEPROJECT<<< ype: C >>>TMAKEPROJECT:REFRESH<<< Type: N >>> 1415<<< Quote Link to comment Share on other sites More sharing options...
Theotokos Posted February 8 Report Share Posted February 8 6 minutos atrás, Manoel Marinho disse: Erro tentando compilar WHATSAPP.PRG da pasta \fwh\samples Type: C >>>xhb.exe -o"whatsapp.c" -m -n -p -q -gc0 -I"C:\fwh2307\include" -I"C:\FWH2307\include" -I"C:\xHBCOM1703\include" -I"C:\xHBCOM1703\include\w32" "whatsapp.prg"<<< xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'whatsapp.obj'... Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"C:\fwh2307\lib" -LIBPATH:"" -LIBPATH:"C:\FWH2307\lib" -LIBPATH:"C:\xHBCOM1703\Lib" -LIBPATH:"C:\xHBCOM1703\c_lib" -LIBPATH:"C:\xHBCOM1703\c_lib\win" "whatsapp.obj" "C:\fwh2307\lib\FiveHCM.lib" "C:\fwh2307\lib\FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"whatsapp.exe"<<< xLINK: fatal error: No argument specified with option /LIBPATH. Type: C >>>Couldn't build: whatsapp.exe<<< Type: C >>>TMAKEPROJECT<<< ype: C >>>TMAKEPROJECT:REFRESH<<< Type: N >>> 1415<<< eu não uso a copilação desta forma, eu utilizo xDev... mas verifica se isso: -LIBPATH:"" Quote Link to comment Share on other sites More sharing options...
gilmer Posted February 8 Report Share Posted February 8 Boa Tarde, Este exemplo não tem mais funcionalidade, o whatsapp mudou toda api. Existe a api oficial e outras no mercado.] Quote Link to comment Share on other sites More sharing options...
Manoel Marinho Posted February 8 Author Report Share Posted February 8 Alguém tem uma função pronta em xHarbour (funcionando) para integração com a API do Whatsapp ? Se tiver interesse em vender, mandar proposta no privado. Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 10 Report Share Posted February 10 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43841&start=0 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43796 Regards, saludos. Quote Link to comment Share on other sites More sharing options...
betovsp Posted February 18 Report Share Posted February 18 Em 08/02/2024 at 19:04, Manoel Marinho disse: Alguém tem uma função pronta em xHarbour (funcionando) para integração com a API do Whatsapp ? Se tiver interesse em vender, mandar proposta no privado. Obrigado. Bom dia Manoel, me chama no whatsapp, tenho uma api para zap rodando em fivewin/xharbour. (16) 988746745 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.