Discussion :

[koKoTis]

Bonjour, je voudrais créer un script un peu particulier qui ouvre une page web et qui remplit le formulaire sur cette page, c'est-à-dire, le script lance donc une page web prédéfini, la page en question serait une page de connexion sur un forum, et le script remplirait dons les chan de saisie du formulaire avec le login et le mot de passe prédéfinis, enfin le script simulerait un clique sur le bouton OK.
Y-a-t-il un forumeur ici qui puisse m'aider ?

[SfJ5Rpw8]

tiens une petite recherche sur ce sous-forum

[VBS]Insérer password dans navigateur par VBS

[koKoTis]

Salut, merci, le script renvoi cette erreur chez moi:

[SfJ5Rpw8]

oui le forum est passé sous vBulletin .. depuis... et les noms des éléments ont changé.... voilà quelque chose qui marche un peu mieux ... (il me manque le submit..)

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 = "Zeromus"
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasseaZeromus"
Set Helem = IE.document.getElementById("do")
Helem.Click

mais bon ce n'est pas pour ce connecter sur Developpez.. ton besoin non ..?

[koKoTis]

Non c'et pas pour developper.com.

Là ça marche.

Et il n'y à pas moyen de simuler un clique sur le bouton OK ?

[SfJ5Rpw8]

tiens pour développez...

Code :

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

1
2
3
4
5
...
Helem.Value = "MotDePasseaZeromus"
Set Helem = IE.document.Forms(0)
Helem.Submit