Jump to content
Sign in to follow this  
islandspapand

Convert curl command to WinHttp

Recommended Posts

Hi All

i am currently trying to add a function to my project that can send SMS, i have gone with Twilio for the sms service that use a REST API.

I have never worked with an API before, and could use some help.

I can get my function working with using cURL.exe and copy past command from the website with the following code. And thats great unfortunately i am have issue with character like æøå when sending a SMS appears like a box or ?. this does not happen if i do it from the website so it looks like a Unicode issue in curl.exe.

I have done some searching on the forum and understand that i should be able to implement this curl command with the WinHTTP UDF from @trancexx so i don't need a third part exe and it might fix my charater issue.

Unfortunately i really don't understand how i am to change curl commands to the WinHTTP and i was hoping some good maybe give me an example i could learn from.

Thanks in advanced

i have removed the AuthToken number from the script.

_SendSMS("00000000","SomeOne","SMS body info")

Func _SendSMS($SendTo,$SendFrom,$Msgtxt)

    $AccountSID = "ACbb765b3180d5938229eff8b8f63ed1bc"
    $AuthToken = "Auth Token number" 

    $Data = '"https://api.twilio.com/2010-04-01/Accounts/'&$AccountSID&'/Messages.json"'& _
    '-X POST \ --data-urlencode "To=+45'&$SendTo&'" \ --data-urlencode "From='&$SendFrom&'" \ --data-urlencode "Body='&$Msgtxt&'" \ -u '&$AccountSID&':'&$AuthToken&''
    ShellExecute(@ScriptDir&"\curl.exe","-k "&$Data)

;~  curl 'https://api.twilio.com/2010-04-01/Accounts/ACbb765b3180d5938229eff8b8f63ed1bc/Messages.json' -X POST \
;~  --data-urlencode 'To=+4500000000' \
;~  --data-urlencode 'From=Reception' \
;~  --data-urlencode 'Body=Test Body' \
;~  -u ACbb765b3180d5938229eff8b8f63ed1bc:[AuthToken]

EndFunc

 

 

Share this post


Link to post
Share on other sites

Hi @Danp2

Thanks allot for that have been looking through the help files and what i could find in the forum and google

Unfortunately my big problem is that it can find out how i am supposed to parse the commands needed.

This is how far i have gotten so far, but it mostly just a changed example, still very unsure on how to parse the request and the header.

#include "WinHttp.au3"

Opt("MustDeclareVars", 1)


#Region ========= Info from twilio site
;======================================================= Twilio Info from site ==========================
;================ Responce Header
;~ Access-Control-Allow-Credentials: true
;~ Access-Control-Allow-Headers: Accept, Authorization, Content-Type, If-Match, If-Modified-Since, If-None-Match, If-Unmodified-Since
;~ Access-Control-Allow-Methods: GET, POST, DELETE, OPTIONS
;~ Access-Control-Allow-Origin: *
;~ Access-Control-Expose-Headers: ETag
;~ Connection: keep-alive
;~ Content-Length: 207
;~ Content-Type: application/json
;~ Date: Mon, 12 Feb 2018 11:47:43 GMT
;~ Twilio-Request-Duration: 0.002
;~ Twilio-Request-Id: %delete%
;~ X-Powered-By: AT-5000
;~ X-Shenanigans: none
;====================================
;================= Request Header
;~ Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
;~ Accept-Encoding: gzip, deflate, br
;~ Accept-Language: en-US,en;q=0.5
;~ Authorization: Basic %delete%
;~ Connection: keep-alive
;~ Cookie: notice_preferences=2:
;~ Host: api.twilio.com
;~ Upgrade-Insecure-Requests: 1
;~ User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:58.0) Gecko/20100101 Firefox/58.0
;=================================================================
#EndRegion

#Region ============= How to from stackoverflow
;=================================Twilio help from stackoverflow ===============
; Twilio evangelist here.

; As you mention to make a raw request to the Twilio REST API without a helper library you need to craft your own HTTP request. The specific HTTP Method you use for the request (GET,POST,PUT,DELETE) depends on what you want the API to do.

;~ Twilio uses simple Basic authorization to authorize users of the API. To use Basic Authentication with HTTP you need to include in your HTTP request the Authorization header and pass as its value the authorization scheme (in Twilio case this is "Basic") and a Base64 encoded string containing your accountsid and authtoken seperated by a semi-colon:

;~ [AccountSid]:[AuthToken]

;~ The HTTP header would end up looking something like this:

;~ Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

;~ For example of you wanted to have Twilio send a text message you would craft an HTTP request using the POST method that looks like this:

;~ POST https://api.twilio.com/2010-04-01/Accounts/[YOUR_ACCOUNT_SID]/Messages HTTP/1.1
;~ Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==
;~ Host: api.twilio.com
;~ Content-Type: application/x-www-form-urlencoded
;~ Content-Length: 50

;~ To=+15555555555&From=+16666666666&Body=Hello World

;~ Hope that helps.
;============================================================
#EndRegion

Global $AccountSID = "ACbb765b3180d5938229eff8b8f63ed1bc"
Global $AuthToken = "Auth Token number"
Global $sAddress = "https://api.twilio.com"

;~ Encode data to Base64 for auth?
;~ $Credentials = $AccountSID&":"&$AuthToken

; Post data:

; Initialize and get session handle
Global $hOpen = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:58.0) Gecko/20100101 Firefox/58.0")

; Get connection handle
Global $hConnect = _WinHttpConnect($hOpen, $sAddress, $INTERNET_DEFAULT_HTTPS_PORT)

; Make a request
Global $hRequest = _WinHttpOpenRequest($hConnect, _
        "POST", _
        "2010-04-01/Accounts/"&$AccountSID&"/Messages.xml", _ ;~        "2010-04-01/Accounts/"&$AccountSID&"/Messages.json", _
        Default, _
        Default, _
        "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", _
        $WINHTTP_FLAG_SECURE)

; Add header fields to the request
_WinHttpAddRequestHeaders($hRequest, "Authorization: Basic %deleted%")
_WinHttpAddRequestHeaders($hRequest, "Accept-Encoding: gzip, deflate, br")
_WinHttpAddRequestHeaders($hRequest, "Accept-Language: en-US,en;q=0.5")
_WinHttpAddRequestHeaders($hRequest, "Content-Type: application/x-www-form-urlencoded")
;~ _WinHttpAddRequestHeaders($hRequest, "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7")
_WinHttpAddRequestHeaders($hRequest, "Connection: keep-alive")
_WinHttpAddRequestHeaders($hRequest, "Keep-Alive: 300")
;~ _WinHttpAddRequestHeaders($hRequest, "Host: api.twilio.com")
;~ _WinHttpAddRequestHeaders($hRequest, "Upgrade-Insecure-Requests: 1")
;~ _WinHttpAddRequestHeaders($hRequest, "Content-Length: 50")

Global $sPostData = 'To=+4500000000&From=SomeOne&Body=Hello World'

; Send it
_WinHttpSendRequest($hRequest, -1, $sPostData)
; Wait for the response
_WinHttpReceiveResponse($hRequest)
; Check if there is a response
Global $sHeader, $sReturned
If _WinHttpQueryDataAvailable($hRequest) Then
    $sHeader = _WinHttpQueryHeaders($hRequest)
    MsgBox(64, "Header", $sHeader)
    Do
        $sReturned &= _WinHttpReadData($hRequest)
    Until @error
    ; Print returned
    ConsoleWrite($sReturned)
Else
    ConsoleWriteError("!No data available." & @CRLF)
    MsgBox(48, "Failure", "No data available.")
EndIf

; Close handles
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)








;~ _SendSMS("00000000","SomeOne","SMS body info")

Func _SendSMS($SendTo,$SendFrom,$Msgtxt)

    Local $AccountSID = "ACbb765b3180d5938229eff8b8f63ed1bc"
    Local $AuthToken = "Auth Token number"

    Local $Data = '"https://api.twilio.com/2010-04-01/Accounts/'&$AccountSID&'/Messages.json"'& _
    '-X POST \ --data-urlencode "To=+45'&$SendTo&'" \ --data-urlencode "From='&$SendFrom&'" \ --data-urlencode "Body='&$Msgtxt&'" \ -u '&$AccountSID&':'&$AuthToken&''
    ShellExecute(@ScriptDir&"\curl.exe","-k "&$Data)

;~  curl 'https://api.twilio.com/2010-04-01/Accounts/ACbb765b3180d5938229eff8b8f63ed1bc/Messages.json' -X POST \
;~  --data-urlencode 'To=+4500000000' \
;~  --data-urlencode 'From=Reception' \
;~  --data-urlencode 'Body=Test Body' \
;~  -u ACbb765b3180d5938229eff8b8f63ed1bc:[AuthToken]

EndFunc

 

Share this post


Link to post
Share on other sites

Don't know if it would help you, but there is a curl udf written by ward

https://www.autoitscript.com/forum/topic/173067-curl-udf-autoit-binary-code-version-of-libcurl-with-ssl-support/

I use it for my Imgur udf.

 

Func _Imgur($dImg)
    
    Local $sLink
    Local $Curl = Curl_Easy_Init()
    If Not $Curl Then Return SetError(8, 0, -1)
    Local $sHtml = $Curl
    Local $sHeader = $Curl + 1 ; any number as identify
    Local $sList = Curl_Slist_Append(0, "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:34.0) Gecko/20100101 Firefox/34.0")
    $sList = Curl_Slist_Append($sList, 'Referer: http://imgur.com/')
    $sList = Curl_Slist_Append($sList, 'Type: Base64')
    $sList = Curl_Slist_Append($sList, "Authorization: client-ID MYID")
    Curl_Easy_Setopt($Curl, $CURLOPT_HTTPHEADER, $sList)
    Local $dBase64Image = _Base64Encode($dImg) ; Convert the image to Base64
    Curl_Easy_Setopt($Curl, $CURLOPT_URL, "https://api.imgur.com/3/upload/") ; If we wants to uploade an image
    Curl_Easy_Setopt($Curl, $CURLOPT_POST, 1)
    Curl_Easy_Setopt($Curl, $CURLOPT_COPYPOSTFIELDS, 'image=' & $dBase64Image)
    
    ; Checks use this to see the respons from server, and get img url/delete hash ect.
    Curl_Easy_Setopt($Curl, $CURLOPT_WRITEFUNCTION, Curl_DataWriteCallback())
    Curl_Easy_Setopt($Curl, $CURLOPT_WRITEDATA, $sHtml)
    Curl_Easy_Setopt($Curl, $CURLOPT_SSL_VERIFYPEER, 0)
    Local $Code = Curl_Easy_Perform($Curl)
    If $Code <> $CURLE_OK Then Return SetError(9, 0, Curl_Easy_StrError($Code))
    
    ; Decode the json returned from imgur
    Local $sJson = Json_Decode(BinaryToString(Curl_Data_Get($sHtml)))
    ; Image link
    $sLink = Json_Get($sJson, '["data"]["link"]')
    $sLink = BinaryToString(Curl_Data_Get($sHtml))
    Curl_Easy_Cleanup($Curl)
    Curl_Data_Cleanup($Curl)
    Curl_Slist_Free_All($sList)
    
    Return $sLink
EndFunc   ;==>_Imgur

Cheers

/Rex

Share this post


Link to post
Share on other sites

@islandspapand

This code should works if you pass good params.

;==============================================================================================================================
; Function:         twilioSendSms($sAccountSid, $sAuthToken, $sTo, $sFrom, $sMessage)
;
; Description:      Send sms via Twilio Rest API. Requied paid account
;
; Parameter(s):     $sAccountSid -  string | Your account Sid.
;                   $sAuthToken -   string | Your account Authorization Token.
;                   $sTo -          string | Phone number 10 digits example "+14158675310"
;                   $sFrom -        string | Alphanumeric Sender ID supports up to 11 characters from the following categories:
;                                               Upper-case letters A-Z
;                                               Lower-case letters a-z
;                                               Numbers 0-9
;                                               Spaces
;                   $sMessage       string | Message to send.
;
; Return Value(s):  On Success - Set error to 200 and returns output data
;                   On Failure - Set error to 1 - failed to create object winhttp.
;                                             Any other error from Twilio web.
;
; Author (s):       Ascer
;===============================================================================================================================
Func twilioSendSms($sAccountSid, $sAuthToken, $sTo, $sFrom, $sMessage)

    Local $oHttp = ObjCreate("winhttp.winhttprequest.5.1")

    If Not IsObj($oHttp) Then Return SetError(1, 0, 1)

    Local $sStruct = "https://api.twilio.com/2010-04-01/Accounts/"
    $sStruct &= $sAccountSid & "/Messages"

    $oHttp.Open("POST", $sStruct, False)

    Local $sBase64 = StringReplace(base64($sAccountSid & ":" & $sAuthToken), @LF, "")

    $oHTTP.SetRequestHeader("Authorization", "Basic " & $sBase64)
    $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    $oHTTP.SetRequestHeader("Content-Length", "50")

    Local $sRequest = "To=" & $sTo
    $sRequest &= "&From=" & $sFrom
    $sRequest &= "&Body=" & $sMessage

    $oHttp.Send($sRequest)

    Local $sOutput = $oHttp.ResponseText
    Local $iStatus = $oHttp.Status

    ConsoleWrite("iStatus: " & $iStatus & @CRLF)
    ConsoleWrite("$sOutput: " & $sOutput & @CRLF)

    Return SetError($iStatus, 0, $sOutput)

EndFunc

;==============================================================================================================================
; Function:         base64($vCode [, $bEncode = True [, $bUrl = False]])
;
; Description:      Decode or Encode $vData using Microsoft.XMLDOM to Base64Binary or Base64Url.
;                   IMPORTANT! Encoded base64url is without @LF after 72 lines. Some websites may require this.
;
; Parameter(s):     $vData      - string or integer | Data to encode or decode.
;                   $bEncode    - boolean           | True - encode, False - decode.
;                   $bUrl       - boolean           | True - output is will decoded or encoded using base64url shema.
;
; Return Value(s):  On Success - Returns output data
;                   On Failure - Returns 1 - Failed to create object.
;
; Author (s):       (Ghads on Wordpress.com), Ascer
;===============================================================================================================================
Func base64($vCode, $bEncode = True, $bUrl = False)

    Local $oDM = ObjCreate("Microsoft.XMLDOM")
    If Not IsObj($oDM) Then Return SetError(1, 0, 1)

    Local $oEL = $oDM.createElement("Tmp")
    $oEL.DataType = "bin.base64"

    If $bEncode then
        $oEL.NodeTypedValue = Binary($vCode)
        If Not $bUrl Then Return $oEL.Text
        Return StringReplace(StringReplace(StringReplace($oEL.Text, "+", "-"),"/", "_"), @LF, "")
    Else
        If $bUrl Then $vCode = StringReplace(StringReplace($vCode, "-", "+"), "_", "/")
        $oEL.Text = $vCode
        Return $oEL.NodeTypedValue
    EndIf

EndFunc ;==>base64

 

Edited by Ascer

Share this post


Link to post
Share on other sites

 

Hi @Rex Thanks allot i will look into this as possibility our for future use :) looks interesting

Hi @Ascer  This is great just what i was looking for and with the Base64 that i could get my head around. i will test straight away.

After some playing around i finally got my script working but nowhere as nice/clean as yours. Found the encode Base64 credential on the Twilio account but would prefere to do it my self with the SID and Auth token

Thanks so much for the Help you guys very much appreciated

 

#include "WinHttp.au3"

;~ Opt("MustDeclareVars", 1)


#Region ========= Info from Twilio site ==========

;================= Request Header ===============================
;~ Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
;~ Accept-Encoding: gzip, deflate, br
;~ Accept-Language: en-US,en;q=0.5
;~ Authorization: Basic %delete%
;~ Connection: keep-alive
;~ Cookie: notice_preferences=2:
;~ Host: api.twilio.com
;~ Upgrade-Insecure-Requests: 1
;~ User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:58.0) Gecko/20100101 Firefox/58.0
;=================================================================

;~ For special charater = https://www.w3schools.com/tags/ref_urlencode.asp

#EndRegion ===========================


Func _SendSMS($SendTo="",$SendFrom="",$MsgTxt="")

Local $Credentials = "$AccountSID&":"&$AuthToken  Encode data to Base64 for auth?"
Local $AccountSID = "Account SID"
Local $AuthToken = "Auth Token"
Local $sAddress = "https://api.twilio.com"

;~ æ = %C3%A6 | Æ = %C3%86
;~ ø = %C3%B8 | Ø = %C3%98
;~ å = %C3%A5 | Å = %C3%85

;======= Change Special Charaters in Text ======
$MsgTxt = StringReplace($MsgTxt, "æ", "%C3%A6", 0, 1)
$MsgTxt = StringReplace($MsgTxt, "Æ", "%C3%86", 0, 1)
$MsgTxt = StringReplace($MsgTxt, "ø", "%C3%B8", 0, 1)
$MsgTxt = StringReplace($MsgTxt, "Ø", "%C3%98", 0, 1)
$MsgTxt = StringReplace($MsgTxt, "å", "%C3%A5", 0, 1)
$MsgTxt = StringReplace($MsgTxt, "Å", "%C3%85", 0, 1)
;===============================================
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $MsgTxt = ' & $MsgTxt & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

; Error 1 = Missing Text, Phone or From Info
If BitOR($SendTo="",$SendFrom="",$MsgTxt="") Then Return SetError(1,0,False)

; Initialize and get session handle
Local $hOpen = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:58.0) Gecko/20100101 Firefox/58.0")

; Get connection handle
Local $hConnect = _WinHttpConnect($hOpen, $sAddress, $INTERNET_DEFAULT_HTTPS_PORT)

; Make a request
Local $hRequest = _WinHttpOpenRequest($hConnect, _
        "POST", _
        "2010-04-01/Accounts/"&$AccountSID&"/Messages.json", _
        Default, _
        Default, _
        "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", _
        $WINHTTP_FLAG_SECURE)

; Add header fields to the request
_WinHttpAddRequestHeaders($hRequest, "Authorization: Basic "&$Credentials)
_WinHttpAddRequestHeaders($hRequest, "Accept-Encoding: gzip, deflate, br")
_WinHttpAddRequestHeaders($hRequest, "Accept-Language: en-US,en;q=0.5")
_WinHttpAddRequestHeaders($hRequest, "Content-Type: application/x-www-form-urlencoded")
_WinHttpAddRequestHeaders($hRequest, "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7")
_WinHttpAddRequestHeaders($hRequest, "Connection: keep-alive")
_WinHttpAddRequestHeaders($hRequest, "Keep-Alive: 300")

Local $sPostData = 'To=%2B'&$SendTo&'&From='&$SendFrom&'&Body='&$MsgTxt&''

; Send it
_WinHttpSendRequest($hRequest, Default, $sPostData)

; Wait for the response
_WinHttpReceiveResponse($hRequest)

; Check if there is a response
Local $sHeader, $sReturned
If _WinHttpQueryDataAvailable($hRequest) Then
    $sHeader = _WinHttpQueryHeaders($hRequest)
;~  MsgBox(64, "Header", $sHeader)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sHeader = ' & $sHeader & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    Do
        $sReturned &= _WinHttpReadData($hRequest)
    Until @error
    ; Print returned
    ConsoleWrite($sReturned & @CRLF)
    If StringInStr($sHeader,"201 CREATED") <> 0 Then
        _WinHttpCloseHandle($hRequest)
        _WinHttpCloseHandle($hConnect)
        _WinHttpCloseHandle($hOpen)
        Return True
    Else
        _WinHttpCloseHandle($hRequest)
        _WinHttpCloseHandle($hConnect)
        _WinHttpCloseHandle($hOpen)
        Return False
    EndIf
Else
    ConsoleWriteError("!No data available." & @CRLF)
    _WinHttpCloseHandle($hRequest)
    _WinHttpCloseHandle($hConnect)
    _WinHttpCloseHandle($hOpen)
    Return False
EndIf


EndFunc

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By argumentum
      I can TCP/IP in AutoIt, hence, make a HTTP deamon. Now, how can I HTTPS to use SSL !??
      Well, Apache has this "mod_proxy.so" module that can let me have SSL and what not is in Apache.
      All that is needed is to tell Apache what I wanna do by editing httpd.conf .
      # Implements a proxy/gateway for Apache. # 1. Open /Applications/XAMPP/etc/httpd.conf # 2. Enable the following Modules by removing the # at the front of the line. # - LoadModule rewrite_module modules/mod_rewrite.so # - LoadModule proxy_module modules/mod_proxy.so # - LoadModule proxy_http_module modules/mod_proxy_http.so # # 3. Copy and Paste below to the bottom of httpd.conf # <IfModule mod_proxy.c> ProxyRequests On <Proxy *> Order deny,allow Allow from all </Proxy> ProxyVia Off ProxyPreserveHost Off ProxyPass /home/ http://127.0.0.1:84/home/ ProxyPassReverse /home/ http://127.0.0.1:84/home/ SetEnv proxy-nokeepalive 1 # ..since we are not using "keep-alive", we are using "close" </IfModule> ...et voila  
      I'm using XAMPP ( https://www.apachefriends.org/download.html )
      and this is my solution to avoid coding in PHP, as I feel more comfortable coding in AutoIt.
      A "muli-thread or concurrency" can be done by forking the socket ( https://www.autoitscript.com/forum/topic/199177-fork-udf-ish/ )
      but responses are under 20 ms., so I feel fine with a single thread.
      I modified an example ( attached below ), so can try out the concept.
      PS: I am not an Apache guru. I just discovered this and it opens a world of possibilities. In my case, I'm thinking of an API to query SQLite 
      PS2: I'm not gonna make Poll but do click like if you do  
       
      201673-json-http-post-serverlistener.au3
    • By MichaelSDeVries
      Has anyone successfully developed  integration with the E*TRADE API in AutoIt?


       
      If so, then would you be willing and able to share some of your AutoIt code to do so with me? and/or help me successfully develop an AutoIt interface with the E*TRADE API?

       
      Please also Reply at: http://blog.thevcf.com/forums/topic/etrade-api/#post-4032

       
      Thank You and Have a Great Day!
      - Michael S. DeVries
    • By Roy_
      Ciao,
      This example reproduces the problem I encounter when sending a post request to an echo server.
      Instead of being sent as text utf8, the data is transmitted base64 encoded.
      Example:
      - json String: '{"firstName":"Jonathan","lastName":"Freeman","loginCount":4,"active": "yes","text":"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Morbi vel volutpat nunc. Maecenas id tempus mi. Morbi ipsum enim, ultricies ac augue sit amet, ullamcorper finibus ex. Vestibulum vel posuere nibh, nec faucibus eros. Nam malesuada non lacus a suscipit. Nulla rhoncus tempus mi quis placerat. Curabitur commodo tincidunt justo quis sollicitudin."}'
      - server response: "data:application/octet-stream;base64,AAAAALgE6QNYAIAAAgAAANQCAAAAAAAAWF8AAAAAAAD0VQAAAAAAAD9APQAAAAAAAwAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAABBAAAAAAABRUAAAAmIZwcAbRt8/LMa9UAAAAAAAAAAGFzIGlkIHRlbXB1cyBtaS4gTW9yYmkgaXBzdW0gZW5pbSwgdWx0cmljaWVzIGFjIGF1Z3VlIHNpdCBhbWV0LCB1bGxhbWNvcnBlciBmaW5pYnVzIGV4LiBWZXN0aWJ1bHVtIHZlbCBwb3N1ZXJlIG5pYmgsIG5lYyBmYXVjaWJ1cyBlcm9zLiBOYW0gbWFsZXN1YWRhIG5vbiBsYWN1cyBhIHN1c2NpcGl0LiBOdWxsYSByaG9uY3VzIHRlbXB1cyBtaSBxdWlzIHBsYWNlcmF0LiBDdXJhYml0dXIgY29tbW9kbyB0aW5jaWR1bnQganVzdG8gcXVpcyBzb2xsaWNpdHVkaW4uIn0="
       
      How can I go about transmitting data in text format utf8?
      Thanks in advance for the help.
      In the zip file:
      - CurlJsonPost.au3: this script
      - Curl.au3: UDF by Ward (thank you!)
      - data.json: json srting for command line test
       
      Note: using Curl.exe with json string saved in a file (utf8 encoded) named data.json, works perfectly
      To try with the command line tool:
      - save data.json in curl\bin directory
      - open cmd.exe and cd to curl\bin directory
      - Enter the following command:
      curl -H "Content-Type: application/json" --data @data.json https://httpbin.org/post
       
      #Include "Curl.au3" Global $_cURL_OutputBuffer Local $sJson = '{"firstName":"Jonathan","lastName":"Freeman","loginCount":4,"active": "yes","text":"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Morbi vel volutpat nunc. Maecenas id tempus mi. Morbi ipsum enim, ultricies ac augue sit amet, ullamcorper finibus ex. Vestibulum vel posuere nibh, nec faucibus eros. Nam malesuada non lacus a suscipit. Nulla rhoncus tempus mi quis placerat. Curabitur commodo tincidunt justo quis sollicitudin."}' Local $iRetCode, $sServerResponse ConsoleWrite("=== Json post test ===" & @LF) ConsoleWrite(StringFormat("Retcode: %s - %s", $iRetCode, Curl_Easy_strerror($iRetCode)) & @LF) ConsoleWrite("Data returned from server" & @LF & @LF) $sServerResponse = JsonPost_Test($sJson, $iRetCode) ConsoleWrite($sServerResponse & @LF) Func JsonPost_Test($sJson, ByRef $iRetCode) ; Init Easy Curl Interface e set url (echo service) Local $oCurl = Curl_Easy_Init() curl_easy_setopt($oCurl, $CURLOPT_URL, "https://httpbin.org/post") ; Set content type header Local $headers = curl_slist_append(0, "Content-Type: application/json") curl_easy_setopt($oCurl, $CURLOPT_HTTPHEADER, $headers) ; Post fields & size curl_easy_setopt($oCurl, $CURLOPT_POSTFIELDS, $sJson) curl_easy_setopt($oCurl, $CURLOPT_POSTFIELDSIZE, StringLen($sJson)) ; Set callbac function to get server response back (see global var $_cURL_OutputBuffer) $hWriteFunc = DllCallbackRegister("WriteFunc_CallBack", "uint:cdecl", "ptr;uint;uint;ptr") curl_easy_setopt($oCurl, $CURLOPT_WRITEFUNCTION, DllCallbackGetPtr($hWriteFunc)) ; Ignore ssl certificates check curl_easy_setopt($oCurl, $CURLOPT_SSL_VERIFYPEER, 0) curl_easy_setopt($oCurl, $CURLOPT_SSL_VERIFYHOST, 0) ; Execute the post request $iRetCode = curl_easy_perform($oCurl) ; Set return trasfer & clear output buffer global var Local $sReturnTransfer = $_cURL_OutputBuffer $_cURL_OutputBuffer = "" Return SetError(0, 0, $sReturnTransfer) EndFunc Func WriteFunc_CallBack($ptr,$nSize,$nMemb,$pStream) Local $vData = DllStructCreate ("byte[" & $nSize*$nMemb & "]",$ptr) $_cURL_OutputBuffer &= BinaryToString(DllStructGetData($vData,1)) Return $nSize*$nMemb EndFunc  
      curlJsonPost.zip
    • By rcmaehl
      Hi all, 

      Recently my work swapped from Cisco CTIOS to Finesse. This completely threw me off as I had been automating the Win32 application and I had never done IUIAutomation before. As such I've been messing around with the API and will be adding code as I figure it out. While I do have Supervisor access, I will likely not be adding functions for those features yet.
      Currently Available Functions:
      User API - Query and Set User Info
      Dialog API - Query and Set Call and other Dialog Info
      Queue API - Query Assigned Queues
      Team API - Query Users in a Team


      Changelog:
       
      Download:
       
×
×
  • Create New...