Log automatique de page internet

Version imprimable

Bonjour à tous,

Je suis nouveau et je débute en programmation.
Je vous explique mon cas :
Je souhaiterai pour les besoins du boulot créer une tache automatisée pour le lancement des pages internet quand j'embauche le matin.
J'ai fait un programme batch qui lance mes pages internet sans problème.
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 @echo off start "URL1" http://url1.com (dans une première fenêtre) PING 1.1.1.1 -n 1 -w 2000 >NUL start "URL2" IEXPLORE.EXE http://url2.com (Dans une deuxième fenêtre) PING 1.1.1.1 -n 1 -w 1000 >NUL start "URL3" /D EXPLORE.EXE https://url3.com (Dans onglet de la deuxième fenêtre) PING 1.1.1.1 -n 1 -w 1000 >NUL start "URL4" /D EXPLORE.EXE http://url4.com (Dans onglet de la deuxième fenêtre) PING 1.1.1.1 -n 1 -w 1000 >NUL start "Mail" "wlmail.exe" PING 1.1.1.1 -n 1 -w 1000 >NUL start "Notepad" "C:\WINDOWS\notepad.exe" start "Firefox" "C:\Program Files\FirefoxPortable\FirefoxPortable.exe" @echo off Close
Je voudrais maintenant créer un fichier (VBS ?) pour automatiser les log et mots de passe de ces pages internet.
Quelqu'un a t'il une idée ?
J'ai cherché un peu partout mais rien de concret pour le moment.

Merci de votre aide

Désolé l_autodidacte je ne recommencerai plus

06/04/2013, 19h07
hackoofr

:salut: et Bienvenue dans DVP
Dans la :faq: Comment piloter Internet Explorer pour envoyer des informations à un site internet ?
08/04/2013, 16h48
Charlou19

Bonjour et merci pour ta réponse ,

J'ai bien évidemment testé mais je rencontre plusieurs problèmes.
1- Je rencontre une erreur d'exécution '424' objet requis en rapport avec la ligne set IE = wscript....

2- comment l'intégrer à mon fichier batch par la suite ?

Merci de votre aide
08/04/2013, 18h33
hackoofr

:salut:
Un petit conseil : faites tout en vbscript et postez votre code et :tagcode: en précisant la ligne de l'erreur et surtout postez le code source de la page pour la piloter par votre login et mot de passe, car il faut savoir les ID de ces derniers.
NB : ne postez pas vos vrais login et vos mots de passes :mouarf:

Bonjour,
Voici mon vbscript

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Sub test()
Dim IE
Set IE = WScript.CreateObject("InternetExplorer.Application") 'erreur ici "erreur d'execution '424', objet requis
IE.Visible = 1
IE.navigate "http://sagasc.prod.ld"
Do While (IE.Busy)
*** WScript.Sleep 20
Loop
Set Helem = IE.document.getElementById("login")
Helem.Value = "User1"
Set Helem = IE.document.getElementById("password")
Helem.Value = "Password1"
Set Helem = IE.document.Forms(0)
Helem.Submit
 
End Sub

Là ou ca me pose probleme c'est comment ouvrir toutes les pages sous forme d'onglet alors que tout marche trés bien en bat.
Pour le code source de ma page :

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
 </div>
 
<div id="content"><div id='formConnexion' >
 
<form enctype="multipart/form-data" method="post" action="index.php?" id="connect">
 
<div id="divauth">
 
<span>Authentification</span>
 
</div>
 
 
<label for="login">Login :</label><small>*</small>
 
<input id="login" type="text" value="" name="login" class="middleInput" />
 
<br />
 
<label for="login">Mot de passe :</label><small>*</small>
 
<input id="password" type="password" value="" name="password" class="middleInput" />
 
<br />
 
<input id="action" type="hidden" value="1" name="action" />
 
<label for="sub"></label>
 
<input class="submit" type="submit" value="Envoyer" name="buttonSubmit" id="sub" />
 
</form>
 
</div>

Merci d'avance pour votre aide

:salut:
Essayez ceci juste pour le test : Connexion automatique à Gmail et Yahoo
Modifiez juste les lignes N° 1 et 3 par vos identifiants

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
AutoLoginGmail "mail.google.com","Votre Login","Votre mot de passe"
wscript.sleep 5000
AutoLoginYahoo "mail.yahoo.fr","Votre Login","Votre mot de passe"
 
Sub AutoLoginGmail(URL,Login,Password)
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate URL
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("Email")
Helem.Value = Login
Set Helem = IE.document.getElementById("Passwd")
Helem.Value = Password
Set Helem = IE.document.Forms(0)
Helem.Submit
Set IE = Nothing
End Sub
 
Sub AutoLoginYahoo(URL,Login,Password)
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate URL
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("username")
Helem.Value = Login
Set Helem = IE.document.getElementById("Passwd")
Helem.Value = Password
Set Helem = IE.document.Forms(0)
Helem.Submit
Set IE = Nothing
End Sub

12/04/2013, 10h37
Charlou19

Bonjour,

Encore merci pour ton aide.
Bon alors ici je rencontre encore une erreur,
Dès la première ligne j'ai une :

"erreur de compilation
Instruction incorrecte à l’extérieur de la procédure"

Alors que j'ai bien remplacé les champs log et mdp par mon adresse et mon mot de passe.

I'm lost in the dark
12/04/2013, 12h01
hackoofr

:salut:
Vous voulez dire que le code de Gmail et Yahoo :koi: qui ne marche pas ???
c'est quoi votre version de Internet Explorer et c'est quoi votre OS ?
Donnez-moi exactement le N° DE LA LIGNE de l'erreur et sa description
:merci:
12/04/2013, 19h51
Charlou19
Ça bloque sur cette ligne
Code:

1 2 AutoLoginGmail "mail.google.com","Votre Login","Votre mot de passe"
Avec le message d'erreur que je t'ai donné précédemment.
Au boulot je suis sur Windows XP sp3
Pour ie c'est la version 8.