[Sp01LeR]

Она бы подошла если б сразу написать пример исходного URL. Вот, подкорректированный рабочий вариант(ищет и помещает в массив результатов только первую ссылку):

Код:

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

Dim $prot = "http://"
Dim $domen = "192.168.12.158"
Dim $delim = "/"
Dim $s_get = "infa1"
Dim $s_page = "index.html"
;Dim $browser = "iexplore.exe"

$get_data = _INetGetSource($domen&$delim&$s_get)


If @Error = 1 Then
	MsgBox(16, "Error", "Не могу загрузить страницу!")
	Exit
Else
	MsgBox(4096, "Ok!", "Загружено: "&StringLen($get_data)&" байт")
EndIf

$qts = "['""]"
$prs_data = "<a.*href="&$qts&"(\?response=0&info=[0-9]+)"&$qts& _
".*>(.[^><]*)</a><br/><br/>"
$prs_arr = StringRegExp($get_data, $prs_data, 1)

If UBound($prs_arr) > 0 Then
	_ArrayDisplay( $prs_arr, "Результаты поиска:" )
	_IECreate ($prot&$domen&$delim&$s_get&$prs_arr[0])
Else
	MsgBox(16, "RegExp Error", "Ошибка поиска по шаблону. Код ошибки="&@error)
EndIf

В строке:

Код:

Dim $s_page = "index.html"

"index.html" нужно заменить на страницу с сылками.