![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) TikTok Shop Get Authorized ShopsSee more TikTok Shop ExamplesAn example showing how to get the authorized shops in the TikTok Shops API.Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://partner.tiktokshop.com/docv2/page/6507ead7b99d5302be949ba9?external_id=6507ead7b99d5302be949ba9
Dim success As Boolean = False ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New 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 Dim jsonToken As New Chilkat.JsonObject success = jsonToken.LoadFile("qa_data/tokens/tiktok-shops.json") If (success <> True) Then Debug.WriteLine("Failed to load tiktok-shops.json") Exit Sub End If Dim queryParams As New Chilkat.JsonObject queryParams.UpdateString("app_key","APP_KEY") Dim dt As New Chilkat.CkDateTime queryParams.UpdateString("timestamp",dt.GetAsUnixTimeStr(False)) queryParams.UpdateInt("version",202309) ' Sort the JSON members by member name, in ascending order (A-Z), case sensitive.. Dim ascending As Boolean = True Dim caseSensitive As Boolean = True queryParams.Sort(ascending,caseSensitive) Dim appSecret As String = "APP_SECRET" Dim path As String = "/authorization/202309/shops" ' Build the StringToSign Dim sb As New Chilkat.StringBuilder sb.Append(appSecret) sb.Append(path) Dim numParams As Integer = queryParams.Size Dim i As Integer = 0 While i < numParams sb.Append(queryParams.NameAt(i)) sb.Append(queryParams.StringAt(i)) i = i + 1 End While sb.Append(appSecret) Dim crypt As New Chilkat.Crypt2 crypt.HashAlgorithm = "SHA256" crypt.MacAlgorithm = "HMAC" crypt.EncodingMode = "hex_lower" crypt.SetMacKeyString(appSecret) Dim sig As String = crypt.MacStringENC(sb.GetAsString()) queryParams.UpdateString("access_token",jsonToken.StringOf("data.access_token")) queryParams.UpdateString("sign",sig) http.SetRequestHeader("x-tts-access-token",jsonToken.StringOf("data.access_token")) http.SetRequestHeader("content-type","application/json") Dim resp As New Chilkat.HttpResponse success = http.HttpParams("GET","https://open-api.tiktokglobalshop.com/authorization/202309/shops",queryParams,resp) If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim json As New Chilkat.JsonObject resp.GetBodyJson(json) Debug.WriteLine(resp.StatusCode) Debug.WriteLine(resp.BodyStr) ' Sample JSON response... ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ' { ' "code": 0, ' "data": { ' "shops": [ ' { ' "cipher": "GCP_XF90igAAAABh00qsWgtvOiGFNqyubMt3", ' "code": "CNGBCBA4LLU8", ' "id": "7000714532876273420", ' "name": "Maomao beauty shop", ' "region": "GB", ' "seller_type": "CROSS_BORDER" ' } ' ] ' }, ' "message": "Success", ' "request_id": "202203070749000101890810281E8C70B7" ' } Dim cipher As String Dim code_str As String Dim id As String Dim name As String Dim region As String Dim seller_type As String Dim code As Integer = json.IntOf("code") Dim message As String = json.StringOf("message") Dim request_id As String = json.StringOf("request_id") i = 0 Dim count_i As Integer = json.SizeOfArray("data.shops") While i < count_i json.I = i cipher = json.StringOf("data.shops[i].cipher") code_str = json.StringOf("data.shops[i].code") id = json.StringOf("data.shops[i].id") name = json.StringOf("data.shops[i].name") region = json.StringOf("data.shops[i].region") seller_type = json.StringOf("data.shops[i].seller_type") i = i + 1 End While |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.