Серый форум — AHK: Поиск фразы на странице в браузере

Re: AHK: Поиск фразы на странице в браузере

2017-01-31T17:11:15Z

Malcev пишет:

А если пользователь поменяет ник или перейдет в другую группу, то заново функцию писать?
Ваш вариант ненадежный.
Если хочется получать статус с помощью htmlfile:
link := "http://cheat-master.ru/index/8-422195"
req := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
req.Open("GET", link, false)
req.Send()
text := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.Close()
document.body.innerHTML := text
msgbox % document.getElementById("block6").innerText

А как по данному коду связать это с GUI? Пример в шапке темы. Допустим хочется расположить ник пользователей в онлайне по группе (по столбцам). Как это осуществить? И да, если пользователь оффлайн, то его ник отображаться не должен. Как вы поняли я забью так не одну ссылку на профиль, а порядка 50. Эти 50 ссылок программа будет проверять на онлайн.

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T17:46:38Z

В смысле, что у другого пользователя, код неправильно находит строку.

Вы неправильно скопировали код.
У меня:

msgbox % document.getElementById("block6").innerText

У вас:

msgbox % document.getElementById("block10").innerText

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T17:43:36Z

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

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T17:22:57Z

В смысле?

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T16:57:25Z

Malcev, а это что?

link := "http://cheat-master.ru/index/8-0-PasqualeQQ"
req := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
req.Open("GET", link, false)
req.Send()
text := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.Close()
document.body.innerHTML := text
msgbox % document.getElementById("block10").innerText

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T16:37:05Z

Покажет ту же строку, с новым ником, или группой.

global oHttpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oHtmlDoc := documentFromURL("http://cheat-master.ru/index/8-422195")


var := oHtmlDoc.body.outerText
MsgBox % SubStr(var, 134, 15)
StringReplace, var, var, [CM]Fanat1k, [CM]Fanat1k123456
MsgBox % SubStr(var, 134, 15)



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("")
    oDoc.close()
    oDoc.body.innerHTML := sHTMLCode
    return oDoc
}

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T16:10:50Z

Зачем заново? Покажет ту же строку, с новым ником или группой. Malcev, а если "HTML" страница поменяется или еще чего, всякое бывает. Сложно сказать, какой вариант действительно надежно работает.

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T15:42:49Z

А если пользователь поменяет ник или перейдет в другую группу, то заново функцию писать?
Ваш вариант ненадежный.
Если хочется получать статус с помощью htmlfile:

link := "http://cheat-master.ru/index/8-422195"
req := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
req.Open("GET", link, false)
req.Send()
text := req.responseText

document := ComObjCreate("HTMLfile")
document.Open()
document.Close()
document.body.innerHTML := text
msgbox % document.getElementById("block6").innerText

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T15:19:54Z

Malcev, так, это тоже вариант. Можно для каждого пользователя, написать свою функцию.

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T14:57:28Z

Там где вы нашли этот код, эти переменные использовались.
На счет SubStr - вы полагаете, что нужная информация будет находиться у всех пользователей на 134 символе?

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T14:29:36Z

Malcev, я нашел этот код и просто дописал: "SubStr" - это функция, вроде просто показывает нужную строку. А с другими пользователями, а чего не будет работать? Это просто мой вариант, у меня работает.

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T11:21:58Z

svoboden, а зачем вы объявляете переменные, которые потом нигде не используете?

global WinHttpRequestOption_EnableRedirects := 6
global WinHttpRequestOption_MaxAutomaticRedirects := 14
global WinHttpRequestOption_EnableHttpsToHttpRedirects := 12

И зачем используете SubStr, если загружаете все в htmlfile?
Вы пробовали свой метод с другими пользователями?

Re: AHK: Поиск фразы на странице в браузере

2017-01-29T01:57:41Z

Вот еще вариант:


global oHttpRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")

oHtmlDoc := documentFromURL("http://cheat-master.ru/index/8-422195")

MsgBox % SubStr(oHtmlDoc.body.outerText, 134, 15)

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("")
    oDoc.close()
    oDoc.body.innerHTML := sHTMLCode
    return oDoc
}

Re: AHK: Поиск фразы на странице в браузере

2017-01-28T01:53:49Z

link := "http://cheat-master.ru/index/8-422195"
req := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
req.Open("GET", link, false)
req.Send()
text := req.responseText
If RegexMatch(text, "s)" link "'\)"">(.+?).+?>Группа:

\s*(.+?)\s*<.+Online", match)
   msgbox % match1 "`n" match2

Re: AHK: Поиск фразы на странице в браузере

2017-01-27T19:02:29Z

Тут может.