Исходная
версия Модифицированная SKAN (не требует BinArr.ahk)

Функции:
CreateFormData (ByRef retData, ByRef retHeader, objParam)
retData - (out) Данные, используемые для HTTP POST.
retHeader - (out) заголовок Content-Type, используемый для HTTP POST.
objParam - (in) Объект определяет параметры формы. Чтобы указать файлы, используйте в качестве значения массив.
Пример
CreateFormData_WinInet (ByRef retData, ByRef retHeader, objParam)
Используется для HTTPRequest () VxE.

Пример:
Загрузите несколько изображений на сайт postimage.org
Журнал изменений:
1.30 / 2019-01-13 - Параметры файла теперь помещаются в конец retData.
1.20 / 2016-06-17 - Добавлен CreateFormData_WinInet (), который можно использовать для HTTPRequest () VxE.
1.10 / 2015-06-23 - Исправлена ошибка
1.00 / 2015-05-14

objParam := { "btSubmit": "Upload It!"
            , "adult": "no"
            , "mode": "local"
            , "forumurl": "http://postimage.org/"
            , "upload[]": ["2.jpg", "1.jpg"]
            , "um": "computer"
            , "MAX_FILE_SIZE": 16777216
            , "optsize": 0 }
CreateFormData(postData, hdr_ContentType, objParam)

whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("POST", "http://postimage.org/", true)
whr.SetRequestHeader("Content-Type", hdr_ContentType)
whr.SetRequestHeader("Referer", "http://postimage.org/")
whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")
whr.Option(6) := False ; No auto redirect
whr.Send(postData)
whr.WaitForResponse()
Run, % whr.GetResponseHeader("Location")
return

;Создание и настройка объекта для построения данных формы
form			:= ComObjGet("script:file:webFormDataBuilder.wsc")
form.method		:= "POST"
form.action		:= "https://images.google.com/searchbyimage/upload"
form.enctype	:= "multipart/form-data"

;Загрузка тела файла в буфер
fileName := "картинка.jpg"
;Открытие файла на чтение
file := FileOpen(fileName,"r")
if !IsObject(file)
{
    MsgBox Can't open "%FileName%" for reading.
    return
}

;Добавление тела файла в запрос
form.addFileField("file", "картинка.jpg", file.Read())
file.Close()

;Подготовка запроса к сервису
whr	:= ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.open(form.method, form.action, false)
whr.setRequestHeader("Content-Type",form.contentType)
whr.send(form.build())

;Загрузка объекта HTMLDocument
document := ComObjCreate("htmlfile")
;Установка режима совместимости
document.writeln("<meta http-equiv=""x-ua-compatible"" content=""IE=Edge""/>")
;Получение объекта JSON для разбора JSON данных
JSON := document.parentWindow.JSON

try {
    url := JSON.parse(whr.responseText).url
	ComObjCreate("WScript.Shell").Run(url)
} catch e {
	MsgBox JSON parsing failed !
}