Серый форум — AHK: Получить список с сайта в таблице, с авторизацией

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-10T00:14:34Z

То, что мы до этого делали, по сути и есть цикл с подстановкой значений. Хотите, платно возьмусь написать js, так лень возиться.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-09T22:58:15Z

teadrinker пишет:

Напишите javascript, который будет получать все нужные тексты за раз.

Был у ребят на форуме JS, сказали что в AutoHotKey можно создать цикл с подстановкой значений (по сути номер итерации) в скрипт.
И то, что лучше этот вопрос задать в форуме по AutoHotkey.
Помогите пожалуйста разобраться...

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-04T01:34:01Z

Michael пишет:

И еще момент, время выполнения этого скрипта ~ 1 мин. 30 сек., можно как-то подускорить процесс?

Напишите javascript, который будет получать все нужные тексты за раз.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-04T01:31:55Z

Попробуйте догадаться.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-04T01:18:04Z

teadrinker пишет:

js := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_1')[50].innerText; } catch(e) { res = 'текст, который будет выдаваться в случае ошибки'; } return res; })()"

Это вставлять вместо js := "document.getElementsByClassName('oc_1')[50].innerText" ?

И как отсюда убрать сообщение ошибки? Чтобы его просто не было вообще.

UPDATE:

js := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_1')[50].innerText; } catch(e) { res = 'текст, который будет выдаваться в случае ошибки'; } return res; })()"

Это работает, но только если такая строка одна, а у меня:

js1 := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_1')[50].innerText; } catch(e) { res = 'Пусто'; } return res; })()"
js2 := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_2')[50].innerText; } catch(e) { res = 'Пусто'; } return res; })()"
js3 := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_3')[50].innerText; } catch(e) { res = 'Пусто'; } return res; })()"

Подскажите, где тут ошибка?

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-04T01:14:22Z

teadrinker пишет:

Не очень понял, какие существующие.

Смотрите, возьмем конкретный пример, я как раз разобрался еще как заполнять другие столбцы и дополнил скрипт, вот его полный вариант:

if IsAdmin = 0
{

		CommandLine := DllCall("GetCommandLine", "Str")
		If !(A_IsAdmin || RegExMatch(CommandLine, " /restart(?!\S)")) 
		{
   				Try 
   				{
        				If (A_IsCompiled) 
        				{
           						Run *RunAs "%A_ScriptFullPath%" /restart
        				} 
				        Else 
				        {
				            	Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
				        }
    			}
   				ExitApp
		}

}

SetBatchLines, 1ms

Gui, Add, ListView, r50 w700 gMyListView, Ник|Очки|Дата приема|Должно быть очков|Недобор очков

js1 := "document.getElementsByClassName('oc_1')[0].innerText"
js2 := "document.getElementsByClassName('oc_3')[0].innerText"
js3 := "document.getElementsByClassName('oc_5')[0].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[1].innerText"
js2 := "document.getElementsByClassName('oc_3')[1].innerText"
js3 := "document.getElementsByClassName('oc_5')[1].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[2].innerText"
js2 := "document.getElementsByClassName('oc_3')[2].innerText"
js3 := "document.getElementsByClassName('oc_5')[2].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[3].innerText"
js2 := "document.getElementsByClassName('oc_3')[3].innerText"
js3 := "document.getElementsByClassName('oc_5')[3].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[4].innerText"
js2 := "document.getElementsByClassName('oc_3')[4].innerText"
js3 := "document.getElementsByClassName('oc_5')[4].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[5].innerText"
js2 := "document.getElementsByClassName('oc_3')[5].innerText"
js3 := "document.getElementsByClassName('oc_5')[5].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[6].innerText"
js2 := "document.getElementsByClassName('oc_3')[6].innerText"
js3 := "document.getElementsByClassName('oc_5')[6].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[7].innerText"
js2 := "document.getElementsByClassName('oc_3')[7].innerText"
js3 := "document.getElementsByClassName('oc_5')[7].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[8].innerText"
js2 := "document.getElementsByClassName('oc_3')[8].innerText"
js3 := "document.getElementsByClassName('oc_5')[8].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[9].innerText"
js2 := "document.getElementsByClassName('oc_3')[9].innerText"
js3 := "document.getElementsByClassName('oc_5')[9].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[10].innerText"
js2 := "document.getElementsByClassName('oc_3')[10].innerText"
js3 := "document.getElementsByClassName('oc_5')[10].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[11].innerText"
js2 := "document.getElementsByClassName('oc_3')[11].innerText"
js3 := "document.getElementsByClassName('oc_5')[11].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[12].innerText"
js2 := "document.getElementsByClassName('oc_3')[12].innerText"
js3 := "document.getElementsByClassName('oc_5')[12].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[12].innerText"
js2 := "document.getElementsByClassName('oc_3')[12].innerText"
js3 := "document.getElementsByClassName('oc_5')[12].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[12].innerText"
js2 := "document.getElementsByClassName('oc_3')[12].innerText"
js3 := "document.getElementsByClassName('oc_5')[12].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[13].innerText"
js2 := "document.getElementsByClassName('oc_3')[13].innerText"
js3 := "document.getElementsByClassName('oc_5')[13].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[14].innerText"
js2 := "document.getElementsByClassName('oc_3')[14].innerText"
js3 := "document.getElementsByClassName('oc_5')[14].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[15].innerText"
js2 := "document.getElementsByClassName('oc_3')[15].innerText"
js3 := "document.getElementsByClassName('oc_5')[15].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[16].innerText"
js2 := "document.getElementsByClassName('oc_3')[16].innerText"
js3 := "document.getElementsByClassName('oc_5')[16].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[17].innerText"
js2 := "document.getElementsByClassName('oc_3')[17].innerText"
js3 := "document.getElementsByClassName('oc_5')[17].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[18].innerText"
js2 := "document.getElementsByClassName('oc_3')[18].innerText"
js3 := "document.getElementsByClassName('oc_5')[18].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[19].innerText"
js2 := "document.getElementsByClassName('oc_3')[19].innerText"
js3 := "document.getElementsByClassName('oc_5')[19].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[20].innerText"
js2 := "document.getElementsByClassName('oc_3')[20].innerText"
js3 := "document.getElementsByClassName('oc_5')[20].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[21].innerText"
js2 := "document.getElementsByClassName('oc_3')[21].innerText"
js3 := "document.getElementsByClassName('oc_5')[21].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[22].innerText"
js2 := "document.getElementsByClassName('oc_3')[22].innerText"
js3 := "document.getElementsByClassName('oc_5')[22].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[23].innerText"
js2 := "document.getElementsByClassName('oc_3')[23].innerText"
js3 := "document.getElementsByClassName('oc_5')[23].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[24].innerText"
js2 := "document.getElementsByClassName('oc_3')[24].innerText"
js3 := "document.getElementsByClassName('oc_5')[24].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[25].innerText"
js2 := "document.getElementsByClassName('oc_3')[25].innerText"
js3 := "document.getElementsByClassName('oc_5')[25].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[26].innerText"
js2 := "document.getElementsByClassName('oc_3')[26].innerText"
js3 := "document.getElementsByClassName('oc_5')[26].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[27].innerText"
js2 := "document.getElementsByClassName('oc_3')[27].innerText"
js3 := "document.getElementsByClassName('oc_5')[27].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[28].innerText"
js2 := "document.getElementsByClassName('oc_3')[28].innerText"
js3 := "document.getElementsByClassName('oc_5')[28].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[29].innerText"
js2 := "document.getElementsByClassName('oc_3')[29].innerText"
js3 := "document.getElementsByClassName('oc_5')[29].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[30].innerText"
js2 := "document.getElementsByClassName('oc_3')[30].innerText"
js3 := "document.getElementsByClassName('oc_5')[30].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[31].innerText"
js2 := "document.getElementsByClassName('oc_3')[31].innerText"
js3 := "document.getElementsByClassName('oc_5')[31].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[32].innerText"
js2 := "document.getElementsByClassName('oc_3')[32].innerText"
js3 := "document.getElementsByClassName('oc_5')[32].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[33].innerText"
js2 := "document.getElementsByClassName('oc_3')[33].innerText"
js3 := "document.getElementsByClassName('oc_5')[33].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[34].innerText"
js2 := "document.getElementsByClassName('oc_3')[34].innerText"
js3 := "document.getElementsByClassName('oc_5')[34].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[35].innerText"
js2 := "document.getElementsByClassName('oc_3')[35].innerText"
js3 := "document.getElementsByClassName('oc_5')[35].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[36].innerText"
js2 := "document.getElementsByClassName('oc_3')[36].innerText"
js3 := "document.getElementsByClassName('oc_5')[36].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[37].innerText"
js2 := "document.getElementsByClassName('oc_3')[37].innerText"
js3 := "document.getElementsByClassName('oc_5')[37].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[38].innerText"
js2 := "document.getElementsByClassName('oc_3')[38].innerText"
js3 := "document.getElementsByClassName('oc_5')[38].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[39].innerText"
js2 := "document.getElementsByClassName('oc_3')[39].innerText"
js3 := "document.getElementsByClassName('oc_5')[39].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[40].innerText"
js2 := "document.getElementsByClassName('oc_3')[40].innerText"
js3 := "document.getElementsByClassName('oc_5')[40].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[41].innerText"
js2 := "document.getElementsByClassName('oc_3')[41].innerText"
js3 := "document.getElementsByClassName('oc_5')[41].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[42].innerText"
js2 := "document.getElementsByClassName('oc_3')[42].innerText"
js3 := "document.getElementsByClassName('oc_5')[42].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[43].innerText"
js2 := "document.getElementsByClassName('oc_3')[43].innerText"
js3 := "document.getElementsByClassName('oc_5')[43].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[44].innerText"
js2 := "document.getElementsByClassName('oc_3')[44].innerText"
js3 := "document.getElementsByClassName('oc_5')[44].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[45].innerText"
js2 := "document.getElementsByClassName('oc_3')[45].innerText"
js3 := "document.getElementsByClassName('oc_5')[45].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[46].innerText"
js2 := "document.getElementsByClassName('oc_3')[46].innerText"
js3 := "document.getElementsByClassName('oc_5')[46].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[47].innerText"
js2 := "document.getElementsByClassName('oc_3')[47].innerText"
js3 := "document.getElementsByClassName('oc_5')[47].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[48].innerText"
js2 := "document.getElementsByClassName('oc_3')[48].innerText"
js3 := "document.getElementsByClassName('oc_5')[48].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

js1 := "document.getElementsByClassName('oc_1')[49].innerText"
js2 := "document.getElementsByClassName('oc_3')[49].innerText"
js3 := "document.getElementsByClassName('oc_5')[49].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")
LV_Add("", GetInfoFromWebPage(js1, hWnd), GetInfoFromWebPage(js2, hWnd), GetInfoFromWebPage(js3, hWnd))

GetInfoFromWebPage(jsToGetInfo, hwnd) {
   tempClip := ClipboardAll
   Clipboard := ""
   js := JsCopyTextFromWebPage(jsToGetInfo)
   RunJsFromChromeAddressBar(js, hwnd)
   ClipWait, 1
   err := ErrorLevel
   text := Clipboard
   Clipboard := tempClip
   if err
      throw
   Return text
}

JsCopyTextFromWebPage(jsToGetInfo) {
   js =
   (
      ((textToCopy) => {
         if (window.location.protocol === 'https:') {
            document.documentElement.focus();
            const timer = setInterval(() => {
               if (document.hasFocus()) {
                  clearInterval(timer);
                  navigator.clipboard.writeText(textToCopy);
               }
            }, 10);
         } else {
            const textArea = document.createElement('textarea');
            textArea.value = textToCopy;
            textArea.wrap = 'off';
            textArea.rows = 100000;
            textArea.style.position = 'fixed';
            document.documentElement.appendChild(textArea);
            textArea.focus();
            textArea.select();
            document.execCommand('copy');
            textArea.remove();
         }
      })(%jsToGetInfo%);
   )
   Return js
}

RunJsFromChromeAddressBar(js, hwnd) {
   static WM_GETOBJECT := 0x3D
        , ROLE_SYSTEM_TEXT := 0x2A
        , STATE_SYSTEM_FOCUSABLE := 0x100000
        , SELFLAG_TAKEFOCUS := 0x1
        , AccAddrBars := []
   if !AccAddrBars.HasKey(hwnd) {
      SendMessage, WM_GETOBJECT, 0, 1, Chrome_RenderWidgetHostHWND1, ahk_id %hwnd%
      AccChrome := AccObjectFromWindow(hwnd)
      AccAddrBars[hwnd] := SearchElement(AccChrome, {Role: ROLE_SYSTEM_TEXT, State: STATE_SYSTEM_FOCUSABLE})
   }
   AccAddrBar := AccAddrBars[hwnd]
   AccAddrBar.accValue(0) := "javascript:" . js
   Sleep, 100
   WinActivate, ahk_id %hwnd%
   AccAddrBar.accSelect(SELFLAG_TAKEFOCUS, 0)
   Sleep, 100
   Loop {
      ControlSend,, {Enter}, ahk_id %hwnd%, Chrome Legacy Window
      Sleep, 200
   } until AccAddrBar.accValue(0) != "javascript:" . js
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      Return ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return ""
      if !cChildren
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

Gui, Show
return

MyListView:

Получается, скрипт на 50 (максимальное колличетсво) имен (опустим нюансы) в таблице.

В данный момент в клане 48 человек, соотвественно, таблица идет на 48 человек.

Мне нужно, чтобы скрипт, в случае, если таблица <50 строк, без всяких ошибок и уведомлений просто создавал таблицу на то колличество строк, которое сейчас есть на сайте.

И еще момент, время выполнения этого скрипта ~ 1 мин. 30 сек., можно как-то подускорить процесс? SetBatchLines - не помогает.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-04T00:48:12Z

Michael пишет:

выдавало существующие?

Не очень понял, какие существующие. Можно так попробовать:

js := "(() => { let res = ''; try { res = document.getElementsByClassName('oc_1')[50].innerText; } catch(e) { res = 'текст, который будет выдаваться в случае ошибки'; } return res; })()"

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T22:03:16Z

teadrinker пишет:

Michael пишет:
Duplicate function definition
Читайте про функции, что это такое, зачем они нужны, позапускайте примеры из документации. Вы пытаетесь применить сложные конструкции, не разобравшись в элементарных.

Почитал, понял что функции достаточно одной на весь скрипт, добавлял только:

js := "document.getElementsByClassName('oc_1')[4].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))

Если добавлять 3-4 JS скрипта - работает адекватно, как должно, все выводится в ListView.

Если добавить все 50 сразу - после минуты выходит ошибка "An exception was thrown" и не добавляет ничего.

Я поставил задержку в 100мс между JS, но это не помогает. Может быть какой-то лимит?

Вот полный скрипт:

if IsAdmin = 0
{

		CommandLine := DllCall("GetCommandLine", "Str")
		If !(A_IsAdmin || RegExMatch(CommandLine, " /restart(?!\S)")) 
		{
   				Try 
   				{
        				If (A_IsCompiled) 
        				{
           						Run *RunAs "%A_ScriptFullPath%" /restart
        				} 
				        Else 
				        {
				            	Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
				        }
    			}
   				ExitApp
		}

}

Gui, Add, ListView, r50 w700 gMyListView, Имя|Очки|Дата приема|Норма|Недобор

js := "document.getElementsByClassName('oc_1')[0].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))

GetInfoFromWebPage(jsToGetInfo, hwnd) {
   tempClip := ClipboardAll
   Clipboard := ""
   js := JsCopyTextFromWebPage(jsToGetInfo)
   RunJsFromChromeAddressBar(js, hwnd)
   ClipWait, 2
   err := ErrorLevel
   text := Clipboard
   Clipboard := tempClip
   if err
      throw
   Return text
}

JsCopyTextFromWebPage(jsToGetInfo) {
   js =
   (
      ((textToCopy) => {
         if (window.location.protocol === 'https:') {
            document.documentElement.focus();
            const timer = setInterval(() => {
               if (document.hasFocus()) {
                  clearInterval(timer);
                  navigator.clipboard.writeText(textToCopy);
               }
            }, 10);
         } else {
            const textArea = document.createElement('textarea');
            textArea.value = textToCopy;
            textArea.wrap = 'off';
            textArea.rows = 100000;
            textArea.style.position = 'fixed';
            document.documentElement.appendChild(textArea);
            textArea.focus();
            textArea.select();
            document.execCommand('copy');
            textArea.remove();
         }
      })(%jsToGetInfo%);
   )
   Return js
}

RunJsFromChromeAddressBar(js, hwnd) {
   static WM_GETOBJECT := 0x3D
        , ROLE_SYSTEM_TEXT := 0x2A
        , STATE_SYSTEM_FOCUSABLE := 0x100000
        , SELFLAG_TAKEFOCUS := 0x1
        , AccAddrBars := []
   if !AccAddrBars.HasKey(hwnd) {
      SendMessage, WM_GETOBJECT, 0, 1, Chrome_RenderWidgetHostHWND1, ahk_id %hwnd%
      AccChrome := AccObjectFromWindow(hwnd)
      AccAddrBars[hwnd] := SearchElement(AccChrome, {Role: ROLE_SYSTEM_TEXT, State: STATE_SYSTEM_FOCUSABLE})
   }
   AccAddrBar := AccAddrBars[hwnd]
   AccAddrBar.accValue(0) := "javascript:" . js
   Sleep, 100
   WinActivate, ahk_id %hwnd%
   AccAddrBar.accSelect(SELFLAG_TAKEFOCUS, 0)
   Sleep, 100
   Loop {
      ControlSend,, {Enter}, ahk_id %hwnd%, Chrome Legacy Window
      Sleep, 200
   } until AccAddrBar.accValue(0) != "javascript:" . js
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      Return ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return ""
      if !cChildren
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}

js := "document.getElementsByClassName('oc_1')[1].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[2].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[3].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[4].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[5].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[6].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[7].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[8].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[9].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[10].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[11].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[12].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[13].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[14].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[15].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[16].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[17].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[18].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[19].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[20].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[21].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[22].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[23].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[24].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[25].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[26].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[27].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[28].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[29].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[30].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[31].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[32].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[33].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[34].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[35].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[36].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[37].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[38].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[39].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[40].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[41].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[42].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[43].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[44].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[45].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[46].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[47].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[48].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))
Sleep, 100

js := "document.getElementsByClassName('oc_1')[49].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

LV_Add("", GetInfoFromWebPage(js, hWnd))

Gui, Show
return

MyListView:

UPDATE!

Понял почему ошибка, колличество игроков в клане меняется (максимум 50).

И если игроков допустим 45, а JS у меня на 50, то вылезает эта ошибка "An exception was thrown" и не добавляет ничего.

Можно как то обозначить, что в случае если JS ведут на пустые поля, чтобы не выдавало ошибку, и выдавало существующие?

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T21:30:17Z

Michael пишет:

Duplicate function definition

Читайте про функции, что это такое, зачем они нужны, позапускайте примеры из документации. Вы пытаетесь применить сложные конструкции, не разобравшись в элементарных.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T21:24:19Z

teadrinker пишет:

От администратора не выходит?

Выше отписал, с администратором разобрался и с той ошибкой тоже, появился новый вопрос, он тоже в сообщении выше

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T21:20:32Z

От администратора не выходит?

Michael пишет:

пишет ошибку "Failed to get text" и не запускается вообще

Если что-то пишет, значит запускается.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T20:51:42Z

teadrinker
Может не так выразился, но не выходит, пишет ошибку "Failed to get text" и не запускается вообще, или я что-то не так сделал?

if IsAdmin = 0
{

		CommandLine := DllCall("GetCommandLine", "Str")
		If !(A_IsAdmin || RegExMatch(CommandLine, " /restart(?!\S)")) 
		{
   				Try 
   				{
        				If (A_IsCompiled) 
        				{
           						Run *RunAs "%A_ScriptFullPath%" /restart
        				} 
				        Else 
				        {
				            	Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
				        }
    			}
   				ExitApp
		}

}


Gui, Add, ListView, r50 w700 gMyListView, Имя|Очки|Дата приема|Норма|Недобор

LV_Add(GetInfoFromWebPage(js, hWnd))


js := "document.getElementsByClassName('oc_1')[0].innerText"
hWnd := WinExist("ahk_class Chrome_WidgetWin_1 ahk_exe chrome.exe")

GetInfoFromWebPage(jsToGetInfo, hwnd) {
   tempClip := ClipboardAll
   Clipboard := ""
   js := JsCopyTextFromWebPage(jsToGetInfo)
   RunJsFromChromeAddressBar(js, hwnd)
   ClipWait, 2
   err := ErrorLevel
   text := Clipboard
   Clipboard := tempClip
   if err
      throw "Failed to get text"
   Return text
}

JsCopyTextFromWebPage(jsToGetInfo) {
   js =
   (
      ((textToCopy) => {
         if (window.location.protocol === 'https:') {
            document.documentElement.focus();
            const timer = setInterval(() => {
               if (document.hasFocus()) {
                  clearInterval(timer);
                  navigator.clipboard.writeText(textToCopy);
               }
            }, 10);
         } else {
            const textArea = document.createElement('textarea');
            textArea.value = textToCopy;
            textArea.wrap = 'off';
            textArea.rows = 100000;
            textArea.style.position = 'fixed';
            document.documentElement.appendChild(textArea);
            textArea.focus();
            textArea.select();
            document.execCommand('copy');
            textArea.remove();
         }
      })(%jsToGetInfo%);
   )
   Return js
}

RunJsFromChromeAddressBar(js, hwnd) {
   static WM_GETOBJECT := 0x3D
        , ROLE_SYSTEM_TEXT := 0x2A
        , STATE_SYSTEM_FOCUSABLE := 0x100000
        , SELFLAG_TAKEFOCUS := 0x1
        , AccAddrBars := []
   if !AccAddrBars.HasKey(hwnd) {
      SendMessage, WM_GETOBJECT, 0, 1, Chrome_RenderWidgetHostHWND1, ahk_id %hwnd%
      AccChrome := AccObjectFromWindow(hwnd)
      AccAddrBars[hwnd] := SearchElement(AccChrome, {Role: ROLE_SYSTEM_TEXT, State: STATE_SYSTEM_FOCUSABLE})
   }
   AccAddrBar := AccAddrBars[hwnd]
   AccAddrBar.accValue(0) := "javascript:" . js
   Sleep, 100
   WinActivate, ahk_id %hwnd%
   AccAddrBar.accSelect(SELFLAG_TAKEFOCUS, 0)
   Sleep, 100
   Loop {
      ControlSend,, {Enter}, ahk_id %hwnd%, Chrome Legacy Window
      Sleep, 200
   } until AccAddrBar.accValue(0) != "javascript:" . js
}

SearchElement(parentElement, params)
{ ; params — object like {Role: ROLE_SYSTEM_PUSHBUTTON := 0x2B, Name: "5"}
   found := true
   for k, v in params {
      try {
         if (k = "State")
            (!(parentElement.accState(0)    & v) && found := false)
         else if (k ~= "^(Name|Value)$")
            (!(parentElement["acc" . k](0) ~= v) && found := false)
         else if (k = "ChildCount")
            (parentElement["acc" . k]      != v  && found := false)
         else
            (parentElement["acc" . k](0)   != v  && found := false)
      }
      catch 
         found := false
   } until !found
   if found
      Return parentElement
   
   for k, v in AccChildren(parentElement)
      if obj := SearchElement(v, params)
         Return obj
}

AccObjectFromWindow(hWnd, idObject = 0) {
   static IID_IDispatch   := "{00020400-0000-0000-C000-000000000046}"
        , IID_IAccessible := "{618736E0-3C3D-11CF-810C-00AA00389B71}"
        , OBJID_NATIVEOM  := 0xFFFFFFF0, VT_DISPATCH := 9, F_OWNVALUE := 1
        , h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
        
   VarSetCapacity(IID, 16), idObject &= 0xFFFFFFFF
   DllCall("ole32\CLSIDFromString", "Str", idObject = OBJID_NATIVEOM ? IID_IDispatch : IID_IAccessible, "Ptr", &IID)
   if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject, "Ptr", &IID, "PtrP", pAcc) = 0
      Return ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
}

AccChildren(Acc) {
   static VT_DISPATCH := 9
   Loop 1  {
      if ComObjType(Acc, "Name") != "IAccessible"  {
         error := "Invalid IAccessible Object"
         break
      }
      try cChildren := Acc.accChildCount
      catch
         Return ""
      if !cChildren
         Return
      Children := []
      VarSetCapacity(varChildren, cChildren*(8 + A_PtrSize*2), 0)
      res := DllCall("oleacc\AccessibleChildren", "Ptr", ComObjValue(Acc), "Int", 0
                                                , "Int", cChildren, "Ptr", &varChildren, "IntP", cChildren)
      if (res != 0) {
         error := "AccessibleChildren DllCall Failed"
         break
      }
      Loop % cChildren  {
         i := (A_Index - 1)*(A_PtrSize*2 + 8)
         child := NumGet(varChildren, i + 8)
         Children.Push( (b := NumGet(varChildren, i) = VT_DISPATCH) ? AccQuery(child) : child )
         ( b && ObjRelease(child) )
      }
   }
   if error
      ErrorLevel := error
   else
      Return Children.MaxIndex() ? Children : ""
}

AccQuery(Acc) {
   static IAccessible := "{618736e0-3c3d-11cf-810c-00aa00389b71}", VT_DISPATCH := 9, F_OWNVALUE := 1
   try Return ComObject(VT_DISPATCH, ComObjQuery(Acc, IAccessible), F_OWNVALUE)
}


Gui, Show
return

MyListView:

UPDATE!

Нашел ошибку, в строке:

LV_Add(GetInfoFromWebPage(js, hWnd))

Поменял на:

LV_Add("", GetInfoFromWebPage(js, hWnd))

По итогу записалось нужное значение в таблицу, прогресс.

Пытаюсь вставить вторую строку в ListView, скопировал всё, и продублировал ниже, заменив только JS, на что получил ошибку:

Duplicate function definition.
Specifically: GetInfoFromWebPage(jsToGetInfo, hwnd)

Как мне остальные значения добавить в ListView?
Понимаю что тут должно быть что-то очень простое, но пока сижу туплю... Прошу помощи

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T18:16:32Z

Michael пишет:

Подскажите, пожалуйста, как привязать JS скрипты к ListView

Ничего привязывать не нужно, просто записывайте заранее полученные значения через LV_Add(), либо меняйте существующие через LV_Modify(), читайте справку по ним.

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T16:27:28Z

teadrinker пишет:

Я бы использовал ListView.

Набросал вот так с ListView:

#SingleInstance Force
#NoEnv
SetBatchLines -1

Gui, Add, ListView, r50 w700 gMyListView, Имя|Очки|Дата приема|Норма|Недобор

;Loop,
;    LV_Add()


Gui, Show
return

MyListView:

_________________________________________________________

Подскажите, пожалуйста, как привязать JS скрипты к ListView (первая строка):

Первая колонка:

document.getElementsByClassName("oc_1")[0].innerText

Вторая колонка:

document.getElementsByClassName("oc_3")[0].innerText

Третья колонка

document.getElementsByClassName("oc_5")[0].innerText

А по строкам нужно чтобы менялось значение [0], от 0 до 49

___________________________________________________________

То есть, вторая строка в ListView должна выводиться по таким скриптам:

Первая колонка:

document.getElementsByClassName("oc_1")[1].innerText

Вторая колонка:

document.getElementsByClassName("oc_3")[1].innerText

Третья колонка

document.getElementsByClassName("oc_5")[1].innerText

Ну и так далее, до [49].

Re: AHK: Получить список с сайта в таблице, с авторизацией

2023-05-03T14:16:58Z

Michael пишет:

Работает только от имени администратора

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

Michael пишет:

Или может есть идеи что можно было бы сделать вместе Edit?

Я бы использовал ListView.