[Автоматизация] InetGet. Сохранить файл без прямой ссылки.

Func ClickOpenInIEBar()

$hIE = WinGetHandle("[Class:IEFrame]")
$hCtrl = ControlGetHandle($hIE,"","[Class:DirectUIHWND]")
$aPos = ControlGetPos($hIE,"",$hCtrl)
$x = $aPos[2]-160
$y = $aPos[3]-30

WinActivate($hIE) ;doesn't work in the background
ControlClick($hIE,"",$hCtrl,"primary",1,$x,$y)
ControlSend($hIE,"",$hCtrl,"{Down}") 
ControlSend($hIE,"",$hCtrl,"{Down}") 
ControlSend($hIE,"",$hCtrl,"{Enter}")

WinWaitActive("[Class:#32770]")
$title = WinGetTitle("Сохранить как")
WinActivate($title)
WinWaitActive($title)
$filename = ControlGetText($title, "", "Edit1")
$fullpath = "D:\"
ControlSetText($title, "", "Edit1", $fullpath & $filename)
ControlSend($title,"","","{Space}")
ControlSend($title,"","","{Enter}")

EndFunc

#include <IE.au3>
$oIE = _IECreate("тут адрес сервера",1) ;открываем сайт

;Сохраняем отчет
_IEImgClick ($oIE, "pdf.gif", "src") ; жмем по кнопке PDF
Sleep(5000) ;ждем генерации и появления сообщения
ClickOpenInIEBar() ;вызываем функцию