{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fmodern\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue0;\red128\green0\blue128;\red0\green0\blue0;\red102\green102\blue102;\red0\green0\blue255;\red255\green0\blue0;\red255\green102\blue0;\red230\green230\blue230;} {\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION ALLOCINE avec grandes Images et Telechargement des Bandes-Annonces sur votre disque\par // AUTHOR Jerome J. - Cyril G.\par // LANGUAGE FR\par \cf2 MovieDatabaseValue\cf1 = "Allocine"\par \cf3 If\cf1 param.version_texte+"."+param.release_texte<"6.08.\cf4 1"\cf1 \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Veuillez installer la version 6.08.\cf4 1 - ou sup\'e9rieure si disponible.\cf1 Merci.")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par \cf4\par \cf1 // verification de la version du script\par L\cf4 ast\cf1 V\cf4 ersion is \cf3 String\cf1 = \cf5 GetPage\cf1 ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par \cf3 If\cf4 (LastVersion = \cf1 "\'04")\cf4 OR (LastVersion = \cf1 "")\cf4 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf4 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf3\f0 Then\cf4 \par \tab\cf3 Goto \cf4 ServerOff\par \cf3 End\cf1\par L\cf4 ast\cf1 V\cf4 ersion = \cf5 BetweenStrings\cf4 (LastVersion , "\cf5 #allocine#" \cf4 , "\cf5 #/allocine#"\cf4 )\cf5\par \cf3 C\cf4 urrentversion is \cf3 String\cf4 = "3.7C"\cf3\par If\cf4 (CurrentVersion <> LastVersion) AND (LastVersion <> "\cf1\'04\cf4 ") \cf3 Then\par \cf4\tab\cf1 DownloadFile ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/Allocine_v" + LastVersion + ".script", fRepEXE() + "/Scripts" , "Allocine_v" + LastVersion + ".script")\cf5\par \tab UserInformationMessage\cf4 ("Allocine v" + LastVersion + cr + cr+ ...\par \tab\tab\tab\tab\tab "Une mise a jour du script Allocine vient d'\'eatre rapatri\'e9e." + cr+...\par \tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par \tab\cf3 Return\par End\par \cf4 ServerOff:\cf5\par \cf1\par //________________________________________________________________________________________________________________________________________\par ///////////////////////////////\par // DECLARATION DES VARIABLES //\par ///////////////////////////////\par \par // Entiers\par Movies_Number, V_complete, i, N\cf4 bReal, \cf1 N\cf4 bScn, \cf1 NbAct, NbRole, PasImgAllo, Img_Nb, k, NoBA_cinefil, NoBA_COC, PresenceBA_COC, ChoixGall, Place_Article are Int\par \par // General et codes HTML\par HtmlCode, HtmlCode0, HtmlCode1, R\cf4 emoveCode,\cf1 Movies_Delimiter, Tmps, Heure, Min, YearValue, Sum, BloCouleur, Color1, Color2, PersoCode, HtmlBA_COC, SiteOf are \cf3 String\cf1\par First_letter, Article2, Article3, Article4,\cf4 Annee_index, Original_index, Remove_index\cf1 are \cf3 String\par \cf4\fs18 RemoveHTML, \fs20 Public_allocine, Public_cinefil, Page_cinefil are int\cf1\par \par // Personnalit\'e9s\par L\cf4 istReal, Real1, \cf1 Realisateur, Scenariste, Scena1, Compositeur, Compo1, L\cf4 istScn, \cf1 ListAct, Acteur, NomActeur, Role,\cf4 Prod1, Producteur\cf1 are \cf3 String\cf1\par \par //Images\par ImgCode, ID_Pict, Pages, Page1, Page2, ImgDelim, ImageID, LienPageImg, ImageNo, ImageGallery, Rep_Img_Gall, PictureFile are \cf3 String\cf1\par \par // Bandes annonces\par BAllocine, HtmlCodeMov, BaMpegHQ, BAWmv, BARp, extension, HtmlBA, NomBA, FichierBA, FichierBA_COC, Rep_BA are \cf3 String\par \cf4 Res is \cf3 Boolean\cf4\par \par \cf1 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\cf4\par \cf1 ResAppel is booleen\par Page_html is \cf3 String\cf4\par \cf1 IdFichier, ResEcriture are int\cf4\par \par \cf1 // Messages d'erreurs\par \cf4 Message1, Message2, Message3, Message4, Message5, Message6, Message7, Message8 are \cf3 String\cf4\par \par \cf1 // Variables pour fichier Allocine_Config.txt\par \cf4 Defaut_Config i\cf1 s\cf4 \cf3 String\cf1\par \cf4 VERSION, GALLERIE, VERIF_AFFICHE,VOIR_IMAGE_GALERIE, CHOIX_BA, POPUP, PERSO_BLOC, RECUP_ROLES, GESTION_ERREUR are \cf3 String\cf1\par T\cf4 EMPO is int\cf1\par \par //________________________________________________________________________________________________________________________________________\par \par ///////////////////////////////////////////////////////////////////////////////////////////////\par // CHANGER LE REPERTOIRE DE DESTINATION DE LA GALERIE MULTIMEDIA ET DE LA BANDE ANNONCE ICI //\par // \tab\tab\tab\tab N'OUBLIEZ PAS le ' \\ ' A LA FIN DU CHEMIN\tab\tab\tab\tab //\par ///////////////////////////////////////////////////////////////////////////////////////////////\par \par Rep_Img_Gall = ".\\affiches\\"\par Rep_BA = ".\\Bandes Annonces\\"\par \par //________________________________________________________________________________________________________________________________________\par \par //GESTION DU FICHIER DE CONFIGURATION PAR DEFAUT DU SCRIPT (Allocine_Config.txt)\par // fichier \'e0 placer dans le repertoire "Scripts" de MVS\cf4\par Defaut_Config = fChargeTexte(".\\Scripts\\Allocine_Config.txt")\par \cf3 If\cf4 (Defaut_config <> "") AND (Defaut_config <> "\cf1\'04\cf4 ") \cf3 Then\par \cf4\tab Defaut_Config = \cf5 BetweenStrings\cf4 (Defaut_Config, "\cf1 //D\cf4 EBUT\cf1 //", "//FIN//")\cf4\par \tab Defaut_Config = \cf5 StringReplace\cf4 (Defaut_Config, " ", "")\par \tab VERSION = \cf5 BetweenStrings\cf4 (Defaut_Config, "VERSION=", CR)\par \tab GALLERIE = \cf5 BetweenStrings\cf4 (Defaut_Config, "GALLERIE=", CR)\par \tab VERIF_AFFICHE = \cf5 BetweenStrings\cf4 (Defaut_Config, "VERIF_AFFICHE=", CR)\par \tab VOIR_IMAGE_GALERIE = \cf5 BetweenStrings\cf4 (Defaut_Config, "VOIR_IMAGE_GALERIE=", CR)\par \cf3\tab If\cf4 VOIR_IMAGE_GALERIE = "\cf1\'04\cf4 " \cf3 Then \cf1 // A supprimer pour la prochaine version d'Allocine\cf4\par \cf3\tab\cf1\tab\cf3 Goto\cf4 Recharge_TXT\par \cf3\tab End\cf4\par \tab CHOIX_BA = \cf5 BetweenStrings\cf4 (Defaut_Config, "CHOIX_BA=", CR)\par \tab POPUP = \cf5 BetweenStrings\cf4 (Defaut_Config, "POPUP=", CR)\par \tab TEMPO = \cf5 BetweenStrings\cf4 (Defaut_Config, "TEMPO=", CR)\par \tab PERSO_BLOC = \cf5 BetweenStrings\cf4 (Defaut_Config, "PERSO_BLOC=", CR)\par \cf1\tab\cf4 RECUP_ROLES\cf1 = \cf5 BetweenStrings\cf1 (Defaut_Config, "R\cf4 ECUP_ROLES\cf1 =", CR)\par \tab\cf4 GESTION_ERREUR\cf1 = \cf5 BetweenStrings\cf1 (Defaut_Config, "\cf4 GESTION_ERREUR\cf1 =", CR)\cf4\par \cf3 Else\par \cf4 Recharge_TXT:\par \cf5\tab\cf1 DownloadFile ("http://pixel-infoweb.com/download/shareddoc/FILMS/scripts/Allocine_C\cf4 onfig.txt\cf1 ", fRepEXE() + "/Scripts" , "Allocine_C\cf4 onfig.txt\cf1 ")\cf5\par \cf4\tab\cf5 UserInformationMessage\cf4 ("Un fichier de configuration 'Allocine_Config.txt' vient d'\'eatre t\'e9l\'e9charg\'e9 dans le r\'e9pertoire :" +cr+cr +...\par \tab\tab\tab\tab\tab fRepExe() + "\\Scripts" + cr + cr + ...\par \tab\tab\tab\tab\tab "Mod\cf3 if\cf4 iez le \'e0 votre convenance pour affichez ou non les d\cf3 if\cf4 f\'e9rentes questions que vous pose le script." + cr+cr + ...\par \tab\tab\tab\tab\tab "Le script va s'arreter pour pre\cf3 nd\cf4 re en compte ce changement, veuillez enregistrer ce ficher, puis relancer le script.")\par \tab\cf6 ShellExecute(\cf1 fRepEXE() + "\cf4\\\cf1 Scripts\\Allocine_Config.txt"\cf4 )\par \tab\cf3 Return\cf1\par \cf3 End\par \cf4\par \cf1 // S\'e9lection de la version d'allocin\'e9 \'e0 utiliser (Light ou Compl\'e8te) \'e0 partir du fichier .txt\cf3\par If\cf4 VERSION = "1" \cf3 Then\cf4\par \tab V_complete = 1\par \cf3 Else\cf4\par \tab V_complete = 0\par \cf3 End\par \cf1 // Activation de la fermeture temporis\'e9e des fen\'eatres\cf4\par \cf3 If\cf4 POPUP = "1" \cf3 Then\cf4\par \tab\lang2057 D\'e9laiAvantFermeture (T\cf1 EMPO\cf4 )\lang1036\par \cf3 End\cf4\par \par \cf1 //________________________________________________________________________________________________________________________________________\par \cf4\par \cf1\par // cette page liste les films deja sortis avec click sur "plus" de la page allocine\par HtmlCode0 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/?motcle=", \cf7 TitleToSearch\cf1 , "&rub=1&page=1" )\par HtmlCode0 = \cf5 BetweenStrings\cf1 (HtmlCode0 , "D20000"">Recherche" , "

Rechercher")\par \cf3 If\cf1 HtmlCode0 = "" \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par \par // cette page liste les prochaines sorties de films\par HtmlCode1 = \cf5 GetPage\cf1 ("http://www.allocine.fr/recherche/?motcle=", \cf7 TitleToSearch\cf1 , "&rub=1&page=2" )\par HtmlCode1 = \cf5 BetweenStrings\cf1 (HtmlCode1 , "D20000"">Recherche" , "

Rechercher")\par \cf3 If\cf1 HtmlCode1 = "" \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par \par HtmlCode1 = Replace (HtmlCode1 , "Et la r\'e9ponse est..." , "")\par HtmlCode0 = Replace (HtmlCode0 , "Et la r\'e9ponse est..." , "")\par HtmlCode = HtmlCode0 + HtmlCode1\par \par //________________________________________________________________________________________________________________________________________\par \par //arborescence g\'e9n\'e9rale du stockage Allocine-Generalisation\par Movies_Delimiter = "/film/fichefilm_gen_cfilm=" \par Movies_Number = \cf5 StringCounter\cf1 (HtmlCode, Movies_Delimiter)\par \cf3 If\cf1 Movies_Number = 0 \cf3 Then\cf1\par \tab PasFilm:\par \tab\cf5 UserErrorMessage\cf1 (" AUCUNE REPONSE DISTANTE : 2 Possibilt\'e9s :" + CR + ...\par \tab\tab\tab\tab "Soit le film que vous recherchez n'est pas dans la base de donn\'e9es d'Allocine ( c'est peu probable )." + CR + CR + ...\par \tab\tab\tab\tab "Soit votre FireWall bloque la connexion avec Allocine " + CR + "Un probl\'e8me avec Norton Internet Security \'e0 \'e9t\'e9 d\'e9t\'e9ct\'e9." + CR + ...\par \tab\tab\tab\tab "Le modem / Routeur WIfi Wanadoo pose probl\'e8me \'e9galement" + CR + CR + CR + ...\par \tab\tab\tab\tab "D\'e9sactivez votre FireWall provisoirement pour v\'e9rifier s'il est responsable" + cr + cr + ...\par \tab\tab\tab\tab "VOICI MA SOLUTION : Antivirus Avast (gratuit) et FireWall Kerio 4 (gratuit)- Ca vous evitera de r\'e9investir et vous serez bien mieux prot\'e9g\'e9.")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par \par // MODE DEBUG : enlever les deux slash devant Information pour tester la capture du nombre de films\par // Information("Movies Number = " + Movies_Number)\par \par Movie_ID, Movie_Title, Movie_URL are \cf3 String\cf1\par \cf3 For\cf1 i=2 to Movies_Number + 1\par \tab Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf1 ( HtmlCode, i ,Movies_Delimiter )\par \tab Movie_ID = \cf5 BetweenStrings\cf1 ( Movie_Title , Movies_Delimiter , ".html" )\cf4\par \tab Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "

 (", ")

" )\par \tab Original_index = \cf5 BetweenStrings\cf4 ( Movie_Title, "
 (", ")
" )\cf1\par \tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "class=""link1"">" , "

")\par \tab Movie_Title = \cf5 FormatString\cf1 (Movie_Title, "UC")\par \tab Movie_Title = \cf5 FormatString\cf1 (Movie_Title, "WOA")\par \tab\cf3 If\cf4 Annee_index = "\cf1\'04\cf4 " \cf3 Then\cf4\par \tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + " (" + Original_index + ")."\cf1 )\par \cf4\tab\cf3 Else\cf4\par \tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + " (" + Annee_index + " - " + Original_index + ").")\par \tab\cf3 End\cf1\par \tab Movie_Title = RemoveHTMLTags (Movie_Title)\par \tab Movie_URL = "http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html"\par \tab\cf3 If\cf1 (Movie_ID = "") OR (Movie_ID = "\'04") OR (Movie_Title = "") OR (Movie_Title = "\'04") \cf3 Then\cf1\par \tab\tab Goto Pas_Add\par \tab\cf3 Else\cf1\tab\par \tab\tab\cf5 AddMovieToList\cf1 (i, Movie_ID, Movie_Title, Movie_URL)\par \tab\cf3 End\cf1\par Pas_Add:\par \par //MODE DEBUG : enlever les deux slash devant \cf6 Trace\cf1 pour tester la capture des titres\par //\cf6 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\par \par \cf3 End\cf1\par \par // Ouverture de la liste des films trouv\'e9s\par \cf5 OpenMoviesList\cf1 ()\par \par \par \cf3 If\cf1 \cf2 MovieIDValue\cf1 = "" \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9lectionn\'e9 aucun film." + CR + CR + "Ou la liste \'e9tait vide ou incompl\'e8te \'e0 cause de votre Firewall.")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par \par // MODE DEBUG : Verify URL (must be deactivate in the final version of the script)\par // ShellExecute("http://www.allocine.fr/film/fichefilm_gen_cfilm=" + Movie_ID + ".html")\par \par // Extraction du code Html de la page d\'e9sir\'e9e\par HtmlCode = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par \cf3 If\cf1 HtmlCode = "" \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\par \tab\cf3 Return\cf1\par \cf3 End\cf1\par //________________________________________________________________________________________________________________________________________\par \par //////////////////////////////////\par // Version complete ou light ? //\par //////////////////////////////////\par \cf3 If\cf4 (VERSION = "") OR (VERSION = "\cf1\'04\cf4 ") \cf3 Then\cf1\par \cf3\tab If\cf1 YesNo ("Voulez vous utiliser la version COMPLETE d'Allocine ?"+cr +cr +..."\par \tab\tab\tab "Cette version comprend la recherche des images dans la Galerie Multim\'e9dia et la recherche des Bandes Annonces ?") \cf3 Then\cf1\par \tab\tab V_complete = 1\par \cf3\tab Else\cf1\par \tab\tab V_complete = 0\par \cf3\tab End\cf1\par \cf3 End\cf4\par \cf1\par //________________________________________________________________________________________________________________________________________\par \par \cf4\par \cf1\par // Recuperation des donn\'e9es du film - Annee-Genre-Origine...\par // Titre\par // Suppression de l'index "ann\'e9e" et "titre original" dans le titre\par \cf4 Remove_index = \cf5 BetweenStrings\cf4 (\cf2 MovieTitleValue\cf4 , " (", ").")\cf1\par \cf2 MovieTitleValue\cf4 = \cf5 StringReplace\cf4 (\cf2 MovieTitleValue\cf4 , " (" + Remove_index + ").", "")\par \cf1\par //Suppression de l'article devant le Titre\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , " " , " ")\par \cf3 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 2 ) = "L'" ) OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 2 ) = "D'" ) \cf3 Then\cf1 \par \tab Article2 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,2)\par \tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 3 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article2 + ")"\par \cf3 End\cf1\par \cf3 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) ="LE ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "LA ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "UN ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "L' ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 3 ) = "D' ")\cf3 Then\cf1 \par \tab Article3 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,2)\par \tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 4 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article3 + ")"\par \cf3 End\cf1\par \cf3 If\cf1 ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) ="LES ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "UNE ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "DES ") OR ( \cf5 StringLeft\cf1 ( \cf2 MovieTitleValue\cf1 , 4 ) = "THE ") \cf3 Then\cf1 \par \tab Article4 = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 ,3)\par \tab\cf2 MovieTitleValue\cf1 = \cf5 StringMiddle\cf1 ( \cf2 MovieTitleValue\cf1 , 5 , Length (\cf2 MovieTitleValue\cf1 ) ) + " (" + Article4 + ")"\par \cf3 End\cf1\par \par // Suppression des caracteres joker\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "*" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "?" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , ":" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , """" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "<" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , ">" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "|" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "/" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "\\" , "-")\par \cf2 MovieTitleValue\cf1 = \cf5 StringReplace\cf1 (\cf2 MovieTitleValue\cf1 , "\cf4 &\cf1 " , "\cf4 et\cf1 ")\par \par //1ere lettre du titre\par First_Letter = \cf5 StringLeft\cf1 (\cf2 MovieTitleValue\cf1 , 1)\par \cf3 If\cf1 (0<=First_Letter<=9) \cf3 Then\cf1\par \tab First_Letter = "0a9"\par \cf3 End\cf1\par \par // Travail sur Titre Allocine pour la suite\par MovieTitleAllocineValue is \cf3 String\cf1 = \cf2 MovieTitleValue\par \cf1\par \pard\nowidctlpar\fs18 // Elimination des caract\'e8re 00004000 ...\cf4\par RemoveHTML\cf3 \cf4 = \cf5 StringCounter\cf4 (\cf0 H\cf4 tmlCode, "0000")\par \cf3 If\cf4 RemoveHTML >= 1 \cf3 Then\par \cf4\tab RemoveCode = \cf5 StringExtraction\cf4 (\cf0 H\cf4 tmlCode, 2, "0000")\par \tab RemoveCode = \cf5 StringLeft\cf4 (RemoveCode, 4)\par \tab\cf0 H\cf4 tmlCode = \cf5 StringReplace\cf4 (HtmlCode, RemoveCode, "1111")\par \pard\cf3 End\cf4\fs20\par \pard\nowidctlpar\cf0\fs18 H\cf4 tmlCode = \cf5 StringReplace\cf4 (HtmlCode, "00001111", "")\par \pard\tab\tab\fs20\par \cf1 //Titre original //

Titre original : The Matrix revolutions


\par \cf2 MovieOriginalTitleValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "Titre original : " , "" )\par \cf3 If\cf1 \cf2 MovieOriginalTitleValue\cf1 ="\'04" \cf3 Then\cf1\par \tab\cf2 MovieOriginalTitleValue\cf1 = ""\par \cf3 End\cf1\par \tab\par //dur\'e9e a transformer en minutes //

Dur\'e9e : 2h 8min.

 \par Tmps = \cf5 BetweenStrings\cf1 (HtmlCode, "

Dur\'e9e :", "min" )\par Tmps = \cf5 StringMiddle\cf1 (Tmps, 2 , Length(Tmps) )\par Heure = \cf5 StringLeft\cf1 (Tmps, 1 )\par Min = \cf5 StringMiddle\cf1 (Tmps, 3 , Length(Tmps))\par \cf2 MovieDurationValue\cf1 = \cf5 NumToString\cf1 (\cf5 StringToNum\cf1 (Heure)*60 + \cf5 StringToNum\cf1 (Min))\par \par //Origine Pays\par \cf2 MovieCountryValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "

Film", ". \cf4 ;\cf1

")\par \cf2 MovieCountryValue\cf1 = \cf5 StringMiddle\cf1 (\cf2 MovieCountryValue\cf1 , 2 , Length(\cf2 MovieCountryValue\cf1 ) )\par \cf2 MovieCountryValue\cf1 = \cf5 FormatString\cf1 (\cf2 MovieCountryValue\cf1 , "1UC")\par \cf3 If\cf4 \cf2 MovieCountryValue\cf1 = "\'04" \cf3 Then\par \cf4\tab\cf2 MovieCountryValue\cf1 \cf4 = ""\par \cf3 End\cf4\par \cf1\par //Recuperation de l'annee //

Ann\'e9e de production : 2002

\par YearValue = \cf5 BetweenStrings\cf1 (Htmlcode, "

Ann\'e9e de production :" , "Ann\'e9e de production :" , "

")\par \cf3\tab\cf2 MovieYearValue\cf1 = \cf5 StringMiddle\cf1 (YearValue , 2 , Length (YearValue) )\cf3\par End\cf1\par \par \par //genre //

Genre : Science fiction

\par \cf2 MovieFamilyValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCode, "

Genre :" , "

")\par \cf2 MovieFamilyValue\cf1 = \cf5 BetweenStrings\cf1 (\cf2 MovieFamilyValue\cf1 , "link1"">\cf4 "\cf1 , "")\par \cf2 MovieSummaryValue\cf1 = \cf5 BetweenStrings\cf1 (Sum , "padding:10 0 0 0"">" , "Forum de")\par Color1 = \cf5 StringCounter\cf1 (blocouleur, "Couleur")\par Color2 = \cf5 StringCounter\cf1 (blocouleur , "N&B")\par \cf3 If\cf1 Color1 <> 0 \cf3 Then\cf1 \par \tab\cf2 MovieColorBWValue\cf1 = "Couleur"\par \cf3 End\cf1\par \cf3 If\cf1 Color2 <> 0 \cf3 Then\cf1\par \tab\cf2 MovieColorBWValue\cf1 = "NB"\par \cf3 End\par If\cf4 \cf2 MovieColorBWValue\cf1 = "\'04" \cf3 Then\par \cf2\tab MovieColorBWValue\cf1 \cf4 = ""\par \cf3 End\cf1\par \par // Ajout du lien vers le site Officiel du film\par SiteOf = \cf5 BetweenStrings\cf1 (HtmlCode, \cf2 "\cf1 Synopsis\cf4 "\cf1 , "Site officiel")\par SiteOf = \cf5 BetweenStrings\cf1 (SiteOf , "href=""" , """ class=" )\par \cf3 If\cf1 (SiteOf <> "\'04") a\cf4 nd (\cf5 StringLeft\cf4 (Siteof , 6) <> "/film/") \cf3 Then\cf1\par \tab AddElementToGallery (1, "WEBPAGE" , SiteOf)\par \cf3 Else\cf1\par \tab SiteOf = ""\par \cf3 End\cf1\par // On garde la possibilit\'e9 de l'ID Allocine pour les utilisations BA et images\par MovieIDAllocineValue is \cf3 String\cf1 = \cf2 MovieIDValue\par \cf4\par \cf1 // Critiques spectateurs\par \cf3 If\cf4 PERSO_BLOC <> "0" \cf3 Then\cf1\par \cf4\tab Critik is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (HtmlCode, "Critiques Spectateurs")\par \cf3\tab N\cf4 bMoy is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (\cf3 Not\cf4 Moy , "/>" , "<")\cf3\par \tab Not\cf4 Moy = \cf5 BetweenStrings\cf4 (\cf3 Not\cf4 Moy , "etoile_" , """\cf3 ")\cf4\par \cf3\tab If\cf4 \cf3 Not\cf4 Moy = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab\cf3 Not\cf4 Moy = ""\par \cf3\tab Else\par \cf4\tab\cf3\tab Not\cf4 Moy = "\cf3 Not\cf4 e moyenne : " + \cf3 Not\cf4 Moy + "/4" + NbMoy + CR\par \cf3\tab End\cf4\par \tab etoile4 is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (Critik , "note=4.html" , "")\par \tab etoile4 = \cf5 BetweenStrings\cf4 (etoile4 , ">Les " , " critiques")\par \cf3\tab If\cf4 etoile4 = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab etoile4 = ""\par \cf3\tab Else\cf4\par \tab\tab etoile4 = "4 \'e9toiles (" + etoile4 + " ), "\par \cf3\tab End\cf4\par \par \tab etoile3 is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (Critik , "note=3.html" , "")\par \tab etoile3 = \cf5 BetweenStrings\cf4 (etoile3 , ">Les" , "critiques")\par \cf3\tab If\cf4 etoile3 = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab etoile3 = ""\par \cf3\tab Else\cf4\par \tab\tab etoile3 = "3 \'e9toiles (" + etoile3 + "), "\par \cf3\tab End\cf4\par \tab etoile2 is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (Critik , "note=2.html" , "")\par \tab etoile2 = \cf5 BetweenStrings\cf4 (etoile2 , ">Les" , "critiques")\par \cf3\tab If\cf4 etoile2 = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab etoile2 = ""\par \cf3\tab Else\cf4\par \tab\tab etoile2 = "2 \'e9toiles (" + etoile2 + "), "\par \cf3\tab End\cf4\par \tab etoile1 is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (Critik , "note=1.html" , "")\par \tab etoile1 = \cf5 BetweenStrings\cf4 (etoile1 , ">Les" , "critiques")\par \cf3\tab If\cf4 etoile1 = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab etoile1 = ""\par \cf3\tab Else\cf4\par \tab\tab etoile1 = "1 \'e9toile (" + etoile1 + "), "\par \cf3\tab End\cf4\par \tab etoile0 is \cf3 String\cf4 = \cf5 BetweenStrings\cf4 (Critik , "note=0.html" , "")\par \tab etoile0 = \cf5 BetweenStrings\cf4 (etoile0 , ">Les" , "critiques")\par \cf3\tab If\cf4 etoile0 = \cf1 "\'04"\cf4 \cf3 Then\cf4\par \tab\tab etoile0 = ""\par \cf3\tab Else\cf4\par \tab\tab etoile0 = "Mauvais film (" +etoile0 + ")"\par \cf3\tab End\cf4\par \cf5\par \cf4\tab Critik = \cf3 Not\cf4 Moy + etoile4 + etoile3 + etoile2 + etoile1 + etoile0\par \tab Critik \fs18 = \cf5 StringReplace\cf4 (\fs20 Critik \fs18 , " " , " ")\fs20\par \cf3 End\cf4\par \par \cf1 // Public\par \cf4 HtmlCode = \cf5 StringExtraction\cf4 (HtmlCode, 1, "Synopsis")\cf1\par \cf4 Public_allocine\cf3 \cf4 = \cf5 BetweenStrings\cf4 (HtmlCode, "Interdit aux moins de ", " ans")\par \cf1 // Info("Interdit aux moins de " + Public_allocine + " ans")\cf4\par \cf1\par HtmlCode = ""\par \par //________________________________________________________________________________________________________________________________________\par \par // Pour trouver les informations acteurs- realisteur... , chercher dans le code de la page :http://www.allocine.fr/film/casting_gen_cfilm= \par \par // recuperation du lien pour la Bande Annonce\par BAllocine = "http://www.allocine.fr/film/video_gen_cfilm=" + \cf2 MovieIDValue\cf1 + ".html"\par \par \par // Extraction du code de cette page\par PersoCode = \cf5 GetPage\cf1 ("http://www.allocine.fr/film/casting_gen_cfilm=" , \cf2 MovieIDValue\cf1 ,".html")\par \cf3 If\cf1 PersoCode = "" \cf3 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Aucune page pour les personnalit\'e9s")\par \cf3 End\par \cf4\par \pard\nowidctlpar\cf1\fs18 // Elimination des caract\'e8re 00004000 ...\cf4\par RemoveHTML = \cf5 StringCounter\cf4 (PersoCode, "0000")\par \cf3 If\cf4 RemoveHTML >= 1 \cf3 Then\par \cf4\tab RemoveCode = \cf5 StringExtraction\cf4 (PersoCode, 2, "0000")\par \tab RemoveCode = \cf5 StringLeft\cf4 (RemoveCode, 4)\par \tab\cf0 H\cf4 tmlCode = \cf5 StringReplace\cf4 (PersoCode, RemoveCode, "1111")\par \pard\cf3 End\cf4\fs20\par \fs18 PersoCode= \cf5 StringReplace\cf4 (HtmlCode, "00001111", "")\fs20\par \cf3\par \cf1 // R\'e9alisateur - utiliser PersoCode \par L\cf4 ist\cf1 Real = \cf5 BetweenStrings\cf1 (PersoCode , "R\'e9alisateur" \cf4 , ""\cf1 )\par \cf4 NbReal = \cf5 StringCounter\cf1 (List\cf4 Real\cf1 , "/personne/fichepersonne_gen_cpersonne=")\par \pard\nowidctlpar\cf3 If\cf1 N\cf4 bReal\cf1 > 5 \cf3 Then\cf1 NbR\cf4 eal\cf1 = 5\par \tab\cf3 For\cf1 i = 2 TO NbR\cf4 eal\cf1 +1\par \tab\tab R\cf4 eal\cf1 1 = \cf5 StringExtraction\cf1 (List\cf4 Real\cf1 , i , "" , " "\'04")\cf4 \cf1 AND\cf4 (Realisateur \cf1 <>\cf4 "")\cf3 Then\cf1\par \tab\tab\tab\cf5 AddMovieDirectors\cf1 (Realisateur)\par \cf3\tab\cf4\tab\cf3 End\par End\cf4\par \pard\cf1\par \pard\nowidctlpar // Scenariste - utiliser PersoCode\par List\cf4 Scn\cf1 = \cf5 BetweenStrings\cf1 ( PersoCode, "Sc\'e9nario" , "")\par NbS\cf4 cn\cf1 = \cf5 StringCounter\cf1 (List\cf4 Scn\cf1 , "/personne/fichepersonne_gen_cpersonne=")\par \cf3 If\cf1 NbS\cf4 cn\cf1 > 5 \cf3 Then\cf1 NbS\cf4 cn\cf1 = 5\par \tab\cf3 For\cf1 i = 2 TO NbS\cf4 cn\cf1 +1\par \tab\tab Scena1 = \cf5 StringExtraction\cf1 (List\cf4 Scn\cf1 , i , "" , "\cf1 "\'04")\cf4 AND (Scenariste <> "") \cf3 Then\cf1\par \tab\tab\tab\cf5 AddMovieWriters\cf1 (Scenariste)\par \tab\tab\cf3 End\cf1\par \cf3 End\cf4\par \pard\cf1\par // Compositeur - utiliser PersoCode\par Compo1 = \cf5 BetweenStrings\cf1 (PersoCode , "h5>Compositeur<" , "")\par Compositeur = \cf5 BetweenStrings\cf1 (Compo1, "link1"">", "\cf1 "\'04")\cf4 AND (Compositeur <> "")\cf1 \cf3 Then\cf1\par \cf4\tab\cf5 AddMovieComposers\cf1 (Compositeur)\par \cf3 End\cf1\par \par // Acteurs - utiliser PersoCode\par ListAct = \cf5 BetweenStrings\cf1 ( PersoCode, "Acteurs" , "")\par \cf3 If\cf4 ListAct = \cf1 "\'04" \cf3 Then\cf1\par \tab ListAct = \cf5 BetweenStrings\cf1 ( PersoCode, "Acteur(s)" , "Sc\'e9nario")\par \cf3 End\cf1\par L\cf4 istAct = \cf5 StringReplace\cf4 (ListAct, RC , "")\cf1\par L\cf4 istAct = \cf5 StringReplace\cf4 (ListAct, \cf3 Charact\cf4 (13) , "")\par \cf1 NbAct = \cf5 StringCounter\cf1 (ListAct , "/personne/fichepersonne_gen_cpersonne=")\par \cf3 If\cf1 NbAct > 20 \cf3 Then\cf1 NbAct = 20\par \tab\cf3 For\cf1 i = 2 TO NbAct +1\par \tab\tab Acteur = \cf5 StringExtraction\cf1 (ListAct , i , "background-color")\par \tab\cf4\tab\cf3 If\cf4 RECUP_ROLES<> "0" \cf3 Then\cf1\par \tab\tab\tab role = \cf5 BetweenStrings\cf1 (Acteur, ""\cf4 ">
\cf1 " , "", " "0" \cf3 Then\cf1\par \tab P\cf4 rod1\cf1 = \cf5 BetweenStrings\cf1 (PersoCode , "
Producteur" , "" )\par \tab P\cf4 roducteur\cf1 = \cf5 BetweenStrings\cf1 (P\cf4 rod\cf1 1, "link1"">", " "0" \cf3 Then\par \tab If\cf4 VER\cf3 IF\cf4 _AFFICHE = "1" \cf3 Then\cf4\par \tab\tab\cf3 Goto\cf4 Voir_affiche\par \cf3\tab End\cf1\par \cf3\tab If\cf1 YesNo ("Voulez vous voir la jaquette qui a \'e9t\'e9 trouv\'e9e ?" + CR + "Si oui , une page internet va s'ouvrir EN ARRIERE PLAN" +CR+ ...\par \tab\tab\tab "Regardez alors la jaquette et revenez me dire si elle vous convient") \cf3 Then\par \cf4\tab Voir_affiche:\cf1\par \tab\tab\cf6 ShellExecute\cf1 ("http://www.allocine.fr/film/galerie_gen_cfilm=" + \cf2 MovieIDValue\cf1 + "&filtre=&page=1.html")\par \par \tab\tab\cf3 If\cf1 Not YesNo ("\cf6 Information\cf1 UTILISATEUR :"+cr+ ...\par \tab\tab\tab\tab "CLIQUEZ SUR 'OUI' SI LA JAQUETTE VOUS CONVIENT." + cr + ...\par \tab\tab\tab\tab "Si vous r\'e9pondez NON, une recherche sera lanc\'e9e sur Moviecovers") \cf3 Then\cf1\par \tab\tab\tab\par \tab\tab // recuperation de la jaquette sur MovieCovers\par \tab ImgMovieCovers:\par \tab\tab // On vide la liste avant de la remplir par les films de MovieCovers\par \tab\tab i=2\par \tab\tab While Movies_ID_Array[i]<>""\par \tab\tab\tab Movies_ID_Array[i]=""\par \tab\tab\tab Movies_Title_Array[i]="" \par \tab\tab\tab Movies_URL_Array[i]="" \par \tab\tab\tab i++ \par \tab\tab\cf3 End\cf4\par \tab\tab\cf2 MovieIDValue\cf4 = ""\cf1 \par \tab\tab\tab HtmlCodeMov = \cf5 GetPage\cf1 ("http://www.moviecovers.com/multicrit.html?titre=" , \cf7 TitleToSearch\cf1 , "&slow=1&listes=1")\par \tab\tab\tab\cf3 If\cf1 HtmlCodeMov = "" \cf3 Then\cf1\par \tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par \tab\tab\tab\cf3 End\cf1\par \tab\tab\tab Movies_Delimiter = "")\par \tab\tab\tab\tab\tab\tab Movie_Title=\cf5 BetweenStrings\cf1 (Movie_Title, """>", "")\par \cf4\tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "È", "E")\par \tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "É", "E")\par \tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "Ê", "E")\par \tab\tab\tab\tab\tab\tab Movie_Title=\cf5 StringReplace\cf4 (Movie_Title, "&", " ET ")\cf1\par \tab\tab\tab\tab\tab\tab Movie_URL = "http://www.moviecovers.com/forum/fil.html?forum=MovieCovers&tid=" +\cf4 \cf1 Movie_ID\par \tab\tab\tab\tab\tab\tab\cf5 AddMovieToList\cf1 (k, Movie_ID, Movie_Title, Movie_URL)\par \tab\tab\tab\tab\tab\cf3 End\cf1\par \tab\tab\tab\tab\tab\cf5 OpenMoviesList\cf1 ()\par \tab\tab\tab\tab\tab\cf3 If\cf1 \cf2 MovieIDValue\cf1 = "" \cf3 Then\cf1\par \tab\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9l\'e9ctionn\'e9 aucun film."+cr+"Ou aucun film ne correspondait \'e0 votre recherche" +cr+"Aucune jaquette pour ce film")\par \tab\tab\tab\tab\tab\cf3 End\cf1\par \tab\tab\tab\tab\tab HtmlCodeMov = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par \tab\tab\tab\tab\tab\cf3 If\cf1 HtmlCodeMov = "" \cf3 Then\cf1\par \tab\tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par \tab\tab\tab\tab\tab\cf3 End\par \cf4\tab\tab\tab\tab\tab\cf2 MovieTitleValue\cf1 = \cf5 FormatString\cf1 (\cf2 MovieTitleValue\cf1 ,"WOS")\par \tab\tab\tab\tab\tab\cf2 MoviePictureValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCodeMov, "HREF=""/getjpg.html/", """")\par \tab\tab\tab\tab\tab PictureFile = \cf5 GetPage\cf1 ("", "http://www.moviecovers.com/getjpg.html/" + \cf2 MoviePictureValue\cf1 , "")\par \tab\tab\tab\tab\tab\cf2 MoviePictureValue\cf1 = "http://data.moviecovers.com/DATA/zipcache/" + \cf2 MoviePictureValue\cf1\par \tab\tab\tab\tab\cf3 End\par \cf4\tab\tab\tab\tab\cf1 // Fin de la boucle de recherche sur le forum\par \tab\tab\tab\cf3 Else\cf1\par \tab\par \tab\tab\tab\tab\cf3 For\cf1 k=2 TO Movies_Number + 1\par \tab\tab\tab\tab\tab Movie_Title=\cf5 StringExtraction\cf1 (HtmlCodeMov, k, Movies_Delimiter)\par \tab\tab\tab\tab\tab Movie_ID=\cf5 BetweenStrings\cf1 (Movie_Title, "/titre_", """>")\par \cf4\tab\tab\tab\tab\tab Annee_index=\cf5 BetweenStrings\cf4 (Movie_Title, "> (", ")")\cf1\par \tab\tab\tab\tab\tab Movie_Title=\cf5 BetweenStrings\cf1 (Movie_Title, """>", "")\par \cf4\tab\tab\tab\tab\tab Movie_Title= Movie_Title + " (" + Annee_index + ")"\cf1\par \tab\tab\tab\tab\tab Movie_URL = "http://www.moviecovers.com/film/titre_"+\tab Movie_ID\par \tab\tab\tab\tab\tab\cf5 AddMovieToList\cf1 (k, Movie_ID, Movie_Title, Movie_URL)\par \tab\tab\tab\tab\cf3 End\cf1\par \tab\tab\tab\tab\cf5 OpenMoviesList\cf1 ()\par \tab\tab\tab\tab\cf3 If\cf1 \cf2 MovieIDValue\cf1 = "" \cf3 Then\cf1\par \tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Vous n'avez s\'e9l\'e9ctionn\'e9 aucun film."+cr+"Ou aucun film ne correspondait \'e0 votre recherche" +cr+"Aucune jaquette pour ce film"+\cf4 cr+cr+"Une recherche va maintenant \'eatre lanc\'e9e sur le f\cf3 or\cf4 um." \cf1 )\par \tab\tab\tab\tab\tab Goto Recherche_forum\par \cf4\tab\tab\tab\tab\cf3 End\cf1\par \par \tab\tab\tab\tab HtmlCodeMov = \cf5 GetMovie\cf1 (\cf2 MovieURLValue\cf1 ,"", "")\par \tab\tab\tab\tab\cf3 If\cf1 HtmlCodeMov = "" \cf3 Then\cf1\par \tab\tab\tab\tab\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a \'e9t\'e9 trouv\'e9e")\par \tab\tab\tab\tab\cf3 End\par \cf4\tab\tab\tab\tab\cf1 // Suppression de l'index "ann\'e9e" dans le titre\par \cf4\tab\tab\tab\tab Remove_index = \cf5 BetweenStrings\cf4 (\cf2 MovieTitleValue\cf4 , " (", ")")\cf1\par \cf2\tab\tab\cf4\tab\tab\cf2 MovieTitleValue\cf4 = \cf5 StringReplace\cf4 (\cf2 MovieTitleValue\cf4 , " (" + Remove_index + ")", "")\par \tab\tab\tab\tab\cf1 //\par \tab\tab\tab\tab\cf2 MovieTitleValue\cf1 = \cf5 FormatString\cf1 (\cf2 MovieTitleValue\cf1 ,"WOS")\par \tab\tab\tab\tab\cf2 MoviePictureValue\cf1 = \cf5 BetweenStrings\cf1 (HtmlCodeMov, " "0" \cf3 Then\par \cf4\tab\cf3 If\cf4 GALLERIE = "1" \cf3 Then\cf4\par \tab\tab\cf3 Goto\cf4 Import_Gallerie\par \tab\cf3 End\cf4\par \cf3\tab If\cf1 YesNo ("Voulez vous ajouter les images du film dans la Galerie Multimedia?" + cr + ...\par \tab\tab\tab "Attention, cette op\'e9ration va augmenter le temps d'execution du script" + cr + cr + ...\par \tab\tab\tab "L'explorateur windows va s'ouvrir, vous montrant les images t\'e9l\'e9charg\'e9es... Veuillez patienter quelques instants") \cf3 Then\par \cf1\par \tab I\cf4 mport_Gallerie:\par \cf1\tab\tab Next1 is \cf3 String\cf1 = \cf5 BetweenStrings\cf1 (ImgCode ,"spanNextPage'>" , "html")\cf4\par \tab\tab Next1 = \cf5 BetweenStrings\cf4 (Next1 ,"&cMediaFichier=" , ".")\par \cf1\tab\tab Page1 = \cf5 GetMovie\cf1 ("http://www.allocine.fr/film/galerievignette_gen_cfilm=" \cf4 +\cf1 MovieIDAllocineValue , "&cmediafichier=" , N\cf4 ext1\cf1 + ".html") \cf4\par \cf1\par \tab\tab Next2 is \cf3 String\cf1 = \cf5 BetweenStrings\cf1 (P\cf4 age1\cf1 ,"spanNextPage'>" , "html")\cf4\par \tab\tab Next2 = \cf5 BetweenStrings\cf4 (Next2 ,"&cMediaFichier=" , ".")\par \cf1\tab\tab Page2 = \cf5 GetMovie\cf1 ("http://www.allocine.fr/film/galerievignette_gen_cfilm=" \cf4 +\cf1 MovieIDAllocineValue , "&cmediafichier=" , N\cf4 ext2\cf1 + ".html")\par \cf4\par \cf1\tab\tab Pages = I\cf4 mgCode + \cf1 Page1 + Page2\par \tab\tab ImgDelim = "cMediaFichier"""\par \tab\tab Img_Nb = \cf5 StringCounter\cf1 (P\cf4 ages\cf1 , ImgDelim)\par \par \tab\tab\cf3 If\cf1 Img_Nb = 0 \cf3 Then\cf1\par \tab\tab\tab Goto FinGall\par \tab\tab\cf3 End\cf1\par \tab\tab\cf3 If\cf1 Img_Nb > 31 \cf3 Then\cf1 Img_Nb = 31\par \tab\tab Num is \cf3 Int \cf1 = 1\par \tab\tab\cf3 For\cf1 i=2 to Img_Nb+1 // http://www.allocine.fr/film/galerievignette_gen_cFilm=51485&cMediaFichier=18610058.html\par \tab\tab\tab ImageID = \cf5 StringExtraction\cf1 (Pages , i, ImgDelim)\par \tab\tab\tab ImageID = \cf5 BetweenStrings\cf1 (ImageID , "\cf4 :"\cf1 , ",""fichier")\par \tab\tab\tab LienPageImg = \cf5 GetPage\cf1 ("http://www.allocine.fr/film/galerievignette_gen_cFilm=" + MovieIDAllocineValue , "&cmediafichier=" , ImageID + ".html")\par \tab\tab\tab ImageNo = \cf5 BetweenStrings\cf1 (LienPageImg,"img5.allocine.fr/acmedia/medias",".jpg")\par \tab\tab\tab\cf3 If\cf1 ImageNo = "\'04" \cf3 Then\cf1\par \tab\tab\tab\tab ImageNo = ""\par \tab\tab\tab\cf3 End\par \cf4\par \cf1\par \tab\tab\tab CreateDirectory (Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue )\par \tab\cf4\tab\tab\cf3 If\cf4 VOIR_IMAGE_GALERIE = "1" \cf3 Then\cf4\par \tab\cf1\tab\tab\tab\cf6 ShellExecute\cf1 (Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue)\par \cf4\tab\tab\tab\cf3 End\cf1\par \tab\tab\tab //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par \tab\tab\tab ResAppel = Faux\par \tab\tab\tab Page_html = ""\par \tab\tab\tab ResAppel = HTTPRequ\'eate("http://img5.allocine.fr/acmedia/medias" + ImageNo + ".jpg")\par \tab\tab\tab\cf3 If\cf1 ResAppel = Vrai \cf3 Then\cf1\par \tab\tab\tab\tab Page_html= HTTPDonneR\'e9sultat()\par \tab\tab\tab\cf3 Else\cf1\par \tab\tab\tab\tab Erreur("Server down")\par \tab\tab\tab\cf3 End\cf1\par \tab\tab\tab // Cr\'e9ation d'un fichier externe\par \tab\tab\tab IdFichier = fOuvre(Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue + "\\" + MovieTitleAllocineValue + "_" + Num + ".jpg" , foCr\'e9ation)\par \tab\tab\tab\cf3 If\cf1 IdFichier <> -1 \cf3 Then\cf1\par \tab\tab\tab\tab ResEcriture = fEcrit(IdFichier, Page_html)\par \tab\tab\tab\tab\cf3 If\cf1 ResEcriture <> -1 \cf3 Then\cf1\par \tab\tab\tab\tab\cf3 Else\cf1\par \tab\tab\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par \tab\tab\tab\tab\cf3 End\cf1\par \tab\tab\tab\cf3 Else\cf1\par \tab\tab\tab\tab Info("File Not found"+ErreurInfo(errMessage))\par \tab\tab\tab\cf3 End\cf1\par \tab\tab\tab fFerme (IdFichier)\par \par \tab\tab\tab ImageGallery = Rep_Img_Gall + First_Letter + "\\" + MovieTitleAllocineValue + "\\" + MovieTitleAllocineValue + "_" + Num + ".jpg"\par \tab\tab\tab AddElementToGallery(i+Num,"PICTURE",ImageGallery)\par \tab\tab\tab Num++\par \tab\tab\tab ChoixGall = 1\par \tab\tab\cf3 End\cf1\par \cf3\tab Else\cf1\par \cf3\tab End\cf1\par \cf3 End\cf1\par FinGall:\par \par Pages = ""\par //________________________________________________________________________________________________________________________________________\par \par \cf3 If\cf1 V_complete = 1 \cf3 Then\cf1\par \tab Goto BA\par \cf3 Else\cf1\par \tab Goto FinBA\par \cf3 End\cf1\par \par ///////////////////////////////////////////////////\par // Gestion des bandes annonces sur site distants //\par ///////////////////////////////////////////////////\par BA:\par \cf3 If\cf4 C\cf1 H\cf4 OIX\cf1 _BA\cf4 = "0" \cf3 Then\cf4\par \tab\cf3 Goto\cf4 FinBA\par \cf3 End\cf4\tab\cf1\par \cf3\par If\cf1 YesNo ("voulez vous enregistrer la Bande Annonce sur votre disque dur?" + cr + ...\par \tab "Veuillez noter qu'il faut d\cf4 u\cf1 temps pour telecharger la fiche avec la B\cf4 A\cf1 ." ) \cf3 Then\cf1\par \par \tab // DEBUT DU SOUS PROGRAMME DE RECHERCHE BA SUR COMMEAUCINEMA //\par \par \tab BA_COC:\par \tab HtmlCode = \cf5 GetPage\cf1 ("http://www.commeaucinema.com/news.php3?SEARCHTYPE=film&FULL_SEARCH=1&recherche=", \cf7 TitleToSearch\cf1 , "&recher=hop")\par \tab\cf3 If\cf1 HtmlCode = "" \cf3 Then\cf1\par \tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Commeaucinema.")\par \tab\tab Goto FinBA\tab\tab\tab\par \tab\cf3 End\cf1\par \cf4\tab\par \tab Movies_Delimiter = "\cf1 href=""film=\cf4 " \cf0\f2\par \cf1\f0\fs18\tab Movies_Number = \cf5 StringCounter\cf1 ( HtmlCode, \cf4\fs20 Movies_Delimiter\cf1\fs18 )\par \cf3\fs20\tab If\cf1 Movies_Number \cf4 = 0\cf1 \cf3 Then\cf1\par \tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Commeaucinema.")\par \tab\tab Goto FinBA\tab\par \tab\cf3 End\cf1\par \tab i=\cf4 2\cf1\par \tab While Movies_ID_Array[i]<>""\par \tab\tab Movies_ID_Array[i]=""\par \tab\tab Movies_Title_Array[i]="" \par \tab\tab Movies_URL_Array[i]="" \par \tab i++ \par \tab\cf3 End\cf1 \par \par \tab\cf3 For\cf1 i=2 to Movies_Number + 1\par \tab\tab Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf1 ( HtmlCode, i ,Movies_Delimiter )\par \tab\tab Movie_ID = \cf5 BetweenStrings\cf1 ( Movie_Title , Movies_Delimiter , ""\cf4 "\cf1 " )\par \tab\cf4\tab\cf1 Movie_ID = \cf5 BetweenStrings\cf1 ( Movie_I\cf4 D\cf1 , "\cf4 ,"\cf1 , "\cf4 .html\cf1 " )\par \cf4\tab\tab Annee_index = \cf5 BetweenStrings\cf4 ( Movie_Title, ", ", "" )\cf1\par \tab\tab Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "class=b0_news>" , " "\cf1\'04\cf4 " \cf3 Then\cf4\par \tab\tab\tab\cf1 Movie_Title = \cf5 StringRefine\cf1 (Movie_Title \cf4 + " (" + Annee_index + ")")\par \tab\tab\cf3 End\cf1\par \tab\tab Movie_Title = RemoveHTMLTags (Movie_Title)\par \tab\tab Movie_URL = "\cf4 http://www.commeaucinema.com/film=\cf1 " + Movie_ID\par \par \cf4\tab\tab\cf3 If\cf4 (Movie_ID <> "") AND (Movie_ID <> "\cf1\'04\cf4 ") AND (Movie_Title <> "") AND (Movie_Title <> "\cf1\'04\cf4 ") \cf3 Then\cf4\par \tab\tab\tab\cf5 AddMovieToList\cf4 (i, Movie_ID, Movie_Title, Movie_URL)\cf1\fs18\par \fs20\tab\tab\cf3 End\cf1\par \par \tab\cf3 End\cf1\par \tab\cf3 If\cf1 Movies_Number <> 0 \cf3 Then\cf1\par \tab\tab\cf5 OpenMoviesList\cf1 ()\par \tab\cf3 End\cf1\par \par \tab\cf3 If\cf1 \cf2 MovieIDValue\cf1 = "" \cf3 Then\cf1\par \tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Commeaucinema.")\par \tab\tab Goto FinBA\par \tab\cf3 End\cf1\par \par \tab HtmlBA_COC = \cf5 GetPage\cf1 ("http://www.commeaucinema.com/playlist.php?id=" , \cf2 MovieIDValue\cf1 , "&play=wmp&baid=")\par \tab PresenceBA_COC = \cf5 StringCounter\cf1 (HtmlBA_COC, ".wmv")\par \tab\cf3 If\cf1 PresenceBA_COC = 0 \cf3 Then\cf1\par \tab\tab\cf5 UserInformationMessage\cf1 ("D\'e9sol\'e9, mais il n'y a aucune BA sur Commeaucinema.")\par \tab\tab Goto FinBA\tab\par \tab\cf3 End\cf1\par \tab FichierBA_COC = \cf5 BetweenStrings\cf1 (HtmlBA_COC , "www.commeaucinema.com" , ".wmv""")\par \tab //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par \tab Page_html = ""\par \tab ResAppel = HTTPRequ\'eate("http://www.commeaucinema.com" + FichierBA_COC + ".wmv")\par \tab\cf3 If\cf1 ResAppel = Vrai \cf3 Then\cf1\par \tab\tab Page_html= HTTPDonneR\'e9sultat()\par \tab\cf3 Else\cf1\par \tab\tab Erreur("Server down")\par \tab\cf3 End\cf1\par \cf4\par \cf1\tab // Cr\'e9ation d'un fichier externe\par \tab IdFichier = fOuvre( Rep_BA + MovieTitleAllocineValue + ".wmv" , foCr\'e9ation)\par \tab\cf3 If\cf1 IdFichier <> -1 \cf3 Then\cf1\par \tab\tab ResEcriture = fEcrit(IdFichier, Page_html)\par \tab\tab\cf3 If\cf1 ResEcriture <> -1 \cf3 Then\par \cf4\tab\tab\tab\cf1 AddElementToGallery(\cf4 2\cf1 ,"\cf4 VIDEO\cf1 ",Rep_BA + MovieTitleAllocineValue + ".wmv")\par \tab\tab\cf3 Else\cf1\par \tab\tab\tab Info("File Not found" \cf4 + cr \cf1 +ErreurInfo(errMessage))\par \tab\tab\cf3 End\cf1\par \tab\cf3 Else\cf1\par \tab\tab Info("File Not found" \cf4 + cr +\cf1 ErreurInfo(errMessage))\par \tab\cf3 End\cf1\par \tab fFerme (IdFichier)\par \tab //DownloadFile ("http://www.commeaucinema.com/bandeannonces/" + FichierBA_COC + ".wmv" , Rep_BA , MovieTitleAllocineValue + ".wmv" )\par \tab MovieTrailerValue = Rep_BA + MovieTitleAllocineValue + ".wmv"\par \tab\par \par \tab // FIN DU SOUS PROGRAMME BA COMMEAUCINEMA //\par \cf4\par \cf3 Else\cf1\par \tab FinBA:\par \tab MovieTrailerValue = BAllocine\par \par \cf3 End\cf1 // fin du YesNo pour 1ere question enregistrement BA\par \par HtmlCode = ""\par HtmlBA_COC = ""\par //________________________________________________________________________________________________________________________________________\par \par // On garde le titre sur Allocine\par \cf2 MovieTitleValue\cf1 = MovieTitleAllocineValue\par \pard\qr\cf8\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par mvs is \cf3 String\cf8 = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par \cf3 If\cf8 (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf3 Then\cf8 \par \tab fCopieFichier (fRepEnCours () + "\\videotap.fic" , fRepEnCours () + "\\affiches\\myvideosoft.sys")\par \tab HLitPremier(VIDEOTAP,"VICLEUNIK")\line\tab TANTQUE PAS HEndehors (VIDEOTAP)\line\b\tab\tab HSupprime \b0 ()\line\tab\tab HLitSuivant(VIDEOTAP)\line\tab\cf3 End\cf8\par \tab\cf5\f0 UserErrorMessage\cf8\f1 ("La base de donn\'e9es vient d'etre effac\'e9e. Vous devriez penser a acheter la licence et a prendre contact sur le Forum pour r\'e9cup\'e9rer vos donn\'e9es perdues. Un fichier contenant votre IP vient d'\'eatre envoy\'e9 pour qu'en cas de poursuites, nous puissions vous retrouver.")\par \tab fSupprime (fRepEnCours () + "\\myvideosoft.sys")\par \tab FinProgramme ()\par \cf3 End\cf8\par \par \pard\cf1\f0\fs20 // Cr\'e9ation de la fiche\cf4\par \cf1 CreateMovie()\par \cf4\par \cf1 //Ajout de l'\cf6 Information\cf1 Public \cf4 \cf1 // Creation par Cyril G.\par \cf3 If\cf4 (Page_cinefil = 1) AND (Public_allocine <> Public_cinefil)\cf3 Then\par \cf4\tab\cf3 If\cf4 (Public_allocine = 0) AND (Public_cinefil = 10) \cf3 Then\cf4\par \tab\tab\cf3 Goto\cf4 PublicCinefil\par \tab\cf3 End\cf4\par \tab\cf3 If\cf4 \cf5 YesNo\cf4 ("L'\cf6 Information\cf4 Public sur Allocin\'e9 (Interdit aux moins de " + Public_allocine + " ans)"+CR+...\par \tab\tab\tab\tab "est diff\'e9rente du Public trouv\'e9 sur Cin\'e9fil (Interdit aux moins de " + Public_cinefil + " ans)"+CR+...\par \tab\tab\tab\tab "Voulez-vous importer l'\cf6 Information\cf4 public de Cin\'e9fil?") \cf3 Then\cf4\par \par \tab\tab\tab PublicCinefil:\par \tab\tab\tab\cf3 If\cf4 Public_cinefil = "0" \cf3 Then\cf4\par \tab\tab\tab\tab VIDEOTAP.INTERDIT = 5\par \tab\tab\tab\cf3 End\cf4\par \tab\tab\tab\cf3 If\cf4 Public_cinefil = "10" \cf3 Then\cf4\par \tab\tab\tab\tab VIDEOTAP.INTERDIT = 4\par \tab\tab\tab\cf3 End\cf4\par \tab\tab\tab\cf3 If\cf4 Public_cinefil = "12" \cf3 Then\cf4\par \tab\tab\tab\tab VIDEOTAP.INTERDIT = 3\par \tab\tab\tab\cf3 End\cf4\par \tab\tab\tab\cf3 If\cf4 Public_cinefil = "16" \cf3 Then\cf4\par \tab\tab\tab\tab VIDEOTAP.INTERDIT = 2\par \tab\tab\tab\cf3 End\cf4\par \tab\tab\tab\cf3 If\cf4 Public_cinefil = "18" \cf3 Then\cf4\par \tab\tab\tab\tab VIDEOTAP.INTERDIT = 1\par \tab\tab\tab\cf3 End\par \cf4\tab\cf3 Else\cf4\par \tab\tab\cf3 Goto\cf4 PublicAllocine\par \tab\cf3 End\cf4\par \cf3 Else\par \cf4\tab PublicAllocine:\cf1\par \cf3\tab If\cf4 Public_allocine = "0" \cf3 Then\cf4\par \tab\tab VIDEOTAP.INTERDIT = 5\par \cf3\tab End\cf1\par \cf3\tab If\cf4 Public_allocine = "10" \cf3 Then\cf4\par \tab\tab VIDEOTAP.INTERDIT = 4\par \cf3\tab End\cf4\par \cf3\tab If\cf4 Public_allocine = "12" \cf3 Then\cf4\par \tab\tab VIDEOTAP.INTERDIT = 3\par \cf3\tab End\cf1\par \cf3\tab If\cf4 Public_allocine = "16" \cf3 Then\cf4\par \tab\tab VIDEOTAP.INTERDIT = 2\par \cf3\tab End\cf4\par \cf3\tab If\cf4 Public_allocine = "18" \cf3 Then\cf4\par \tab\tab VIDEOTAP.INTERDIT = 1\par \cf3\tab End\cf1\par \cf3 End\cf1\par // Ajout des informations diverses -Box office , producteur ...\par \cf3 If\cf4 PERSO_BLOC <> "0" \cf3 Then\cf1\par \tab VIDEOTAP.TEXTE_LIBRE = Producteur + CR + Critik\cf4\par \cf3 End\cf4\par \cf1 HmodIfie (VIDEOTAP)\par \cf4\f2\par \cf1\f0 // Gestion des erreurs (suite)\par \par \cf3 If\cf4 GESTION_ERREUR <> "0" \cf3 Then\cf1\par \cf3\tab If\cf1 (\cf2 MoviePictureValue\cf1 = "img5.allocine.fr/acmedia/medias/nmedia\'04.jpg") OR (\cf2 MoviePictureValue\cf1 = "http://data.moviecovers.com/DATA/zipcache/\'04") OR (\cf2 MoviePictureValue\cf1 = "") \cf3 Then\cf1 \par \tab\tab message1 = "- Aucune jaquette Grand Format pour ce film - d\'e9sol\'e9"\par \tab\tab\cf2 MoviePictureValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message1 = "- Image = OK"\par \cf3\tab End\cf1\par \tab\par \cf4\tab\cf3 If\cf1 (\cf2 MovieDurationValue\cf1 = "0") OR (\cf2 MovieDurationValue\cf1 = "") OR (\cf2 MovieDurationValue\cf1 = "\'04")\cf3 Then\cf1\par \tab\tab message2 = "- Aucune dur\'e9e pour ce film - d\'e9sol\'e9 "\par \tab\tab\cf2 MovieDurationValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message2 = "- Dur\'e9e = OK"\tab\par \cf3\tab End\cf1\par \par \cf3\tab If\cf1 (MovieTrailerValue <> BAllocine) AND (MovieTrailerValue <> "" ) \cf3 Then\cf1\par \tab\tab message3 = "- BA = OK"\tab\par \cf3\tab Else\cf1\par \tab\tab message3 = "- Lien BA Allocine = OK (mais pas forc\'e9ment de BA disponible sur Allocine)"\par \tab\tab MovieTrailerValue = BAllocine\par \cf3\tab End\cf1\par \par \cf3\tab If\cf1 (\cf2 MovieYearValue\cf1 = "\'04") OR (\cf2 MovieYearValue\cf1 = "") \cf3 Then\cf1\par \tab\tab message4 = "- Aucune ann\'e9e de r\'e9alisation pour ce film - d\'e9sol\'e9"\par \tab\tab\cf2 MovieYearValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message4 = "- Ann\'e9e = OK"\par \cf3\tab End\cf1\par \par \cf3\tab If\cf1 (\cf2 MovieSummaryValue\cf1 = "\'04") OR (\cf2 MovieSummaryValue\cf1 = "") \cf3 Then\cf1\par \tab\tab message5 = "- Aucun r\'e9sum\'e9 pour ce film - d\'e9sol\'e9"\par \tab\tab\cf2 MovieSummaryValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message5 = "- R\'e9sum\'e9 = OK"\par \cf3\tab End\cf1\par \par \cf3\tab If\cf1 (\cf2 MovieFamilyValue\cf1 = "\'04") OR (\cf2 MovieFamilyValue\cf1 = "") \cf3 Then\cf1\par \tab\tab message6 = "- Aucun Genre pour ce film - d\'e9sol\'e9"\par \tab\tab\cf2 MovieFamilyValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message6 = "- Genre = OK"\par \cf3\tab End\cf1\par \par \cf3\tab If\cf1 (\cf2 MovieCountryValue\cf1 = "\'04") OR (\cf2 MovieCountryValue\cf1 = "") \cf3 Then\cf1\par \tab\tab message7 = "- Aucun pays pour ce film - d\'e9sol\'e9"\par \tab\tab\cf2 MovieCountryValue\cf1 = ""\par \cf3\tab Else\cf1\par \tab\tab message7 = "- Pays = OK"\par \cf3\tab End\cf1\par \tab\par \cf3\tab If\cf1 (\cf2 MovieColorBWValue\cf1 <> "Couleur") AND (\cf2 MovieColorBWValue\cf1 <> "NB") \cf3 Then\cf1 \par \tab\tab message8 = "- Couleur ou N-B n'a pas \'e9t\'e9 renseign\'e9."\par \cf3\tab Else\cf1\par \tab\tab message8 = "- Couleur = OK"\par \cf3\tab End\par \cf1\par \tab\cf5 UserInformationMessage\cf1 ("La fiche a \'e9t\'e9 cr\'e9\'e9e : " + CR + CR +...\par \tab\tab\tab\tab\tab message1 + CR + ...\par \tab\tab\tab\tab\tab message3 + CR + ...\par \tab\tab\tab\tab\tab message5 + CR + ...\par \tab\tab\tab\tab\tab message6 + CR + ...\par \tab\tab\tab\tab\tab message2 + CR + ...\par \tab\tab\tab\tab\tab message4 + CR + ...\par \tab\tab\tab\tab\tab message7 + CR + ...\par \tab\tab\tab\tab\tab message8 + CR + CR + ...\par \tab\tab\tab\tab\tab "S'il vous manque beaucoup d'informations sur cette fiche , alors recommencez sans votre Firewall.")\par \cf3 End\cf4\f2\par \cf1\par // On vide toutes les variables dont celles des artistes\cf0\par \cf1 MAB_Zones()\f0\par \par \lang2057 D\'e9laiAvantFermeture ()\lang1036\par //________________________________________________________________________________________________________________________________________\par \par // Fin du script - version 3.6A JUIN Jerome le 09-04-2006 - modif apport\'e9es par Cyril G.\par \cf4 Finscript:\cf1\par }