نقل قول نوشته شده توسط mazoolagh مشاهده تاپیک
اما برای ساخت و تفسیر رشته های json بهتره از ابزار مناسب استفاده کنیم.
یک نمونه کد با استفاده از newtonsoft.json شبیه این میشه:

Imports Newtonsoft.Json





Public Class Account

    Public Property terminalId As Int32

    Public Property userName As String

    Public Property password As String

End Class





Public Class DailyToken

    Public Property resCode As Integer

    Public Property resMessage As String

    Public Property info As DailyTokenInfo

End Class





Public Class DailyTokenInfo

    Public Property token As String

End Class


Dim account As Account = New Account With {

    .terminalId = 123456,

    .userName = "username_test",

    .password = "password_test"

    }





Dim AccountJSON As String = JsonConvert.SerializeObject(account, Formatting.None)

Dim wc As New System.Net.WebClient

wc.Encoding = System.Text.Encoding.UTF8

Dim response As String = wc.UploadString(wsurl, AccountJSON)

Dim dt As DailyToken = JsonConvert.DeserializeObject(Of DailyToken)(response)

MsgBox(dt.info.token,, "Daily Token")


1.JPG

بسیار سپاسگزارم و ممنون به خاطر صرف وقت و انرژی