Discussion :

[jerem7w]

Bonjour

Débutant en VBScript mais pratiquant depuis qq années VBA, puis plus récemment C et Java, j'ai du mal à trouver la documentation qui puisse me former à piloter des applications telles que Firefox.
Si je parviens bien à le lancer sur la page web qui me va bien, comment dois-je procéder pour trouver le nom des zones Login et MotdePasse et l'insérer automatiquement ?
Ensuite comment puis-je connaître le nom des actions réalisables sur ce site (ex : charger un fichier, changer une couleur...)

Me faut-il regarder les balises de la page Web ?
voici mon tout petit début

Code :

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

1
2
3
 
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.run("firefox.exe https://rsyxysddq.com/InfoViewApp/logon.jsp?sso=false")

[hackoofr]

vous voulez dire quelque chose comme dans cet exemple
Comment piloter Internet Explorer pour envoyer des informations à un site internet ?

[jerem7w]

Salut,

oui, je veux dire quelque chose comme cela. j'ai bien trouvé la doc pour IE, mais étant de nature curieuse, j'aimerais en faire autant avec Firefox, Chrome, etc...

de manière plus générale, ma question se pose finalement à tout logiciel que je souhaiterais piloter (un peu) depuis un script pour éviter des tâches répétitives. A moins que je ne me trompe de langage ?

[hackoofr]

un exemple montrant comment démarrer Firefox avec des onglets :

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
StartFireFox()
wscript.sleep 3000
FireFoxTab("www.google.com")
FireFoxTab("www.yahoo.fr")
FireFoxTab("www.facebook.com")
FireFoxTab("mail.yahoo.fr")
FireFoxTab("www.orange.fr")
FireFoxTab("fr.giveawayoftheday.com")
 
Sub StartFireFox()
    Set WS = CreateObject("WScript.shell")
    ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
    command = "Cmd /C cd %programfiles%\Mozilla Firefox\ | start firefox.exe"
    Result = WS.Run(Command,0,True)
End Sub
 
Sub FireFoxTab(Tab)
    Set WS = CreateObject("WScript.shell")
    ProgramFiles = WS.ExpandEnvironmentStrings("%programfiles%")
    command = "Cmd /C cd %programfiles%\Mozilla Firefox\ | start firefox.exe -new-tab "&qq(Tab)&""
    Result = WS.Run(Command,0,True)
End Sub
 
Function qq(strIn) 
    qq = Chr(34) & strIn & Chr(34) 
End Function

[jerem7w]

merci beaucoup, voilà qui m'en apprend pas mal.

Admettons que je veuille me loger sur ma session....facebook.

Avec l'outil developpeur-examiner de Firefox, je trouve que la zone login se nomme input#email.inputext

Est-ce bien ce noeud que je dois utiliser depuis mon script pour saisir mon login ?

jeremy

[hackoofr]

merci beaucoup, voilà qui m'en apprend pas mal.

Admettons que je veuille me loger sur ma session....facebook.

Avec l'outil developpeur-examiner de Firefox, je trouve que la zone login se nomme input#email.inputext

Est-ce bien ce noeud que je dois utiliser depuis mon script pour saisir mon login ?

jeremy

Tester ceci avec vos paramètres (Login et Mot de passe)

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 "https://www.facebook.com/login.php"
Do While (IE.Busy)
	WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("email")
Helem.Value = "Votre Login ici"
Set Helem = IE.document.getElementById("pass")
Helem.Value = "Votre mot de passe"
Set Helem = IE.document.Forms(0)
Helem.Submit