ComObjError(false)
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
oIE.Navigate( "https://theme.wordpress.com/themes/features/infinite-scroll/" )
While oIE.readyState != 4 || oIE.document.readyState != "complete" || oIE.busy
   Sleep, 10
loop
{
   pos := oIE.document.documentElement.scrollTop
   loop 20
   {
      oIE.document.parentWindow.scrollBy(0, 10000)
      if (pos != oIE.document.documentElement.scrollTop)
         continue, 2
      sleep, 50
   }
   break
}
MsgBox, DONE!