[Файловая система] как скачать файлик из интернета по ссылки.

[ivsatel]

Вот доработанный вариант:

Спойлер

#RequireAdmin
#include <IE.au3>
#include <Array.au3>

Dim $aTopLinck[1], $aGetClearTopLinck[1]

$oIE = _IECreate("http://b-kpo.ru", 0, 0)
$oForm = _IEFormGetCollection($oIE, 0)
$oField_User = _IEGetObjByName ($oForm, 'login_username')
$oField_Pass = _IEGetObjByName ($oForm, 'login_password')
$oBut_Submit = _IEGetObjByName ($oForm, 'login')
$enter_user = _IEFormElementSetValue($oField_User, 'TorRent')
$enter_pass = _IEFormElementSetValue($oField_Pass, '12345678')
$click_subm = _IEAction($oBut_Submit, "click")

_IELoadWait ($oIE)

$sCookie = $oIE.document.cookie()	 ;Получение куков. Пример от inververs http://autoit-script.ru/index.php/topic,11745.msg76741.html#msg76741

$aGetClearTopLinck = StringRegExp(BinaryToString(InetRead('http://b-kpo.ru', 1), 4), '(?i)loadme[\_](.*?)" title', 3)

If IsArray($aGetClearTopLinck) Then
	_ArraySort($aGetClearTopLinck)
Else
	MsgBox(16 + 262144, 'Ошибка!', 'Не удалось получить ссылки из "шапки"!', 3)
	_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
	_IELoadWait ($oIE)
	_IEQuit ($oIE)
	Exit
EndIf

For $i = 0 To UBound($aGetClearTopLinck) - 1
	_ArrayAdd($aTopLinck, 'http://b-kpo.ru/viewtopic.php?t='&$aGetClearTopLinck[$i])
Next

If IsArray($aTopLinck) Then
	_ArraySort($aTopLinck)
Else
	MsgBox(16 + 262144, 'Ошибка!', 'Не удалось создать массив ссылок!', 3)
	_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
	_IELoadWait ($oIE)
	_IEQuit ($oIE)
	Exit
EndIf

For $i = 1 To UBound($aTopLinck) - 1
	_IENavigate ($oIE, $aTopLinck[$i])
	_IELoadWait ($oIE)
	$sHTML = _IEBodyReadHTML ($oIE)
	$aFindLinck = StringRegExp($sHTML, '(?i)[\<]TD class[\=]"tCenter pad.*?A class[\=]genmed href[\=]"(.*?)"[\>]', 3)
If IsArray($aFindLinck) Then
	$FindLinck = 'http://b-kpo.ru/'&$aFindLinck[0]
	$sGetDustName = BinaryToString(InetRead($FindLinck, 1), 4)
	$aGetClearName = StringRegExp($sGetDustName, '(?i)name\d+[\:](.*?)\d+[\:]piece', 3)
	InetGet('http://b-kpo.ru/'&$aFindLinck[0] & "?" & $sCookie, $aGetClearName[0]&'.torrent', 1)	;Использование куков. Пример от inververs http://autoit-script.ru/index.php/topic,11745.msg76741.html#msg76741
Else
	MsgBox(16 + 262144, 'Ошибка!', 'Не удалось получить ссылоку из топика!', 3)
	_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
	_IELoadWait ($oIE)
	_IEQuit ($oIE)
	Exit
EndIf
Next

_IENavigate($oIE, 'http://b-kpo.ru/login.php?logout=1')
_IEQuit ($oIE)