AutoHotkey Community

COM_CoInitialize()
pwb:=iWeb_getWin("AutoHotkey Community - Mouse and Keyboard Macros and Hotkeys")
MsgBox % iWeb_getTableRef(pwb,"Ask for Help")
; returns iWeb_TableParse call to retrieve 'Ask for Help' forum cell
;MsgBox % iWeb_getTableRef(pwb,"Ask for Help",1)
; returns iWeb_TableParse call to retrieve 'no. of topics' cell next to 'Ask for Help' forum cell

return

iWeb_getTableRef(pwb,txt,offset="") {
/*
txt - the text of the element to retrieve (or the text of an offset element to retrieve)
offset - a number to be added to the cell number of the retrieved element
*/
tCount:=found:=""

t=0
Loop {
   if !COM_Invoke(pWin,"document.all.tags[table].item[" A_Index "].innerText")
    && !COM_Invoke(pWin,"document.all.tags[table].item[" A_Index-1 "].innerText") { ; checks for the first two consecutive empty tables
      l:=A_Index-2
      break
   }
}
Loop % l {
   pWin:=iWeb_DomWin(pwb)
   COM_Error(0)
   tData:=COM_Invoke(pWin,"document.all.tags[table].item[" t "].innertext")
   if RegExMatch(tData,txt) {
      found+=1
      tCount.=((found=1) ? "" : ",") . t
      tbl%found%:=tData
   }
   COM_Release(pWin), t++
}
MsgBox, 36, iWeb_getTableRef
 , % "Search has found " found " tables that contain your search text.`n"
 . "Would you like to select a table to use?"
IfMsgBox No
   return
Loop, Parse, tCount, `,
{
  MsgBox, 36, iWeb_getTableRef
   , % "Table " A_LoopField "`n`n"
   . "Press 'Y' if this is the table you would like to use or 'N' to continue looking`n"
   . "(typically the last table is the correct one to select):`n`n"
   . tbl%A_Index%
  IfMsgBox Yes
  {
    t:=A_LoopField
    errLvl:=1
    break
  }
}
if !errLvl
   return 0
errLvl:=r:=0
Loop % iWeb_TableLength(pwb,t) {
   c=0
   Loop % iWeb_TableLength(pwb,t,r) {
      current:=iWeb_tableParse(pwb,t,r,c)
      if RegExMatch(current,txt) {
         errLvl=1
         break
      }
      c++
   }
   if errLvl
      break
   r++
}
COM_Release(pWin), COM_Release(pwb)
COM_CoUninitialize()
return "iWeb_TableParse(pwb," t "," r "," (offset ? c+offset : c) ")"

}

Gui, Add, Text, x0 y99 w546 h275 ,
Gui, Add, Edit, x52 y152 w482 h49 ,
Gui, Add, Edit, x52 y206 w482 h49 ,
Gui, Add, Edit, x52 y260 w482 h49 ,
Gui, Add, Edit, x52 y313 w482 h49 ,
Gui, Add, Text, x52 y130 w482 h13 ,
Gui, Add, Text, x11 y154 w30 h13 , Text:
Gui, Add, Text, x11 y261 w27 h13 , DOC:
Gui, Add, Text, x11 y315 w30 h13 , Code:
Gui, Add, Text, x11 y208 w33 h13 , Frame:
Gui, Add, Text, x11 y130 w30 h13 , Type:
Gui, Add, Edit, x63 y49 w498 h20 ,
Gui, Add, Edit, x63 y73 w498 h20 ,
Gui, Add, Text, x3 y8 w32 h32 ,
Gui, Add, Text, x3 y52 w56 h13 , Page URL:
Gui, Add, Text, x3 y78 w56 h13 , Page Title:
Gui, Add, GroupBox, x0 y0 w561 h44 ,
Gui, Add, Text, x219 y13 w183 h24 , iWebBrowser2 Learner
Gui, Add, Button, x530 y10 w26 h18 , ?
Gui, Add, Button, x503 y10 w26 h18 ,
; Generated using SmartGUI Creator 4.0
Gui, Show, x109 y460 h372 w568, New GUI Window
Return

GuiClose:
ExitApp

GuiControl,Text,html_text
 ,%   (textOfObj:=inpt(pelt)) " `n" COM_Invoke(pelt, "outerhtml")

iWeb_setDomObj(pwb,"txtUser","USERNAME")
iWeb_setDomObj(pwb,"txtPass","PASSWORD")
iWeb_clickDomObj(pwb,"btnAction")

javascript:void(document.getElementsByName('txtUser')[0].value='USERNAME');
javascript:void(document.getElementsByName('txtPass')[0].value='PASSWORD');
javascript:document.getElementsByName('btnAction')[0].click();