Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
939 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Resolu] Une script qui valide une formulaire Web

 
 

Sujet(s) à lire :
    - Piloter un site Web à partir de VBA
 

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Resolu] Une script qui valide une formulaire Web

n°2271732
unisev
Posté le 16-12-2015 à 12:50:10  profilanswer
 

Bonjour,
 
Voici la page web de l'écran de connexion de ma box :
 

Code :
  1. <!DOCTYPE html>
  2. <html lang="fr">
  3. <head>
  5. <title>Bbox - connexion</title>
  7. <meta charset="utf-8">
  8. <meta name="viewport" content="initial-scale=1.0,user-scalable=no,maximum-scale=1">
  9. <meta name="apple-mobile-web-app-capable" content="yes">
  10. <meta name="HandheldFriendly" content="True">
  11. <meta name="apple-mobile-web-app-status-bar-style" content="black">
  13. <!-- Style Sheets -->
  14. <link href='/css/bbox-merge.css?build=10.1.2' media='screen' rel='stylesheet' type='text/css'> <!--[if LTE IE 8]>
  15. <link rel="stylesheet" type="text/css" media="all" href="/css/fs.gridlock-ie.css?build=10.1.2" />
  16. <![endif]-->
  18. <!--[if lt IE 9]>
  19. <script src="/js/html5shiv.js?build=10.1.2"></script>
  20. <![endif]-->
  21. </head>
  23. <body class="tvw620i feat-checker feat-biloader no-feat-temperature no-feat-orientation no-feat-light feat-usb feat-ht40 feat-5g feat-scan-5g feat-hotspot feat-wps feat-scanwifi no-feat-alert-save no-feat-search remote-off gridlock">
  25. <div class="page-login">
  26. <div class="login-form">
  27. <div class="row">
  28. <div class="desktop-6 desktop-push-3 tablet-4 tablet-push-1 mobile-full panel">
  29. <div class="branding"></div>
  30. <p class="subtitle">Interface d'administration</p>
  31. <form id="login-form">
  32. <div class="textfield">
  33. <input type="password" placeholder="Mot de passe" id="password" name="password">
  34. <div id="password-message" class="alert-message">
  36. </div>
  37. </div>
  38. <div class="cb-container">
  39. <div class="cb">
  40. <input type="checkbox" value="None" id="cb-stay-logged" name="check" checked />
  41. <label for="cb-stay-logged"></label>
  42. </div>
  43. <div class="cb-label">
  44. rester connecté
  45. </div>
  46. </div>
  47. <div class="btn-container btn-login">
  48. <button class="cta-1" type="submit">CONNEXION</button>
  49. </div>
  50. <div class="pwd-lost" style="display:none;">
  51. <a href="" target="_self">mot de passe oublié ?</a>
  52. </div>
  53. </form>
  54. <div class="spacer-hz"></div>
  56. <div class="notify" style="display:none;">
  57. <span class="internet">
  58. <span class="ok"></span>
  59. </span>
  60. <span class="voip">
  61. </span>
  62. <span class="wifi">
  63. </span>
  64. <span class="iptv">
  65. </span>
  66. <span class="usb">
  67. </span>
  68. <span class="parental">
  69. </span>
  70. <span class="night">
  71. </span>
  72. <span class="dl-speed">
  73. </span>
  74. <span class="ul-speed ">
  75. </span>
  76. <span class="voicemail">
  77. </span>
  78. </div>
  79. </div>
  80. </div>
  81. </div>
  83. </div>
  84. <script type="text/javascript" src="/js/messages.js?build=10.1.2"></script><!-- Scripts -->
  85. <script type='text/javascript' src='/js/bbox-merge.js?build=10.1.2'></script><script type="text/javascript" src="/js/login.js?build=10.1.2"></script>
  86. <!--[if LTE IE 9]>
  87. <script type="text/javascript" src="/js/css3-mediaqueries.js?build=10.1.2"></script>
  89. <![endif]-->
  90. </body>
  91. </html>


 
Et voici ma tentative de script pour me connecter :


'Login bbox
Dim objWshShell,IE
 
Set objWshShell = Wscript.CreateObject("Wscript.Shell" )
Set IE = CreateObject("InternetExplorer.Application" )
 
With IE
  .Visible = True
  .Navigate "http://192.168.1.254"
 
'Wait for Browser
  Do While .Busy
    WScript.Sleep 100
  Loop
 
 
 .Document.getElementsByName("password" ).Item(0).Value = "MyPassord"
 .Document.Forms(0).submit
 
 Do While .Busy
    WScript.Sleep 100
  Loop
 
 
 
End With


 
La saisie du mot de passe fonctionne bien, mais pas le "Submit" du formulaire, auriez-vous une piste à me suggérer ?


Message édité par unisev le 20-12-2015 à 21:58:50
mood
Publicité
Posté le 16-12-2015 à 12:50:10  profilanswer
 

n°2272024
unisev
Posté le 20-12-2015 à 21:58:33  profilanswer
 

Je n'ai pas réussi
 
J'ai donc remplacé :
.Document.getElementsByName("password" ).Item(0).Value = "MyPassord"  
 
Par :
Send("MyPassord{Enter}" )
 
L'appui sur Enter valide le formulaire...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Resolu] Une script qui valide une formulaire Web

 

Sujets relatifs
Nouvelle formule dans un scriptAppel batch à partir script powershell
Powershell - Problème script création d'utilisateur dans l'ADArrêt d'un PC avec un script batch
Script BATHaide pour finaliser un script
Piloter un site Web à partir de VBAScript de sondage
De serieux problemes avec mon formulaireExemple de création de cookie via un formulaire dans jsp
Plus de sujets relatifs à : [Resolu] Une script qui valide une formulaire Web

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.075 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR