Bonjour
J'ai trouvé sur le web des scripts de récupération d'informations sur des films, cependant, je ne sais pas comment l'utilisé. Je programme en vb 2008 framework 3.5.
Voici un exemple de "monScriptWeb.script"
<?
xmlversion="1.0"encoding="UTF-8"?><filmotech_script_internet><version_editeur>1.0.2</version_editeur><informations_script><auteur>Gifto911</auteur><date>05/01/2009</date><version_script>1.0.0</version_script><version_mini_filmotech>2.3.0</version_mini_filmotech><commentaire></commentaire><langue>Fran?ais</langue></informations_script><informations_site><url>http://www.allocine.fr</url><nom>Allocin,_s,rie</nom></informations_site><scripts><script_0>dim chaine as stringchaine = "http://www.allocine.fr/recherche/default.html?motcle=" + ReplaceAll(fmt_MotsCles , " ", "+" ) + "
&rub=6&page="fmt_RequeteListe( "GET", chaine )
</
script_0><script_1>dim chaine, chaine2, chemin as stringdim i, j, k, l, indice as integer
dim identifiant as string
dim resume, letexte as string
' Recherche de la liste
for i=0 to fmt_NombreLignes - 1
chaine = "
<a href=""/series/ficheserie_gen_cserie="chaine2 = "class=""link1""
>"letexte = ""
j = instr( fmt_ValeurLigne( i ) , chaine )
l = instr( fmt_ValeurLigne( i ) , chaine2 )
if j
<>0 and l<>0 thenidentifiant = NthField( NthField( fmt_ValeurLigne( i ) , """" , 2 ) , "=" , 2 )
identifiant = left( identifiant, len(identifiant)-5 )
' A partir de +1, on saute ce qui commence par "
<" et on s'arr^te . </h4>k = i+1
do
if left( fmt_ValeurLigne( k ) , 1 )
<> "<" AND fmt_ValeurLigne( k ) <> "" thenletexte = letexte + fmt_ValeurLigne( k )
end if
k = k + 1
loop until fmt_ValeurLigne( k ) = "
</h4>" OR k > fmt_NombreLignes - 1fmt_MemoriseTitre ( identifiant , letexte )
i=k
end if
' S,rie suivante
if fmt_ValeurLigne( i ) = "S,ries TV suivants"then
chemin = "http://www.allocine.fr" + NthField( fmt_ValeurLigne( i-1 ) , """" , 2)
fmt_RequetePageSuivanteListe( "GET", chemin , right(chemin,1) )
end if
next