Help convert function for send SMS

[Efo74]

Hello, I have a problem convert a working function that use curl command for sending sms. I would like convert it to http request. Can someone help me ?

These are the functions:

expandcollapse popup

;******************************************************************************************************************************
Func SMS_Send_working($UserKey_Func,$SessionKey_Func)
;******************************************************************************************************************************
$CommandLine = 'curl -XPOST "https://internetlink/REST/sms"' & ' -H "Content-Type: application/json"' & ' -H "user_key: ' & $UserKey_Func & '"'
$CommandLine &= ' -H "Session_key: ' & $SessionKey_Func & '" ' & ' -d'
$CommandLine &= '"{'
$CommandLine &= '\"recipient\": [\"+3933812345678\"],\"message\": \"Hello world!\",\"message_type\": \"GP\",\"sender\": \"SenderName\"'
$CommandLine &= '}"'

$iPID = Run(@ComSpec & " /c " & $CommandLine,@ScriptDir,@SW_HIDE,$STDOUT_CHILD)
ProcessWaitClose($iPID)
Local $sOutput = StdoutRead($iPID)
MsgBox(0,"",$sOutput)
EndFunc
;******************************************************************************************************************************
Func SMS_Send_not_working($UserKey_Func,$SessionKey_Func)
;******************************************************************************************************************************
$Json_string =  '"{\"recipient\": [\"+3933812345678\"],'
$Json_string &= '\"message\": \"Hello world!\",'
$Json_string &= '\"message_type\": \"GP\",'
$Json_string &= '\"sender\": \"SenderName\"}"'

$objrestReq = ObjCreate("winhttp.winhttprequest.5.1")
$objrestReq.Open("POST", "https://internetlink/REST/sms", False)

$objrestReq.setRequestHeader ("Content-Type", "application/json")
$objrestReq.setRequestHeader ("user_key", $UserKey_Func)
$objrestReq.setRequestHeader ("Session_key", $SessionKey_Func)

$objrestReq.Send($Json_string)


$oReceivedText = $objrestReq.ResponseText
$oReturnCode = $objrestReq.Status

MsgBox(0,"",$oReceivedText)

Return $oReturnCode
EndFunc

Thank you for the support 

[Nine]

Why reinventing the wheel...Take a look at it, I am currently using it successfully.

 

[Efo74]

 

I bought sms from a sms provider, and now I want to use our rest api for send sms.

[TheXman]

@Efo74

Do not escape the double quotes.

$Json_string =  '{'
$Json_string &= '"recipient": ["+3933812345678"],'
$Json_string &= '"message": "Hello world!",'
$Json_string &= '"message_type": "GP",'
$Json_string &= '"sender": "SenderName"'
$Json_string &= '}'

 

[Efo74]

already tried ... it does not work 

[TheXman]

I'm just saying that you should not escape the double quotes in your JSON string.  That was needed for the CURL command but not for the winhttp call.

As for "it doesn't work", that means absolutely nothing.  What is the specific error that you are getting? 

[Efo74]

I'm sorry . I was wrong ... it works. Thank you very much for helping

[TheXman]

You're welcome.

[Efo74]

your help was precious, I was wrong to put the quotes before the brace and at the end