# PostJson `PostJson(Url, Body, [Options]) {WebResponse}` `Url - {String}` `Body - {Variant}` Array, Collection, or Dictionary to post `Options - {Dictionary}` *可選* Headers, Cookies, QuerystringParams, and UrlSegments * `Headers`, `Cookies`, `QuerystringParams`: `Collection `of `KeyValue `(Create with `WebHelpers.CreateKeyValue`) * `UrlSegments: Dictionary` 將JSON Body（數組，集合，字典）發布到給定的URL（帶有Headers，Cookies，QuerystringParams和UrlSegments的選項）。 ``` Dim Client As New WebClient Dim Url As String Url = "https://api.example.com/v1/messages/1" ' Body ' Array, Collection, or Dictionary Dim Body As New Dictionary Body.Add "message", "Howdy!" Dim Response As WebResponse Set Response = Client.PostJson(Url, Body) Dim Headers As New Collection Headers.Add WebHelpers.CreateKeyValue("Authorization", "Bearer ...") Dim Options As New Dictionary Options.Add "Headers", Headers Set Response = Client.PostJson(Url, Body, Options) ```