Raccourci ouvrant un site internet avec saisie automatique

Version imprimable

13/06/2010, 17h07
kaobar

Raccourci ouvrant un site internet avec saisie automatique

Bonjour à tous,

Professeur en LP, je suis maintenant administrateur du réseau de mon établissement.

Afin de faciliter la vie des collègues, je souhaite mettre un raccourci sur le bureau des postes informatiques vers un site necessitant un login et un password qui ne necessiterai pas de saisie (clic et tout est automatisé).

un script VBS serait parfait pour cela, mais je ne m'interesse à ce language depuis peu et la je bloque.

Si quelqu'un pouvait m'aider se serait vraimment super sympa.

Merci par avance

Patrice :P

je cherche et voila mon début,

Re,

Voici le script (trouvé sur developpez.com) que j'ai essayé.
Un message d'erreur (Hemel) object requis apparait.

quelqu'un a t'il une idée ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
 
IE.navigate "http://www.infotech.renault.com/fo/accueil.action"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("vb_login_username")
Helem.Value = "PRE8188"
 
Set Helem = IE.document.getElementById("vb_login_password")
Helem.Value = "MotDePasse"
 
Set Helem = IE.document.Forms(0)
Helem.Submit

13/06/2010, 19h11
kaobar

je continue

Re,

je pensai utiliser la fonction "sendkeys" mais pas possible car message d'erreur 800A0408 ????

Pourtant ca pourrais etre une solution.

Merci
13/06/2010, 20h19
fabibi001

Bonsoir,

Ne serait-ce pas la réponse à ton problème ?

http://www.developpez.net/forums/d87...-site-externe/

++
13/06/2010, 21h43
kaobar

Non pas encore de réponse

Slt,

désolé, mais ca ne fonctionne pas.

Patrice

il y as des frame .. sur ta page ... modifie la fin de ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(...)
Loop
Set pFrame = IE.document.frames("pub")
 
Set Helem = pFrame.document.getElementsByName("j_username")(0)
Helem.Value = "PRE8188"
 
Set Helem = pFrame.document.getElementsByName("j_password")(0)
Helem.Value = "MotDePasse"
 
 
Set Helem = pFrame.document.Forms(0)
Helem.Submit

16/06/2010, 11h03
kaobar

Merci

Merci beaucoup, cela fonctionne tres bien.

De plus je comprend mieux et vais pouvoir automatiser les differents accès pour les élèves.

Bonne continuation, et merci encore

Patrice