loop , % colDivTags.length-1
{
i++
oDivTag := colDivTags[i ]
if (oDivTag.classname = "services")на:
loop , % colDivTags.length
{
oDivTag := colDivTags[A_Index-1]
if (oDivTag.classname = "services")
global WinHttpRequestOption_EnableRedirects := 6
global WinHttpRequestOption_MaxAutomaticRedirects := 14
global WinHttpRequestOption_EnableHttpsToHttpRedirects := 12
global oHttpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oHttpRequest.Option(WinHttpRequestOption_EnableRedirects) := -1
oHttpRequest.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) := -1
oHttpRequest.Option(WinHttpRequestOption_MaxAutomaticRedirects) := 20
oHtmlDoc := documentFromURL("http://www.yandex.ru/")
colDivTags := oHtmlDoc.all.tags("div")
loop , % colDivTags.length-1
{
i++
oDivTag := colDivTags[i ]
if (oDivTag.classname = "services")
{
CustomColor = FFFFFF
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow
Gui, Color, FFFFFF
Gui, Font, s16
Gui, Add, Text, vMyText cLime, % oDivTag.innerText
WinSet, TransColor, %CustomColor% 150
Gui, Show, x1500 y400 NoActivate
return
}
}
documentFromURL(ByRef sURL) {
oHttpRequest.open("GET", sURL, false)
oHttpRequest.send()
return documentFromHTML(oHttpRequest.responseText, sURL)
}
documentFromHTML(ByRef sHTMLCode, ByRef sBaseURL) {
oDoc := ComObjCreate("htmlfile")
oDoc.open()
oDoc.write("<base href=""" . sBaseURL . """>")
oDoc.close()
oDoc.body.innerHTML := sHTMLCode
return oDoc
}
return
Я пробовал вводить для кода таймер (поместив в метку таймера весь код), однако в этом случае выдается ошибка "0x8002006 - неизвестное имя" по строке "oDivTag := colDivTags[i ]"
]]>