(AutoIt) Emoji Tweet

Demonstrates posting a status update that includes an emoji character.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

; ----------------------------------------------------------------------
; This initial setup, which involves setting the OAuth1 properties and connecting
; to api.twitter.com, is only required once at the beginning.  Once connected, the same
; object instance may be re-used, and if necessary, it will automatically reconnect
; as needed.

; Assume we've previously obtained an access token and saved it to a JSON file..
$oJson = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJson.LoadFile("qa_data/tokens/twitter.json")

$oRest = ObjCreate("Chilkat.Rest")
$oOauth1 = ObjCreate("Chilkat.OAuth1")

$oOauth1.ConsumerKey = "TWITTER_CONSUMER_KEY"
$oOauth1.ConsumerSecret = "TWITTER_CONSUMER_SECRET"
$oOauth1.Token = $oJson.StringOf("oauth_token")
$oOauth1.TokenSecret = $oJson.StringOf("oauth_token_secret")
$oOauth1.SignatureMethod = "HMAC-SHA1"
$oOauth1.GenNonce(16)

$oRest.SetAuthOAuth1($oOauth1,False)

Local $bAutoReconnect = True
$bSuccess = $oRest.Connect("api.twitter.com",443,True,$bAutoReconnect)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; This ends the initial setup...
; ----------------------------------------------------------------------

; For this example, I've pre-created a text file containing two emoji
; characters (the "ghost" emoji, and a "face savouring delicious food" emoji).  
; This text file was saved using the utf-8 encoding.

; The utf-8 bytes for the ghost emoji are 0x9f 0x91 0xbb.  (Note: This is the utf-8
; representation that does not use surrogate pairs.)
; 
; The utf-8 bytes for the "face savouring delicious food" emoji are \xF0\x9F\x98\x8B.

$oSbText = ObjCreate("Chilkat.StringBuilder")
$oSbText.LoadFile("qa_data/txt/ghost_emoji.txt","utf-8")
$oSbText.Prepend("Test tweet using two emoji chars: ")

; Send a tweet...
$oRest.ClearAllQueryParams()
$oRest.AddQueryParam("status",$oSbText.GetAsString())
Local $sResp = $oRest.FullRequestFormUrlEncoded("POST","/1.1/statuses/update.json")
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.EmitCompact = False
$oJsonResponse.Load($sResp)

If ($oRest.ResponseStatusCode <> 200) Then
    ConsoleWrite($oJsonResponse.Emit() & @CRLF)
    Exit
EndIf

; Show the successful response:
ConsoleWrite($oJsonResponse.Emit() & @CRLF)
ConsoleWrite("Success." & @CRLF)