IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

authentification sur site web https


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 093
    Billets dans le blog
    20
    Par défaut authentification sur site web https
    Bonjour,
    Je cherche une méthode pour m'authentifier sur un site web avec une authentification NTLM (boite de dialogue).

    Celle-ci fonctionne mais ne conserve pas le jeton par le site tant que mon programme fonctionne.

    Je veux reproduire l'équivalent de ce que excel fait lorsque l'on clique manuellement dans la boite de dialogue "connection à ..."

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Sub cred()
        Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
        Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
        Const HTTPREQUEST_PROXYSETTING_DEFAULT = 0
        Const HTTPREQUEST_PROXYSETTING_PRECONFIG = 0
        Const HTTPREQUEST_PROXYSETTING_DIRECT = 1
        Const HTTPREQUEST_PROXYSETTING_PROXY = 2
     
        Dim myReq As WinHttpRequest
        Set myReq = New WinHttpRequest
     
        myReq.Open "GET", "https://monsite/Allitemsg.aspx", False
        myReq.send
        MsgBox myReq.Status
        'Set credentials
        myReq.SetCredentials "USERNAME", "PASSWORD", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
        'Set credentials for the proxy.
        myReq.setProxy (HTTPREQUEST_PROXYSETTING_PRECONFIG)
        myReq.SetAutoLogonPolicy (AutoLogonPolicy_Always)
     
     
        myReq.Option(WinHttpRequestOption_EnableRedirects) = True
        myReq.send
     
        Dim res As String
        res = myReq.responseText
        MsgBox res
     
    End Sub
    Have a nice day. Oliv'
    Votre réponse est peut être dans mon blog !
    https://www.developpez.net/forums/blogs/191381-oliv-/

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 093
    Billets dans le blog
    20
    Par défaut
    une idée ?
    Have a nice day. Oliv'
    Votre réponse est peut être dans mon blog !
    https://www.developpez.net/forums/blogs/191381-oliv-/

Discussions similaires

  1. Mettre font perso sur site web
    Par chico_du_33 dans le forum Mise en page CSS
    Réponses: 7
    Dernier message: 04/12/2007, 10h00
  2. Live webcam sur site web
    Par delavega dans le forum Général Conception Web
    Réponses: 5
    Dernier message: 23/05/2006, 17h39
  3. Lecteur MPEG4 sur site web...
    Par zoidy dans le forum Balisage (X)HTML et validation W3C
    Réponses: 1
    Dernier message: 16/05/2006, 12h13
  4. [C#][2.0] Ajout de Frames sur Site Web
    Par pocket dans le forum ASP.NET
    Réponses: 2
    Dernier message: 08/02/2006, 17h57
  5. Fichiers .nsf sur site web, c'est quoi ?
    Par vanmouniren dans le forum Général Conception Web
    Réponses: 1
    Dernier message: 16/10/2005, 10h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo