[R] Chercher puis cliquer

[yohan8]

Bonsoir,

J'aimerais que autoit me cherche sur une page web un texte.

Cette réponse je l'ai eu sur un forum :

Code : Tout sélectionner

 StringRegExp(BinaryToString(InetRead('http:\\monsite.fr')), "le texte voulu ")

Mais j'ai du mal a exploiter ce code, malgré les explications de l'aide de autoit (en anglais )


Ensuite je voie 2 possibilités :

- il me localise le mot et la phrase voulu sur l'axe 'X' et 'Y'
- il effectue directement l'action voulu en cliquant sur ce texte.

Si quelqun connais le code qui permettrait localiser ou de cliquer sur le texte trouvé m'aiderais beaucoup !

Yohan

[sylvanie]

Bonsoir,
Les solutions à base de inetget + parsing (stringinstr, stringregexp ...) vous permettront effectivement de savoir si le texte est présent ou non dans la page, mais cela ne vous permettra pas de le localiser graphiquement pour cliquer dessus.

Regardez plutôt les exemples du fichier d'aide associés aux fonctions :
_IELinkClickByText et _IELinkClickByIndex qui sont certainement plus adaptées à votre besoins

[yohan8]

Bonsoir,

>>J'ai beau tenter de comprendre les explications de ce code il reste des points obscures :

Voici le code exemple que propose autoitscript.com

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IE_Example ("basic")
_IELinkClickByText ($oIE, "user forum")

J'aimerais qu'au lieu de prendre

Code : Tout sélectionner

_IE_Example ("basic")

qui vas m'ouvrir une nouvelle page, rester sur l'onglet déjà actif et chercher puis cliquer le texte voulu. Quelle code dois-je inscrire dans mon script ?

>>Il y a une autre point que j'aimerais éclaircir; il ce fait que sur ma page j'ai plusieurs lien de même nom. Comment pouvoir différencier ces liens sachant qu'il faudra tous les ouvrir.


>>Enfin si quelqun connais un tuto sur les

Code : Tout sélectionner

_IEAction

Code : Tout sélectionner

_IE_Introduction

[...] Et j'en passe

car mes connaissances ce bases sur le tuto du site du Zéro et il ne parle pas de la programmation des pages internets.


Yohan

[mikell]

Il y a une autre point que j'aimerais éclaircir; il ce fait que sur ma page j'ai plusieurs lien de même nom. Comment pouvoir différencier ces liens sachant qu'il faudra tous les ouvrir.

Tu peux repérer les liens par leurs index et avec les propriétés des objets IE, voir l'aide et/ou ce code :

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

$n = 0
$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 1)
$oLinks = _IELinkGetCollection ($oIE)
For $oLink In $oLinks
    If $oLink.innertext == "yohan8" Then Exitloop
    $n += 1
Next
msgbox(0,"", "Le lien pour yohan8 a le n° " & $n)
_IEQuit ($oIE)

$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 0)
$myLink = _IELinkGetCollection ($oIE, $n)
_IENavigate($oIE, $myLink.href)
_IELoadWait ($oIE)
_IEAction ($oIE, "visible")
 

[yohan8]

Merci de votr réponse mais je rame toujours dans la boue. Comme je l'est expliqué je n'est aucune connaissance sur la programmation sur internet, autrement dit sur les #include <IE.au3>, IE[...].

Commençons a déchiffrer le code vu qu'il existe aucun tuto sur ce sujet pour l'instant.

Code : Tout sélectionner

#include <IE.au3>

$n = 0 [color=#00BF00]; pourquoi pas ! [/color] 
$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 1) [color=#008000]; On crée une page web a l'adresse indiqué[/color]
$oLinks = _IELinkGetCollection ($oIE) [color=#008000]; d’après autoitscript.com sa [/color] [color=#FF4000]'retourne un objet de collection'[/color] [color=#008000]?[/color]
For $oLink In $oLinks [color=#008000]; il énumère les[/color] [color=#FF4000]'objet de collection'[/color] [color=#008000]dans la page web.[/color]
    If $oLink.innertext == "yohan8" Then Exitloop [color=#008000]; si le text 'yohan8' n'y est pas on quite[/color]
    $n += 1 [color=#008000]; pourquoi pas ![/color]   
Next
msgbox(0,"", "Le lien pour yohan8 a le n° " & $n) [color=#008000]; que veut dire ce numéro ?[/color]
_IEQuit ($oIE)

$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 0)
$myLink = _IELinkGetCollection ($oIE, $n)
_IENavigate($oIE, $myLink.href) [color=#008000]; ce code m'intéresse mais je ne le comprend pas ![/color]
_IELoadWait ($oIE) [color=#008000]; on attend que la page se charge[/color]
_IEAction ($oIE, "visible") [color=#008000]; on fait une action 'visible' ?[/color]

En l'attente d'une réponse complète, Yohan.

[mikell]

vu qu'il existe aucun tuto sur ce sujet pour l'instant

Non mais il existe
- un fichier d'aide autoit, avec des exemples
- d'autres multiples exemples sur le forum, accessibles par la recherche
- un ami qui s'appelle Google
- des essais personnels, par exemple pour

Code : Tout sélectionner

$n = 0 [color=#00BF00]; pourquoi pas ! [/color]

si tu avais essayé le code sans cette ligne tu aurais eu un message d'erreur "variable non déclarée" et alors tu aurais compris "pourquoi" , etc
Bon revoilà le code avec commentaires, c'est juste un exemple de travail sur les liens d'une page
La 1ère partie du code récupère la position du lien dans la page , la 2ème l'utilise pour naviguer

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

$n = 0 [color=#008000]; déclare et initialise la variable qu'on va utiliser comme "marqueur"[/color]
$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 1) [color=#008000]; On crée une fenêtre IE qui va à l'adresse indiquée[/color]
$oLinks = _IELinkGetCollection ($oIE) [color=#008000]; récupère (Get) collection (Collection) des liens (Link) dans cette fenêtre ($oIE)[/color]
For $oLink In $oLinks [color=#008000]; Pour chaque lien dans cette collection de liens[/color]
    If $oLink.innertext == "yohan8" Then Exitloop [color=#008000]; si le texte de ce lien est 'yohan8' on sort de la boucle[/color]
    $n += 1 [color=#008000]; on est toujours dans la boucle, donc lien 'yohan8' pas encore trouvé, alors on incrémente ($n = $n+1) et on continue la boucle   [/color]
Next
msgbox(0,"", "Le lien pour yohan8 a le n° " & $n)[color=#008000] ; en sortie de boucle la valeur de $n indique le nb de tours de boucle effectués, donc l'index (position) du lien dans la page[/color]
_IEQuit ($oIE)

$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 0) [color=#008000]; le dernier ' 0 ' indique que la fenêtre sera invisible[/color]
$myLink = _IELinkGetCollection ($oIE, $n)  [color=#008000]; récupère dans $oIE le lien d'index $n[/color]
_IENavigate($oIE, $myLink.href) [color=#008000]; navigue vers l'url de ce lien[/color]
_IELoadWait ($oIE) [color=#008000]; attend que la page ait fini de charger[/color]
_IEAction ($oIE, "visible") [color=#008000]; on fait une action qui rend $oIE visible[/color]
 

Note que comme précisé par sylvanie, pour la 2ème partie tu aurais aussi bien pu utiliser

Code : Tout sélectionner

$oIE = _IECreate("http://www.autoitscript.fr/forum/viewforum.php?f=3", 0, 0)
_IELinkClickByIndex ($oIE, $n, 1)  [color=#008000]; je vais quand même pas te traduire ça...[/color]
_IEAction ($oIE, "visible")

(il y a souvent plusieurs possibilités pour arriver au même résultat)

[yohan8]

Bonsoir,

Merci mikell pour ton script (et de tes conseils ) mais je ne connais le nom entier de mon lien. Pour sa j'ai utilisé un autre script :

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IECreate("http://autoitscript.fr/forum/viewtopic.php?f=3&t=8900")

$sMyString = "suj" [color=#008000];j'ai écrit volontairement le nom du lien pas en entier[/color]
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next

Mais ma page web comporte plusieurs liens de même nom et il faudrait que autoit me les 'clics' tous. C'est comme si dans mon exemple il faudrait cliquer tout les liens qui comporte le text 'suj'.

Yohan.

[mikell]

Code : Tout sélectionner

For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")
        Sleep(1000)    [color=#FF0000]; ExitLoop[/color]
    EndIf
Next

Si tu ne sors pas de la boucle il cliquera tous les liens pour lesquels la condition est remplie
Mais si le fait de cliquer sur un lien provoque un changement de page, ça va bugger ^^

[yohan8]

Oui exact sa va bugger vu que sa m'ouvre une nouvel onglet a chaque fois ^^
Surtout qu'il faut qu'il m'ouvre chaque lien un par un mais pas en même temps.

Imaginons qu'il y est 3 liens

1-je clique sur le 1er lien
2-j’effectue une action
3-je ferme l'onglet qui c'est ouvert
4-je clique sur le 2ème liens
5-j'effectue une action
6-[...]

Une suggestion ?

[mikell]

Ben faut remonter les manches et faire chauffer les neurones...
Par exemple tu peux d'abord utiliser la boucle For pour relever la liste des liens et leur adresse ($oLink.href), puis ensuite les lancer un par un pour effectuer tes actions dessus

[yohan8]

Après quelques test je sèche complètement, mais paniquer pas je vais trouver

Mais j'ai remarqué que je ne pouvais pas utiliser plusieurs fois ce code :

Code : Tout sélectionner

$sMyString = "suj"
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")[color=#008000] ; et d’ailleurs je ne comprend pas cette ligne[/color]
    If StringInStr($sLinkText, $sMyString) Then [color=#008000]; ni celle-là [/color]
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next

[mikell]

Avant d'aller plus loin, il est fortement recommandé de comprendre les instructions que tu utilises dans ton script ^^

[yohan8]

Bonsoir,
Bon là vraiment je trouve aucune solution. Comme tu me l'a prescrit, j’essaye d'intégrer le code 'For In' sans succès.

Code : Tout sélectionner

#include <IE.au3>
$oIE = _IECreate("http://www.autoitscript.com/site/")

$n = 0 [color=#008000];J'ai voulu appliquer cette variable après 'Then' lgn 9 pour me lister ces 3 liens ... sans résultat.[/color]
$sMyString = "Jonathan Ben" [color=#008000];j'ai écrit volontairement le nom du lien pas en entier[/color]
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText");
    If StringInStr($sLinkText, $sMyString)Then
    [color=#008000];faire la liste des liens ,accessible par la suite, dont une partie de leur texte est 'Jonathan Ben'.[/color]
        ExitLoop
    EndIf
Next

J'ai tout d'abord essayé d'énumérer le nombre de liens qui m'intéresse.
Ensuite je pensais les lister du style $oLink1 ; $oLink2 [...]
Puis de les utiliser dans mon script

Si tu a un petit coup de pouce pour m'aider, je te remercie.

Yohan

[mikell]

Pour faire la liste de liens

Code : Tout sélectionner

#include <IE.au3>
#include <array.au3>
$oIE = _IECreate("http://www.autoitscript.com/site/")

Dim $liens[1]   ; crée une array pour la liste des liens
$n = 0
$sMyString = "Jonathan Ben" 
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
       $liens[$n] = $oLink.href     ; enregistre le lien dans la liste
       $n += 1
       ReDim $liens[$n+1]     ; agrandit l'array  
    EndIf
Next
ReDim $liens[$n]
Msgbox(0,"","Il y a " & $n & " liens qui correspondent")
_ArrayDisplay($liens)

et ensuite pour les actions tu fais une boucle " For $i = 0 To $n-1 " en utilisant $liens[$i] pour les liens

[yohan8]

Hmm... Je n'arrive pas a passer au prochain lien. Il m'ouvre le premier lien, effectue les actions et ensuite m'ouvre le même lien.

En tout cas Merci ! , c'est ce genre de script que je cherche.

[Seb92]

Bonjour à tous,
je "déterre" ce post pour vous expliquer mon problème qui s'apparente fortement à celui de ce post.
Pour ma part, je cherche donc également tous les liens d'une même page, mais c'est dans l'URL que je cherche certains caractères (exemple une combinaison de 8 chiffres précédés d'un / ; par exemple : <a href="http://<url>/73629120.htm" title="titre">Le lien</a>)
Et là, je sèche ...

Merci pour votre aide précieuse.
Seb

[sylvanie]

Bonjour
Il serait plus judicieux à l'avenir d'en ouvrir un nouveau en citant celui-ci en référence, car son statu étant Résolu, il n'attire plus l'attention sur le fait qu'il nécessite de l'aide.

Sinon pour revenir à votre problème, il faut filtrer via stringregexp
En reprenant le code de ce post, modifié ainsi :

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>
#include <array.au3>
$oIE = _IECreate("http://www.autoitscript.com/site/")

Dim $liens[1]   ; crée une array pour la liste des liens
$n = 0
$sMyString = "[\d]{8}\.htm"
$oLinks = _IELinkGetCollection($oIE)
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringRegExp($sLinkText, $sMyString)<>0 Then
       $liens[$n] = $oLink.href     ; enregistre le lien dans la liste
       $n += 1
       ReDim $liens[$n+1]     ; agrandit l'array
    EndIf
Next
ReDim $liens[$n]
Msgbox(0,"","Il y a " & $n & " liens qui correspondent")
_ArrayDisplay($liens)
 

et en remplaçant l'url par la votre, ça devrai faire l'affaire.

[Seb92]

Bonjour
Il serait plus judicieux à l'avenir d'en ouvrir un nouveau en citant celui-ci en référence, car son statu étant Résolu, il n'attire plus l'attention sur le fait qu'il nécessite de l'aide.

Oup's
Bonjour Sylvanie,
Désolé de n'avoir pas ouvert un nouveau post, étant en mode "recherche sur ce forum" et pressé hier soir de poser au plus vite mon problème, je n'ai même pas vu que celui-ci avait un joli petit [R] (pourtant visible, promis je change de lunettes ) en sujet.

Merci pour l'aide, ça fonctionne désormais à merveille.

Problème ... comment dirais-je ... résolu