[R] Récupération d'une URL à partir d'une image

[yohan8]

Bonjour,

J'aimerais récupérer l'URL d'un lien provenant d'une image.
Prenons l'exemple de l'image "le tutoriel" de cette page web, en haut à gauche.
Avec un Imgclick sur "Autoit-SDZ.png" nous arriverons sur la page web souhaité sauf que j'aimerais, au lieu de cliquer sur cette image, récupérer le lien de celle-ci.
Comme si on faisait clic doit - copier l'adresse du lien

Ensuite pourquoi pas placer ce lien dans un tableau [facultatif ]

Yohan

[sylvanie]

Bonjour,
En prérequis à ce script, lancez avant un IE sur la page désirée (genre cele-ci ^^):

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

$title="autoit"
$png="Autoit-SDZ.png"
$oIE=_IEAttach($title)
If Not IsObj($oIE) Then Exit 1
$allpage=_IEDocReadHTML($oIE)
$line_selected=StringRegExp($allpage,".*"&$png&".*",1)
If Not IsArray($line_selected) Then Exit 2
$href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1")
MsgBox(0,"lien",$href)
 

[yohan8]

Tagazok sylvanie !

Je remet en question votre script très intéressent
Comme prévu celui-ci fonctionne avec l'exemple
J'essaye de changer les quelques variable qui vont permettre d'être compatible avec le miens et voici que les erreurs s'enchaînent.

Question :
- Mon image n'est pas une png mais une jpg. Cela change-t'il quelque chose ?
-Lorsque je récupère le liens je remarque que celui-ci à quelque peu changer. J'obtiens un "&58;" au lieu d'avoir ":"
Exmple :
Au lieu d'avoir "http://google.fr" j'ai "http&58;//google.fr
Et bien sur ce n'est pas une URL correct.
-parfois
-Pour que je puisse utiliser ce script comme il ce le doit je dois comprendre certaines lignes :

Pourquoi créer ces échappatoires ?

Code : Tout sélectionner

$oIE=_IEAttach($title)

Code : Tout sélectionner

If Not IsArray($line_selected) Then Exit 2

Je suis perdu

Code : Tout sélectionner

$href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1")

Peut-être qu'une autre solution qui éviterais de rentrer dans le code source de la page existe ?
Je n'est aucun notion dans le programmation html

Yohan

[mikell]

Explication de texte

Code : Tout sélectionner

#include <IE.au3>

$png="Autoit-SDZ.png" [color=#FF0000]; image de référence[/color]

$oIE=_IECreate("http://www.autoitscript.fr/forum/portal.php")
If Not IsObj($oIE) Then Exit 1     [color=#FF0000]; gestion d'erreur sur _IECreate : si erreur, exit[/color]
$allpage=_IEDocReadHTML($oIE)

$line_selected=StringRegExp($allpage,".*"&$png&".*",1)   [color=#FF0000]; ne garde que la ligne du code html qui contient $png[/color]
If Not IsArray($line_selected) Then Exit 2   [color=#FF0000] ; gestion d'erreur sur StringRegExp : si erreur, exit[/color]
MsgBox(0,"ligne à traiter",$line_selected[0])  [color=#FF0000] ; pour voir ^^[/color]

 [color=#FF0000]; ne garde de cette ligne que la partie qui est entre href=" et le " suivant[/color]
$href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1") 
MsgBox(0,"lien",$href)

Pour nettoyer les caractères html bizzaroïdes, matwachich a fait une fonction sympa, ici :
http://www.autoitscript.fr/forum/viewto ... =21&t=9009

[sylvanie]

Super ! tout est dit ^^

sinon pour l'histoire du jpg au lieu du png, l'important est le nom contenu dans $png (renommez là $image si ça peut dissiper les les doutes. Il faut y mettre le nom de votre image

[yohan8]

J'ai intégré ce code dans une boucle et j'ai l’impression que la variable $allpage ne change pas lorsque je change d'URL

[Sea]

Possible de voir ta boucle?

[yohan8]

► Afficher le texte

Code : Tout sélectionner

$text = 0
$n = 0
$oIE  =_IECreate([color=#FF0000]dans cette exemple de travail l'url était directement celle du mail du compte hotmail[/color]')
MsgBox(0,'','')
While $text = 0
    $allpagehtml=_IEDocReadHTML($oIE)

    $bouton = StringInStr($allpagehtml,'38_view_button_fr_FR.jpg')[color=#008000] ; "38_view_button_fr_FR.jpg" est le nom de mon bouton (que je nome "[i]view[/i]")[/color]
    MsgBox(262144,'switch',$bouton)
    Switch $bouton [color=#008000]; il existe 2 boutons qu'il faut différencier. Les deux mènent au même résultat[/color]

        Case 0[color=#008000] ;ne trouve pas le bouton "[i]view[/i]" [/color]
                $png="38_collect_button_fr_FR.jpg"
                $line_selected=StringRegExp($allpagehtml,".*"&$png&".*",1)  [color=#008000] ; ne garde que la ligne du code html qui contient $png[/color]
                If Not IsArray($line_selected) Then Exit 2  [color=#008000] ; gestion d'erreur sur StringRegExp : si erreur, exit[/color]
                MsgBox(0,"ligne à traiter",$line_selected[0])  [color=#008000] ; pour voir ^^[/color]
                [color=#008000] ; ne garde de cette ligne que la partie qui est entre href=" et le " suivant[/color]
                $href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1")
                $lien = StringReplace($href, ":", ":")
                MsgBox(262144,"lien 1",$lien)

        Case Else [color=#008000];trouve le bouton "[i]view[/i]"[/color]
                $png="38_view_button_fr_FR.jpg"
                $line_selected=StringRegExp($allpagehtml,".*"&$png&".*",1)  [color=#008000] ; ne garde que la ligne du code html qui contient $png[/color]
                If Not IsArray($line_selected) Then Exit 2   [color=#008000]; gestion d'erreur sur StringRegExp : si erreur, exit[/color]
                MsgBox(0,"ligne à traiter",$line_selected[0])   [color=#008000]; pour voir ^^[/color]
                [color=#008000] ; ne garde de cette ligne que la partie qui est entre href=" et le " suivant[/color]
                $href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1")
                $lien = StringReplace($href, ":", ":")
                MsgBox(262144,"lien 2",$lien)
        EndSwitch


    _IELinkClickByText($oIE,'supprimer') [color=#008000]; supprime mon mail et passe ainsi au mail suivant (changement d'URL)[/color]
    $texts = _IEBodyReadText($oIE)
    $n = StringinStr($texts,'Savez-vous que vous pouvez faire glisser les messages dans les dossiers ? ') [color=#008000]; Ce texte apparaît lorsqu'il n'y a plus de mail. Si il n'y a plus de mail on sort de la boucle[/color]
    If $n <> 0 Then
        $text += 1
    EndIf
WEnd

[sylvanie]

A la rigueur, ajoutez un _IEAction( $oIE,"refresh") avant $texts = _IEBodyReadText($oIE), mais sans trop de conviction ...

[mikell]

Je t'ai un peu optimisé le code, maintenant faudrait tester avec la fenêtre IE visible pour pouvoir observer ce qui ne marche pas

► Afficher le texte

Code : Tout sélectionner

$oIE  =_IECreate(dans cette exemple de travail l'url était directement celle du mail du compte hotmail')
MsgBox(0,'','')

While 1
    $allpagehtml=_IEDocReadHTML($oIE)

    If StringInStr($allpagehtml,'38_view_button_fr_FR.jpg') Then
         png="38_view_button_fr_FR.jpg"
    Else
         $png="38_collect_button_fr_FR.jpg"
    EndIf

   $line_selected=StringRegExp($allpagehtml,".*"&$png&".*",1)   ; ne garde que la ligne du code html qui contient $png
   If Not IsArray($line_selected) Then Exit 2   ; gestion d'erreur sur StringRegExp : si erreur, exit
   MsgBox(0,"ligne à traiter",$line_selected[0])   ; pour voir ^^
   $href=StringRegExpReplace($line_selected[0],'.*href="([^"]+)".*',"$1")
   $lien = StringReplace($href, ":", ":")
   MsgBox(262144,"lien 2",$lien)

    _IELinkClickByText($oIE,'supprimer') ; supprime mon mail et passe ainsi au mail suivant (changement d'URL)
    Sleep(100)
    $texts = _IEBodyReadText($oIE)
    If StringInStr($texts,'Savez-vous que vous pouvez faire glisser les messages dans les dossiers ? ') Then Exitloop
WEnd

[yohan8]

Super, voila que le script fonctionne !
Merci mikell, non seulement vous customisé mon script mais en plus vous le rendez fonctionnelle

EDIT

Par quelle malheur est-je crié trop tôt. Le script à fonctionné une fois, mais pas deux
Le même problème persiste, le script se base sur la première page HTML qu'il récupère, malgré la boucle
J'ai essayé de rafraîchir la page ...

Ne faut-il pas vider le cache ? ou quelque chose comme ça

[mikell]

Faudrait mettre $allpagehtml="" et le _IEAction( $oIE,"refresh") de sylvanie juste avant le Wend (on sait jamais...), et puis faire tourner le script avec IE visible, pour voir ce qui se passe
J'ai comme un doute sur le _IELinkClickByText, ça serait pas une image ce bouton 'supprimer', ou y aurait pas du javascript ?

[yohan8]

Je confirme qu'il faut bien mettre à vide le valeur $allpagehtml et rafraîchir la page web pour qu'autoit prenne de nouveau le code HTML de la page.

Merci de votre aide. Le script fonctionne parfaitement, et ... plusieurs fois de suite

Yohan