28 Jan 2014 18:39
09 Fev 2014 22:25
10 Fev 2014 11:20
17 Fev 2014 15:17
29 Ago 2014 14:35
29 Ago 2014 16:25
29 Ago 2014 16:55
29 Ago 2014 19:26
Eros escreveu:nao compre modem usb. Da pau demais..
22 Mai 2020 21:41
23 Mai 2020 09:51
23 Mai 2020 10:51
Function ENVIA_SMS_COMTELE()
Local oOle, aRet, aHash:=hash(), cJson
ahash["Sender"] := "cod_id01"
ahash["Receivers"] := "11999999999"
ahash["Content"] := "esta e uma mensagem sms teste"
cJson := hb_jsonEncode(ahash, .t.)
////// cJson :="["+cJson+"]"
ALERT2('AZUL',cJson)
Try
oOle := CreateObject("MSXML2.XMLHTTP")
Catch
oOle := CreateObject("Microsoft.XMLHTTP")
End
oOle:Open( "POST", "https://sms.comtele.com.br/api/v2/send", .t. )
oOle:SetRequestHeader( "content-type", "application/json")
oOle:SetRequestHeader( "auth-key", "xxxxxxxx-xxxx-4037-b011-8d58bdfe7685") // substituir seu token recibido no cadastrar
oOle:Send(cJson)
Do While oOle:readyState <> 4
// oOle:WaitForResponse( 500 ) // SysRefresh()
millisec(500)
ENDDO
//
ALERT2('VERDE',oOle:ResponseBody) ////////////////////////// retorna nulo
hb_jsonDecode(oOle:ResponseBody, @aRet)
ALERT2('AZUL',aRet) ////////////////////////// retorna nil
Return nil
24 Mai 2020 11:08
Troque:
Try
oOle := CreateObject("MSXML2.XMLHTTP")
Catch
oOle := CreateObject("Microsoft.XMLHTTP")
End
Por:
Try
oOle := CreateObject("MSXML2.ServerXMLHTTP")
Catch
oOle := CreateObject("Microsoft.XMLHTTP")
End
e isto:
oOle:Open( "POST", "https://sms.comtele.com.br/api/v2/send", .t. )
por:
oOle:Open( "POST", "https://sms.comtele.com.br/api/v2/send", .f. )
24 Mai 2020 19:54
Try
oOle := CreateObject("MSXML2.XMLHTTP")
Catch
oOle := CreateObject("Microsoft.XMLHTTP")
End
//
oOle:Open( "POST", "https://sms.comtele.com.br/api/v2/send", .f. )
oOle:SetRequestHeader( "content-type", "application/json")
oOle:SetRequestHeader( "auth-key", "xxxxxxxxxxd4037-b011-8d58bdfe7685") // substituir o 99999999999 por seu token recibido no cadastrar
oOle:Send(cJson)
Do While oOle:readyState <> 4
millisec(500)
ENDDO
aRet=STRTRAN(oOle:ResponseText,CHR(227),"a") // TIRA o a com til que aparecia um caractere esquisito
//
IF oOle:status=200 // 200=processado com sucesso para qualquer transacao da comtele
IF 'sucesso' $ aRet
ALERT2('VERDE','SMS enviado para processamento.') // padronizei as msg de retorno deles nao me interessa quando retorna sucesso
ELSE
ALERT2('AZUL',aRet)
ENDIF
ELSE
ALERT2('VERMELHO',aRet)
ENDIF
25 Mai 2020 11:50
25 Mai 2020 19:59