比如
Dim ao As New JObject
ao("Title") = "图文标题1" '图文标题
ao("Description") = "图文简介1" '图文简介
ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" '图片
ao("Url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '单击阅读原文后跳转的连接
ja.Add(ao)
ao = New JObject
ao("Title") = "图文标题2" '图文标题
ao("Description") = "图文简介2" '图文简介
ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" '图片
ao("Url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '单击阅读原文后跳转的连接
ja.Add(ao)
……