[R] Bloquer pour récuperer le lien d'une page web

[Sydneysyd]

Bonjour à tous,

Je suis bloqué sur une fonction

J'essaye de récupérer un lien spécifique sur une page web et je voudrais qu'elle se colle dans l'edit du $button1

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <string.au3>

$Form1 = GUICreate("test clipboard", 537, 347, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 72, 56, 337, 129)
GUICtrlSetData(-1, "Edit1"&@CRLF&"blalba"&@CRLF&"toto"&@CRLF&"test")
$Button1 = GUICtrlCreateButton("Button1", 80, 208, 97, 41)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE        ; si on ferme la gui
            ExitLoop                  ; on sort de la boucle
    InetGet ( GUICtrlRead($input1), @TempDir & "\http://www.phoenixjp.net/news/fr/.html") ; temp correspond à la page web donnée avant dans une fonction
    ;Chargement de l'ensemble des caractères du fichier dans une variable de type String
    $tmpStr = FileRead(@TempDir & "\http://www.phoenixjp.net/news/fr/.html")
    ;Récupération du  le lien de téléchargement via la fonction _StringBetween du include <string.au3>
    $tmpStr = _StringBetween($tmpStr, http://www.phoenixjp.net/news/include/i ... _trans.gif, '"')
    $tab = StringSplit($tmpStr, "/")
    InetGet($tmpStr, @ScriptDir & "\" & $tab[$tab[0]])
        Case $Button1
;ici je pensais utiliser le meme style de fonction que pour le GuiCtrlRead
        $edit1 = GuictrlSetData ($tmpStr) ; récupération du lien trouvé et affichage dan s l'edit
            EndSwitch
WEnd

GuiDelete($Form1)
MsgBox(0,"test", ClipGet() )       ; récupère du clipboard
 

J'ai essayé de mettre les explications pour mieux comprendre dans le quote.
Lorsque que je le met en route, il m'indique une erreur sur $Button1

Je vois pas comment régler ca...

De plus, utilise-je la bonne commande ou y-a-t-il une meilleure fonction ?

Merci d'avance.

PS : désolé pour l'erreur du premier sujet. J'espère que j'ai rien loupé cette fois-ci ^^

[PandiPanda]

Bonjour,
mettre les balises de codes aurait ete préferable ^^

Dans le code que vous nous montrez quelque probleme subsiste ... notamment:
- 1er problème, vous mettez un "ExitLoop" et ensuite vous voulez extirper l'url. Cependant, jamais vous ne l'executerai cette partie de code ^^ !

- 2eme problème : dans _StringBetween($tmpStr, http://www.phoenixjp.net/news/include/i ... _trans.gif, '"'), http://www.phoenixjp.net/news/include/i ... _trans.gif, doit etre entourer soit de ' soit de "

- 3eme problème : _StringBetween() retourne un tableau de 1 dimension, et vous utiliser ensuite StringSplit() qui est une methode essentiellement utilisé pour les "String" non pour les tableaux ! [il n'y aura pas d'erreur, mais le tableau ne sera composé que d'un seul élément, à savoir "RIEN"]

Je vous met un exemple ci dessous de comment j'aurai extirper une adresse url d'un site au hasard avec _StringBetween()

► Afficher le texte

Code : Tout sélectionner

#Include <String.au3>
#Include <Array.au3>

Local $url='http://fr.wikipedia.org/wiki/AutoIt'
Local $source=BinaryToString(InetRead($url))

Dim $arrayUrl=_StringBetween($source,'href="http:','"')
For $i=0 To UBound($arrayUrl)-1
    $arrayUrl[$i]='http:'&$arrayUrl[$i]; le _StringBetween() a couper mon lien ^^, donc je recolle avec le 'http:'
Next
_ArrayDisplay($arrayUrl)

[Sydneysyd]

Merci pour ces réponses !


- 1er problème, vous mettez un "ExitLoop" et ensuite vous voulez extirper l'url. Cependant, jamais vous ne l'executerai cette partie de code ^^ !
Euh, ce n'est pas pour sortir de la boucle lorsque l'on clique sur la croix de fermeture ?


- 2eme problème : dans _StringBetween($tmpStr, http://www.phoenixjp.net/news/include/i ... _trans.gif, '"'), http://www.phoenixjp.net/news/include/i ... _trans.gif, doit etre entourer soit de ' soit de "
J'avais pas vu - Corrigé

- 3eme problème : _StringBetween() retourne un tableau de 1 dimension, et vous utiliser ensuite StringSplit() qui est une methode essentiellement utilisé pour les "String" non pour les tableaux ! [il n'y aura pas d'erreur, mais le tableau ne sera composé que d'un seul élément, à savoir "RIEN"]
Le but est de récuperer un seul uniquement, et de le faire apparaitre dans la partie $edit1, donc je ne comprend l'interet du tableau. Mais effectivement, le code ne me renvoie rien.


Et pour la fonction GuiCtrlSetData, est-ce la bonne fonction pour placer le lien dans edit1 ?

Merci en tout cas

[mikell]

J'essaye de récupérer un lien spécifique sur une page web

Ya certainement beaucoup plus simple
Sur cette page "http://www.phoenixjp.net/news/fr/" quel est exactement le lien spécifique que vous voulez récupérer ? (au vu de votre script c'est pas évident)

[Sydneysyd]

récupérer le lien web de l'image, mais j'aimerais que l'autoIT le trouve tout seul (si j'ose dire).
Tout simplement pour mieux comprendre le fonctionnement.
Le bout de script en lui même n'a pour but que de me faire comprendre certaines fonctions qui restent obscures.

[mikell]

Hmm si c'est juste pour récupérer le lien d'une image, voilà une piste simple mais parlante

Code : Tout sélectionner

#include <IE.au3> 

$text = ""
$oIE = _IECreate ("http://www.phoenixjp.net/news/fr/.html", 0, 0)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
    $text &= $oImg.src & @CRLF
Next
MsgBox(0, "adresses", $text)

Si on connait un bout de nom de l'image, on peut faire simplement

Code : Tout sélectionner

#include <IE.au3> 

$oIE = _IECreate ("http://www.phoenixjp.net/news/fr/.html", 0, 0)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
    If StringInStr($oImg.src, "trans") Then MsgBox(0, "adresse", $oImg.src)
Next

[Sydneysyd]

C'est parfait et très parlant (bon faut que je le mette bien dans la tête, mais c'est explicite).

Par contre, une fois le lien de l'image récupéré comment le mettre dans un edit1 ?

Car là, j'ai beau essayé , rien ne marche (clipput, clipget, guictrlsetdata...)

Je sais que je tourne autour du pot en + !
lol

Merci pour ton aide

[sylvanie]

guictrlsetdata($edit1,$variable_contenant_url)

[mikell]

Ben voilà
Exemple un peu moins simple mais... etc

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3> 
HotKeySet("{ESC}", "Terminate")    [color=#FF0000]; "échap" pour quitter[/color]

$oIE = _IECreate ("http://www.phoenixjp.net/news/fr/.html", 0, 0)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
    If StringInStr($oImg.src, "trans") Then 
        [color=#FF0000]$adr_image[/color] = $oImg.src    [color=#FF0000] ; adresse de l'image (string)[/color]
        $w = $oImg.width     [color=#FF0000]; dimensions de l'image[/color]
        $h = $oImg.height 
        $oIE.Quit     [color=#FF0000]; il faut mémoriser les données sur l'image dans des variables [u]avant[/u] de quitter IE[/color]
        ExitLoop
    EndIf
Next
InetGet ($adr_image, @tempdir & "\test_img.gif")   [color=#FF0000]; télécharge l'image[/color]

$gui = GuiCreate("", $w, $h, -1, 100, $WS_POPUP, $WS_EX_LAYERED)
$pic = GuiCtrlCreatePic("", 0, 0, $w, $h, -1, $GUI_WS_EX_PARENTDRAG)
GuiCtrlSetTip(-1, $adr_image)       
GuiCtrlSetImage(-1, @tempdir & "\test_img.gif")
GUISetState()
_WinAPI_SetLayeredWindowAttributes($gui, 0x00ff00)  [color=#FF0000]; juste pour la transparence[/color]

While 1
Sleep(10)
Wend

Func Terminate()
Exit
EndFunc


;====================================================
;from WinAPI.au3 
;====================================================
Func _WinAPI_SetLayeredWindowAttributes($hWnd, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False)
    If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03
    If Not $isColorRef Then
        $i_transcolor = Hex(String($i_transcolor), 6)
        $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
    EndIf
    Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hWnd, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags)
    If @error Then Return SetError(@error, @extended, False)
    Return $aResult[0]
EndFunc   ;==>_WinAPI_SetLayeredWindowAttributes
 

Pour mettre dans un Edit :
GuiCtrlSetData($Edit, $adr_image)

[Sydneysyd]

C'est beaucoup plus clair, meme si je dois prendre du temps pour assimiler le dernier code ! ^^
lol


Merci beaucoup.

Je met [R]