[a.ahmed]

Json.NET

PHP كود :

Imports Newtonsoft.Json 'Newtonsoft.Json.dll
'https://www.dllme.com/dll/files/newtonsoft_json_dll.html

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim json As String =
            " {                                     " & _
            "   'Name': 'Bad Boys',                 " & _
            "   'ReleaseDate': '1995-4-7T00:00:00', " & _
            "   'Genres': [                         " & _
            "     'Action',                         " & _
            "     'Comedy'                          " & _
            "   ]                                   " & _
            " }                                     "

        Dim m As Movie = JsonConvert.DeserializeObject(Of Movie)(json)

        Dim name As String = m.Name
        MsgBox("Name: " & name)

        Dim releaseDate As String = m.ReleaseDate
        MsgBox("ReleaseDate: " & releaseDate)

        Dim genres As String = String.Join(", ", m.Genres)
        MsgBox("Genres: " & genres)

    End Sub

End Class


Public Class Movie
    Public Name As String
    Public ReleaseDate As String
    Public Genres() As String
End Class