AutoHotkey Community

COM_Init() ; requires COM Standard Library
pwb := COM_CreateObject("InternetExplorer.Application")
COM_Invoke(pwb, "Visible", "True")
COM_Invoke(pwb, "Navigate", "www.google.com")
While, % COM_Invoke(pwb, "ReadyState") <> 4
   Sleep, 10

GS := COM_Invoke(pwb, "document.all.btnG")
IFL := COM_Invoke(pwb, "document.all.btnI")
sink1 := COM_ConnectObject(GS, "GS_")
sink2 := COM_ConnectObject(IFL, "IFL_"), done:=False
While(!done)
   Sleep, 10

; Cleanup
COM_DisconnectObject(sink1), COM_DisconnectObject(sink2)
COM_Release(pwb), COM_Release(GS), COM_Release(IFL), COM_Term()
Return


GS_OnClick() {
   SetTimer, Search, -10 ; EDIT - changed from GoSub per tank's recommendation below
}
IFL_OnClick() {
   SetTimer, Lucky, -10
}
Search:
   MsgBox, Google Search
   done:=True
   Return
Lucky:
   MsgBox, I'm Feeling Lucky
   done:=True
   Return

;------------------------------------------------------------------------------
; Requires COM.ahk Standard Library
; by Sean
; http://www.autohotkey.com/forum/topic22923.html
; Requires iWeb.ahk
; by tank
; http://www.autohotkey.com/forum/viewtopic.php?p=197475#197475
;------------------------------------------------------------------------------
/* written by tank to help with topic
http://www.autohotkey.com/forum/viewtopic.php?t=49594
Newbie, execute script based on webpage button press.
10/4/2009
*/
#Persistent
COM_CoInitialize()
OnExit,Close

If   pwb:=iWeb_getwin("google") {
   If   feel_lucky:=COM_Invoke(pwb,"document.all[btnI].")
      psink:=COM_ConnectObject(feel_lucky,"buttons_") ;buttons_ is a function prefix
   COM_Release(pwb)
}
Return

somecode:
{
   MsgBox some code to execute here
   Return
}

buttons_onClick()
{
   SetTimer,somecode,-10 ; do this to execute a thread this is the recommended method to execute some code
}

Close:
COM_CoUninitialize()
ExitApp

settimer,label,-10

#Persistent
SetTimer, ConnectGoogle, 100
Return

ConnectGoogle:
If WinExist( "Google - Windows Internet Explorer" ) {
   If Not pwb {
      pwb := IEGet( "Google - Windows Internet Explorer" )
      sink := COM_ConnectObject( doc:=pwb.document, "Doc_" )
      sink1 := COM_ConnectObject( doc.all.btnG, "GS_" )
      sink2 := COM_ConnectObject( doc.all.btnI, "IFL_" )
      done:=False
      While( !done )
         Sleep, 10
      GoSub, DisconnectGoogle
   }
} Else
   GoSub, DisconnectGoogle
Return

DisconnectGoogle:
   COM_DisconnectObject( sink ), COM_DisconnectObject( sink1 ), COM_DisconnectObject( sink2 ), pwb := ""
Return
Doc_OnReadyStateChange() {
   SetTimer, PageChange, -10
}
PageChange:
   While, pwb.ReadyState <> 4
      Sleep, 10
   done := True
Return
GS_OnClick() {
   SetTimer, Search, -10
}
IFL_OnClick() {
   SetTimer, Lucky, -10
}
Search:
   MsgBox, Google Search
   done:=True
Return
Lucky:
   MsgBox, I'm Feeling Lucky
   done:=True
Return

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