AutoHotkey Community

#Include COM.ahk
#Include ACC.ahk
return

f6::
;this sets global var mytest and also alerts it. Works in google.com
;so the global var is there.
IE_InjectJS(WinExist("ahk_class IEFrame"), "var myTest='test'; alert(myTest);")

;this gets the myTest value in all IE's except IE9 with HTML5 doctype.
myVar := IE_InjectJS(WinExist("ahk_class IEFrame"), "", "myTest")
MsgBox, 4096,, myVar is: %myVar%
return

;this lets me specify by hwnd, or top IE window etc.                   
IE_InjectJS(hWnd_MainWindow, JS_to_Inject, VarNames_to_Return="")
{
   ;Get a list of the hWnd's owned by the window specified
   WinGet, ActiveControlList, ControlListhWnd, ahk_id %hWnd_MainWindow%
   ;Go throught the list 1 at a time to determine if it is the correct control
   ;This will allow the script to find the current tab in IE7
 
   Loop, Parse, ActiveControlList, `n
      {
      ;Get the classname of the current control
      WinGetClass, ThisWinClass, ahk_id %A_LoopField%
      ;If the classname is correct and it is visible, it is the correct tab
      
      If (ThisWinClass = "Internet Explorer_Server") and (DllCall("IsWindowVisible", UInt, A_LoopField))
       {      
        hIESvr := A_LoopField
       break
        }
      }

    ;Initialize the COM interface. code modified from SEAN
   IID_IHTMLWindow2   := "{332C4427-26CB-11D0-B483-00C04FD90119}"
   ACC_Init()
   
   ;un-comment this to see error ONLY in IE9 with HTML5 doctype
   ;COM_Error(True)
     
   pacc := ACC_AccessibleObjectFromWindow(hIESvr)
   pwin := COM_QueryService(pacc,IID_IHTMLWindow2,IID_IHTMLWindow2)         
   COM_Release(pacc)
     
   ;Execute the Javascript (if there is any).
   If JS_to_Inject
      COM_Invoke(pwin, "execscript", JS_to_Inject)
             
   ;Get the value of the variables, if any.
   If VarNames_to_Return {
      ;Split the passed variable names into a psuedo array of ahk variables
      StringSplit, Vars_, VarNames_to_Return, `,
 
      ;Get the value of each javascript variable in the order it was passed
      Loop, %Vars_0%
      {
      Ret .= COM_Invoke(pwin,Vars_%A_Index%) . ","
      }
      ;Remove the trailing comma
      StringTrimRight, Ret, Ret, 1
  }
    
   ;Cleanup
   COM_Release(pwin)
   ACC_Term()
   
   ;Return a comma seperated list of variables in the order they were passed
   Return Ret
   }

#Include COM.ahk
;#Include ACC.ahk
return

f6::
;this sets global var mytest and also alerts it. Works in google.com
;so the global var is there.
IE_InjectJS(WinExist("ahk_class IEFrame"), "var myTest='test'; alert(myTest);")

;this gets the myTest value in all IE's except IE9 with HTML5 doctype.
myVar := IE_InjectJS(WinExist("ahk_class IEFrame"), "", "myTest")
MsgBox, 4096,, myVar is: %myVar%
return

;this lets me specify by hwnd, or top IE window etc.                   
IE_InjectJS(hWnd_MainWindow, JS_to_Inject, VarNames_to_Return="")
{
   ;Get a list of the hWnd's owned by the window specified
   WinGet, ActiveControlList, ControlListhWnd, ahk_id %hWnd_MainWindow%
   ;Go throught the list 1 at a time to determine if it is the correct control
   ;This will allow the script to find the current tab in IE7
 
   Loop, Parse, ActiveControlList, `n
      {
      ;Get the classname of the current control
      WinGetClass, ThisWinClass, ahk_id %A_LoopField%
      ;If the classname is correct and it is visible, it is the correct tab
      
      If (ThisWinClass = "Internet Explorer_Server") and (DllCall("IsWindowVisible", UInt, A_LoopField))
       {      
        hIESvr := A_LoopField
       break
        }
      }

    ;Initialize the COM interface. code modified from SEAN
   IID_IHTMLWindow2   := "{332C4427-26CB-11D0-B483-00C04FD90119}"
;   ACC_Init()
    COM_AccInit()
   
   ;un-comment this to see error ONLY in IE9 with HTML5 doctype
;   COM_Error(False)
     
;   pacc := ACC_AccessibleObjectFromWindow(hIESvr)
    pacc := COM_AccessibleObjectFromWindow(hIESvr)

   pwin := COM_QueryService(pacc,IID_IHTMLWindow2,IID_IHTMLWindow2)         
   COM_Release(pacc)
     
   ;Execute the Javascript (if there is any).
   If JS_to_Inject
      COM_Invoke(pwin, "execscript", JS_to_Inject)
             
   ;Get the value of the variables, if any.
   If VarNames_to_Return {
      ;Split the passed variable names into a psuedo array of ahk variables
      StringSplit, Vars_, VarNames_to_Return, `,
 
      ;Get the value of each javascript variable in the order it was passed
      Loop, %Vars_0%
      {
      Ret .= COM_Invoke(pwin,Vars_%A_Index%) . ","
      }
      ;Remove the trailing comma
      StringTrimRight, Ret, Ret, 1
  }
    
   ;Cleanup
   COM_Release(pwin)
;   ACC_Term()
    COM_AccTerm()
   
   ;Return a comma seperated list of variables in the order they were passed
   Return Ret
   }

f6::
myVar = var myTest = "test"; alert(myTest);
IE_InjectJSCOM(WinExist("ahk_class IEFrame"), myVar)
myVar := IE_InjectJSCOM(WinExist("ahk_class IEFrame"), "", "myTest")
MsgBox, 4096,, myVar is: %myVar%, 3
return

IE_InjectJSCOM(hWnd_MainWindow, JS_to_Inject, VarNames_to_Return="")
{
COM_Init()
;COM_Error(False)
COM_Error(True)

psh := COM_CreateObject("Shell.Application")
psw := COM_Invoke(psh, "Windows")
 
Loop, % COM_Invoke(psw, "Count")
{
HWND := COM_Invoke(psw,"Item[" A_Index-1 "].HWND")
If HWND=%hWnd_MainWindow%
{
pwb := COM_Invoke(psw, "Item", A_Index-1)
window:= COM_Invoke(Document:=COM_Invoke(pwb, "Document"), "parentWindow")
break
}
}

COM_Release(psw),COM_Release(psh)

if !pwb
{
MsgBox, 4096,, Invalid Hwnd called, 3
COM_Term()
Return
}

If JS_to_Inject 
COM_Invoke(window, "execscript", JS_to_Inject)

If VarNames_to_Return {
StringSplit, Vars_, VarNames_to_Return, `,
Loop, %Vars_0%               
Ret .= COM_Invoke_(window,Vars_%A_Index%) . ","
StringTrimRight, Ret, Ret, 1
}
 
COM_Release(pwb),COM_Release(Document),COM_Release(window)
COM_Term()

Return Ret
}

window:= COM_Invoke(Document:=COM_Invoke(pwb, "Document"), "parentWindow")

IID := "{332C4427-26CB-11D0-B483-00C04FD90119}" ; IHTMLWindow2
window := Com_QueryService(pwb, IID, IID)

pwin := COM_QueryService(pacc,IID_IHTMLWindow2,IID_IHTMLWindow2)
IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}"
pwb := COM_QueryService(pwin,IID_IWebBrowserApp,IID_IWebBrowserApp)
Com_Release(pwin)
pwin := COM_QueryService(pwb,IID_IHTMLWindow2,IID_IHTMLWindow2)
Com_Release(pwb)

iWB := "{0002DF05-0000-0000-C000-000000000046}", iWin := "{332C4427-26CB-11D0-B483-00C04FD90119}"
ControlGet, hwnd, hwnd, , Internet Explorer_Server1, ahk_class IEFrame
Win := ComObj(9,ComObjQuery(ComObj(9,ComObjQuery(ComObj(9,ComObjQuery(Acc_ObjectFromWindow(hwnd),iWin,iWin),1),iWB,iWB),1),iWin,iWin),1)
Win.execScript("foo='bar'")
MsgBox, % Win.foo