Discussion :

[boboss76]

Bonjour et bonne année à tous.
Je recherche un script qui permet de lancer internet explorer puis d'écrire de façon automatique un login et un mot de passe et de valider

Pour le lancement d'internet explorer j'ai écrit ce bout de script qui fonctionne mais pour la suite je ne trouve rien de conclaunt.

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
 
 
Sub main()
 
Dim IE
Set IE=CreateObject("InternetExplorer.Application")
ie.left=50
ie.top=50
ie.height=510
ie.width=470
ie.menubar=0
ie.toolbar=1
ie.navigate "http://www.****.com"
ie.visible=1
 
End Sub

Merci de votre aide
cordialement

[SfJ5Rpw8]

cela dépend de ce que tu cache derriére la ligne :

ie.navigate "http://www.****.com"

voir :

Comment piloter Internet Explorer pour envoyer des informations à un site internet ?

[boboss76]

Merci bbil pour ta réponse

Derrière le www.***.com c'est un site de réservation de salle.
Dans mon boulot, on doit réserver nos salles spécifiques une semaine à l'avance.
Je voudrais donc que la réservation soit automatique.
J'ai testé ta solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.developpez.net/forums/login.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit

J'ai une erreur Wscript n'est pas reconnu. Savez vous pourquoi ?

Merci de votre aide

[SfJ5Rpw8]

et tu le met ou ton code ? un fichier VBS. .?

[boboss76]

Hello
Le code est mis dans un fichier vbs et le tout tourne derrière un logiciel de domotique (Homeseer) qui gère les scripts en vbs et l'asp.
Je ne comprends pas pourquoi il ne veut pas de cette fonction wscript.

Une dll ou une mise à jour à faire.
Si vous avez une idée je suis preneur.

Cordialement

[hackoofr]

Derrière le www.***.com c'est un site de réservation de salle.
Dans mon boulot, on doit réserver nos salles spécifiques une semaine à l'avance.
Je voudrais donc que la réservation soit automatique.
J'ai testé ta solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.developpez.net/forums/login.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "NomUtilisateur"
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
Set Helem = IE.document.Forms(0)
Helem.Submit

J'ai une erreur Wscript n'est pas reconnu. Savez vous pourquoi ?

Dans quelle ligne vous avez cette erreur ? si dans la ligne N°2 alors essayez ceci Set IE = CreateObject("InternetExplorer.Application") au lieu de

Set IE = Wscript.CreateObject("InternetExplorer.Application")

[boboss76]

Merci de votre aide
J'ai effectivement enlevé le wscript sur les deux lignes.
Et la fonction sleep n'est pas reconnu. Je l'ai remplacé par une fonction spécifique.
Le script est OK
Encore merci de votre collaboration

Boboss76