Серый форум — AHK: Получение ссылок атрибута "href"

Re: AHK: Получение ссылок атрибута "href"

null@example.com (teadrinker) — Sat, 11 Jun 2016 17:03:32 +0000

Как-то так:

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

Re: AHK: Получение ссылок атрибута "href"

null@example.com (teadrinker) — Sat, 11 Jun 2016 14:32:43 +0000

Сегодня до компьютера, может, не доберусь, так что если кто-то другой подскажет, я не против.

Re: AHK: Получение ссылок атрибута "href"

null@example.com (SeaVodikendu) — Sat, 11 Jun 2016 13:12:52 +0000

Пример: http://www.nastol.com.ua/beautiful/1772 … sobor.html

Re: AHK: Получение ссылок атрибута "href"

null@example.com (teadrinker) — Sat, 11 Jun 2016 12:28:10 +0000

Тогда вам нужно привести конкретный пример html-страницы.

Re: AHK: Получение ссылок атрибута "href"

null@example.com (SeaVodikendu) — Sat, 11 Jun 2016 12:26:07 +0000

Возможно я путаю это понятие школьной программы.
Я имел ввиду, выводит все, кроме прямых ссылок на скачивание.
Нужно чтобы скрипт их выводил.

Re: AHK: Получение ссылок атрибута "href"

null@example.com (teadrinker) — Sat, 11 Jun 2016 12:11:55 +0000

Мне кажется, у вас какая-то путаница.

Сейчас почему-то он "вытаскивает" только гиперссылки.

Для начала, что вы называете «гиперссылкой», а что не «гиперссылкой»?

AHK: Получение ссылок атрибута "href"

null@example.com (SeaVodikendu) — Sat, 11 Jun 2016 10:34:38 +0000

Здравствуйте.
Мне нужно с определенного сайта получить все гиперссылки в т.ч. прямые ссылки на скачивание файлов, имеющие атрибут "href".
Раньше работал такой скрипт:


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
}

Сейчас почему-то он "вытаскивает" только гиперссылки.

В консоли любого браузера команда "document.getElementsByClassName("file_name")[].href", выводит запрашиваемый линк, но в скрипте это не работает.


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

Прошу помощи.