오토핫키로 네이버 실시간 검색어 엑셀에 저장하기

오토핫키로 여러가지 해보고있는데 급상승검색어를   시간별로 모으는걸 만들어봤다. 사실 이렇게 해봤자 의미없지만 네이버에서 지난 기록을 다 제공하니깐 그래도 그냥 해봄.
소스는
i:=1
Loop
{
IE := IEGet()
if !IE
{
    IE := ComObjCreate("InternetExplorer.Application") ; create application if needed
}
 
IE.Visible := True
IE.Navigate("https://datalab.naver.com/keyword/realtimeList.naver?where=main")

 
IEGet(name="") {
   IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame     ;// Get active window if no parameter
   Name := (Name="New Tab - Windows Internet Explorer")? "about:Tabs":RegExReplace(Name, " - ((Windows|Microsoft) Internet Explorer|Internet Explorer)")
   for wb in ComObjCreate("Shell.Application").Windows
      if wb.LocationName=Name and InStr(wb.FullName, "iexplore.exe")
         return wb
}
 While IE.readyState!=4 || ie.busy
  Sleep 50
 while IE.document.readyState!="complete"
  Sleep 50
a:=IE.document.getElementsByTagName("DIV")[60].innertext
 
Xl := ComObjActive("Excel.Application") ; 열려진 엑셀창을 오브젝트화 한다.

Xl.Visible := true
FormatTime, B ,,yyyy-MM-dd-HH-mm-ss
Xl.Range("A" . i).Value := B
Xl.Range("B" . i).Value := a
i:=i+1
Sleep 59800
}

열려진 엑셀에 저장되게 하는 코드이고

고칠게 1분마다 하게 하려고 했는데 처리시간도 고려해야되서 지연주는걸로는 오차가 생기더라. 시간 체크해서 뽑아오는걸로 해야될듯.

이런식으로 저장이 된다.
오토핫키만으로도 간단하게 여러가지 해볼수 있을듯.