Écrire dans textbox HTML

Version imprimable

Bonjour,

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

Voici la source :

Code:

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:

1
2
3
4
set ie = createobject("Internetexplorer.application") 
ie.visible = true 
ie.navigate("http://10.78.25.12/")
ie.document.emailLogin.value = "admin"

29/01/2013, 16h40
pc75

Bonjour,

Regarde là => http://www.developpez.net/forums/d12...es-navigateur/

Je viens juste de le voir. Merci.

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

Code:

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}"

29/01/2013, 18h09
hackoofr

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

Bonjour,

Voici le code :

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
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:

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

30/01/2013, 14h23
Miistik

Résolu.

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