link := "http://www.nastol.com.ua/beautiful/177237-gotika-kostel-sobor.html"
http := ComObjCreate("WinHttp.WinHttpRequest.5.1")
http.Open("POST", link)
http.Send()
html := http.ResponseText
http := ""
document := ComObjCreate("HTMLfile")
document.Open()
document.Close()
document.body.innerHTML := html
links := document.links
Loop % links.length
	hrefs .= (A_Index = 1 ? "" : "`n") . links[A_Index-1].href
document := ""
MsgBox, % hrefs

wb := ComObjCreate("InternetExplorer.Application")
wb.Visible := False		
wb.navigate("сайт")
While wb.readyState!=4 || wb.document.readyState!="complete" || wb.busy
Sleep 50
Loop % wb.document.links.length
{
item := wb.document.links.item[A_Index]
link := item.href
wb.document.links.item[A_Index].Click()
FileAppend, %link% `n, %path%links.txt
}

pwb := ComObjCreate( "InternetExplorer.Application" )
pwb.Visible := false
pwb.Navigate("сайт")
while, pwb.busy
	sleep, 10
MsgBox, % pwb.document.getElementsByClassName("file_name")[a_index].href