Trouver le nom des zones

Version imprimable

15/01/2013, 17h33
jerem7w

Trouver le nom des zones
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:

1 2 3 Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.run("firefox.exe https://rsyxysddq.com/InfoViewApp/logon.jsp?sso=false")
15/01/2013, 17h45
hackoofr

:salut:
vous voulez dire quelque chose comme dans cet exemple :koi:
Comment piloter Internet Explorer pour envoyer des informations à un site internet ?
15/01/2013, 19h16
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 ?

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

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

15/01/2013, 20h09
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

Citation:

Envoyé par 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

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

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

15/01/2013, 21h05
jerem7w

merci hackoofr,

mais je me fais mal comprendre, ma demande est plus large. Comment m'affranchir des applications Office et donc faire avec firefox ce que tu me proposes avec IE?
quelle methodes utiliser, et comment savoir où envoyer mon login + pass ?

comment puis-je decouvrir cela ?
15/01/2013, 21h56
hackoofr

Citation:

Envoyé par jerem7w

merci hackoofr,

mais je me fais mal comprendre, ma demande est plus large. Comment m'affranchir des applications Office et donc faire avec firefox ce que tu me proposes avec IE?
quelle methodes utiliser, et comment savoir où envoyer mon login + pass ?

comment puis-je decouvrir cela ?

:salut:
La méthode SendKeys de l'objet WScript permet d'envoyer une ou plusieurs entrées clavier à la fenêtre active.
Comment simuler l'envoi de caractères vers une application externe ?
15/01/2013, 22h09
jerem7w

Hackoofr,

tu vas me trouver gonflant...

Cette méthode SendKeys, elle envoit à la page active selon l'ordre des tabulations dans cette même page ?
c'est à dire que pour 2 zones ( au hasard, login et motdepasse), il faut faire 2 SendKeys?

merci beaucoup :)

Citation:

Envoyé par jerem7w

Cette méthode SendKeys, elle envoit à la page active selon l'ordre des tabulations dans cette même page ?
c'est à dire que pour 2 zones ( au hasard, login et motdepasse), il faut faire 2 SendKeys?

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set WS = CreateObject("WScript.shell")
FireFoxTab("https://www.facebook.com/login.php") 
wscript.sleep 5000 'vous pouvez régler le temps de la pause suivant le chargement de votre Firefox 5000 ms = 5s
Ws.AppActivate "Connexion | Facebook"
ws.sendkeys "Votre Login" 'à changer
ws.sendkeys "{TAB}"
ws.sendkeys "Votre mot de passe" 'à changer
ws.sendkeys "{enter}"
Sub FireFoxTab(Tab)
    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

16/01/2013, 11h05
hackoofr

:salut:
un autre exemple montrant l'utilisation de la méthode SendKeys
17/01/2013, 21h12
jerem7w

Merci pour tes codes Hackoofr.

J'ai testé et ça marche pas mal. Toutefois, parfois quand la zone est pré-remplie dans la page Web, il me semble qu'il est impossible d'interagir avec la page web, comme si on n'accédait pas à cette zone.

jeremy