ورژن جدید کتابخونه PersianJson رو از قسمت خریدها دانلود کنید. و به صورت زیر جیسون رو پست کنید.
Dim postquery As PostRequest
postquery=pr.BuildPostQuery("host","tag")
Dim prjs As PersianJSONOBject
prjs.initialaizJsonObject
prjs.putToJSON("client_request","get_cod")
prjs.putToJSON("country_key",85)
postquery.addJSONParametrs(prjs.DefaultJsonObject)
postquery.executeRequesAsJSONObjectt
جواب هم که مشخصه باید به صورت جیسون بگیرید. متد زیر
Sub pr_onPostJSONObjectOkListener(JsonString As String )
Dim prjs As PersianJSONOBject
prjs.initialaizJsonString(JsonString)
Dim returne As String=prjs.getString("return")
Dim rowcont As Int =prjs.getInt("rowcont")
Dim mesasge As PersianJSONArray=prjs.getJsonArray("message")
End Sub