post json data ???

[wzxiaodu]

1111.PNG (6.28 KiB) Viewed 1802 times

How to change to autohotkey ??

my results of the code below is empty !!!

2222.PNG (2.87 KiB) Viewed 1802 times

pJson=
(
{
taskDateTime: 2019-01-05，
pCode: 330900
}
)

msgbox % JSONPOST(url,,pJson)
return

Code: Select all

;;;http thinkai.net /p/677   Thinkai's Blog
JSONPOST(url, Encoding = "",postData=""){ ;网址，编码, post JSON数据
    hObject:=ComObjCreate("WinHttp.WinHttpRequest.5.1")
    Try
    {
        hObject.Open("POST",url,False)
        hObject.SetRequestHeader("Content-Type", "application/json")
        hObject.Send(postData)
    }
    catch e
        return -1
 
    if (Encoding && hObject.ResponseBody)
    {
        oADO := ComObjCreate("adodb.stream")
        oADO.Type := 1
        oADO.Mode := 3
        oADO.Open()
        oADO.Write(hObject.ResponseBody)
        oADO.Position := 0
        oADO.Type := 2
        oADO.Charset := Encoding
        return oADO.ReadText(), oADO.Close()
    }
    return hObject.ResponseText
}

[wzxiaodu]

1111.PNG

[evilC]

What you are ACTUALLY encoding is this:

Code: Select all

{

    taskDateTime: 2019-01-05,

    pCode: 330900

}

Which is not the same as what is in your screenshot (Missing quotes)