[R] Tester une URL dans plusieurs fenêtres IE

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
evilmouss
Niveau 1
Niveau 1
Messages : 11
Enregistré le : mer. 15 avr. 2009 11:07
Status : Hors ligne

[R] Tester une URL dans plusieurs fenêtres IE

#1

Message par evilmouss »

Bonjour, à l'heure actuelle j'ai ce code-ci permettant de tester une URL dans la dernière fenêtre IE sur laquelle on est allé et de renvoyer cette url :

Code : Tout sélectionner

Opt("WinTitleMatchMode", 2)
$h=WinGetHandle("Internet Explorer")
$oIE = _IEAttach($h, "HWND")
$url = _IEPropertyGet($oIE, "locationurl")
If ($url = "https://www.google.fr/" ) Then 
MsgBox(64,"Internet Explorer",$url)
EndIf
 
Ce que je voudrais, c'est tester une url dans l'ensemble des fenêtres IE ouverte. Si j'ai 5 fenêtres IE ouvertes, je veux vérifier les urls pour les 5 fenêtres et fermer celles qui ont l'url recherchée.
Quelqu'un a une idée? :) Merci.
Modifié en dernier par evilmouss le mar. 15 sept. 2009 11:35, modifié 1 fois.
Avatar du membre
Iste
Niveau 11
Niveau 11
Messages : 1870
Enregistré le : jeu. 04 déc. 2008 14:21
Localisation : 76
Status : Hors ligne

Re: Tester une URL dans plusieurs fenêtres IE

#2

Message par Iste »

Hum, une petite idée oui
Peut être pas la meilleur, mais... Si après avoir récup l'handle de la fenêtre, la renommer "[Ok] Internet Explorer" pis continuer d'en chercher d'autre sans la balise ^^
Signez ici
Avatar du membre
timmalos
Niveau 11
Niveau 11
Messages : 1970
Enregistré le : dim. 18 mai 2008 15:16
Status : Hors ligne

Re: Tester une URL dans plusieurs fenêtres IE

#3

Message par timmalos »

Y'a en effet pas mal de moyens de faire ca. MOi je m'y prendrais comme ca:

Code : Tout sélectionner

Opt("WinTitleMatchMode", -2)
$var = WinList("Windows Internet Explorer")
For $i = 1 to $var[0][0]
      $oIE = _IEAttach("", "Instance",$i) // Ou alors  _IEAttach($var[$i][1], "HWND") // Ou alors  _IEAttach($var[$i][0], "WindowTitle")
      $url = _IEPropertyGet($oIE, "locationurl")
      If ($url = "https://www.google.fr/" ) Then
              MsgBox(64,"Internet Explorer",$url)
       EndIf
Next
 
Comme tu vois ta le choix
Répondre