AutoHotkey Community

COM_CoInitialize()
OnExit,COM_CoUninitialize
pwb:=iWeb_getwin("google")
;~ get the text from the page
pagetext:=COM_Invoke(pwb,"document.body.innertext")
IfInString,pagetext,keword
{
;~    do something that would include navigating
   
}


;~ you can only goback if there is history in the current browser
COM_Invoke(pwb, "GoBack")




COM_CoUninitialize:
COM_CoUninitialize()
ExitApp

;~ get an already running instance of IE
iWeb_getwin(t)
{
   psw   :=   COM_Invoke(psh   :=   COM_CreateObject("Shell.Application"),   "Windows"),COM_Release(psh)
   Loop, %   COM_Invoke(psw,   "Count")
   {
      LocationName   :=   COM_Invoke(psw,"Item[" A_Index-1 "].LocationName")
      IfInString,LocationName,%t%
      {
         pwb         :=   COM_Invoke(psw,"Item" ,A_Index-1)
         COM_Release(psw)
         Return   pwb   
      }
   }
   COM_Release(psw)   
   Return   0
}

pwb:=iWeb_getwin("google")
COM_Invoke(pwb, "GoBack")

iWeb_Init()
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#SingleInstance,force
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
#Include COM.ahk
OnExit,Term
SetTitleMatchMode,2
MsgBox -----------------This is only a DEMONSTRATION-----------------`n`nIt is not designed to do anything PRODUCTIVE.`n`nIt will DEMONSTRATE to me that the code is working as planned.`n`n1. Code will click on Google news.`n2. Get the html source code`n3. Parse the code for keywords.`n4. Do something based on the keywords it finds`n5. Then GOBACK a page to DEMONSTRATE that it can GOBACK a page.`n`nOnce I see that it works I will apply it to my CONFIDENTIAL script.`n`nPlease open www.google.com, then click Ok

IfWinNotExist,Google
 MsgBox A Google window could not be found.`n`nOpen www.google.com, then click OK

pwb:=iWeb_getwin("google")
iWeb_clickDomObj(pwb,17)
sleep 1000
iWeb_complete(pwb)
sleep 1000
Gosub GetHtmlSourceCode
sleep 1000
IfInString,HtmlCode,Obama
 MsgBox Obama keyword is in the source code`n`nClick okay and see if it goes back a page
Else
 MsgBox Obama keyword was not found in the source code`n`nClick okay and see if it goes back a page

COM_Invoke(pwb, "GoBack")
iWeb_complete(pwb)


MsgBox The DEMONSTRATION code is now complete.`n`nDid it GOBACK a page?`n`nScript will now exit
term:
iWeb_Term()
exitapp

GetHtmlSourceCode:
ControlGet, hIESvr, Hwnd,, Internet Explorer_Server1,Google
WinGetClass, class, ahk_id %hIESvr%
if (!hIESvr or class != "Internet Explorer_Server")
 return
COM_Error(0)
WM_HTML_GETOBJECT := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
SendMessage, WM_HTML_GETOBJECT,,,, ahk_id %hIESvr%
lResult := ErrorLevel
DllCall("oleacc\ObjectFromLresult", "uint", lResult, "uint", COM_GUID4String(IID_IHTMLDocument2,"{332C4425-26CB-11D0-B483-00C04FD90119}"), "int", 0, "uint*", pDoc)
DocEle:=COM_Invoke(pDoc, "documentElement")
htmlcode:=COM_Invoke(DocEle,"innerHTML")
COM_Release(DocEle)
COM_Release(pDoc)
return

/*
Tank - Please Note: the iWeb_complete(pwb) posted on the first page of your thread... http://www.autohotkey.com/forum/topic30599.html did not work for me, using Vista and IE8

I found your alternate method which works very well posted here and listed below...http://www.autohotkey.com/forum/topic30599-120.html

iWeb_complete(pwb)                  ;   returns bool for success or failure
{   
   If  !pwb      ;   test to see if we have a valid interface pointer
      sleep, 5000                  ;   ExitApp if we dont
else {
   loop 10                     ;   sets limit if itenerations to 40 seconds 80*500=40000=40 secs
   {   
      If not (rdy:=COM_Invoke(pwb,"readyState") = 4)
         Break            ;   return success
      Sleep,100               ;   sleep .1 second between cycles
   }
   loop 80                     ;   sets limit if itenerations to 40 seconds 80*500=40000=40 secs
   {   
      If (rdy:=COM_Invoke(pwb,"readyState") = 4)
         Return    1            ;   return success
      Sleep,500               ;   sleep half second between cycles
   }
}
   Return 0                  ;   lets face it if it got this far it failed
}                            ;   end complete

*/

HtmlCode:=COM_Invoke(pwb,"document.documentelement.outerHTML")

com_invoke(pwb,"document.all.item[someid].scrollintoview",1)

Com_Init()
COM_AtlAxWinInit()
COM_Error(1)
Gui, +LastFound +Resize
pwb := COM_AtlAxGetControl(hAx:=COM_AtlAxCreateContainer(WinExist(), 0, 30, 700, 550, "Shell.Explorer"))
Gui, Show, x0 w700 h600
loop 50
    lb.=".<br />"

IE_LoadHTML(pwb,lb "<img src='http://www.google.de/intl/de_de/images/logo.gif'>")
;MsgBox   %  url:=COM_Invoke(pwb,"locationURL")
;  COM_Invoke(pwb,"navigate",url "#anchor")
;MsgBox   % COM_Invoke(pwb,"locationURL")
settimer,go,6000
Return

go:
settimer,go,off
1 := "<img>"
com_invoke(pwb,"document.all.item['1'].scrollintoview",1)
Return

GuiClose:
COM_CoUninitialize()
ExitApp

#include, Resources\IE.ahk
#include, Resources\COM.ahk

Gui, +Resize +LastFound
Gui, Show, w1024 h768 Center, WebBrowser

COM_AtlAxWinInit()
pweb :=   COM_AtlAxCreateControl(WinExist(), "Shell.Explorer")
sink :=   COM_ConnectObject(pweb, "Web_")
bComplete := False
COM_Invoke(pweb, "Navigate2", "http://www.autohotkey.com/docs/Functions.htm")
While   !bComplete
   Sleep, 100
COM_Invoke(pweb, "document.anchors[BuiltIn].scrollIntoView")
Return

GuiClose:
Gui, Destroy
COM_DisconnectObject(sink)
COM_Release(pweb)
COM_AtlAxWinTerm()
ExitApp

OnComplete:
bComplete := True
Return

Web_DocumentComplete(prms, sink)
{
   If   NumGet(NumGet(prms+0)+24) = NumGet(sink+12)
      SetTimer, OnComplete, -10
}