Discussion :

[jerem7w]

bonjour à tous,

me basant sur les excellents conseils de hackoofr, j'ai tenté de me connecter automatiquement à mon site préféré avec un script lançant IE. Le problème, c'est que rien ne semble envoyé au navigateur et je ne comprends pas pourquoi.

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
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.openrunner.com/account/loginInput.php?u="
Do While (IE.Busy)
	WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("user")
Helem.Value = "yyyyy"
Set Helem = IE.document.getElementById("pwd")
Helem.Value = "xxxxx"
Set Helem = IE.document.Forms(0)
Helem.Submit

PS : j'arrive au même résultat en utilisant l'objet WScript.shell et Firefox. rien n'est envoyé au navigateur.

[hackoofr]

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
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.openrunner.com/account/loginInput.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("user")
Helem.Value = "Login"
Set Helem = IE.document.getElementById("pwd")
Helem.Value = "xxxxx"
Dim colLinks : Set colLinks = IE.Document.getElementsByTagName("a")
 'boucle à travers les liens
 Dim objLink
 For Each objLink In colLinks
    ' vérifier le texte pour le lien
        If InStr(objLink.innerHTML, "S'identifier") > 0 Then
        'naviguer vers le premier lien et sortir de la boucle
        IE.Navigate objLink.href
        Exit For
    End If
Next

[hackoofr]

ou bien tester ce code aussi :

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
Dim IE
Set ws = CreateObject("wscript.Shell")
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.openrunner.com/"
Do While (IE.Busy)
	WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("linksignin")
Helem.Click
wscript.sleep 1000
Set Helem = IE.document.getElementById("user")
Helem.Value = "Login"
Set Helem = IE.document.getElementById("pwd")
Helem.Value = "xxxxx"
wscript.sleep 1000
ws.sendkeys "{enter}"

[jerem7w]

bonjour hackoofr,

merci pour le deuxième code, il fonctionne parfaitement.

je comprends qu'il me faut rechercher les "id" dans le code source des pages web dans lesquelles je veux me loger pour y envoyer des informations via la méthode.

Code :

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

getElementById

par contre, est-ce la même méthode qu'il faudrait utiliser avec Firefox ?

merci

[hackoofr]

Code :

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

getElementById

par contre, est-ce la même méthode qu'il faudrait utiliser avec Firefox ?
merci

Non, malheureusement on ne peut pas piloter Firefox par cette méthode

[jerem7w]

peux-tu me dire où je peux trouver la doc de firefox pour utiliser une méthode similaire ?

merci