Até o ano passado, indicava VIVO com plano SMSLIVRE. Como começou a bloquear os chips e as demais já não tinha como usar devido a bloqueios também, então não há hoje uma operadora que cumpra o que diz "SMS ILIMITADO" no Brasil. Então não há oque indicar. Independente de ser modem Daruma, modem 3g, ou celular o que barra são justamente as operadoras.sygecom escreveu:Qual operado você indica para usar com o modem da Daruma?
Isso sempre foi, devido as operadoras nem sempre prestarem o serviço prometido e cumprir com seus planos vendidos. O que acontece na real é voce desenvolver o software mesmo com tudo que já sabemos: 3sg ou mais entre SMS, não repetir as mensagens colocar ., para diferencia-las, pausar alguns segundos entre uma quantidade de envio e etc, ou seja, não importa o que tentamos colocar no software para burlar a operadora, elas acabarão arrumando um jeito de bloquear o envio. Então voce precisa estar preparado para acompanhar os envios, verificando como o bloqueio esta ocorrendo e correr atrás de uma solução temporária, isso requer tempo e alguém especializado para tratar disso.asimoes escreveu:solução arriscada
Claro, a não ser as delas próprias.rochinha escreveu:pois seus usuários não vão ficar recebendo mensagens de tarô, horóscopo, notícias indesejadas etc.
Caso uma empresa precise do serviço de SMS deverá contratar alguma das empresas já HOMOLOGADAS por elas, não há outra forma, a não ser os pacotes que conhecemos com "limites encobertos". Obrigar a operadora enviar resposta? Se pudesse obrigar a elas pelo menos entregar ao destinatário já estaríamos por satisfeitos. E até mesmo usando modem, tem comandos específicos e dependerá de qual operadora para poder comunicar esse recebimento.rochinha escreveu:empresa precisa fazer um plano com a operadora obrigando-a a enviar resposta de cada mensagem afim de contabilizar o pacote
Talvez hoje, seja uma forma mais viável. Se tivessemos como integrar nossos aplicativos à ele seria o ideal.rochinha escreveu:WhatsApp desktop na central
Código: Selecionar todos
FUNCTION ENVIARSMS(dDATA,cHORA,cCLIENTE,cSERVICO,nIDTECNICO)
LOCAL cTOKEN :='?????????????????????????????????'
LOCAL oHTTP, oURL,cURL
LOCAL oQUERY
LOCAL cQUERY
LOCAL oROW
LOCAL cIDTECNICO := ALLTRIM(STR(nIDTECNICO))
cQUERY := "SELECT * FROM TECNICOS WHERE ID = "+cIDTECNICO
oQUERY := oSERVER:QUERY( cQUERY )
oROW := oQUERY:GETROW(1)
cTECNICO := oROW:FIELDGET(2)
cCEL := oROW:FIELDGET(3)
oQUERY:DESTROY()
cMSG := 'CLIENTE:'+ALLTRIM(cCLIENTE) +;
' DATA: '+dDATA +;
' HORA: '+cHORA +;
' SERVICO: '+ ALLTRIM( cSERVICO )
//-- NECESSARIO PARA QUE A MENSAGEM NAO SEJA CORTADA AO ENCONTRAR O PRIMEIRO ESPACO
cMSG := STRTRAN(cMSG," ","%20")
cUrl:="http://www.easysms.net.br/autoenvio.php?token="+alltrim(cToken)+"&cel="+alltrim(cCel)+";&msg="+cMsg
oHttp:= TipClientHttp():New( cUrl )
oHttp:open()
cRet:=oHttp:readAll()
oHttp:close()
cReto:=If( empty(cRET),'Não enviado',strtran(upper(cRet),"<BR>"," ") )
IF EMPTY( cRET )
MSGINFO( cRETO )
ELSE
MsgInfo('Mensagem enviada para:'+HB_EOL()+ALLTRIM(cRETO))
ENDIF
RETURN NIL
Código: Selecionar todos
oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
cToken:='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
cCel :='21999999999'
cMsg := 'Alexandre Simoes - teste envio SMS com harbour'
cData := hb_DTOC(Date(), "DD-MM-YYYY")
cUrlWS :="http://www.easysms.net.br/autoenvio.php?token="+alltrim(cToken)+"&cel="+alltrim(cCel)+";&msg="+cMsg+"&dt="+cData
oServerWS:open("GET", cUrlWS, .F.)
oServerWs:Send()
DO WHILE oServerWS:readyState <> 4
oServerWS:WaitForResponse( 500 )
ENDDO
cResposta:=StrTran(Upper(oServerWS:responseBody), "<BR>", " ")
hwg_MsgInfo(cResposta, "Info SMS")
Código: Selecionar todos
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"
#include "hbthread.ch"
#include "hbhrb.ch"
#include "common.ch"
#include "error.ch"
#include "hboo.ch"
#include "inkey.ch"
#include "hbver.ch"
FUNCTION MAIN(cTeste)
LOCAL hLib, nStatus
hLib := hb_LibLoad( "DarumaFrameWork.dll" )
nStatus := hb_dynCall( { "eInicializar_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL})
IF nStatus = 1
hwg_MsgInfo("Modem iniciado com sucesso", "Modem Daruma")
ENDIF
nStatus := hb_dynCall( { "tEnviarSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, "21984723382", "teste envio com harbour")
IF nStatus = 1
hwg_MsgInfo("Mensagem enviada com sucesso", "Modem Daruma")
ENDIF
hb_libFree( hLib )
RETURN NIL
INIT FUNCTION AppSetup()
ANNOUNCE hwg_ErrSys
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" )
//HB_CDPSELECT( "PTISO" )
REQUEST DBFNTX
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE ANSI
SET ESCAPE ON
SET DATE FORMAT "DD/MM/YY"
SET DELIMITERS TO
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1920
SET OPTIMIZE ON
SET AUTOPEN ON //OFF
SET DBFLOCKSCHEME TO DB_DBFLOCK_CLIPPER
SET MESSAGE TO 24 CENTER
Set( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
hb_gtReload( "WVT" )
SetColor("W+/B")
CLS
SetColor("W+/B")
IniciaJanela()
RETURN Nil
FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
LOCAL oCrt
HB_Default(@nLi,0)
HB_Default(@nCi,0)
HB_Default(@nLf,MaxRow())
HB_Default(@nCf,MaxCol())
cTituloJanela:="Teste Envio SMS Com Modem Daruma Min210B"
HB_gtInfo(HB_GTI_FONTNAME, "Lucida Console")
HB_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
HB_gtInfo(HB_GTI_ICONFILE, "P:\GERAL\HARBOUR\HARB_WIN.ICO" )
HB_gtInfo(HB_GTI_CLOSABLE, .F. )
HB_gtInfo(HB_GTI_ISGRAPHIC, .T. )
HB_gtInfo(HB_GTI_STDERRCON, .T. )
HB_gtInfo(HB_GTI_COMPATBUFFER, .T. )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_SHOWWINDOW, SW_NORMAL )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
RETURN Nil
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WGU
REQUEST HB_GT_WVT
RETURN Nil
Código: Selecionar todos
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"
#include "hbthread.ch"
#include "hbhrb.ch"
#include "common.ch"
#include "error.ch"
#include "hboo.ch"
#include "inkey.ch"
#include "hbver.ch"
FUNCTION MAIN(cTeste)
LOCAL hLib, nStatus
hLib := hb_LibLoad( "DarumaFrameWork.dll" )
nStatus := hb_dynCall( { "eInicializar_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL})
IF nStatus = 1
hwg_MsgInfo("Modem iniciado com sucesso", "Modem Daruma")
ENDIF
//nStatus := hb_dynCall( { "tEnviarSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, "21994304249", "teste envio de sms com harbour via modem daruma min210b usando chip sim da oi")
sIndiceSMS:=Space(5)
sNumFone :=Space(15)
sData :=Space(10)
sHora :=Space(10)
sMsg :=Space(500)
nStatus := 1
DO WHILE nStatus > 0
sIndiceSMS:=Space(5)
sNumFone :=Space(15)
sData :=Space(10)
sHora :=Space(10)
sMsg :=Space(500)
nStatus := hb_dynCall( { "rReceberSms_MODEM_DarumaFramework", hLib, HB_DYN_CALLCONV_STDCALL}, @sIndiceSMS,;
@sNumFone,;
@sData,;
@sHora,;
@sMsg)
? sIndiceSMS
? sNumFone
? sData
? sHora
? sMsg
Inkey(0)
ENDDO
hb_libFree( hLib )
RETURN NIL
INIT FUNCTION AppSetup()
ANNOUNCE hwg_ErrSys
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" )
//HB_CDPSELECT( "PTISO" )
REQUEST DBFNTX
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE ANSI
SET ESCAPE ON
SET DATE FORMAT "DD/MM/YY"
SET DELIMITERS TO
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1920
SET OPTIMIZE ON
SET AUTOPEN ON //OFF
SET DBFLOCKSCHEME TO DB_DBFLOCK_CLIPPER
SET MESSAGE TO 24 CENTER
Set( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
hb_gtReload( "WVT" )
SetColor("W+/B")
CLS
SetColor("W+/B")
IniciaJanela()
RETURN Nil
FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
LOCAL oCrt
HB_Default(@nLi,0)
HB_Default(@nCi,0)
HB_Default(@nLf,MaxRow())
HB_Default(@nCf,MaxCol())
cTituloJanela:="Teste Envio SMS Com Modem Daruma Min210B"
HB_gtInfo(HB_GTI_FONTNAME, "Lucida Console")
HB_gtInfo(HB_GTI_WINTITLE, cTituloJanela)
HB_gtInfo(HB_GTI_ICONFILE, "P:\GERAL\HARBOUR\HARB_WIN.ICO" )
HB_gtInfo(HB_GTI_CLOSABLE, .F. )
HB_gtInfo(HB_GTI_ISGRAPHIC, .T. )
HB_gtInfo(HB_GTI_STDERRCON, .T. )
HB_gtInfo(HB_GTI_COMPATBUFFER, .T. )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
HB_gtInfo(HB_GTI_SPEC, HB_GTS_SHOWWINDOW, SW_NORMAL )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
RETURN Nil
FUNCTION HB_GTSYS()
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WGU
REQUEST HB_GT_WVT
RETURN Nil
Código: Selecionar todos
[[2 ][REC READ ][+5521984723382 ][16/04/05][17:26:13][Recebi]]
[[3 ][REC UNREAD][+5521984723382 ][16/04/05][18:03:54][Ok]]
[[4 ][REC UNREAD][+5521984723382 ][16/04/05][18:19:33][Tem]]
Código: Selecionar todos
[[1 ][REC READ ][+5521XXXXXXXXX ][16/04/05][16:58:08][Chato....]]
[[2 ][REC READ ][+5521984723382 ][16/04/05][17:26:13][Recebi]]
[[3 ][REC UNREAD][+5521984723382 ][16/04/05][18:03:54][Ok]]
[[4 ][REC UNREAD][+5521984723382 ][16/04/05][18:19:33][Tem]]