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 :

Écrire dans textbox HTML


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre Expert

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Par défaut Écrire dans textbox HTML
    Bonjour,

    J'essaye de me connecter sur un équipement par son interface web mais pas moyen.

    Voici la source :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    <form action="javascript:login()" method="post">
    						<table border="0" cellspacing="2" cellpadding="0">
    							<tr>
    								<td class="img" align="center" valign="middle" width="240"><img src="media/logo.jpg" width="120" height="70"></img><br>
    									<strong>FoxBox G20 LOGIN<br>
    									</strong></td>
    							</tr>
    							<tr>
    								<td bgcolor="#dbd7d7" width="240"><br>
    									<table width="67" border="0" cellspacing="0" cellpadding="0">
    										<tr>
    											<td>&nbsp;&nbsp;&nbsp;&nbsp;Username&nbsp;&nbsp;</td>
    											<td><input name="emailLogin" type="text" id="emailLogin" value="" maxlength="24"/></td>
    J'ai essayé :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    set ie = createobject("Internetexplorer.application") 
    ie.visible = true 
    ie.navigate("http://10.78.25.12/")
    ie.document.emailLogin.value = "admin"

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662

  3. #3
    Membre Expert

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Par défaut
    Je viens juste de le voir. Merci.

    Malheureusement, je ne sais pas cliquer sur un bouton et "Entrée" ne fonctionne pas.

    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
     
    Set ws = CreateObject("wscript.Shell")
    Set IE = Wscript.CreateObject("InternetExplorer.Application")
    IE.Visible = 1 
    IE.navigate "http://IP/"
    Do While (IE.Busy)
    	WScript.Sleep 10
    Loop
    Set Helem = IE.document.getElementById("emailLogin")
    Helem.Value = "admin"
    Set Helem = IE.document.getElementById("pswLogin")
    Helem.Value = "admin"
    Set Helem = IE.document.getElementsByTagName("submit") 'Pas d'ID
    'Helem.Click
    'wscript.sleep 1000
    ws.sendkeys "{ENTER}"

  4. #4
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    Est-ce-que la page à consulter est en intranet ?
    Pouvez-vous poster le code source de la page HTML en entier ?

  5. #5
    Membre Expert

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Par défaut
    Bonjour,

    Voici le code :
    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
    47
    48
    49
    50
    51
    52
    53
    54
    <html>
    <head>
     
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
    <link rel="stylesheet" href="/media/templates/default/main.css" />
    <title>FoxBox G20</title>
    <script src="ajax.js" language="javascript"></script>
    </head>
    <body >
     
    		<table width="100%" border="0" cellspacing="2" align="center" height="100%">
    			<tr>
    				<td align="center" valign="middle"><!-- Include AJAX Framework --><!-- Show Message for AJAX response -->
    <div id="login_response"></div>
     
    <!-- Form: the action="javascript:login()"call the javascript function "login" into ajax_framework.js -->
    <form action="javascript:login()" method="post">
    						<table border="0" cellspacing="2" cellpadding="0">
    							<tr>
    								<td class="img" align="center" valign="middle" width="240"><img src="media/logo.jpg" width="120" height="70"></img><br>
    									<strong>FoxBox G20 LOGIN<br>
    									</strong></td>
    							</tr>
    							<tr>
    								<td bgcolor="#dbd7d7" width="240"><br>
    									<table width="67" border="0" cellspacing="0" cellpadding="0">
    										<tr>
    											<td>&nbsp;&nbsp;&nbsp;&nbsp;Username&nbsp;&nbsp;</td>
    											<td><input name="emailLogin" type="text" id="emailLogin" value="" maxlength="24"/></td>
    										</tr>
    										<tr>
    											<td></td>
    											<td><br>
    											</td>
    										</tr>
    										<tr>
    											<td>&nbsp;&nbsp;&nbsp;&nbsp;Password&nbsp;&nbsp;</td>
    											<td><input name="pswLogin" type="password" id="pswLogin" value="" maxlength="24"/></td>
    										</tr>
    										<tr>
    											<td colspan="2" align="center" valign="middle"><br>
    												&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Submit" value="Login"/><br>
    												<br>
    											</td>
    										</tr>
    									</table>
    								</td>
    							</tr>
    						</table>
    					</form></td>
    			</tr>
    		</table>
    	</body>
    </html>
    Ce code fonctionne mais je ne pense pas que cela soit la meilleure solution.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    For Each objElement In IE.Document.Forms(0).Elements
        If (LCase(objElement.Type) = "submit" ) Then
            objElement.Click
            Exit For
        End If
    Next
    Miistik

  6. #6
    Membre Expert

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Par défaut
    Résolu.

    Je passe mes paramètres dans l'URL et c'est OK.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 9
    Dernier message: 30/07/2009, 23h09
  2. [Dojo] Ne peut pas écrire dans dijit.form.TextBox
    Par cfried dans le forum Bibliothèques & Frameworks
    Réponses: 4
    Dernier message: 11/06/2009, 09h04
  3. [E-00] lire et/ou écrire dans un textbox
    Par manupepito dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 18/02/2009, 09h22
  4. Impossible d'écrire dans un TextBox sur Onglet
    Par pascalouh dans le forum IHM
    Réponses: 7
    Dernier message: 10/07/2007, 10h21
  5. HTML Erreur bête : écrire dans un champ en javascript
    Par FoxDeltaSierra dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 28/06/2006, 14h00

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