; Выполнение запросов к API ВКонтакте: https://vk.com/dev/api_requests
; Загрузка файлов:                     https://vk.com/dev/upload_files

accessToken := "cfcc912ff7d7d2d83e4bb99f89b81ecd1b5061d5c48cde42a7eca6" ; указать свой access_token
albumId     := 102453589                                                ; album_id
filePath    := "D:\Downloads\Иконки\test.png"

JS := CreateScriptObj()
url := GetUrl(accessToken, albumId, JS)
SendFile(filePath, url, JS, server, photos_list, aid, hash)
MsgBox, % SaveFile(accessToken, server, photos_list, aid, hash)

GetUrl(accessToken, albumId, JS) {
   queryUrl := "https://api.vk.com/method/photos.getUploadServer?album_id=" . albumId . "&access_token=" . accessToken . "&v=5.95."
   whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   whr.Open("GET", queryUrl, false)
   whr.Send()
   if (whr.Status != 200)
      throw Exception(whr.responseText)
   Return JS.("JSON.parse('" . whr.ResponseText . "').response.upload_url")
}

SendFile(filePath, url, JS, ByRef server, ByRef photos_list, ByRef aid, ByRef hash) {
   CreateFormData(postData, hdr_ContentType, {file: [filePath]})
   
   whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   whr.Open("POST", url, false)
   whr.SetRequestHeader("Content-Type", hdr_ContentType)
   whr.Send(postData)
   if (whr.Status != 200)
      throw Exception(whr.responseText)
   else {
      responseText := whr.responseText
      for k, v in ["server", "photos_list", "aid", "hash"]
         %v% := StrReplace(JS.("JSON.parse('" . StrReplace(responseText, "\""", "|") . "')." . v), "|", """")
   }
}

SaveFile(accessToken, server, photos_list, aid, hash) {
   queryUrl := "https://api.vk.com/method/photos.save?server="       . server
                                                  . "&photos_list="  . URIEncode(photos_list)
                                                  . "&aid="          . aid
                                                  . "&hash="         . hash
                                                  . "&album_id="     . aid
                                                  . "&access_token=" . accessToken . "&v=5.95."
   whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   whr.Open("GET", queryUrl, false)
   whr.Send()
   Return % whr.responseText
}

CreateScriptObj() {
   static doc
   doc := ComObjCreate("htmlfile")
   doc.write("<meta http-equiv='X-UA-Compatible' content='IE=9'>")
   Return ObjBindMethod(doc.parentWindow, "eval")
}

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
}

CreateFormData(ByRef retData, ByRef retHeader, objParam) {
   new CreateFormData(retData, retHeader, objParam)
}

class CreateFormData
{
   __New(ByRef retData, ByRef retHeader, objParam) {
      CRLF := "`r`n", i, k, v, str, pvData
      ; Create a random Boundary
      Boundary := this.RandomBoundary()
      BoundaryLine := "------------------------------" . Boundary

      this.Len := 0 ; GMEM_ZEROINIT|GMEM_FIXED = 0x40
      this.Ptr := DllCall("GlobalAlloc", UInt, 0x40, UInt, 1, Ptr)

      ; Loop input paramters
      for k, v in objParam
      {
         if IsObject(v) {
            for i, FileName in v
            {
               str := BoundaryLine . CRLF
                    . "Content-Disposition: form-data; name=""" . k . """; filename=""" . FileName . """" . CRLF
                    . "Content-Type: " . this.MimeType(FileName) . CRLF . CRLF
               this.StrPutUTF8( str )
               this.LoadFromFile( Filename )
               this.StrPutUTF8( CRLF )
            }
         }
         else {
            str := BoundaryLine . CRLF
                 . "Content-Disposition: form-data; name=""" . k """" . CRLF . CRLF
                 . v . CRLF
            this.StrPutUTF8( str )
         }
      }
      this.StrPutUTF8( BoundaryLine . "--" . CRLF )

      ; Create a bytearray and copy data in to it.
      retData := ComObjArray(0x11, this.Len)       ; Create SAFEARRAY = VT_ARRAY|VT_UI1
      pvData  := NumGet( ComObjValue( retData ) + 8 + A_PtrSize )
      DllCall("RtlMoveMemory", Ptr, pvData, Ptr, this.Ptr, Ptr, this.Len)

      this.Ptr := DllCall("GlobalFree", Ptr, this.Ptr, Ptr)
      retHeader := "multipart/form-data; boundary=----------------------------" . Boundary
   }

   StrPutUTF8( str ) {
      ReqSz := StrPut( str, "utf-8" ) - 1
      this.Len += ReqSz                                  ; GMEM_ZEROINIT|GMEM_MOVEABLE = 0x42
      this.Ptr := DllCall("GlobalReAlloc", Ptr, this.Ptr, UInt, this.len + 1, UInt, 0x42)   
      StrPut(str, this.Ptr + this.len - ReqSz, ReqSz, "utf-8")
   }
  
   LoadFromFile( Filename ) {
      objFile := FileOpen( FileName, "r" )
      this.Len += objFile.Length                     ; GMEM_ZEROINIT|GMEM_MOVEABLE = 0x42 
      this.Ptr := DllCall("GlobalReAlloc", Ptr, this.Ptr, UInt, this.len, UInt, 0x42)
      objFile.RawRead( this.Ptr + this.Len - objFile.length, objFile.length )
      objFile.Close()
   }

   RandomBoundary() {
      str := "0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z"
      Sort, str, D| Random
      str := StrReplace(str, "|")
      Return SubStr(str, 1, 12)
   }

   MimeType(FileName) {
      n := FileOpen(FileName, "r").ReadUInt()
      Return (n        = 0x474E5089) ? "image/png"
           : (n        = 0x38464947) ? "image/gif"
           : (n&0xFFFF = 0x4D42    ) ? "image/bmp"
           : (n&0xFFFF = 0xD8FF    ) ? "image/jpeg"
           : (n&0xFFFF = 0x4949    ) ? "image/tiff"
           : (n&0xFFFF = 0x4D4D    ) ? "image/tiff"
           : "application/octet-stream"
   }
}

https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username=" Login "&password=" password "