[R] Lien megaupload

[Ghost911]

bonjour j'aimerai avoir un script qui récupère tous les liens megaupload de n importe quel fichier texte ou d'une page web quelconque si c'est possible merci !

[Sh4dows]

Regex :

Code : Tout sélectionner

/(http:[/]{2}www.megaupload.com[/][?]d=[A-Z0-9]{8})/ig
 

[Koumla]

Bonjour,

Code : Tout sélectionner

#include <IE.au3>
#include <Array.au3>

$oIE = _IECreate ("http://www.autoitscript.fr")

$oLinks = _IELinkGetCollection ($oIE)

$iNumLinks = @extended

MsgBox(0, "Link Info", $iNumLinks & " links found")

For $oLink In $oLinks

ConsoleWrite($oLink.href & @CRLF)

Next
 

Suffit de filtrer les urls

Koumla

[Ghost911]

merci a vous 2 c'est sympa par contre j'ai un autre problème j'aimerai chaque fois qu'un lien ai inséré dans une GUICtrlCreateListViewItem on puisse cliqué dessus pour l'ouvrir depuis un navigateur possible

[sylvanie]

oui, il faut associer un évènement de download sr chaque item (faudra sûrement songer au mode évènementiel pour la cration dynamique)

pour llustrer ceci (en mode classique) j'ai repris l'exemple de l'aide que j'ai personnaliser sur le premier item :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $listview, $button, $item1, $item2, $item3, $input1, $msg

    GUICreate("listview items", 220, 250, 100, 200, -1, $WS_EX_ACCEPTFILES)
    GUISetBkColor(0x00E0FFFF)  ; will change background color

    $listview = GUICtrlCreateListView("col1  |col2|col3  ", 10, 10, 200, 150);,$LVS_SORTDESCENDING)
    $button = GUICtrlCreateButton("Value?", 75, 170, 70, 20)
    $item1 = GUICtrlCreateListViewItem("item2|col22|col23", $listview)
    $item2 = GUICtrlCreateListViewItem("............item1|col12|col13", $listview)
    $item3 = GUICtrlCreateListViewItem("item3|col32|col33", $listview)
    $input1 = GUICtrlCreateInput("", 20, 200, 150)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)   ; to allow drag and dropping
    GUISetState()
    GUICtrlSetData($item2, "|ITEM1")
    GUICtrlSetData($item3, "||COL33")
    GUICtrlDelete($item1)

    Do
        $msg = GUIGetMsg()

        Select
            Case $msg = $button
                MsgBox(0, "listview item", GUICtrlRead(GUICtrlRead($listview)), 2)
            Case $msg = $listview
                MsgBox(0, "listview", "clicked=" & GUICtrlGetState($listview), 2)
            Case $msg =$item2
                MsgBox(0,"test","lancez un inetget sur "&GUICtrlRead(GUICtrlRead($listview)))
        EndSelect
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Example


 

[Ghost911]

Que faut-il utiliser pour que toutes les urls du site soient soulignées pareil que cette image sauf dans une GUICtrlCreateListViewItem ?

http://img403.imageshack.us/img403/5669/10786366.png

[sylvanie]

Dans un premier temps, on peut déjà faire un GUICtrlSetCursor(-1,0) sur l'id retourné par GUICtrlCreateListView (et non GUICtrlCreateListViewItem, car ça ne marche pas ...).
ça a pour effet de transformer le curseur de souris en main pour hyperlien

après, faut voir si on n'a pas plus intérêt à passer par un objet ie embarqué dans la GUI pour avoir la possibilité d'avair des liens ... ?

[Ghost911]

si c'est pas dans une GUICtrlCreateListViewItem sa m'intéresse pas au niveau design mais merci de ton aide sylvanie

[Ghost911]

comment je fait pour détecter si le lien megaupload n'est pas valide avec gestion d'erreur ?

[Sh4dows]

Pour voir si ton lien est valide il existe une méthode très simple et que j'aime bien, il te suffit de récupérer le code source de ta page et de rechercher la chaîne de caractère "Lien invalide" sans les guillemets sinon valide ! On peut faire encore des vérifs pour s'assurer de la validité de celui ci notamment avec des regex en testant les valeurs entre balise etc...

[Ghost911]

un exemple ?

[Nilak]

Salut,

Personnellement j'utilise _FFReadHTML, mais je pense que ce code fonctionne avec IE:

Code : Tout sélectionner

 $link = "tonlienMU"
$IE = _IECreate($link)
$read= _IEBodyReadText ($IE)
$check = StringInStr ($read,"Lien Invalide")
If $check = 0 Then

Par contre ça suppose ouvrir une fenêtre IE a chaque fois... J'imagine qu'une fonction plus performante doit exister pour récupérer le code source!

[bloodwolff]

Je te met une fonction qui vérifiais les liens que j'avais fais pour un programme , à toi de l'adapter

Code : Tout sélectionner

Func Verif_lien($array, $Progress)
    Dim $array_final[1] = [0]
    GUICtrlSetData($Progress, 0)
    For $i=0 To UBound($array)-1
        GUICtrlSetData($Progress, (($i+1)/UBound($array))*100)
        $source = _INetGetSource("http://www.megavideo.com/?v=" & $array[$i] & "&streamId=" & $array[$i])
        If not StringInStr($source, 'Class="st_note_txt1"') Then _ArrayAdd($array_final , $array[$i])
    Next
    $array_final[0] = UBound($array_final)-1
    Return $array_final
EndFunc

Édit: m.... j'ai poster trop vite sa vérifiais les liens mégavideo :S mais sa peut peut-être te servir

[Ghost911]

Merci à vous 2