oIE_get

oIE_get is designed to give a friendly way to aquire an object reference to a particular 
instance of IE
returns object if found
 
	;~ sTitle = "" title may be submitted with or without the suffix but it will be corrected to remove the suffix
	;~ iHWND = ""
	;~ sURL = ""
	;~ sHTML = ""

Tested in IE 10

IE function

@@ -0,0 +1,168 @@
+waiting(oIE)
+	{
+	sleep 2000
+	while oIE.busy
+		sleep 1000
+	}
+	/*
+oIE_get is designed to give a friendly way to aquire an object reference to a particular 
+instance of IE
+returns object if found
+
+	;~ sTitle = "" title may be submitted with or without the suffix but it will be corrected to remove the suffix
+	;~ iHWND = ""
+	;~ sURL = ""
+	;~ sHTML = ""
+*/
+oIE_get( ByRef sTitle = "", ByRef iHWND = "", ByRef sURL = "", ByRef sHTML = "" )
+	{
+	Static IE_path
+
+	;; find where windows believes IE is installed
+	;; certain corp installs may have this in other than expected folders
+	if !IE_path
+		RegRead, IE_path, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE
+
+	;; Perhaps policies prevent reading this key
+	if ( ErrorLevel || !IE_path )
+		IE_path := "C:\Program Files\Internet Explorer\iexplore.exe"
+
+	;; make sure it installed
+	if !FileExist( IE_path )
+		{
+		MsgBox, 4112, Internet Explorer Not Found, IE does not appear to be installed`nCannot continue `nClick OK to Exit!!!
+		ExitApp
+		}
+	;~ this function is pointless if no instance of IE is open
+	;~ one edit you mihgt make is to have this function open IE and maybe go to the home page
+	if ( !winexist( "ahk_class IEFrame" ) )
+		{
+		MsgBox, 4112, NO IE Window Found, The Macro will end
+		ExitApp
+		}
+
+	if sTitle
+		clean_IE_Title( sTitle )
+	;; ok this function should look at all the existing IE instances and build a reference object
+	; List all open Explorer and Internet Explorer windows:
+	oIE := Object()
+	matches := 0
+	;~ msgbox % sTitle
+	;~ msgbox % iHWND
+	;~ msgbox % sURL
+	;~ msgbox % IE_path
+	;~ msgbox % IE_path
+	for window,k in ComObjCreate("Shell.Application").Windows
+		;~ msgbox % window.FullName
+		if ( instr( window.FullName, "IEXPLORE" )  )
+			{
+			possiblematch := true
+			pdoc := IHTMLWindow2_from_IWebDOCUMENT( window.document ).document
+			if ( possiblematch && sTitle && !instr(  window.locationname, sTitle ) )
+				possiblematch := false
+
+			if ( possiblematch && sHTML && !instr( pdoc.documentelement.outerhtml, sHTML ) )
+				possiblematch := false
+
+			if ( possiblematch && sURL && !instr( pdoc.url, sURL ) )
+				possiblematch := false
+
+			if ( possiblematch && iHWND > 0 && window.HWND != iHWND )
+				possiblematch := false		
+
+				;~ msgbox % window.locationname "`n" pdoc.title
+			if ( possiblematch )
+				{
+				windowsList .= k " => " ( clipboard := window.FullName ) " :: " pdoc.title " :: " pdoc.url "`n"
+				matches++
+				sTitle := pdoc.title
+				sURL := pdoc.url
+				iHWND := window.HWND
+				sHTML := pdoc.documentelement.outerhtml
+				oIE := window
+				ObjRelease( pdoc )
+				return oIE
+				break
+				}
+			ObjRelease( pdoc )
+			}
+
+	;~ if ( matches != 1 )
+		;~ {
+		;~ MsgBox, 4112, Too many Matches ,  Please modify your criteria or close some tabs/windows and retry
+		;~ ExitApp
+		;~ }
+	;~ msgbox % sHTML
+	return oIE
+	}
+
+clean_IE_Title( ByRef sTitle = "" ) 
+	{
+	return sTitle := RegExReplace( sTitle ? sTitle : active_IE_Title(), IE_Suffix() "$", "" )
+	}
+
+IE_Suffix() 
+	{
+	static sIE_Suffix
+	if !sIE_Suffix
+		{
+		;; HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main
+		RegRead, sIE_Suffix, HKCU, Software\Microsoft\Internet Explorer\Main, Window Title ;, Windows Internet Explorer,
+		sIE_Suffix := " - " sIE_Suffix
+		}
+	return sIE_Suffix
+	}
+
+active_IE_Title() ;; returns the title of the topmost browser if exists from the stack
+	{
+	sTitle := "NO IE Window Open"
+	if winexist( "ahk_class IEFrame" )
+		{
+		titlematchMode := A_TitleMatchMode
+		titlematchSpeed := A_TitleMatchModeSpeed
+		SetTitleMatchMode, 2	
+		SetTitleMatchMode, Slow
+		WinGetTitle, sTitle, %sIE_Suffix% ahk_class IEFrame
+		SetTitleMatchMode, %titlematchMode%	
+		SetTitleMatchMode, %titlematchSpeed%
+		}
+	return RegExReplace( sTitle, IE_Suffix() "$", "" )
+	}
+
+
+
+IHTMLWindow2_from_IWebDOCUMENT( IWebDOCUMENT )
+	{
+	static IID_IHTMLWindow2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"  ; IID_IHTMLWindow2
+	return ComObj(9,ComObjQuery( IWebDOCUMENT, IID_IHTMLWindow2, IID_IHTMLWindow2),1)
+	}
+
+IWebDOCUMENT_from_IWebDOCUMENT( IWebDOCUMENT ) ;bypasses certain security issues
+	{
+	return IHTMLWindow2_from_IWebDOCUMENT( IWebDOCUMENT ).document
+	}
+
+IWebBrowserApp_from_IWebDOCUMENT( IWebDOCUMENT )
+	{
+	static IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}"  ; IID_IWebBrowserApp
+	return ComObj(9,ComObjQuery( IHTMLWindow2_from_IWebDOCUMENT( IWebDOCUMENT ), IID_IWebBrowserApp, IID_IWebBrowserApp),1)
+	}
+
+IWebBrowserApp_from_Internet_Explorer_Server_HWND( hwnd, Svr#=1 ) 
+	{               ;// based on ComObjQuery docs
+	static msg := DllCall( "RegisterWindowMessage", "str", "WM_HTML_GETOBJECT" )
+		, IID_IWebDOCUMENT := "{332C4425-26CB-11D0-B483-00C04FD90119}"
+
+	SendMessage msg, 0, 0, Internet Explorer_Server%Svr#%, ahk_id %hwnd%
+
+	if (ErrorLevel != "FAIL") 
+		{
+		lResult := ErrorLevel
+		VarSetCapacity( GUID, 16, 0 )
+		if DllCall( "ole32\CLSIDFromString", "wstr", IID_IWebDOCUMENT, "ptr", &GUID ) >= 0 
+			{
+			DllCall( "oleacc\ObjectFromLresult", "ptr", lResult, "ptr", &GUID, "ptr", 0, "ptr*", IWebDOCUMENT )
+			return  IWebBrowserApp_from_IWebDOCUMENT( IWebDOCUMENT )
+			}
+		}
+	}