Можно попроще:
url := "https://tennisabstract.com/reports/wtaRankings.html"
inputbox, position,,,, 100, 100,,,,, 1
html := WebRequest(url,,,, error)
if error
throw error
document := DocumentFromHtml(html)
links := document.querySelectorAll("table#reportable tr td[align=""left""] > a")
Loop % links.Length {
link := links[A_Index - 1]
if (A_Index = position)
Run % link.href
}
WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
Whr.Open(method, url, true)
for name, value in HeadersArray
Whr.SetRequestHeader(name, value)
Whr.Send(body)
Whr.WaitForResponse()
status := Whr.status
if (status != 200)
error := "HttpRequest error, status: " . status
Arr := Whr.responseBody
pData := NumGet(ComObjValue(Arr) + 8 + A_PtrSize)
length := Arr.MaxIndex() + 1
Return StrGet(pData, length, "UTF-8")
}
DocumentFromHtml(html, mode := 9) {
document := ComObjCreate("HTMLFILE")
document.write("<meta http-equiv=""X-UA-Compatible"" content=""IE=" . mode . """>")
document.write(html)
Return document
}
Разработка AHK-скриптов:
e-mail
dfiveg@mail.ruTelegram
jollycoder