Function jsonFormatter(str)

Dim result, attrList, attr, value, index

index = 0

result = "{"

attrList = split(str, "&")

For Each attr in attrList

If index > 0 Then?

result = result & ","

End If

value =?split(attr, "=")

result = result & chr(34) & value(1) & chr(34) & ":" & chr(34) & value(2) & chr(34)

index = index + 1

Next

result = result & "}"

TracePrint result

Return result

End Function

Import "SMWH.dll"

Dim 網(wǎng)址, 訪問方式, 網(wǎng)頁(yè)編碼, 返回值

網(wǎng)址 = "http://localhost:80/api9?uid=3196036"

訪問方式 = "GET"

網(wǎng)頁(yè)編碼 = "UTF-8"

返回值 = SMWH.WinHttp(網(wǎng)址, 訪問方式, "", "", "", "", "", "", "", "", "", "", "", 網(wǎng)頁(yè)編碼)

TracePrint 返回值

Dim 網(wǎng)址2, 訪問方式2, 提交信息2, 附加協(xié)議頭2, 網(wǎng)頁(yè)編碼2, 返回值2

網(wǎng)址2 = "http://localhost:80/api8"

訪問方式2 = "POST"

提交信息2 = jsonFormatter("a=酷玩&b=蚊仔")

附加協(xié)議頭2 = "CONTENT-TYPE:application/json"

網(wǎng)頁(yè)編碼2 = "UTF-8"

返回值2 = SMWH.WinHttp(網(wǎng)址2, 訪問方式2, 提交信息2, "", "", 附加協(xié)議頭2, "", "", "", "", "", "", "", 網(wǎng)頁(yè)編碼2)

TracePrint 返回值2