AutoHotkey Community

iWeb_Init()
pwb:=iWeb_getWin("Can you get an elements index number from innertext?")
Loop {
  COM_Error(0)
  if t := COM_Invoke(pwb,"document.all[" A_Index-1 "].innerText") {
    if (t == "Carcophan") {
      i := COM_Invoke(pwb,"document.all[" A_Index-1 "].sourceIndex")
      break
    }
  }
}
MsgBox % COM_Invoke(pwb,"document.all[" i "].innerText")
COM_Error(1)
iWeb_Release(pwb)
iWeb_Term()
return

innerText := "Carcophan"
jscript =
(
a=document.all;
for( i=0; i<=a.length; i++ )
   if( a[i].innerText == '%innerText%' )
      break;
if ( i > a.length )
   i = 'N/A'
)
   
pWin := IEGet().document.parentWindow
pWin.execScript( jscript )
MsgBox, % pWin.i


IEGet(Name="") {
   IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame
   Name := Name="New Tab" ? "about:Tabs":RegExReplace(Name," - (Windows|Microsoft) Internet Explorer")
   Windows := COM_CreateObject( "Shell.Application" ).Windows, COM_Error( False )
   Loop, % Windows.Count
      If ( pwb:=Windows.item[A_Index-1] ).LocationName=Name && InStr( pwb.FullName, "iexplore.exe" ) {
         COM_Error( True )
         Return pwb
      }
}

innerText := "Carcophan"
jscript =
(
a=document.all;
for( i=0; i<=a.length; i++ )
   if( a[i].innerText == '%innerText%' )
      break;
if ( i > a.length )
   i = 'N/A' )

COM_Init()
pwb := IEGet()
pWin := COM_Invoke( pwb, "document.parentWindow" )
COM_Invoke( pWin, "execScript", jscript )
MsgBox, % COM_Invoke( pWin, "i" )
COM_Release( pwb ), COM_Release( pWin ), COM_Term()

IEGet( name="" )
{
   IfEqual, Name,, WinGetTitle, Name, ahk_class IEFrame ; Get active window if no parameter
   Name := ( Name="New Tab - Windows Internet Explorer" ) ? "about:Tabs" : RegExReplace( Name, " - (Windows|Microsoft) Internet Explorer" )
   oShell := COM_CreateObject( "Shell.Application" ) ; Contains reference to all explorer windows
   Loop, % COM_Invoke( oShell, "Windows.Count" ) {   
      If pwb := COM_Invoke( oShell, "Windows.item[" A_Index-1 "]" )
         If ( COM_Invoke( pwb, "LocationName" ) = name && InStr( COM_Invoke( pwb, "FullName" ), "iexplore.exe" ) )
            Break
      COM_Release( pwb ), pwb := ""
   }
   COM_Release( oShell )
   Return, pwb
}

;error message=
;Call to nonexistent function 
;Specifically: iWeb_Release(pwb)

;I have tried using libraries: com/iweb/invokedeep/iweb_com


iWeb_Init()
pwb:=iWeb_getWin("WebsiteNameHere")
Loop
{
  COM_Error(0)
 
  if t := COM_Invoke(pwb,"document.all[" A_Index-1 "].innerText")
  {
    if (t == "Notes")
   {
      i := COM_Invoke(pwb,"document.all[" A_Index-1 "].sourceIndex")
      break
    }
  }
}


MsgBox % COM_Invoke(pwb,"document.all[" i "].innerText")

COM_Error(1)
iWeb_Release(pwb)
iWeb_Term()
return

;dream code, that I would like to eventually accomplish
;trying to find the best work around for this psudo-code example



If(value/innerText = 'notes')
    then, get index_value associated with value/innerText for 'notes'

index_value += 10   ;since desired var is +10 from notes

msgbox, value/innerText for the new +10 index_value numer

iWeb_Init()
pwb:=iWeb_getWin("Agilyst - Microsoft Internet Explorer")
Loop
{
  COM_Error(0)
 
  if t := COM_Invoke(pwb,"document.all[" A_Index-1 "].innerText")
  {
    if (t == "Comments")
   {
      i := COM_Invoke(pwb,"document.all[" A_Index-1 "].sourceIndex")
     ii := COM_Invoke(pwb,"document.all[" A_Index+10 "].sourceIndex")
      break
    }
  }
}


MsgBox % COM_Invoke(pwb,"document.all[" i "].innerText")
MsgBox % COM_Invoke(pwb,"document.all[" ii "].innerText")

COM_Error(1)
iWeb_Release(pwb)
iWeb_Term()
return

COM_CoInitialize()
MsgBox   %   IE_Find("notes","page title","innertext",10)
COM_CoUninitialize()
IE_Find(needle,win="A",property="",offset=0)
{
   If   (win=="A")
      WinGetTitle,win,%win% ahk_class IEFrame
   StringSplit,wins,win,-
   _autotrim:=A_AutoTrim
   AutoTrim,On   
   wins1=%wins1%
   AutoTrim,%_autotrim%
   If   psh   :=   COM_CreateObject("Shell.Application") {
      If   psw   :=   COM_Invoke(psh,   "Windows") {
         Loop, %   COM_Invoke(psw,   "Count")
            If   pwb   :=   (InStr(COM_Invoke(psw,"Item[" A_Index-1 "].LocationName"),wins1)   && InStr(COM_Invoke(psw,"Item[" A_Index-1 "].FullName"), "iexplore.exe")) ? COM_Invoke(psw,"Item", A_Index-1) :
               Break
         COM_Release(psw)
      }
      COM_Release(psh)
   }
   If   !pwb
      Return
   If   !pWin:=COM_QueryService(pwb,   "{332C4427-26CB-11D0-B483-00C04FD90119}",   "{332C4427-26CB-11D0-B483-00C04FD90119}")
   {
      COM_Release(pwb)
      Return
   }   
   If   oRange:=COM_Invoke(pWin,"document.body.createTextRange")
   {
      COM_Invoke(oRange,"findText",needle)
      _res:=property ? COM_Invoke(pWin,"Document.all.item[" COM_Invoke(oRange,"parentElement.sourceIndex")+offset "]." property) :  COM_Invoke(pWin,"Document.all.item", COM_Invoke(oRange,"parentElement.sourceIndex")+offset)
      COM_Release(oRange)
   }   
   COM_Release(pWin)
   COM_Release(pwb)
   Return   _res
}