[Сеть, интернет] Нет активности _IE

#include<IE.au3>

Local $sUrl = 'http://www.fipi.ru/os11/xmodules/qprint/openlogin.php'
Local $aPages = 0
Local $sDir = @ScriptDir &'\FIPI\afipi\'
Local $sSection10_0 = 'Русский язык'
Local $sSection10_1 = 'Лексика и фразеология '

$oIE = _IECreate($sUrl)
$oOglavlenie = _IEFrameGetObjByName($oIE, 'Oglavlenie')
_IELoadWait($oOglavlenie)
$oLinks = _IELinkClickByText($oOglavlenie, $sSection10_0)
_IELoadWait($oOglavlenie, 1500)
$oLinks = _IELinkClickByText($oOglavlenie, $sSection10_1)
$oContainer = _IEFrameGetObjByName($oIE, 'container')
_IELoadWait($oContainer)
$sHTML = _IEDocReadHTML($oContainer)
$oElements = _IETagNameGetCollection($oContainer, 'span')

_GetPage($oElements, $aPages)

For $i = 0 To UBound($aPages) - 1
	
	If $aPages[$i] = $i Then
		_SavePage($sDir & $sSection10_0, $sSection10_1, $sHTML, $i)
	Else
		_IENavigate($oIE, $aPages[$i])
		_IELoadWait($oIE)
		$sHTML = _IEDocReadHTML($oIE)
		_SavePage($sDir & $sSection10_0, $sSection10_1, $sHTML, $i)
	EndIf
Next

Func _GetPage(ByRef $o_Obj, ByRef $a_Arr)

	Local $a_Pages[1000]
	Local $i_Count = 0
	
	For $o_Element In $o_Obj
		If $o_Element.classname == 'WalkSelected' Then
			$a_Pages[$i_Count] = $i_Count
			$i_Count += 1
		ElseIf $o_Element.classname == 'Walk' Then 
			$a_Pages[$i_Count] = $o_Element.firstChild.href
			$i_Count += 1
		EndIf
	Next
	
	ReDim $a_Pages[$i_Count/2]
	
	$a_Arr = $a_Pages
EndFunc ;==>_GetPage

Func _SavePage($s_Path, $s_FileName, $s_Data, $i_Page)
	
	If Not FileExists($s_Path) Then DirCreate($s_Path)
	FileWrite($s_Path &'\'& $s_FileName &'_'& $i_Page &'.html', $s_Data)
EndFunc ;==>_SavePage