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

#include <IE.au3>

$oIE = _IECreate('http://fs.rts.ru/files/2892',0,1)
	_IELoadWait ($oIE)
    $oLinks = _IELinkGetCollection($oIE)
    For $oLink in $oLinks
		ConsoleWrite(_IEPropertyGet($oLink, "innerText") & @CRLF)
		if StringInStr(_IEPropertyGet($oLink, "innerText"), "Правила совершения") > 0 Then
			_IEAction($oLink, "click")
			while not WinExists("Загрузка файлов")
				Sleep(1000)
			WEnd
		endif
	Next

InetGet('http://fs.rts.ru/files/2892/8901','file.doc')

#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <Array.au3>

$clean = FileOpen('link.txt', 2)
FileClose($clean)
$oIE = _IECreate('http://fs.rts.ru/files/2892', 0, 0)
Dim $aRecords

$oLinks = _IETagNameGetCollection($oIE, 'a')
For $oLink In $oLinks
	;MsgBox(0, '', $oLink.InnerText & @CRLF &  $oLink.href)
	FileWrite('link.txt', $oLink.InnerText & @CRLF)
	FileWrite('link.txt', $oLink.href & @CRLF)
Next
_IEQuit($oIE)

_FileReadToArray("link.txt", $aRecords)
$Lines = _ArrayToString($aRecords, '|', 1)
$Form1 = GUICreate("Бла Бла", 850, 90, 483, 253)
$Combo1 = GUICtrlCreateCombo("", 8, 26, 750, 25)
GUICtrlSetData($Combo1, $Lines)
$Button1 = GUICtrlCreateButton("скачать", 760, 55, 60, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$save_file = FileSaveDialog('', '', '(*.doc)')
			$hDownload = InetGet(GUICtrlRead($Combo1), $save_file & '.doc', 1, 1)
			Do
				Sleep(250)
			Until InetGetInfo($hDownload, 2)
			Local $aData = InetGetInfo($hDownload)
			InetClose($hDownload)
			MsgBox(0, "", "Количество прочитанных байт: " & $aData[0] & @CRLF & "Размер: " & $aData[1])
	EndSwitch
WEnd

#include <IE.au3>

$oIE = _IECreate('http://fs.rts.ru/files/2892',0,1)
    _IELoadWait ($oIE)
    $oLinks = _IELinkGetCollection($oIE)
    For $oLink in $oLinks
        ConsoleWrite(_IEPropertyGet($oLink, "innerText") & @CRLF)
        if StringInStr(_IEPropertyGet($oLink, "innerText"), "Правила совершения") > 0 Then
			Send('{LCTRL DOWN}')
            _IEAction($oLink, "click")
			Send('{LCTRL UP}')
            while not WinExists("Загрузка файлов")
                Sleep(1000)
            WEnd
        endif
    Next

Send('{LCTRL UP}')

Send('{LCTRL DOWN}')

Send('{LCTRL DOWN}')
		    Sleep(1000)
            Send('{LCTRL UP}')
		    Sleep(1000)
            Send('{LCTRL UP}')
		    Sleep(1000)
            Send('{LCTRL UP}')