Fermer un Popup d'avertissement d'IE
Bonjour,
je débute et j'ai écrit un petit code pour ouvrir un lien avec la date du jour à passer dans l'URL.
Le pb est que lors de la première connexion IE m'ouvre un popup "Alerte de sécurité" et me pose la question Voulez vous continuer ? avec les boutons
"oui" "non" et "afficher le certificat".
Est il possible de détecter l'ouverture de cette fenêtre (car elle ne s'ouvre pas après la première visite) et de la fermer en vbs ?
Voici mon tout petit script (c'est mon premier:oops:) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Dim IE
Dim DateJour
DateJour = year(now) & "-" & month(now) & "-" & day(now)
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 0
IE.navigate "https://1.2.3.4/MonUrl.php?this_date=" & DateJour
Do While (IE.Busy)
WScript.Sleep 10
Loop
On Error Resume Next
Set Helem = IE.document.getElementById("username")
Helem.Value = "MonLogin"
Set Helem = IE.document.getElementById("password")
Helem.Value = "MonPassword"
Set Helem = IE.document.Forms(0)
Helem.Submit
Do While (IE.Busy)
WScript.Sleep 10
Loop
IE.Visible = 1 |
Merci par avance .
