(VB.NET UWP/WinRT) Adobe Analytics Reporting API (1.4)

Demonstrates a simple POST of JSON to the Adobe Analytics Reporting API (v1.4)

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

'  This requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.
Dim success As Boolean

'  In this example, replace "rsid" with your report suite id, and update the URL to use the correct endpoint
Dim url As String = "https://api.omniture.com/admin/1.4/rest/?method=Report.Queue"

Dim json As New Chilkat.JsonObject
json.UpdateString("reportDescription.reportSuiteID","rsid")
json.UpdateString("reportDescription.dateGranularity","hour")


Dim http As New Chilkat.Http

Dim dt As New Chilkat.CkDateTime
dt.SetFromCurrentSystemTime()
Dim timecreated As String = dt.GetAsTimestamp(False)

Dim prng As New Chilkat.Prng
Dim nonce As String = prng.GenRandom(12,"hex")

Dim secret As String = "SECRET"

Dim sb As New Chilkat.StringBuilder
sb.Append(nonce)
sb.Append(timecreated)
sb.Append(secret)

Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "base64"
Dim digest As String = crypt.HashStringENC(sb.GetAsString())

Dim sbNonce As New Chilkat.StringBuilder
sbNonce.Append(nonce)
sbNonce.Encode("base64")

sb.Clear()
sb.Append("UsernameToken Username=""USERNAME"", PasswordDigest=""")
sb.Append(digest)
sb.Append(""", Nonce=""")
sb.Append(sbNonce.GetAsString())
sb.Append(""", Created=""")
sb.Append(timecreated)
sb.Append("""")

Debug.WriteLine(sb.GetAsString())

http.SetRequestHeader("X-WSSE",sb.GetAsString())

Dim resp As Chilkat.HttpResponse = Await http.PostJson2Async(url,"text/json",json.Emit())
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Http Status code: " & resp.StatusCode)
Debug.WriteLine("JSON response:")
Debug.WriteLine(resp.BodyStr)