[R] Ne rien faire tant que la page IE n'est pas ...

[Utilisateur 3643 supprimé]

Bonjour !

J'aimerais faire une gui avec une page internet à l'intérieur partant de 'http://www.google.com/' , jusque là, tout va bien !

Mais j'aimerais que le programme réponde avec une MsgBox lorsque la page internet est sur le site 'http://www.autoitscript.fr/' par exemple, mais je ne sais pas comment m'y prendre En cherchant, je n'ai pas trouvé (peut-être ai-je mal cherché ?)

Quelqu'un aurait-il une idée ?

Je vous remercie d'avance pour vos réponses et vous souhaite une bonne journée

[mikell]

Regarde _IEPropertyGet($oIE, "locationurl")

[Utilisateur 3643 supprimé]

Merci, de ton aide, la fonction fonctionne bien
Voici le script

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Dim $s_html
_IEErrorHandlerRegister ()
$ie = _IECreateEmbedded ()


Global $advert = GUICreate("", 480, 353)
Global $inter = GUICtrlCreateObj($ie,8, 8, 457, 289)
Global $SinkObject=ObjEvent($ie,"IEEvent_","DWebBrowserEvents")
Global $next = GUICtrlCreateButton("Next", 8, 304, 457, 41)
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState(@SW_SHOW)
_IENavigate ($ie, "http://www.google.com/")
$state = 0
Do
    $url = _IEPropertyGet($ie, "locationurl")
    If $url = "http://www.autoitscript.fr/" and $state = 0 Then
        GUICtrlSetState($next,$GUI_ENABLE)
        $state = 1
    EndIf
    $msg = GUIGetMsg()
    If $msg = $next then ExitLoop
    Sleep(10)
    Until $msg = $next
MsgBox(0,"","Bienvenue sur le forum français d'autoit !")