[..] Demande de script pour récupérer un lien URL

[cortx]

Bonjour,

Suite à ce http://autoitscript.fr/forum/viewtopic. ... 5706#p5706 je viens à vous car les connaissances demandés me dépasse.

Voilà je souhaiterai avoir une fonction permettant de récupérer dans une variable l'url de destination d'un lien qui est en image.
Pour vous faciliter la vision de la chose, sur le site:
http://www.autoitscript.com/autoit3/

L'image renvoie sur le lien http://www.autoitscript.com/autoit3/downloads_gfx.shtml.

Donc moi ce que je souhaite c'est que le script me récupère la variable http://www.autoitscript.com/autoit3/downloads_gfx.shtml

Pour info et si cela peut aider:
Le curseur de la souris est toujours sur l'image.

En vous remerciant par avance.
CortX

[timmalos]

je ne vois qu'une solution tu utilise le code de la page: tu as dis que tes serveurs avaient tous le même debut d'url, donc tu cherche le début , quand tu l'a trouvé tu sauvegarde ce qui t'intéresse, puis tu auras bien ce que tu veux:)

[jbnh]

Mince, j'avais pas vu le post! Voici comment faire:

Code : Tout sélectionner

Mousemove(x, y) ;coord de l'image

$var=StatusbarGetText("AutoIt v3 - Automate and Script Windows Tasks - For Free! - Microsoft Internet Explorer")
If $var == "http://www.autoitscript.com/autoit3/downloads_gfx.shtml" Then
MsgBox(0, "Nfo", "Trouvé!", 5)
EndIf

[ani]

Un petit exemple

Code : Tout sélectionner

#include <IE.au3> ; Appel a la bibliothèque d'IE

ImgSrchUrl()

Func ImgSrchUrl($url="")
    IF $url = "" Then $url = "http://www.autoitscript.com/"
    $oIE = _IECreate ($url)
    $oImgs = _IEImgGetCollection ($oIE)
    $iNumImg = @extended
    MsgBox(0, "Img Info", "There are " & $iNumImg & " images on the page")
    Dim $ImageSrc
    For $oImg In $oImgs
        $ImageSrc &= $oImg.src & @CR
    Next
    MsgBox(0,"Img Info", $ImageSrc)
EndFunc

[KTux]

Mince, j'avais pas vu le post! Voici comment faire:

Code : Tout sélectionner

Mousemove(x, y) ;coord de l'image

$var=StatusbarGetText("AutoIt v3 - Automate and Script Windows Tasks - For Free! - Microsoft Internet Explorer")
If $var == "http://www.autoitscript.com/autoit3/downloads_gfx.shtml" Then
MsgBox(0, "Nfo", "Trouvé!", 5)
EndIf

À ta place j'enlèverais le " - Microsoft Internet Explorer" dans le titre de la fenêtre afin que cela marche également avec les autres navigateurs