Help

[Somebody Someware]

I made this:

$nutteloos = 1
Do
    Opt( "WinTitleMatchMode", 2 )
    #include <IE.au3>
    $oIE = _IECreate ("http://www.google.com/")
    #include <IE.au3> 
    $site = _IEPropertyGet ( $oIE, "locationurl" )
    If $site = ( "http://www.google.com/" ) Then
        TrayTip( "WebWarner 1.0 door Ruben van Os", "Dit is een goedgekeurde site", 30 )
    EndIf
Until $nutteloos = 0

But it doesn't work.

Please help my

Edited September 23, 2006 by Somebody Someware

[jzn2]

Could you explain what you are trying to do?

[GaryFrost]

Opt( "WinTitleMatchMode", 2 )
#include <IE.au3>

HotKeySet("{ESC}", "_Terminate")

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

$nutteloos = 1
Do
    If $site = ( "http://www.google.com/" ) Then TrayTip( "WebWarner 1.0 door Ruben van Os", "Dit is een goedgekeurde site", 30 )
    Sleep ( 10 )  
Until $nutteloos = 0

Func _Terminate()
    Exit
EndFunc