[..] Récupération d'information de Youtube

[MeGaTrOn]

Salut,
j'ai encore besoin de votre grande expérience car j'aimerez créer un logiciel pour vérifier si il y a de nouvelles vidéos sur Youtube.
En fait le script regarderais les 15 dernières vidéos et les notes dans une Liste et que je récupère celui qui a poster la vidéo dans une autre.
Je voudrais pas un script tout fait mais un exemple sur comment récupérer les infos car je voudrais le faire moi même.

Cordialement, MeGaTrOn.

[alex1205]

Salut

en fait t'a un problème où ? pour prendre le code source, tu peux utiliser _InetGetSource ou utiliser l'objet wininet et faire une requete Get. Après tu parse le code html, et tu trouve les résultats. tu veux que je te fasse un code qui fasse un exemple ?

[MeGaTrOn]

Oui ce serais gentil

[alex1205]

Voilà un code vite fait :

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $__g_URLDefault = "http://www.youtube.com/user/MaitreGimsVEVO", $__g_sFile = @ScriptDir & "\youtube_cache", $__g_sYoutubechannel = ""
Global $__g_sResult = ""
#region ### START Koda GUI section ### Form=
;///// GUI /////
$h_Form = GUICreate("", 205, 62, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "h_FormClose")
$L_label = GUICtrlCreateLabel("Chaîne YouTube à surveiller :", 8, 8, 145, 17)
; Exemple chaîne Maitre Gims : http://www.youtube.com/user/MaitreGimsVEVO
$I_youtubechannel = GUICtrlCreateInput($__g_URLDefault, 8, 32, 145, 21)
$Button1 = GUICtrlCreateButton("Go", 160, 8, 41, 41)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
;\\\\\ GUI \\\\\

While 1
    Sleep(100)
WEnd

Func Button1Click()
    $__g_sYoutubechannel = GUICtrlRead($I_youtubechannel)
    $__g_sResult = __getHTMLSource($__g_sYoutubechannel)
    FileWrite($__g_sFile, $__g_sResult)
    Sleep(1000)
    AdlibRegister("__YT_check", 60 * 1000)
    GuiSetState(@SW_Hide)
EndFunc   ;==>Button1Click

Func h_FormClose()
    Exit
EndFunc   ;==>h_FormClose

Func __getHTMLSource($sURL)
    $__f_oWinHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $__f_oWinHTTP.Open("GET", $sURL)
    $__f_oWinHTTP.Send()
    Return $__f_oWinHTTP.Responsetext
EndFunc   ;==>__getHTMLSource

Func __YT_check()
    $__f_sFile = FileRead($__g_sFile)
    $__f_sResult = __getHTMLSource($__g_sYoutubechannel)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de page", 2000)
        FileDelete($__g_sFile)
        FileWrite($__g_sFile, $__f_sResult)
    EndIf
EndFunc   ;==>__YT_check

En fait ça surveille une chaîne youtube (en exemple la chaine de maitre gims) et ca fait une notification si la page a été modifié (donc ajout de vidéo). C'est une bêta mais ca marche.

[MeGaTrOn]

J'ai essayer d'adapter ton script pour plusieurs page mais j'ai un problème c'est qu'il me détecte tout le temps des vidéos
Le script :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Global $__g_sFilenozman = @ScriptDir & "\youtube_cache_nozman"
Global $__g_sFilefanta = @ScriptDir & "\youtube_cache_fanta"
Global $__g_sFilefantabob = @ScriptDir & "\youtube_cache_fantabob"
Global $__g_sFileas2 = @ScriptDir & "\youtube_cache_as2"
Global $__g_sFileaypierre = @ScriptDir & "\youtube_cache_aypierre"
Global $__g_sFilethaek = @ScriptDir & "\youtube_cache_thaek"
Global $__g_sFileunster = @ScriptDir & "\youtube_cache_unster"
Global $__g_sFilenatyu = @ScriptDir & "\youtube_cache_natyu"
Global $__g_sFileelvi = @ScriptDir & "\youtube_cache_elvi"
Global $__g_sFileharry = @ScriptDir & "\youtube_cache_harry"
Global $__g_sFilesouls = @ScriptDir & "\youtube_cache_souls"
Global $__g_sFilebill = @ScriptDir & "\youtube_cache_bill"
Global $__g_sFilezephirr = @ScriptDir & "\youtube_cache_zephirr"
Global $__g_sResult = ""
#Region ### START Koda GUI section ### Form=
Global $h_Form = GUICreate("", 299, 213, 192, 124)
GUISetFont(9, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "h_FormClose")
Global $L_label = GUICtrlCreateLabel("Chaîne YouTube à surveiller :", 8, 8, 201, 25)
Global $Button1 = GUICtrlCreateButton("Go", 216, 0, 81, 49)
GUICtrlSetOnEvent(-1, "Button1Click")
Global $Checkbox1 = GUICtrlCreateCheckbox("TheFantasio974", 8, 32, 137, 25)
Global $Checkbox2 = GUICtrlCreateCheckbox("FantaBobGames", 8, 56, 145, 25)
Global $Checkbox3 = GUICtrlCreateCheckbox("Aypierre", 8, 80, 113, 25)
Global $Checkbox4 = GUICtrlCreateCheckbox("As2piK", 8, 104, 97, 25)
Global $Checkbox5 = GUICtrlCreateCheckbox("Thaek", 8, 128, 97, 25)
Global $Checkbox6 = GUICtrlCreateCheckbox("MrElvilia", 8, 152, 97, 25)
Global $Checkbox7 = GUICtrlCreateCheckbox("HarryLafranc", 8, 176, 121, 25)
Global $Checkbox8 = GUICtrlCreateCheckbox("Soulstealer", 168, 176, 121, 25)
Global $Checkbox9 = GUICtrlCreateCheckbox("Bill Sirverlight", 168, 152, 129, 25)
Global $Checkbox10 = GUICtrlCreateCheckbox("Zephirr", 168, 128, 129, 25)
Global $Checkbox11 = GUICtrlCreateCheckbox("Unsterbliicher", 168, 104, 129, 25)
Global $Checkbox12 = GUICtrlCreateCheckbox("IndiaNatyu", 168, 56, 129, 25)
Global $Checkbox13 = GUICtrlCreateCheckbox("DrNozman", 168, 80, 129, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $fanta = 0, $fanta_lien = "http://www.youtube.com/channel/UC0GHeUcPxfNEZqbFyxy2frQ"
Global $fantabob = 0, $fantabob_lien = "http://www.youtube.com/channel/UCo0U1tbk3YbqiLDhkeWOviQ"
Global $aypierre = 0, $aypierre_lien = "http://www.youtube.com/channel/UCA5sfitizqs1oEbB5KY4uKQ"
Global $as2 = 0, $as2_lien = "http://www.youtube.com/channel/UCLPO5paF21GqRgaHo3axH9Q"
Global $thaek = 0, $thaek_lien = "http://www.youtube.com/channel/UCliSpfof0gJR46dyZw6650A"
Global $elvi = 0, $elvi_lien = "http://www.youtube.com/channel/UCybOVVFcCcjII5ww8kOlH9Q"
Global $harry = 0, $harry_lien = "http://www.youtube.com/channel/UC7ZFi5y8TGwxbegSwJtUz2w"
Global $souls = 0, $souls_lien = "http://www.youtube.com/channel/UCTj0VMg7uE-GQMah8CugdrQ"
Global $bill = 0, $bill_lien = "http://www.youtube.com/channel/UCaOJMsgk3Z29fyUAkEQTdhg"
Global $zephirr = 0, $zephirr_lien = "http://www.youtube.com/channel/UCxbFOHgBBWOsUjJ49M7g0TA"
Global $unster = 0, $unster_lien = "http://www.youtube.com/channel/UCXxlXhwYAgallFY0LF92DtQ"
Global $natyu = 0, $natyu_lien = "http://www.youtube.com/channel/UCYkKKl5ZFjT1vQ5LvIqnT6g"
Global $nozman = 0, $nozman_lien = "http://www.youtube.com/channel/UCWnfDPdZw6A23UtuBpYBbAg"

While 1
    Sleep(100)
WEnd

Func Button1Click()
    If GUICtrlRead($Checkbox1) = 1 Then
        global $fanta = 1
        Local $__g_sResult = __getHTMLSource($fanta_lien)
        FileWrite($__g_sFilefanta, $__g_sResult)
        AdlibRegister("__YT_checkfanta", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox2) = 1 Then
        global $fantabob = 1
        Local $__g_sResult = __getHTMLSource($fantabob_lien)
        FileWrite($__g_sFilefantabob, $__g_sResult)
        AdlibRegister("__YT_checkfantabob", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox3) = 1 Then
        global $aypierre = 1
        Local $__g_sResult = __getHTMLSource($aypierre_lien)
        FileWrite($__g_sFileaypierre, $__g_sResult)
        AdlibRegister("__YT_checkaypierre", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox4) = 1 Then
        global $as2 = 1
        Local $__g_sResult = __getHTMLSource($as2_lien)
        FileWrite($__g_sFileas2, $__g_sResult)
        AdlibRegister("__YT_checkas2", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox5) = 1 Then
        global $thaek = 1
        Local $__g_sResult = __getHTMLSource($thaek_lien)
        FileWrite($__g_sFilethaek, $__g_sResult)
        AdlibRegister("__YT_checkthaek", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox6) = 1 Then
        global $elvi = 1
        Local $__g_sResult = __getHTMLSource($elvi_lien)
        FileWrite($__g_sFileelvi, $__g_sResult)
        AdlibRegister("__YT_checkelvi", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox7) = 1 Then
        global $harry = 1
        Local $__g_sResult = __getHTMLSource($harry_lien)
        FileWrite($__g_sFileharry, $__g_sResult)
        AdlibRegister("__YT_checkharry", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox8) = 1 Then
        global $souls = 1
        Local $__g_sResult = __getHTMLSource($souls_lien)
        FileWrite($__g_sFilesouls, $__g_sResult)
        AdlibRegister("__YT_checksouls", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox9) = 1 Then
        global $bill = 1
        Local $__g_sResult = __getHTMLSource($bill_lien)
        FileWrite($__g_sFilebill, $__g_sResult)
        AdlibRegister("__YT_checkbill", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox10) = 1 Then
        global $zephirr = 1
        Local $__g_sResult = __getHTMLSource($zephirr_lien)
        FileWrite($__g_sFilezephirr, $__g_sResult)
        AdlibRegister("__YT_checkzephirr", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox11) = 1 Then
        global $unster = 1
        Local $__g_sResult = __getHTMLSource($unster_lien)
        FileWrite($__g_sFileunster, $__g_sResult)
        AdlibRegister("__YT_checkunster", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox12) = 1 Then
        global $natyu = 1
        Local $__g_sResult = __getHTMLSource($natyu_lien)
        FileWrite($__g_sFilenatyu, $__g_sResult)
        AdlibRegister("__YT_checknatyu", 60 * 1000)
    EndIf
    If GUICtrlRead($Checkbox13) = 1 Then
        global $nozman = 1
        Local $__g_sResult = __getHTMLSource($nozman_lien)
        FileWrite($__g_sFilenozman, $__g_sResult)
        AdlibRegister("__YT_checknozman", 60 * 1000)
    EndIf
    Sleep(1000)
    GuiSetState(@SW_Hide)
EndFunc   ;==>Button1Click

Func h_FormClose()
    Exit
EndFunc   ;==>h_FormClose

Func __getHTMLSource($sURL)
    $__f_oWinHTTP = ObjCreate("winhttp.winhttprequest.5.1")
    $__f_oWinHTTP.Open("GET", $sURL)
    $__f_oWinHTTP.Send()
    Return $__f_oWinHTTP.Responsetext
EndFunc   ;==>__getHTMLSource

Func __YT_checknozman()
    Local $__f_sFile = FileRead($__g_sFilenozman)
    local $__f_sResult = __getHTMLSource($nozman_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de DrNozman", 2000)
        FileDelete($__g_sFilenozman)
        FileWrite($__g_sFilenozman, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkfanta()
    Local $__f_sFile = FileRead($__g_sFilefanta)
    local $__f_sResult = __getHTMLSource($fanta_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de TheFantasio974", 2000)
        FileDelete($__g_sFilefanta)
        FileWrite($__g_sFilefanta, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkfantabob()
    Local $__f_sFile = FileRead($__g_sFilefantabob)
    local $__f_sResult = __getHTMLSource($fantabob_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de FantaBobGames", 2000)
        FileDelete($__g_sFilefantabob)
        FileWrite($__g_sFilefantabob, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkaypierre()
    Local $__f_sFile = FileRead($__g_sFileaypierre)
    local $__f_sResult = __getHTMLSource($aypierre_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de Aypierre", 2000)
        FileDelete($__g_sFileaypierre)
        FileWrite($__g_sFileaypierre, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkas2()
    Local $__f_sFile = FileRead($__g_sFileas2)
    local $__f_sResult = __getHTMLSource($as2_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de As2piK", 2000)
        FileDelete($__g_sFileas2)
        FileWrite($__g_sFileas2, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkthaek()
    Local $__f_sFile = FileRead($__g_sFilethaek)
    local $__f_sResult = __getHTMLSource($thaek_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de Thaek", 2000)
        FileDelete($__g_sFilethaek)
        FileWrite($__g_sFilethaek, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkelvi()
    Local $__f_sFile = FileRead($__g_sFileelvi)
    local $__f_sResult = __getHTMLSource($elvi_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de MrElivlia", 2000)
        FileDelete($__g_sFileelvi)
        FileWrite($__g_sFileelvi, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkharry()
    Local $__f_sFile = FileRead($__g_sFileharry)
    local $__f_sResult = __getHTMLSource($harry_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de HarryLafranc", 2000)
        FileDelete($__g_sFileharry)
        FileWrite($__g_sFileharry, $__f_sResult)
    EndIf
EndFunc

Func __YT_checksouls()
    Local $__f_sFile = FileRead($__g_sFilesouls)
    local $__f_sResult = __getHTMLSource($souls_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de Soulstealer", 2000)
        FileDelete($__g_sFilesouls)
        FileWrite($__g_sFilesouls, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkbill()
    Local $__f_sFile = FileRead($__g_sFilebill)
    local $__f_sResult = __getHTMLSource($bill_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de BillSilverlight", 2000)
        FileDelete($__g_sFilebill)
        FileWrite($__g_sFilebill, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkzephirr()
    Local $__f_sFile = FileRead($__g_sFilezephirr)
    local $__f_sResult = __getHTMLSource($zephirr_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de Zephirr", 2000)
        FileDelete($__g_sFilezephirr)
        FileWrite($__g_sFilezephirr, $__f_sResult)
    EndIf
EndFunc

Func __YT_checkunster()
    Local $__f_sFile = FileRead($__g_sFileunster)
    local $__f_sResult = __getHTMLSource($unster_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de Unsterbliicher", 2000)
        FileDelete($__g_sFileunster)
        FileWrite($__g_sFileunster, $__f_sResult)
    EndIf
EndFunc

Func __YT_checknatyu()
    Local $__f_sFile = FileRead($__g_sFilenatyu)
    local $__f_sResult = __getHTMLSource($natyu_lien)
    If $__f_sFile <> $__f_sResult Then
        TrayTip("YouTube Detector", "Youtube Detector a détecté une modification de la page de IndiaNatyu", 2000)
        FileDelete($__g_sFilenatyu)
        FileWrite($__g_sFilenatyu, $__f_sResult)
    EndIf
EndFunc

[mikell]

Un script qui se base juste sur une différence de contenu de la page lue avec un InetRead ou autre ne peut pas marcher avec Youtube
1 vue de plus sur une des videos, une modif dans l'affichage aléatoire des pubs ou recommandations, un changement d'id de session etc... et c'est mort ^^
Pour que ça puisse marcher tu n'y couperas pas : faut parser le contenu au regexp, faire des arrays ciblées et faire des comparaisons
Par contre si les structures sont les mêmes tu peux faire des fonctions communes
Exemple :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>
Global $url = "http://www.youtube.com/user/TheFantasio974/videos?sort=dd&view=0&shelf_index=1"
Global $url2 = "http://www.youtube.com/user/MrElvilia/videos?shelf_index=1&view=0&sort=dd"

$fan = _ParsePage($url)
_ArrayDisplay($fan, "TheFantasio974")
$elv = _ParsePage($url2)
_ArrayDisplay($elv, "MrElvilia")

Func _ParsePage($my_url)
Local $txt = BinaryToString(InetRead($my_url), 4)
$txt = _CleanHtmlShits($txt)
Local $dates = StringRegExp($txt, 'yt-lockup2-deemphasized-text">(?s)\s*(.*?)\s{2,}', 3)
Local $items = StringRegExp($txt, 'data-context-item-title="([^"]+)', 3)
Local $res[Ubound($items)][2]
For $i = 0 to Ubound($items)-1
  $res[$i][0] = $dates[$i]
  $res[$i][1] = $items[$i]
Next
Return $res
EndFunc

Func _CleanHtmlShits($H_string)
If StringInStr($H_string, '<') Then $H_string = StringReplace($H_string, '<', '<')
If StringInStr($H_string, '>') Then $H_string = StringReplace($H_string, '>', '>')
If StringInStr($H_string, '"') Then $H_string = StringReplace($H_string, '"', '"')
If StringInStr($H_string, '&') Then $H_string = StringReplace($H_string, '&', '&')
If StringInStr($H_string, ''') Then $H_string = StringReplace($H_string, ''', "'")
; etc
Return $H_string
EndFunc
 

La video la plus récente est dans la 1ère ligne de l'array

Mais pour juste la dernière video tu peux aussi faire comme ça

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>
Global $url = "http://www.youtube.com/user/TheFantasio974/videos?sort=dd&view=0&shelf_index=1"
Global $url2 = "http://www.youtube.com/user/MrElvilia/videos?shelf_index=1&view=0&sort=dd"

$fan = _ParsePage($url)
_ArrayDisplay($fan, "TheFantasio974")
$elv = _ParsePage($url2)
_ArrayDisplay($elv, "MrElvilia")

Func _ParsePage($my_url)
Local $txt = BinaryToString(InetRead($my_url), 4)
; video la plus récente
$video = StringRegExpReplace($txt, '(?s).+?(context-data-item.+?</ul).+', "$1")
Local $res[6]
$res[0]  = StringRegExpReplace($video, '(?s).+yt-lockup2-deemphasized-text">(?s)\s*(.*?)\s{2,}.+', "$1")  ; date
$res[1] = _CleanHtmlShits(StringRegExpReplace($video, '(?s).+data-context-item-title="([^"]+).+', "$1")) ; nom
$res[2] = StringRegExpReplace($video, '(?s).+data-context-item-time="([^"]+).+', "$1")   ; durée
$res[3] = StringRegExpReplace($video, '(?s).+data-context-item-id="([^"]+).+', "$1")  ; id
$res[4] = 'http://www.youtube.com//watch?v=' & $res[3]  ; lien
$res[5] = 'http:' & StringRegExpReplace($video, '(?s).+?src="([^"]+).+', "$1")  ; image
Return $res
EndFunc

Func _CleanHtmlShits($H_string)
If StringInStr($H_string, '<') Then $H_string = StringReplace($H_string, '<', '<')
If StringInStr($H_string, '>') Then $H_string = StringReplace($H_string, '>', '>')
If StringInStr($H_string, '"') Then $H_string = StringReplace($H_string, '"', '"')
If StringInStr($H_string, '&') Then $H_string = StringReplace($H_string, '&', '&')
If StringInStr($H_string, ''') Then $H_string = StringReplace($H_string, ''', "'")
; etc
Return $H_string
EndFunc
 

Quelle que soit la méthode, les regex sont incontournables ^^

EDIT
Pardon, c'est contournable avec l'udf _StringBetween (pour faire plaisir à Tlem)

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>
#include <String.au3>
Global $url = "http://www.youtube.com/user/TheFantasio974/videos?sort=dd&view=0&shelf_index=1"
Global $url2 = "http://www.youtube.com/user/MrElvilia/videos?shelf_index=1&view=0&sort=dd"

$fan = _ParsePage($url)
_ArrayDisplay($fan, "TheFantasio974")
$elv = _ParsePage($url2)
_ArrayDisplay($elv, "MrElvilia")

Func _ParsePage($my_url)
Local $txt = BinaryToString(InetRead($my_url), 4)
Local $video = _StringBetween($txt, 'context-data-item', '</ul')  ; video la plus récente
Local $res[6]
Local $var = _StringBetween($video[0], 'yt-lockup2-deemphasized-text">', '</li')
$res[0]  = StringStripWS($var[0], 3)  ; date 
$var = _StringBetween($video[0], 'data-context-item-title="', '"')
$res[1] = _CleanHtmlShits($var[0]) ; nom
$var = _StringBetween($video[0], 'data-context-item-time="', '"')
$res[2] = $var[0]   ; durée
$var = _StringBetween($video[0], 'data-context-item-id="', '"')
$res[3] = $var[0]  ; id
$res[4] = 'http://www.youtube.com//watch?v=' & $res[3]   ; lien
$res[5] = 'http://i1.ytimg.com/vi/' & $res[3] &  '/mqdefault.jpg'  ; image
Return $res
EndFunc

Func _CleanHtmlShits($H_string)
If StringInStr($H_string, '<') Then $H_string = StringReplace($H_string, '<', '<')
If StringInStr($H_string, '>') Then $H_string = StringReplace($H_string, '>', '>')
If StringInStr($H_string, '"') Then $H_string = StringReplace($H_string, '"', '"')
If StringInStr($H_string, '&') Then $H_string = StringReplace($H_string, '&', '&')
If StringInStr($H_string, ''') Then $H_string = StringReplace($H_string, ''', "'")
; etc
Return $H_string
EndFunc