Discussion :

[Charlou19]

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 :

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

[hackoofr]

et Bienvenue dans DVP
Dans la Comment piloter Internet Explorer pour envoyer des informations à un site internet ?

[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

[hackoofr]

Un petit conseil : faites tout en vbscript et postez votre code et 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

[Charlou19]

Bonjour,
Voici mon vbscript

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

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

[hackoofr]

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

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