address="https://users.seeyouyima.com/v2/logins?"
postdate=Form1.ListBox1.List
手机号="15096442418"
postdate=Replace(postdate,"手机",手机号)
//postdate=Plugin.SMWH.EscapeURL(postdate)
TracePrint postdate
返回值 = 访问(address,postdate)
TracePrint 返回值
Function 访问(add,date)
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttp.Open "POST", add, False
WinHttp.setRequestHeader "Host", "users.seeyouyima.com"
WinHttp.setRequestHeader "source", "YQAccountVC->IMYAccountVC"
WinHttp.setRequestHeader "Content-Length", "61"
WinHttp.Send date
访问 = WinHttp.ResponseText
Set WinHttp = Nothing
End Function
{"account":"手机","nation_code":86,"platform":"phone"}
fiddler能正确返回,按键就不行