Discussion :

[maxxikilla]

Bonjour a tous,

Je rencontre un petit soucis avec mon code. j'essaye simplement d'inscrire un login et un mot de passe avec vba.
Ca fonctionne pour tous les sites, sauf pour celui qui m'interesse ... Peut etre existe il une sorte de protection.
Je vous montre le code.
Le site web est le suivant: https://www.nbdb.ca/pcis/login.jsp?url=/.do
l'element correspondant au login est "username". l'element correspondant au mot de passe est "password" sur le site. C'est inscrit dans le code html.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub CanMain()
 
 
Dim IE As InternetExplorer
Dim IEdoc As Object, DOCelement As Object
Dim MonTexte As String, SiteWeb As String
Dim SearchBouton As Object
 
 
' On lance le logout au par mesure de precaution
 
        Set IE = New InternetExplorer
        SiteWeb = "https://www.nbdb.ca/pcis/logout.free?url=%2Fpcis%2Flogged_out.free"
        IE.Navigate SiteWeb
        IE.Visible = True
         IE.Navigate SiteWeb
 
      ' fonction qui permet d'attendre que lq pqge soit bien affichee
      Call Wait1
 
        SiteWeb = "https://www.nbdb.ca/pcis/login.jsp?url=/.do"
        MonTexte = "coucou"
        Password = "coucou1"
 
 
        IE.Navigate SiteWeb
 
        ' attente de fin de chargement
             Do Until IE.ReadyState = 4
                  DoEvents
             Loop
 
        Set IEdoc = IE.Document
 
 
        Call Wait1
 
 
        ' introduction du texte
        Set DOCelement = IEdoc.getElementsByName("username").Item
         DOCelement.Value = MonTexte
       Set DOCelement = IEdoc.getElementsByName("password").Item
       DOCelement.Value = Password
 
end sub

Savez vous d'ou vient le probleme ?

Merci pour votreaide.

Cordialement, Maxime

[Invité]

je penses que si tu injectes du java dans IE {submitLogin();}ça devrait passer!

Code page HTML:=JavaScript :

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
function validation() {
    if (document.loginForm.username.value=="") {
        alert ("In order to access our site you must enter your username and password.");
        document.loginForm.username.focus();
        return false;
      }
      if (document.loginForm.password.value=="") {
        alert ("In order to access our site you must enter your username and password.");
        document.loginForm.password.focus();
        return false;
    }
 
      if (document.loginForm.recordusr.checked) {
        setUsrName();
    }

    // Be sure there's no space around username
    document.loginForm.username.value = trim(document.loginForm.username.value);
    
      return true;
}

function submitLogin() {
    if (validation()) {
        document.loginForm.submit();
    }
}

[maxxikilla]

Bonjour, ( desole pour les accents, je suis sur clavier americain)

Tout d'abord merci pour ses elements de reponse !

Je n'avais pas du tout pense a injecter du java directement. J'ai essaye de faire comme cela, jene sais pas si c'est la bonne methode en VBA, mais j'ai un RunTime error, on dirait qu'il n'apprecie guere...

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub CanMain()
 
 
Dim IE As InternetExplorer
Dim IEdoc As Object, DOCelement As Object
Dim MonTexte As String, SiteWeb As String
Dim SearchBouton As Object
 
 
 
' On lance le logout au parmesure de precaution
 
        Set IE = New InternetExplorer
        SiteWeb = "https://www.nbdb.ca/pcis/logout.free?url=%2Fpcis%2Flogged_out.free"
        IE.Navigate SiteWeb
        IE.Visible = True
         IE.Navigate SiteWeb
 
            Call Wait1
 
        SiteWeb = "https://www.nbdb.ca/pcis/login.jsp?url=/.do"
        MonTexte = "coucou"
        Password = "coucou1"
 
 
        IE.Navigate SiteWeb
 
        ' attente de fin de chargement
             Do Until IE.ReadyState = 4
                  DoEvents
             Loop
 
        Set IEdoc = IE.Document
 
 
        Call Wait1
 
' je veux juste inscrire ici quelque chose dans la fenetre, histoire de voir si cela fonctionne ... Ca bloque des la premiere ligne, avec une
' magnifique Runtime error  " Could not complete the operation due to error 80020101
 
   IE.Document.parentWindow.execScript ("javascript:document.loginForm.username.value = coucou")
  IE.Document.parentWindow.execScript ("javascript:document.loginForm.password.value = coucou1")
IE.Document.parentWindow.execScript ("javascript:validation()")
 
' j'ai egalement essaye dexecuter le loginsubmit. je pense que c'est normal si cela ne fonctionne pas,car il faut d'abord le validation()
  IE.Document.parentWindow.execScript ("javascript:submitLogin()")

J'ai egalement essaye avec cette methode
Call IE.Document.parentWindow.execScript("document.loginForm.username.focus()", "JavaScript") mais rien a faire

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
IE.Document.Frames.Item(0).execScript "document.loginForm.username.value='toto';"
IE.Document.Frames.Item(0).execScript "document.loginForm.password.value='toto';"
IE.Document.Frames.Item(0).execScript "submitLogin();"

[maxxikilla]

Super ca fonctionne !!

Un grand merci à toi !