(AutoIt) UniPin Game List

See more UniPin Examples

Demonstrates how to send a POST with the hash_hmac(sha256,partnerid+timestamp+path,secretkey) authentication.

For more information, see https://documenter.getpostman.com/view/8087848/SVfNvUt2?version=latest#1685124e-d292-4414-b1ca-e34e3f3ec7b4

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

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl --request POST 'https://dev-api.unipin.com/in-game-topup/list' \
; --header 'partnerid: 587e3675-e0ed-4e9e-9b39-099b11498fdc' \
; --header 'timestamp: 1566552295' \
; --header 'path: in-game-topup/list' \
; --header 'auth: 1d9f5e7aca9f3c14da7c957d6977447739877cebfc10fcf3682bd32da47a2bda' \
; --header 'Content-Type: application/json'

; Use the following online tool to generate HTTP code from a CURL command
; Convert a cURL Command to HTTP Source Code

$oDt = ObjCreate("Chilkat.CkDateTime")
$oDt.SetFromCurrentSystemTime()
Local $sTimestamp = $oDt.GetAsUnixTimeStr(False)

; Change this to your actual partner ID.
Local $sPartnerId = "587e3675-e0ed-4e9e-9b39-099b11498fdc"

$oHttp.SetRequestHeader "path","in-game-topup/list"
$oHttp.SetRequestHeader "timestamp",$sTimestamp
$oHttp.SetRequestHeader "partnerid",$sPartnerId
$oHttp.SetRequestHeader "Content-Type","application/json"

; Calculate the auth header using  hash_hmac(sha256,partnerid+timestamp+path,secretkey)
$oCrypt = ObjCreate("Chilkat.Crypt2")
$oCrypt.MacAlgorithm = "hmac"
$oCrypt.HashAlgorithm = "sha256"
$oCrypt.EncodingMode = "hexlower"

; Change this to your actual secret key..
$oCrypt.SetMacKeyEncoded("wabc123asljdgadlgd3","us-ascii")

$oSbMacData = ObjCreate("Chilkat.StringBuilder")
$oSbMacData.Append($sPartnerId)
$oSbMacData.Append($sTimestamp)
$oSbMacData.Append("in-game-topup/list")

Local $sAuth = $oCrypt.MacStringENC($oSbMacData.GetAsString())
$oHttp.SetRequestHeader "auth",$sAuth

Local $oResp = $oHttp.QuickRequest("POST","https://dev-api.unipin.com/in-game-topup/list")
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; {
;   "game_list": [
;     {
;       "game_category": "MLBB_ID",
;       "game_code": "MLBBD_ID",
;       "game_name": "Mobile Legends Diamonds",
;       "icon_url": "http://dev-backoffice.unipin.com/images/icon_direct_topup_games/1565343343-icon-1548659712-icon-Mobile legend 300x300 px.png",
;       "game_status": "active",
;       "updated_at": "2019-08-09 16:35:43"
;     },
;     {
;       "game_category": "MLBB_ID",
;       "game_code": "MLBBS_ID",
;       "game_name": "Mobile Legends Starlight Member",
;       "icon_url": "http://dev-backoffice.unipin.com/images/icon_direct_topup_games/1565343258-icon-1548659712-icon-Mobile legend 300x300 px.png",
;       "game_status": "active",
;       "updated_at": "2019-08-09 16:34:18"
;     },
; ...
; ...
;   ],
;   "status": 1,
;   "reason": "Successful"
; }

; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON

Local $sGame_category
Local $sGame_code
Local $sGame_name
Local $sIcon_url
Local $sGame_status
Local $sUpdated_at

Local $iStatus = $oJResp.IntOf("status")
Local $sReason = $oJResp.StringOf("reason")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("game_list")
While $i < $iCount_i
    $oJResp.I = $i
    $sGame_category = $oJResp.StringOf("game_list[i].game_category")
    $sGame_code = $oJResp.StringOf("game_list[i].game_code")
    $sGame_name = $oJResp.StringOf("game_list[i].game_name")
    $sIcon_url = $oJResp.StringOf("game_list[i].icon_url")
    $sGame_status = $oJResp.StringOf("game_list[i].game_status")
    $sUpdated_at = $oJResp.StringOf("game_list[i].updated_at")
    $i = $i + 1
Wend