AutoHotkey Community

ele:=COM_Invoke(pWin,"document.all[" sName "].")

iWeb_fireEvents(pdsp,sName) {

  COM_Error(0)
  COM_Invoke(pdsp,"document.all[" sName "].fireEvent","onfocus")
  COM_Invoke(pdsp,"document.all[" sName "].fireEvent","onblur")
  COM_Invoke(pdsp,"document.all[" sName "].fireEvent","onchange")
  COM_Invoke(pdsp,"document.all[" sName "].fireEvent","onclick")
  COM_Invoke(pdsp,"document.all[" sName "].fireEvent","onkeyup")
  COM_Error(1)
   
}

~Ctrl::
SetBatchLines, -1
Ctrl_Pressed:=True
While( Ctrl_Pressed )
   IE_HtmlElement()
Outline("Hide")
SetBatchLines, 10ms
Return
~Ctrl Up:: Ctrl_Pressed:=False

iWeb_setDomObj(pwb,obj,t,frm="")
   {
      If   pWin   :=   iWeb_DomWin(pwb,frm)
      {
         If  col      :=   COM_Invoke(pWin,   "document.all")
         {
            If InStr(obj,",") ; test if obj is a comma delimited list
            {
               StringSplit,tt,t,`,
               Loop,Parse,obj,`,
               {
                  If   itm      :=   COM_Invoke(col,"item", A_LoopField)   ;if this fails there really isnt any need to do below
                  {
                     StringReplace,tt%A_Index%,tt%A_Index%,,,`,,all   ;   unescape all commas in text extracted always
            ;~          making invoke take integers as Strings  ",   VT_BSTR:=8"
            ;~          http://www.autohotkey.com/forum/viewtopic.php?p=221631#221631
                     COM_Invoke_(itm,   v   :=   iWeb_inpt(itm)   ?   "Value="   :   "innerHTML=",   VT_BSTR:=8,   tt%A_Index%)
                     iWeb_FireEvents(itm)
                     COM_Release(itm)
                     d=1
                  }
               }
            }
            Else
            {
               If   itm      :=   COM_Invoke(col,obj)
               {
                  StringReplace,t,t,,,`,,all
                  COM_Invoke_(itm,   v   :=   iWeb_inpt(itm)   ?   "Value="   :   "innerHTML=",   VT_BSTR:=8,   t)
                  iWeb_FireEvents(itm)
                  COM_Release(itm)
                  d=1
               }
            }      
            COM_Release(col)
         }
         
         COM_Release(pWin)
      }
         
      Return d
   }