Тема: AHK: Instagram_выгрузка
Добрый день!! Подскажите пож-та, "ie.Document.parentWindow.scrollBy(0, Height)" работает на основной странице, а не в окне "Подписчики", если делаю так: " ie.document.getElementsByClassName("isgrP")[0].scrollBy(0, Height)", то не работает (Объект не поддерживает свойство или метод "scrollBy").
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
#SingleInstance force ; игнор уже запущенного скрипта, переоткрытие
ie := ComObjCreate("InternetExplorer.Application")
ie.Visible := true
ie.Navigate("https://www.instagram.com/")
while ie.readystate <> 4
Sleep 500
MsgBox, 262192, !!!, Зайди в нужный профиль и нажми CTRL+Q !!
~^q::
Xl := ComObjCreate("Excel.Application")
Xl.Visible := True
Xl.Workbooks.Add
namenick := ie.document.getElementsByClassName("_7UhW9 fKFbl yUEEX KV-D4 fDxYl")[0].innerText ; никнейм
ie.document.getElementsByTagName("A")[1].click() ;клик по "Подписчики"
sleep 100
loop 10
{
Height := ie.document.getElementsByClassName("isgrP")[0].clientHeight
ie.Document.parentWindow.scrollBy(0, Height)
;ie.document.getElementsByClassName("isgrP")[0].scrollBy(0, Height)
}
numb := ie.document.getElementsByClassName("FPmhX notranslate _0imsa").length ; количество подписчиков
loop %numb%
{
XL.workSheets(1).cells(A_index,1).value := ie.document.getElementsByClassName("FPmhX notranslate _0imsa")[A_index-1].innerText ; никнейм подписчика
}
XL.workSheets(1).Columns("A").ColumnWidth:=25 ; размер столбца
XL.workSheets(1).Columns("A").RowHeight:=18 ; высота ячейки
XL.workSheets(1).Range("A:A").HorizontalAlignment := -4131 ; выровнять текст слева
XL.workSheets(1).Range("A:A").VerticalAlignment := -4108 ; выровнять текст по центру
XL.workSheets(1).Range("A:A").WrapText := 0 ; отключение "Перенести текст"
end := xl.workSheets(1).Cells.(xl.workSheets(1).Rows.Count, "A").End(xlUp := -4162).Row ; последняя заполненная ячейка
xl.Range(xl.Cells(1,1), xl.Cells(end,1)).Borders.LineStyle := 1 ; сетка
xl.Worksheets(1).name := namenick ; переменования листа в никнейм аккаунта
FormatTime, TimeString, , dd.MM.yyyy HH-mm
file := A_Desktop "\" namenick "_" TimeString ".xlsx" ; сохранение на раб столе
xl.ActiveWorkbook.SaveAs(file, 51)
MsgBox, 262192, !!!, Готово!!
return