【按键精灵X】发起网络请求

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 网址, 访问方式, 网页编码, 返回值

网址 = "http://localhost:80/api9?uid=3196036"

访问方式 = "GET"

网页编码 = "UTF-8"

返回值 = SMWH.WinHttp(网址, 访问方式, "", "", "", "", "", "", "", "", "", "", "", 网页编码)

TracePrint 返回值

Dim 网址2, 访问方式2, 提交信息2, 附加协议头2, 网页编码2, 返回值2

网址2 = "http://localhost:80/api8"

访问方式2 = "POST"

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

附加协议头2 = "CONTENT-TYPE:application/json"

网页编码2 = "UTF-8"

返回值2 = SMWH.WinHttp(网址2, 访问方式2, 提交信息2, "", "", 附加协议头2, "", "", "", "", "", "", "", 网页编码2)

TracePrint 返回值2