Page 1 sur 1
[R] Lien megaupload
Posté : jeu. 02 déc. 2010 22:44
par 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
!
Re: [..] Lien megaupload
Posté : ven. 03 déc. 2010 06:38
par Sh4dows
Re: [..] Lien megaupload
Posté : ven. 03 déc. 2010 11:19
par 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
Re: [..] Lien megaupload
Posté : ven. 03 déc. 2010 18:00
par 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
Re: [..] Lien megaupload
Posté : ven. 03 déc. 2010 23:01
par 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
Re: [..] Lien megaupload
Posté : sam. 04 déc. 2010 00:16
par 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
Re: [..] Lien megaupload
Posté : sam. 04 déc. 2010 16:23
par 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 ... ?
Re: [..] Lien megaupload
Posté : jeu. 09 déc. 2010 01:46
par Ghost911
si c'est pas dans une GUICtrlCreateListViewItem sa m'intéresse pas au niveau design mais merci de ton aide sylvanie
Re: [..] Lien megaupload
Posté : jeu. 09 déc. 2010 01:52
par Ghost911
comment je fait pour détecter si le lien megaupload n'est pas valide avec gestion d'erreur ?
Re: [..] Lien megaupload
Posté : sam. 11 déc. 2010 23:56
par 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...
Re: [..] Lien megaupload
Posté : mar. 04 janv. 2011 16:18
par Ghost911
un exemple ?
Re: [..] Lien megaupload
Posté : mar. 04 janv. 2011 16:54
par 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!
Re: [..] Lien megaupload
Posté : mar. 04 janv. 2011 17:39
par 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
Re: [..] Lien megaupload
Posté : mar. 04 janv. 2011 17:59
par Ghost911
Merci à vous 2
