AutoHotkey Community

^F1::
MsgBox, % "Pie " . LoadIEDone("http://www.google.com")
return



LoadIEDone(URL_TO_LOAD)
{
com_CoInitialize()
pie := com_ActiveXObject("InternetExplorer.Application")
com_Invoke(pie, "Visible=", True)
com_Invoke(pie, "Navigate", URL_TO_LOAD)
psh :=   COM_CreateObject("Shell.Application")
psw :=   COM_Invoke(psh, "Windows")
Loop, %   COM_Invoke(psw, "Count")
   pwb := COM_Invoke(psw, "Item", A_Index-1), sInfo .= COM_Invoke(pwb, "hWnd") . " : """ . COM_Invoke(pwb, "LocationURL") . """,""" . COM_Invoke(pwb, "LocationName") . """,""" . COM_Invoke(pwb, "StatusText") . """,""" . COM_Invoke(pwb, "Name") . """,""" . COM_Invoke(pwb, "FullName") . """`n", COM_Release(pwb)
COM_Release(psw)
COM_Release(psh)
;COM_Term()

MsgBox, % sInfo

Loop
   If   pdoc:=Com_Invoke(pie, "Document")
        Break
   Else Sleep 100
Loop
   If   Com_Invoke(pdoc, "readyState") = "complete"
        Break
   Else Sleep 500
Com_Release(pdoc)

com_Release(pie)
com_CoUninitialize()
return pie
}

MsgBox, % pie . " | hWnd: " . COM_Invoke(pie, "hWnd")

LoadIEDone(URL_TO_LOAD)
{
COM_Init()
pie := COM_ActiveXObject("InternetExplorer.Application")
COM_Invoke(pie, "Visible=", True)
COM_Invoke(pie, "Navigate", URL_TO_LOAD)
COM_Release(pie)
pie := 0

psh :=  COM_CreateObject("Shell.Application")
psw :=  COM_Invoke(psh, "Windows")
Loop, % COM_Invoke(psw, "Count")
{
        pwb :=  COM_Invoke(psw, "Item", A_Index-1)
        If      COM_Invoke(pwb, "Name") = "Windows Internet Explorer"
        &&      COM_Invoke(pwb, "StatusText") = "Website found. Waiting for reply..."
        {
                pie := pwb
                Break
        }
        Else    COM_Release(pwb)
}
COM_Release(psw)
COM_Release(psh)

If      pie
        Loop
                If      COM_Invoke(pie, "ReadyState") = 4
                        Break
                Else    Sleep 500
COM_Release(pie)
COM_Term()
Return  pie
}

COM_Invoke(pwb, "addressBar") = "SomeSiteWeAreGoingTo"

COM_Invoke(pwb, "StatusText")

COM_Invoke(pwb, "StatusText") = "Website found. Waiting for reply..."

pie := COM_Invoke(psw, "Item", COM_Invoke(psw, "Count") - 1)

IEReady(hIESvr = 0)
{
   If Not   hIESvr
   {
      Loop,   50                       ;<-------------modify this line!!
      {
         ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, A ; ahk_class IEFrame
         If   hIESvr
            Break
         Else   Sleep 100            ;<-------------or modify this line!!
      }
      If Not   hIESvr
         Return   """Internet Explorer_Server"" Not Found."
   }
   Else
   {
      WinGetClass, sClass, ahk_id %hIESvr%
      If Not   sClass == "Internet Explorer_Server"
         Return   "The specified control is not ""Internet Explorer_Server""."
   }

   COM_Init()
   If   DllCall("SendMessageTimeout", "Uint", hIESvr, "Uint", DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT"), "Uint", 0, "Uint", 0, "Uint", 2, "Uint", 1000, "UintP", lResult)
   &&   DllCall("oleacc\ObjectFromLresult", "Uint", lResult, "Uint", COM_GUID4String(IID_IHTMLDocument2,"{332C4425-26CB-11D0-B483-00C04FD90119}"), "int", 0, "UintP", pdoc)=0
   &&   pdoc && pweb:=COM_QueryService(pdoc,IID_IWebBrowserApp:="{0002DF05-0000-0000-C000-000000000046}")
      Loop
         If   COM_Invoke(pweb, "ReadyState") = 4
            Break
         Else   Sleep 500
   COM_Release(pdoc)
   COM_Release(pweb)
   COM_Term()
   Return   pweb ? "DONE!" : False
}