Доброго времени суток! Вы не могли бы подсказать на примере вашего кода, который замечательно работает, как реализовать несколько иную задачу...
Сделал через IfInString и Array.Push (мне к тому же еще нужен именно последний элемент из списка идентичных ссылок.) Если кому интересно:
Larray := []
Needle = hyper-universe-
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("https://www.mmorpg.com/sweepstakes")
While oIE.busy
Sleep, 20
links := oIE.document.links
; MsgBox % links.length
Loop % links.length {
link := links[A_Index - 1]
b := link.href
IfInString, b, %Needle%
{
; MsgBox, % link.href
Larray.Push(link.href)
}
}
z := Larray.MaxIndex()
MsgBox % "Последний элемент " Larray[z]
; for index, element in Larray ; здесь можно посмотреть, что в массиве
; {
; MsgBox % "Element number " . index . " is " . element
; }
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("https://www.mmorpg.com/sweepstakes")
While oIE.busy
Sleep, 20
links := oIE.document.links
Loop % links.length {
link := links[A_Index - 1]
if (CheckString(link.innerText, "Hyper Universe"))
MsgBox, % link.href
}
ExitApp
CheckString(mainStr, srchStr) {
if mainStr contains %srchStr%
return true
return false
}
Если нужны ссылки только из заголовков к каждой игре, то можно сделать выборку по классу и потом проходить циклом по её результату:
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("https://www.mmorpg.com/sweepstakes")
While oIE.busy
Sleep, 20
links := oIE.document.querySelectorAll(".suhlink")
Loop % links.length {
link := links[A_Index - 1]
if (CheckString(link.innerText, "Hyper Universe"))
MsgBox, % link.href
}
ExitApp
CheckString(mainStr, srchStr) {
if mainStr contains %srchStr%
return true
return false
}
Если необходимо искать вхождения "hyper-universe" в тексте ссылки, замените условие:
if (CheckString(link.innerText, "Hyper Universe"))
На:
if (CheckString(link.href, "hyper-universe"))
У меня работает:
oIE := ComObjCreate("InternetExplorer.Application") oIE.visible := True oIE.navigate("https://www.mmorpg.com/sweepstakes") While oIE.busy Sleep, 20 links := oIE.document.links Loop % links.length { link := links[A_Index - 1] if (link.innerText = "Hyper Universe") MsgBox, % link.href }
MsgBox, % href ? href : "Не найдено"На:
if (href)
activlink := href
else
MsgBox, Не найдено.
Тогда так примерно:
linkText := "Dsaasd" oIE := WBGet() if !IsObject(oIE) { MsgBox, Не удалось получить объект InternetExplorer return } links := oIE.document.links, href := "" Loop % links.length { link := links[A_Index - 1] if (link.innerText = linkText && href := link.href) break } MsgBox, % href ? href : "Не найдено" WBGet(WinTitle := "ahk_class IEFrame", Svr# := 1) { static msg := DllCall("RegisterWindowMessage", Str, "WM_HTML_GETOBJECT") , IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}" , IID_IHTMLDocument2 := "{332C4425-26CB-11D0-B483-00C04FD90119}" , VT_DISPATCH := 9, F_OWNVALUE := 1 SendMessage, msg, 0, 0, Internet Explorer_Server%Svr#%, %WinTitle% lResult := ErrorLevel if (lResult = "FAIL") return VarSetCapacity(GUID, 16, 0) DllCall("ole32\CLSIDFromString", WStr, IID_IHTMLDocument2, Ptr, &GUID) DllCall("oleacc\ObjectFromLresult", Ptr, lResult, Ptr, &GUID, Ptr, 0, PtrP, pdoc) oWb := ComObject(VT_DISPATCH, ComObjQuery(pdoc, IID_IWebBrowserApp, IID_IWebBrowserApp), F_OWNVALUE) ObjRelease(pdoc) return oWb }
Здравствуйте. Воспользовался Вашим кодом. для моих целей работает превосходно. Но не могу понять как сделать так что бы в конце не выпрыгивало окно с ссылкой. не могли бы Вы помочь разобраться? Хотелось бы что бы ссылка просто записывалась в переменную допустим activlink. Но что бы не было этого окна по завершению скрипта. Но что бы осталось окно о том что ссылка не найдена.
]]>document.getElementsByClassName("contestopen")[0].getElementsByTagName("a")[0].hrefТакже можно через QuerySelectorAll либо XPath, почитайте информацию сами если заинтересует.
]]>document.getElementsByClassName("contestopen")[0].cells[1].linksвыводит undefined
]]>oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("https://www.mmorpg.com/sweepstakes")
While oIE.busy
Sleep, 20
links := oIE.document.links
Loop % links.length {
link := links[A_Index - 1]
if (link.innerText = "Hyper Universe")
MsgBox, % link.href
}oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True
oIE.navigate("https://www.mmorpg.com/sweepstakes")
While oIE.busy
Sleep, 20
links := oIE.document.parentWindow.frames[6].document.links
Loop % links.length {
link := links[A_Index - 1]
MsgBox, % "Link text: " . link.innerText . "`nLink href: " . link.href
}