Sub GetSignKey()
Dim lJson As String= "{""privatkey"": ""A79AAA9D10BE3D4386D10144E267B683"", ""password"": ""A9CCF3EAC9A4901908C5159B8E1CBC1D""}"
Dim job2 As HttpJob
Dim Json As JSONParser
Dim Map1 As Map
cToken = ""
Try
job2.Initialize("Job2", Me)
job2.PostString("http://xxxxx/getapiauth/getencryptsign.ashx", lJson)
job2.GetRequest.SetContentType("application/json")
wait for (job2) JobDone(job2 As HttpJob)
Log(job2.Success)
Log("Result : " & job2.GetString)
If job2.Success Then
Json.Initialize (job2.GetString)
Map1 = Json.NextObject
cToken = Map1.get("sign")
End If
Catch
Log(LastException)
End Try
job2.release
End Sub