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

VBScript Discussion :

se logger dans un portail avec VBScript


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Homme Profil pro
    Webmaster
    Inscrit en
    Septembre 2022
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Webmaster
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Septembre 2022
    Messages : 9
    Points : 11
    Points
    11
    Par défaut se logger dans un portail avec VBScript
    Bonjour à tous,

    j'essaie de me logger dans un site web afin d'y télécharger mes factures...si c'est possible, j'ai évidemment les accès appelé USER et PASS.

    il faut je pense d'abord faire un POST pour entrer dans le compte et faire un GET pour y télécharger la facture.

    la "form", formulaire en ligne se présente comme telle:

    Code html : 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
    30
                        <form name="loginForm" action="/openid/login.do" method="post" class="login-form"
                              onsubmit="return validate();">
                            <label for="j_username_input">Numéro mobile</label>
                            <div class="form-group">
                                <input class="form-control" type="text" inputmode="numeric" name="j_username" id="j_username_input"
                                       autofocus onkeyup="validateMobileNumber(this.name);"
                                       onblur="validateMobileNumber(this.name, true);"
                                       >
                            </div>
                            <div class="errors" id="j_username_error"></div>
                            <label for="j_password_input">Mot de passe</label>
                            <div class="form-group">
                                <input class="form-control password-input" type="password" name="j_password"
                                       id="j_password_input" placeholder="" onkeyup="showEyeIcon();">
                                <div class="hide-show" style="display: none;" id="passwordEye"
                                     onclick="togglePassword();"></div>
                            </div>
     
                            <div class="errors" id="j_password_error"></div>
                            <a href="/openid/requestpassword" id="requestPasswordLink" class="link link-login"
                               onmousedown="event.preventDefault();">Mot de passe oublié*?</a>   
     
     
     
                            <div class="form-group">
                                <button type="submit" class="Button Button--primary login" name="Login.Submit"
                                        id="login_button">Se connecter</button>
                            </div>
                            <input type="hidden" name="rememberme" id="rememberme" value="true"/>
                        </form>

    après avoir cherché, voici mon code vb:

    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
    mainUrl = "https://login.prd.TEST.be/openid/login"
     
    myuser = "USER"
    mypass = "PASS"
    fileUrl = "https://api.prd.TEST.be/ocapi/public/api/billing-service/v2/accounts/100992022/bills/224801077164"
     
    strAuthenticate = "j_username" & myuser & "&j_password=" & mypass
    Set WHTTP = CreateObject("Msxml2.XMLHttp.6.0")
     
    With WHTTP
    	.Open "POST", mainUrl, False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .Send strAuthenticate
        MsgBox .responseText
        MsgBox .status
     End With
    je ne pense pas que cela marche jusqu'ici, je ne sais pas comment vérifier si je suis bien logger.
    Néanmoins, il renvoie un status de 200

    je sais télécharger des documents PDF directement à partir du net par ce code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    If WHTTP.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WHTTP.responseBody
        oStream.SaveToFile "C:\file.pdf", 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    End If

    merci d'avance,

    Xzave

  2. #2
    Expert éminent sénior
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 078
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 078
    Points : 17 048
    Points
    17 048
    Par défaut
    Salut

    pour savoir si ton retour est bon mais aussi disponible, essais d'ajouter une condition supplémentaire
    If WHTTP.Status = 200 and WHTTP.readyState = 4 Then.

    Status = 200signifie que le document a été trouvé à l'emplacement désigné(par l'URL) et est accessible pour l'ouverture, donc pas forcement disponible pour le traitement.
    readyState = 4 qui signifie que toutes les données sont chargées et disponibles pour les traiter par la suite du programme.
    pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. alterner les couleurs dans un tableau avec xsl
    Par Eithelgul dans le forum XSL/XSLT/XPATH
    Réponses: 14
    Dernier message: 03/05/2015, 23h29
  2. Réponses: 0
    Dernier message: 24/02/2014, 11h07
  3. [JBoss Portal] problème avec le déploiement d'une portlet dans le portail jboss portal
    Par skipeemed dans le forum Portails
    Réponses: 0
    Dernier message: 23/11/2010, 10h41
  4. Lire excel et les insérer dans access avec vbscript
    Par regisyves dans le forum VBScript
    Réponses: 3
    Dernier message: 19/06/2010, 07h27
  5. enregistrer dans un fichier avec une appli mdi
    Par ferrari dans le forum C++Builder
    Réponses: 4
    Dernier message: 05/05/2002, 15h17

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