#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 800, 500, 192, 124)
$List1 = GUICtrlCreateList("", 10, 20, 780, 480)
$Button1 = GUICtrlCreateButton("ГО", 10, 2, 33, 17, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sUrl = "http://"
$oIE = _IECreate($sUrl, 1, 0, 1, 0)
$oAs = _IETagNameGetCollection($oIE, "a")
For $oA In $oAs
; If _IEPropertyGet($oA, "innerText") == "увеличить фото" Then
GUICtrlSetData ( $List1, _IEPropertyGet($oA, "innerText"))
; EndIf
Next
EndSwitch
WEnd