AutoHotkey Community

#Include CoHelper.ahk

CoInitialize()
pie := ActiveXObject("InternetExplorer.Application")
Invoke(pie, "Visible=", "True")
Invoke(pie, "Navigate", "http://mail.ru/")

Release(pie)
CoUninitialize()

#Include CoHelper.ahk

CoInitialize()
pie := ActiveXObject("InternetExplorer.Application")
Invoke(pie, "Visible=", "True")
Invoke(pie, "Navigate", "http://mail.ru/")
Loop
{
   If   Invoke(pie, "ReadyState") = 4
      Break
   Sleep,   500
}
doc:=Invoke(pie, "Document")
;; hurrah you have a document pointer
Release(pie)
CoUninitialize()

; Run, iexplore.exe http://www.google.com/
MsgBox, % IEReady()
Return

IEReady(hIESvr = 0)
{
   If Not   hIESvr
   {
      Loop,   50
      {
         ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, A ; ahk_class IEFrame
         If   hIESvr
            Break
         Else   Sleep 100
      }
      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
}

ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, A ; ahk_class IEFrame

ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, ahk_class IEFrame

MsgBox, % alt_IEReady("Google")  ;; substitute any page title without the windows/internet explorer suffix

Return
alt_IEReady(pageSearched)
{
  Loop, %   COM_Invoke(psw := COM_Invoke(psh:=COM_CreateObject("Shell.Application"), "Windows"), "Count")
   {
      LocationName:=COM_Invoke(pwb:=COM_Invoke(psw, "Item", A_Index-1), "LocationName")
      IfInString,LocationName,%pageSearched%
         Break
      COM_Release(pwb) ;didnt break so release the one we didnt use
   }
loop
      If (rdy:=COM_Invoke(pwb,"readyState") = 4)
         break

   COM_Release(psw),   VarSetCapacity(psw,   0)
   COM_Release(psh),   VarSetCapacity(psh,   0)
   COM_Release(pwb),   VarSetCapacity(pwb,   0)
}

;-- FireFox : when is page loaded ------------------------------
;-- save first a small picture in FF with the word "Done" ----
;------  searches for the picture "FireFox_Done.bmp" ---------

#Persistent
Settitlematchmode,2
Coordmode,pixel

;PICTURE1=%A_scriptdir%\FireFox_Fertig.bmp
PICTURE1=%A_scriptdir%\FireFox_Done.bmp

UR=http://www.petri.co.il/download_free_reskit_tools.htm
IE=%A_programfiles%\Mozilla Firefox\firefox.exe

;-- opens URL max and then search down left corner %picture1% ---
;--- search aera must be bigger then the picture ----------------
WA=%A_screenwidth%
HA=%A_screenheight%
Y1   :=(HA*94)/100       ;
X2   :=(WA*12)/100       ;
Y2   :=(HA*98)/100       ;
MouseMove, WA, HA ,, R

Run,%IE% %UR%,,max
SetTimer,AAA,500
Return
;-----------------

AAA:
ImageSearch, FX,FY,0,Y1,X2,Y2, *20 %picture1%   ;search in aera x1y1--x2y2
if ErrorLevel  = 0              ; Image found
   {
   SetTimer,AAA,OFF
   soundbeep,400,300
   ExitApp
   }
return

;----------------------------------------------
#Persistent
Settitlematchmode,2

UR=http://www.t-online.de
SC=t-online
IE=%A_programfiles%\Mozilla Firefox\firefox.exe

Run,%IE% %UR%,,max
WinWait,%SC%
IfWinNotActive ,%SC%,,WinActivate,%SC%
  WinWaitActive,%SC%
SetTimer,AAA,500
Return

;-----------------
AAA:
C1=0xB6B7B8
X1=1264
Y1=35

C2=0xB6B8B8
X2=1276
Y2=35

PixelGetColor, Var1, X1, Y1
PixelGetColor, Var2, X2, Y2

if (VAR1=C1 AND VAR2=C2)  ;when wheel has stopped
     {
     soundbeep,400,300
     Exitapp
     }
return