VBA pour se connecter sur site BNPPARIBAS ( compte DEMO )

J'ai maitrise mal le pilotage d'Internet par VBA : Peut on me donner un code VBA pour me permettre de me connecter à un compte bancaire BNPPARIBAS ( compte DEMO )
site : https://mabanque.bnpparibas/sitedemo/ident.html
Taper "123" dans mon numero client
Taper "123456" comme code secret

mon navigateur = Firefox
sinon : dites moi sur quel navigateur ce code VBA s'executera

Merci et bonne soirée

Citation:

Envoyé par toto92

J'ai maitrise mal le pilotage d'Internet par VBA : Peut on me donner un code VBA pour me permettre de me connecter à un compte bancaire BNPPARIBAS ( compte DEMO )

Ceci pourra t'aider :
https://excel.developpez.com/faq/?pa...thentifSiteWeb
https://excel.developpez.com/faq/?pa...#HyperlinkHtml
https://excel.developpez.com/faq/?pa...rlDownloadFile
https://excel.developpez.com/faq/?pa...nneesTableHtml

Bonsoir !

J'ai coché la reference Micorosft Internet Controls ( Excel 2013 ) et ca n'a pas marché !
j'ai copié/collé à partir du code trouvé dans ton premier lien
Code:

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 Option Explicit Sub connexion1() ' test mabanque.bnpparibas Dim ie As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object Set ie = New InternetExplorer ie.Visible = True ' connexion sur site bancaire BNPPARIBAS ' BNPPARIBAS met à notre disposition un site de demo avec n0 de client ( fictif ) 123 et pwd=123456 ie.Navigate ("http://mabanque.bnpparibas/sitedemo/ident.html") ' ci dessous : adresse de site BNPPARIBAS de production 'ie.Navigate ("http://mabanque.bnpparibas/fr/connexion") ' attente de fin de chargement Do Until ie.ReadyState = 4 DoEvents Loop Set IEdoc = ie.Document 'login Set DOCelement = IEdoc.getElementsByName("vb_login_username").Item ' 123 = numero client DOCelement.Value = "123" 'password Set DOCelement = IEdoc.getElementsByName("vb_login_password").Item DOCelement.Value = "123456" DOCelement.Select 'connexion Set DOCelement = IEdoc.Forms(0) DOCelement.submit Fin: End Sub
Ca s'est planté sur la ligne "DOCelement.value = "123" avec le message :
Erreur d'execution '91'
Variable objet ou variable de bloc with non definie
le numero de client 123 n'est pas passé

j'ai essayé sur l'autre site www.developpez.net
avec login = toto92
le macro ne s'est pas planté ! il a passé toto92 à la premiere fenetre et puis au lieu de passer le mot de passe : il a ouvert un autre onglet Google Custom Search ( https://cse.google.fr/cse?cx=partner...75&ie=UTF-8&q=) et puis s'est arreté dessus normalement ( donc pas de connexion sur le site de www.developpez.net)
C'est tres curieux !
:cry:
Info : ensuite je chercherai à taper le mot de passe sur le pavé numerique virtuel sur le site bancaire BNPPARIBAS ( que ce soit sur site de demo ou de production )

Merci

Citation:

Envoyé par toto92

Ca s'est planté sur la ligne "DOCelement.value = "123" avec le message :
Erreur d'execution '91'
Variable objet ou variable de bloc with non definie
le numero de client 123 n'est pas passé

Je ne suis pas du tout spécialiste dans ce domaine mais je miserais plutôt sur un problème pour le Set de la ligne précédente.
A mon avis (qui n'est pas fiable sur ce sujet), c'est la désignation du champ qui ne correspond pas à celle de la page.

Il est possible aussi que le site ait placé une protection pour empêcher ce type de manipulation.
Les robots sont de moins en moins en odeur de sainteté sur les sites officiels, surtout ceux qui concernent des données financières.

Citation:

Les robots sont de moins en moins en odeur de sainteté sur les sites officiels, surtout ceux qui concernent des données financières.

Ces robots : Linxo, Budgea, Bankin , etc... tournent toujours !

bon d'accord pour BNPPARIBAS mais pour www.developpez.net ?

Citation:

Envoyé par toto92

Info : ensuite je chercherai à taper le mot de passe sur le pavé numerique virtuel sur le site bancaire BNPPARIBAS ( que ce soit sur site de demo ou de production )

Je connais pas le site de bnp mais si c'est comme ma banque, tu parles du "gros" pavé numérique de 16 ou 25 cases au lieu de 9 avec les chiffres qui se déplacent aléatoirement a chaque nouvelle connexion et le reste est vide, il me semble que ce genre de pavé à été conçu justement pour éviter d'être utiliser via un code, car tu ne peux pas savoir quel valeur se trouve sur quel case.

Citation:

Envoyé par toto92

Ces robots : Linxo, Budgea, Bankin , etc... tournent toujours !

Un simple code VBA peut être en soi un "robot".
Un robot artisanal mais un robot quand même.

Citation:

bon d'accord pour BNPPARIBAS mais pour www.developpez.net ?

Sans doute que la BNP a des données plus précieuses à protéger que developpez.net et plus de raisons de se protéger contre de potentielles attaques.

re

Bonjour
@Menhir j'ose espérer que c'est une page de model pour les cleint bnpPB et que la protection de la vrai page de connection est plus securisée que ca
dans le cas contraire leur protection anti robots c'est de la grosse daube
j'ai regarder le code source 30 seconde j'ai compris tout de suite

bon la protect on window que l'on arrive a la passer je peux comprendre a ce jour aucune ne m'a résisté

MAIS!!!!!!
les boutons du clavier virtuel avec dans l'attribut "data-value" la valeur du bouton c'est tout simplement comique digne de ben&hills :mouarf::mouarf:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub bnpPARISBAS() Dim URL$, Login$, Passe$, IEa As Object, wsh As Object URL = "https://mabanque.bnpparibas/sitedemo/ident.html" Login = "123" Passe = "123456" Set ie = CreateObject("internetexplorer.application") Set wsh = CreateObject("wscript.shell") With ie .navigate URL .Visible = True Do: DoEvents: Loop While .readystate <> 4 With .document.getelementsbyname("ch1")(0): .Focus: wsh.SendKeys (Login): End With For i = 1 To Len(Passe) For Each elem In .document.all If elem.classname = "password-key" And elem.getattribute("data-value") = Mid(Passe, i, 1) Then elem.Click Next Next With .document.getelementbyid("submitIdent"): .Focus: .Click: End With End With End Sub
je suis mort de rire, j'en ai mal au ventre , c'est impossible de faire pire :ptdr:
a bravo!!!!! le webmaster:haha:

j'explique:
les proytection surveille si les donnée entrées sont fait par le clavier en surveillant les events key ainsi que la presence de la souris
pour passer cela il faut tout simplement doner le focus a l'element le script est leuré et crois que c'est toi avec la souris qui a selectionné l'input
il surveille la correspondance entre les eventkeys et la valeur de la touche tapée ca on y peut rien donc ont simule les touche avec senkeys par wscript.shell pour ne pas envoyer les sendkeys dans l'application vba
il y a vu que du feu
et la ou c'est tordant c'est que les touches du clavier virtuel ont leur valeurs dans un attribut
il est facile alors d'aller boucler sur ces element et si la valeur correspond a 1 chiffre de mot de passe on le click et la encore en lui donnant le focus il a le meme resultat que si tu avais vraiment cliquer dessus

hahahah indigne d'une banque

juste pour en rire le code source du clavier virtuel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <div id="secret-nbr-keyboard" style='background-image: url("/rsc/contrib/image/generique/grille_demo.png");'> <a class="password-key" href="" data-value="7"></a> <a class="password-key" href="" data-value="3"></a> <a class="password-key" href="" data-value="2"></a> <a class="password-key" href="" data-value="0"></a> <a class="password-key" href="" data-value="8"></a> <a class="password-key" href="" data-value="9"></a> <a class="password-key" href="" data-value="6"></a> <a class="password-key" href="" data-value="4"></a> <a class="password-key" href="" data-value="5"></a> <a class="password-key" href="" data-value="1"></a> </div>
:applo: le webmaster
:ptdr:

<div id="secret-nbr-keyboard":ptdr::ptdr::mouarf::ptdr:

edit:
fort heureusement la vrai page de connextion est un peu différente mais c'est jouable quand meme on a l'la base de l'algo en attribut du div
bref c'est pas jojo comme protect

Bonjour !

Bon d'accord ! le site BNPPARIBAS c'est une complication qu'un debutant en VBA pourrait esperer de faire face plus tard ...
Mais le code trouvé ( et prevu pour se connecter sur www.developpez.net ) dans le lien donné par Menhir : https://excel.developpez.com/faq/?pa...thentifSiteWeb ne marche pas sur le site de www.developpez.net
je ne peux pas avancer ... !

Bon dimanche mais face à la canicule : Buvez beaucoup d'eau , Mouillez-vous et ventilez-vous le corps
8-)

connection BNPPARIBAS

Citation:

Envoyé par toto92

J'ai maitrise mal le pilotage d'Internet par VBA : Peut on me donner un code VBA pour me permettre de me connecter à un compte bancaire BNPPARIBAS ( compte DEMO )
site : https://mabanque.bnpparibas/sitedemo/ident.html
Taper "123" dans mon numero client
Taper "123456" comme code secret

mon navigateur = Firefox
sinon : dites moi sur quel navigateur ce code VBA s'executera

Merci et bonne soirée

Bonjour
J'a tant bien que mal essayé de produire un système d'identification pareil à celui de BNP PAPRIBAS mais je ne sais même pas par quoi commencer. Je fais du php et un peu de javascript et ce qui m'a le plus émerveillé, c'est le système de grille machin là avec les touches qui se déplacent àléatoirement et lorsque tu cliques dessus, çà apparaît en input password , j'aimerais tant avoir un code qui puisse me permettre de produire un système du genre. J'utilise dreamweaver CC.
Sauvez-moi s'il vous plaît.