Import "D:\按鍵精靈\按鍵精靈2014\plugin\vbsjson.vbs"

Set xPost = CreateObject("Msxml2.ServerXMLHTTP.3.0")

xPost.Open "Post", "http://localhost:80/api8?uid=3196036", False

//xPost.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded" // 指定發(fā)送內(nèi)容的編碼類型

xPost.setRequestHeader "CONTENT-TYPE", "application/json" // 指定發(fā)送內(nèi)容的編碼類型

//xPost.Send ("a=酷玩&b=蚊仔")

//xPost.Send("{" & chr(34) & "a" & chr(34) & ": 18" & "}")

xPost.Send(jsonFormatter("a=酷玩&b=蚊仔"))

If xPost.readyState = 4 Then?

TracePrint TypeName(xPost.responsetext)

??TracePrint xPost.responsetext

??Set json = New vbsJson

??Set obj = json.Decode(xPost.responsetext)

??TracePrint obj("a")

End If

xPost.abort

Set xPost = Nothing

Function jsonFormatter(str)

result = "{"

attrList = split(str, "&")

For i = 0 To UBound(attrList)

If i > 0 Then?

result = result & ","

End If

attr = attrList(i)

key = split(attr, "=")(0)

value =?split(attr, "=")(1)

result = result & chr(34) & key & chr(34) & ":" & chr(34) & value & chr(34)

Next

result = result & "}"

TracePrint result

jsonFormatter = result

End Function