#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