Code: Select all
#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, !!!, GO TO PROGILE AND PRESS 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
}
FormatTime, TimeString, , dd.MM.yyyy HH-mm
file := A_Desktop "\" namenick "_" TimeString ".xlsx"
xl.ActiveWorkbook.SaveAs(file, 51)
MsgBox, 262192, !!!, OK!!
return