XMLHTTP et Avertissement de sécurité

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

XMLHTTP et Avertissement de sécurité

Bonjour,
j'utilise un requête XMLHTTP pour recueillir des informations sur internet.

Le problème c'est qu'une GPO de mer.. provoque l'affichage d'un Avertissement de sécurité Windows, que je n'ai pas si je lance le lien directement avec IE (11)

Pièce jointe 208207

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub xml()
 Set MyXMLHttp = CreateObject("Msxml2.XMLHTTP")
            URL$ = "https://www.ellisphere.fr/entreprise/327733184"
             With MyXMLHttp
                .Open "get", URL, False
                .setRequestHeader "DNT", "1"
                On Error Resume Next
                .send
                On Error GoTo 0
 
                If .Status = 200 Then
                    SP = .responseText
                    MsgBox SP
                Else
                    MsgBox "Erreur " & .Status & " " & .StatusText & " !"
                End If
            End With
End Sub

une solution ?

28/04/2016, 11h55
Marc-L

Bonjour,

de mon côté sans GPO lors du premier lancement il y a une alerte de sécurité
à cause des informations manquantes de la révocation du certificat de sécurité du site.

Voir en désactivant la propriété DisplayAlerts, sait-on jamais …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
28/04/2016, 11h59
cerede2000

Chez moi pas d'avertissement mais je tombe dans le cas erreur messagebox avec 0.
28/04/2016, 12h01
Marc-L

Oui pareil de mon côté, il faudrait peut-être essayer avec l'adresse finale vu la redirection …
28/04/2016, 12h06
joe.levrai

Bonjour,

le DisplayAlerts ne changera pas la chose, puisqu'il s'applique aux alertes de l'application ... là c'est IE qui l'envoi ?

j'avais aussi tenté Application.Parent.DisplayAlerts, sans succès
28/04/2016, 12h08
cerede2000

Hum ouai pas facile à traiter en XMLHTTP ça.
Il va falloir récupérer les headers pour suivre les redirections.....

Possible à faire ça ? Marc-L ?

Concernant la possibilité de cacher les message oublié ça immédiatement !
Ce n'est tout simplement pas possible pour une raison évidente de sécurité !
Les paramètres IE qui permette de régler ça sont au niveau des zones de sécurités, après il est possible de jouer avec mais c'est directement dans le registre sans effet garantie.
Tout ça pour justement éviter à un code très malicieux de faire ce qu'il veux !

Voilà genre ceci :)

Code:

1
2
3
4
5
6
7
8
9
10
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    pXmlHttp.Open "GET", "https://www.ellisphere.fr/entreprise/327733184", False
    pXmlHttp.send
 
    While pXmlHttp.Status Like "3##"
        pXmlHttp.Open "GET", pXmlHttp.getResponseHeader("Location"), False
        pXmlHttp.send
    Wend
    Debug.Print pXmlHttp.ResponseText

Si la réponse est une redirection alors on y va :P

Merci pour votre intérêt.

J'ai essayé via le registre en jouant sur les clés suivantes

Code:

1
2
3
4
5
6
7
8
9
10
11
Function ajout_site_de_confiance()
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ellisphere.fr", "http", 2)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\ellisphere.fr", "https", 2)
 
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1", "1608", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1", "1406", 1)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2", "1406", 0)
    Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3", "1406", 3)
End Function

Mais le résultat n'est pas là il y a des Policies (GPO) qui semblent ne pas les rendre opérationnelles, dans cette ruche :

HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings

28/04/2016, 14h19
cerede2000

En effet Oliv- les GPO prennes forcément le dessus des paramètre utilisateurs, c'est le principe ;)
Par je n'aurais pas pensé qu'elles se seraient appliqués sur l'objet Msxml2.ServerXMLHTTP

Est-ce que tu as essayer le code de mon post précédent ?
Tu as le même phénomène ?
28/04/2016, 14h23
Marc-L

Je pensais plutôt à appeler directement l'adresse finale …

Sinon bien vu ! :plusser:

J'ai vu une autre manière pour la redirection mais la tienne à l'avantage d'être simple sans besoin d'adaptation …

Quand tu veux tu changes ta signature !
28/04/2016, 14h23
Oliv-

Citation:

Envoyé par cerede2000

En effet Oliv- les GPO prennes forcément le dessus des paramètre utilisateurs, c'est le principe ;)
Par je n'aurais pas pensé qu'elles se seraient appliqués sur l'objet Msxml2.ServerXMLHTTP

Est-ce que tu as essayer le code de mon post précédent ?
Tu as le même phénomène ?

Malheureusement cela provoque une "erreur automation"

Essaye sans le .6.0 :

Code:

1
2
    Dim pXmlHttp As Object
    Set pXmlHttp = CreateObject("Msxml2.ServerXMLHTTP")

28/04/2016, 14h30
Marc-L

Ou encore avec WinHttp.WinHttpRequest.5.1 …
28/04/2016, 14h31
cerede2000

Citation:

Envoyé par Marc-L

Je pensais plutôt à appeler directement l'adresse finale …

Sinon bien vu ! :plusser:

J'ai vu une autre manière pour la redirection mais la tienne à l'avantage d'être simple sans besoin d'adaptation …

Quand tu veux tu changes ta signature !

Merci :)

Hum le truc c'est qu'en faite le but avoué est d'appeler l'adresse avec juste un numéro de SIRET !
Hors l'adresse final contient le nom de l'entreprise que tu ne connais pas forcément ;)
Donc en suivant simplement les redirections successives tu est tranquille et tu arrive à destination sans problème :)

Autre manière comment ?
28/04/2016, 14h32
Oliv-

Pareil
erreur sur le pXmlHttp.send

suis sous W7 (64BIT) OFFICE 2010-32BITS
28/04/2016, 14h36
cerede2000

Ha mince !
Je suis sous W10 x64/O2k16 x32 pas de soucis et je ne l'ai pas encore rencontré :(

Faut qu'on trouve il n'y a pas de raisons !
28/04/2016, 14h39
Marc-L

Citation:

Envoyé par cerede2000

Autre manière comment ?

C'était sur un site étranger, je me rappelle que je l'avais trouvé compliquée à réutiliser
car dans le send initial il y avait une commande REDIRECT et j'avais demandé à l'auteur
comment il l'avait trouvé la séquence, question restée sans réponse …

La tienne est efficace et sans besoin d'adaptation spécifique à une autre URL.
28/04/2016, 14h42
cerede2000

Ben en fait la mienne fais comme un webbrowser lambda ou un conducteur sur l'autoroute :mrgreen:
On lui dit : cette route est fermé, il y a une déviation, suivez donc les panneaux :aie:

Edit : C'est vraiment bizarre @Oliv- je viens de tester sur un XP/O2k3 et ça fonctionne aussi !! :weird::weird:
28/04/2016, 15h11
Oliv-

En fait par défaut chez nous, les menus de sécurité de IE sont masqués.

Si je les réactive, et que je fais "réinitialisé" dans la ZONE INTERNET, je n'ai plus ce message.

Heu attends parce que là on est partie dans deux direction.
Il y a le message d'avertissement de sécurité qui est une chose et tout a l'heure tu as parlé d’erreur automation.

Du coup avec Msxml2.ServerXMLHTTP ou WinHttp.WinHttpRequest.5.1 ça donne quoi ?
Avertissement de sécurité ou automation ?

Si tu réinit la zone de sécurité IE tu n'as plus l'avertissement ok.
Et l'automation ?

Edit : En passant @Marc-L, on ne l'utilise pas souvent mais le WinHttp.WinHttpRequest permet la redirection directement via ses options !
Like this :) :
Code:

1 2 3 4 5 6 7 8 9 10 Sub test() Dim pXmlHttp As Object Set pXmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1") pXmlHttp.Option(6) = True 'Pour autoriser la redirection pXmlHttp.Option(12) = True 'Pour autoriser la redirection HTTPS to HTTP pXmlHttp.Open "GET", "https://www.ellisphere.fr/entreprise/327733184", False pXmlHttp.send Debug.Print pXmlHttp.ResponseText End Sub
Les différentes options : https://msdn.microsoft.com/fr-fr/lib...(v=vs.85).aspx
Plutôt pratique :)

Voir 40 message(s) de cette discussion en une page