oIE - Check if user goes to google.com

[_Kurt]

Hey guys,

I was wondering if it's possible to check if a user goes to www.google.com in a oIE (or in other words -> If (google.com active) then (..) ). Let's use the example script for "GUICtrlCreateObj" found in our AutoIt3.chm.

expandcollapse popup

#include <GUIConstants.au3>
; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; The full example is available in the test\ActiveX directory (TestXInternet.au3)
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

$oIE = ObjCreate("Shell.Explorer.2")

; Create a simple GUI for our output
GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX         = GUICtrlCreateObj      ( $oIE,      10, 40 , 600 , 360 )
$GUI_Button_Back    = GuiCtrlCreateButton   ("Back",     10, 420, 100,  30)
$GUI_Button_Forward = GuiCtrlCreateButton   ("Forward", 120, 420, 100,  30)
$GUI_Button_Home    = GuiCtrlCreateButton   ("Home",    230, 420, 100,  30)
$GUI_Button_Stop    = GuiCtrlCreateButton   ("Stop",    330, 420, 100,  30)

GUISetState ()       ;Show GUI

$oIE.navigate("http://www.autoitscript.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Home
            $oIE.navigate("http://www.google.com");[b]If (google.com active) then (...)[/b]
        Case $msg = $GUI_Button_Back
            $oIE.GoBack
        Case $msg = $GUI_Button_Forward
            $oIE.GoForward
        Case $msg = $GUI_Button_Stop
            $oIE.Stop
    EndSelect
    
Wend

GUIDelete ()

Exit

Thanks in advance!

Kurt

Edited November 15, 2006 by _Kurt

[NELyon]

Try this

...

If _IEPropertyGet($oIE, "locationurl") = "http://www.google.com" Then

[4gotn1]

If  StringInStr($oIE.LocationURL, "www.google.com")  Then
    MsgBox(0, "Test", "Hurray! It Worked!")
EndIf

-edit-

This is how to do the same thing, without #include <IE.au3>

Edited November 15, 2006 by 4gotn1