WinHTTP.WinHttpRequest_UTF-8

Get help with using AutoHotkey (v1.1 and older) and its commands and hotkeys
inseption86
Posts: 198
Joined: 19 Apr 2018, 00:24

WinHTTP.WinHttpRequest_UTF-8

Post by inseption86 » 20 Jun 2021, 04:27

Good day! I can't figure out how to replace my data?( in this example "Куличков Елена")

Code: Select all

HTTP.Open("POST", SearchURL) 
HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.83 Safari/537.36")
HTTP.SetRequestHeader("Authorization", "Basic " . basic) 
HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
HTTP.SetRequestHeader("Pragma", "no-cache")

data := "start=0&limit=20&collection_code=migrants_list_collection&parameters=sSearchWord%253D%2525u041A%2525u0423%2525u041B%2525u0418%2525u0427%2525u041A%2525u041E%2525u0412%252520%2525u0415%2525u041B%2525u0415%2525u041D%2525u0410"

HTTP.Send(data)
HTTP.WaitForResponse()
That doesn't work either:

Code: Select all

TextVar := URIEncode("КУЛИЧКОВ ЕЛЕНА")
data := "start=0&limit=20&collection_code=migrants_list_collection&parameters=sSearchWord" . TextVar

URIEncode(str, encoding := "UTF-8")  {
   VarSetCapacity(var, StrPut(str, encoding))
   StrPut(str, &var, encoding)

   While code := NumGet(Var, A_Index - 1, "UChar")  {
      bool := (code > 0x7F || code < 0x30 || code = 0x3D)
      UrlStr .= bool ? "%" . Format("{:02X}", code) : Chr(code)
   }
   Return UrlStr
}

Return to “Ask for Help (v1)”