SendImageToImgur(imagePath, ClientID)  {
   oFile := FileOpen(imagePath, "r")
   oFile.Pos := 0
   oFile.RawRead(buff, size := oFile.length)
   oFile.Close()
   strBase64 := CryptBinaryToStringBASE64(&buff, size, true)
   http := ComObjCreate("Msxml2.XMLHTTP")
   http.open("POST", "https://api.imgur.com/3/image", true)
   http.onreadystatechange := Func("StateChange").Bind(http)
   http.SetRequestHeader("authorization", "Client-ID " . ClientID)
   http.send(strBase64)
   VarSetCapacity(strBase64, 0), VarSetCapacity(buff, 0)
}

#Persistent
loop 5
{
   req%A_Index% := ComObjCreate("Msxml2.XMLHTTP")
   req%A_Index%.open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
   req%A_Index%.onreadystatechange := Func("Ready").Bind(req%A_Index%)
   req%A_Index%.send()
   req%A_Index% := ""
}

Ready(req)
{
   if (req.readyState = 4)
      MsgBox, % req.responseText
}

#Persistent
loop 1
{
   req%A_Index% := ComObjCreate("Msxml2.XMLHTTP")
   req%A_Index%.open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
   req%A_Index%.onreadystatechange := Func("Ready").Bind(A_Index)
   req%A_Index%.send()
}
sleep 5000
msgbox % IsObject(req1)


Ready(Index)
{
   Global
   if (req%Index%.readyState = 4)
      req%Index% := ""    ;   делаем какие-либо действия связанные с этим объектом, например обнуляем
   return
}

#Persistent
loop 1
{
   req%A_Index% := ComObjCreate("Msxml2.XMLHTTP")
   req%A_Index%.open("GET", "https://autohotkey.com/download/1.1/version.txt", true)
   req%A_Index%.onreadystatechange := Func("Ready").Bind(req%A_Index%)
   req%A_Index%.send()
}
sleep 5000
msgbox % IsObject(req1)

Ready(Index)
{
   if (Index.readyState = 4)
      Index := ""    ;   делаем какие-либо действия связанные с этим объектом, например обнуляем
   return
}