# AddBodyParameter `AddBodyParameter(Key, Value)` `Key-{Variant}` `Value-{Variant}` 向`Body`添加键值。 `Body`必须是`Dictionary`(如果它是一个数组或集合，则抛出错误) ``` Dim Request As New WebRequest Request.Format = WebFormat.Json Request.AddBodyParameter "a", 123 Request.Body '// = "{"a":123}" '// 可以向现有Dictionary添加参数 Dim Body As New Dictionary Body.Add "a", 123 Set Request.Body = Body Request.AddBodyParameter "b", 456 Request.Body '// = "{"a":123,"b":456}" ```