Я только через костыль нашел способ:
DetectHiddenWindows, On
SetTitleMatchMode, 2
link := "http://m.vk.com/......profile"
ComObjError(false)
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
oIE.navigate(link)
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
Sleep, 10
FileDelete, WinWait.ahk
FileAppend,
(
#NoTrayIcon
WinWait, Choose File to Upload
ControlSetText, Edit1, "1.jpg", Choose File to Upload
ControlClick, Button1, Choose File to Upload,,,, NA
WinWaitClose, Choose File to Upload
ExitApp
), WinWait.ahk
Run, WinWait.ahk
WinWait, WinWait.ahk
oIE.document.querySelector("INPUT[Name=""file1""]").click()
WinWaitClose, WinWait.ahk
FileDelete, WinWait.ahk
msgbox