[سلامات]

شكرا اخ احمد

(10-10-17, 04:30 AM)a.ahmed كتب :

PHP كود :

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

    Dim json As String = thepage

    Dim data As Posts = JsonConvert.DeserializeObject(Of Posts)(json)

    Dim output As String = ""

    For Each p As Posts.Post In data.Posts

        Dim u As String = p.Post.UserSUB
        Dim d As String = p.Post.Title
        Dim c As String = p.Post.ClassSUB

        output += u + vbTab + d + vbTab + c + vbTab + vbCrLf

    Next

    MsgBox(output)

End Sub


Class Posts
    Public Posts() As Post
    Class Post
        Public Post As Detail
        Class Detail
            Public UserSUB As String
            Public Title As String
            Public ClassSUB As String
        End Class
    End Class
End Class