(VBScript) TikTok Shop Get Categories

See more TikTok Shop Examples

An example showing how to use a TikTok Shops access token in an API call.

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' It is assumed we previously obtained an OAuth2 access token.
' This example loads the JSON access token file 
' saved by this example: Get TikTok Shop OAuth2 Access Token
' or refrehsed by this example: Get TikTok Shop Refresh OAuth2 Access Token
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonToken = CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/tiktok-shops.json")
If (success <> 1) Then
    outFile.WriteLine("Failed to load tiktok-shops.json")
    WScript.Quit
End If

' Replace values in all caps with your specific values.
' SHOP_CIPHER and SHOP_ID are returned from this example: Get Authorized Shops
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set queryParams = CreateObject("Chilkat.JsonObject")
success = queryParams.UpdateString("app_key","APP_KEY")
success = queryParams.UpdateString("shop_cipher","SHOP_CIPHER")
success = queryParams.UpdateString("shop_id","SHOP_ID")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt = CreateObject("Chilkat.CkDateTime")
success = queryParams.UpdateString("timestamp",dt.GetAsUnixTimeStr(0))
success = queryParams.UpdateInt("version",202309)

' Sort the JSON members by member name, in ascending order (A-Z), case sensitive..
' Note: The Sort method is added in Chilkat v9.5.0.100
ascending = 1
caseSensitive = 1
queryParams.Sort ascending,caseSensitive

appSecret = "APP_SECRET"
path = "/product/202309/categories"

' Build the StringToSign
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.Append(appSecret)
success = sb.Append(path)
numParams = queryParams.Size
i = 0
Do While i < numParams
    success = sb.Append(queryParams.NameAt(i))
    success = sb.Append(queryParams.StringAt(i))
    i = i + 1
Loop
success = sb.Append(appSecret)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")
crypt.HashAlgorithm = "SHA256"
crypt.MacAlgorithm = "HMAC"
crypt.EncodingMode = "hex_lower"
success = crypt.SetMacKeyString(appSecret)

sig = crypt.MacStringENC(sb.GetAsString())

success = queryParams.UpdateString("access_token",jsonToken.StringOf("data.access_token"))
success = queryParams.UpdateString("sign",sig)

http.SetRequestHeader "x-tts-access-token",jsonToken.StringOf("data.access_token")
http.SetRequestHeader "content-type","application/json"

' resp is a Chilkat.HttpResponse
Set resp = http.QuickRequestParams("GET","https://open-api.tiktokglobalshop.com/product/202309/categories",queryParams)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = resp.GetBodyJson(json)

outFile.WriteLine(resp.StatusCode)

code = json.IntOf("code")
message = json.StringOf("message")
request_id = json.StringOf("request_id")
i = 0
count_i = json.SizeOfArray("data.categories")
Do While i < count_i
    json.I = i
    id = json.StringOf("data.categories[i].id")
    is_leaf = json.BoolOf("data.categories[i].is_leaf")
    local_name = json.StringOf("data.categories[i].local_name")
    outFile.WriteLine("local_name: " & local_name)
    parent_id = json.StringOf("data.categories[i].parent_id")
    j = 0
    count_j = json.SizeOfArray("data.categories[i].permission_statuses")
    Do While j < count_j
        json.J = j
        strVal = json.StringOf("data.categories[i].permission_statuses[j]")
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close