[Автоматизация] IE определение масива ссылок и нажатие на кнопку в каждой

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

Global _
		$sLink = "http://base", _ ; ссылка
		$sID = "PrintFile" ; ID кнопки "печать"

$sText = FileRead("1.txt") ;исходный код страницы

$aLink = StringRegExp($sText, "\/server\/documentview\/default\.aspx\?num=\d{3,}", 3) ;получаем список ссылок
_ArrayDisplay($aLink) ; список ссылок

$oIE = _IECreate("")  ; объект браузера

For $i = 0 To UBound($aLink) - 1  ; в цикле
	_IENavigate($oIE, $sLink & $aLink[$i])  ; переходим по ссылке
	$oQuery = _IEGetObjById($oIE, $sID)  ; получаем объект по ID
	_IEAction($oQuery, "click") ; кликаем на него
	Sleep(100)
Next

#include <IE.au3>

$oIE = _IECreate("autoit-script.ru")

$sHtml = _IEBodyReadHTML($oIE)

FileWrite("1.txt", $sHtml)

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

$sText = FileRead("1.txt") ;исходный код страницы

$aLink = StringRegExp($sText, "\/server\/documentview\/default\.aspx\?num=\d{3,}", 3) ;получаем список ссылок
$aLabel = StringRegExp($sText, '\s{2,}\d{1,}\.{1,}\d{1,}', 3)

_ArrayDisplay($aLink) ; список ссылок
_ArrayDisplay($aLabel) ; список значений полей

GUICtrlCreateListViewItem

#include <GUIConstantsEx.au3>

$sText = FileRead("1.txt") ;исходный код страницы

$aLink = StringRegExp($sText, "\/server\/documentview\/default\.aspx\?num=\d{3,}", 3) ;получаем список ссылок
$aLabel = StringRegExp($sText, '\s{2,}\d{1,}\.{1,}\d{1,}', 3)

;_ArrayDisplay($aLink) ; список ссылок
;_ArrayDisplay($aLabel) ; список значений полей

Dim $aCombo[UBound($aLink)] ; массив чекбоксов, аналогичен по размеру с количеством ссылок

GUICreate("", 500, 400)

For $i = 0 To UBound($aLink) - 1
	$aCombo[$i] = GUICtrlCreateCheckbox($aLink[$i], 10, 20*$i) ; создаем чекбоксы со смещением в 20 пикселей вниз
Next

$hWorkOut = GUICtrlCreateButton("Показать выделенные", 340, 350, 140, 30) ; кнопка

GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $hWorkOut 
			Local $iNum = 0

			For $i = 0 To UBound($aCombo) - 1 
				If GUICtrlRead($aCombo[$i]) == $GUI_CHECKED Then  ; в цикле проверяем массив контролов не выделен ли один из них
					$iNum += 1 ; если да, то инкрементируем переменную
				EndIf
			Next

			MsgBox(0, "", "Всего выделено: " & $iNum) 
	EndSwitch
WEnd

$oIE = _IECreate("")  ; объект браузера

For $i = 0 To UBound($aLink) - 1  ; в цикле
    _IENavigate($oIE, $sLink & $aLink[$i])  ; переходим по ссылке
    $oQuery = _IEGetObjById($oIE, $sID)  ; получаем объект по ID
    _IEAction($oQuery, "click") ; кликаем на него
    Sleep(100)
Next

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <IE.au3>

Local $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_CHECKBOXES)

Global _
		$sLink = "http://base"

$sText = FileRead("1.txt") ;исходный код страницы

$aLink = StringRegExp($sText, "\/server\/documentview\/default\.aspx\?num=\d{3,}", 3) ;получаем список ссылок
$aLabel = StringRegExp($sText, '\s{2,}\d{1,}\.{1,}\d{1,}', 3)

;_ArrayDisplay($aLink) ; список ссылок
;_ArrayDisplay($aLabel) ; список значений полей

Dim $aInf[UBound($aLink)][3] ; новый массив для ф-ции   _GUICtrlListView_AddArray

For $i = 0 To UBound($aLink) - 1
	$aInf[$i][0] = $aLink[$i] ; копируем данные о ссылках в новый массив
Next

GUICreate("", 500, 400)

$hListView = GUICtrlCreateListView("", 2, 2, 394, 268)
_GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles) ; стиль ListView с чекбоксами

_GUICtrlListView_AddColumn($hListView, "Ссылки", 300) ; колонка "Ссылки"
_GUICtrlListView_AddArray($hListView, $aInf) ; всталяем массив данных

$hWorkOut = GUICtrlCreateButton("Показать выделенные", 340, 350, 140, 30)

GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $hWorkOut
			$iCount = _GUICtrlListView_GetItemCount($hListView) ; общее количество элементов
			$oIE = _IECreate("") ; открываем браузер

			For $i = 0 To $iCount ; в цикле
				If _GUICtrlListView_GetItemChecked($hListView, $i) Then ; проверяем не отмечен ли элемент, если да, то
					$aArr = _GUICtrlListView_GetItem($hListView, $i) ; берем информацию об элементе, где [3] ячейка - текст, т.е. ссылка

					_Print($aArr[3]) ; функция для печати
				EndIf
			Next

			_IEQuit($oIE) ; закрываем браузер
	EndSwitch
WEnd

Func _Print($_sLink)
	_IENavigate($oIE, $sLink & $_sLink)  ; переходим по ссылке
	$oQuery = _IEGetObjById($oIE, "PrintFile")  ; получаем объект по ID
	_IEAction($oQuery, "click") ; кликаем на него
	_IELoadWait($oIE) ; ждем загрузки страницы в IE
	Sleep(100)
EndFunc