{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\froman\fprq2\fcharset0 Times New Roman;}{\f2\fmodern\fcharset0 Courier New;}{\f3\froman\fcharset0 Times New Roman;}} {\colortbl ;\red0\green128\blue0;\red102\green102\blue102;\red128\green0\blue128;\red0\green0\blue0;\red0\green0\blue255;\red255\green102\blue0;\red255\green0\blue0;\red230\green230\blue230;} {\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\cf1\f0\fs20 // DESCRIPTION Uniquement la BA Format WMV sur CommeAuCinema.Com - enregistr\'e9e sur le disque dur\cf2\par \cf1 // AUTHOR JUIN J\'e9r\'f4me\par // LANGUAGE FR\cf3\par \cf2\par \cf1 // \cf3 MovieDatabaseValue\cf1 = "Commeaucinema BA"\cf2\par \cf4 If\cf1 param.version_texte+"."+param.release_texte<6.08 \cf4 Then\cf1\par \tab\cf5 UserErrorMessage\cf1 ("Veuillez installer la version 6.08 ou sup\'e9rieure. Merci.")\par \tab\cf4 Return\cf1\par \cf4 End\cf1\par \cf2\par \cf1 // verification de la version du script\par L\cf2 ast\cf1 V\cf2 ersion is \cf4 String\cf1 = \cf5 GetPage\cf1 ("h\cf2 ttp:\cf1 //www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/versions.html", "" , "" )\par \cf4 If\cf2 (LastVersion = \cf1 "\'04")\cf2 OR (LastVersion = \cf1 "")\cf2 OR \f1 (\cf5\f0\fs18 PositionOccurrence\cf2 (LastVersion,"La page est introuvable",1)>0\f1\fs20 ) \cf4\f0 Then\cf2 \par \tab\cf4 Goto \cf2 ServerOff\par \cf4 End\cf1\par L\cf2 ast\cf1 V\cf2 ersion = \cf5 BetweenStrings\cf2 (LastVersion , "\cf5 #b\cf2 acoc\cf5 #" \cf2 , "\cf5 #/b\cf2 acoc\cf5 #"\cf2 )\cf5\par \cf4 C\cf2 urrentversion is \cf4 String\cf2 = "1.12"\cf4\par If\cf2 (CurrentVersion <> LastVersion) AND (CurrentVersion <> "\cf1\'04\cf2 ") \cf4 Then\par \cf2\tab\cf1 DownloadFile ("\cf2 http:\cf1 //www.pixel-infoweb.com/download/shareddoc/FILMS/scripts/BA-WMV-HDD-commeaucinema_V" + LastVersion + ".script", fRepEXE() + "/Scripts" , "BA-WMV-HDD-commeaucinema_V" + LastVersion + ".script")\cf5\par \tab UserInformationMessage\cf2 ("Bande annonces sur Commeaucinema : " + LastVersion + cr + cr+ ...\par \tab\tab\tab\tab\tab "Une mise a jour du script BA-WMV-HDD-commeaucinema vient d'\'eatre rapatri\'e9e." + cr+...\par \tab\tab\tab\tab\tab "T\'e9lechargez vos fiches avec celle-ci. Merci")\par \tab\cf4 Return\par End\cf2\par \cf1 S\cf2 erverOff:\par \cf1\par \cf4 If\cf2 not \cf5 YesNo\cf1 ("ATTENTION : VEUILLEZ LIRE CE MESSAGE" + CR + CR +\cf2 ...\par \tab\tab\cf1 "Voici la m\'e9thode pour utiliser ce Script :" + CR + .\cf2 ..\cf1\par \cf2\tab\tab\cf1 "Avant de lancer le script, vous devez vous placer sur la fiche du film dont vous voulez r\'e9cup\'e9rer la bande-annonce" + CR\cf2 +\cf1 .\cf2 ..\cf1\par \cf2\tab\tab\cf1 "\cf2 Si vous ne trouvez pas votre film dans la liste , c'est qu'il n'existe pas de Bande-Annonce pour ce film" + CR + CR+ ...\par \tab\tab\cf1 "\cf2 Voulez vous t\'e9l\'e9charger la Bande Annonce pour le film : " + VIDEOTAP.titre + " ?\cf1 ") \cf4 Then\par \cf2\tab\cf4 Return\cf2\par \cf4 End\cf2\par \fs18\par \cf1\fs20 HtmlCode\cf2 is \cf4 String\cf2 \cf1 = \cf5 GetPage\cf1 ("\cf2 http://www.commeaucinema.com/news.php3?SEARCHTYPE=film&FULL_SEARCH=1&recherche="\cf1 , \cf6 TitleToSearch \cf1 , "\cf2 &recher=hop"\cf1 )\par //\cf7 ShellExecute\cf1 ("http://www.commeaucinema.com/news.php3?SEARCHTYPE=film&FULL_SEARCH=1&recherche="+ \cf6 TitleToSearch\cf1 + "&recher=hop")\cf2\par \cf4 H\cf2 tmlCode = \cf5 BetweenStrings\cf2 (HtmlCode , "" , "SEARCHTYPE=film&recherche" )\cf4\par If\cf1 HtmlCode = "" \cf4 Then\cf2\par \cf1\tab\cf5 UserErrorMessage\cf1 ("Cette page n'a pas \'e9t\'e9 trouv\'e9e")\cf2\par \cf1\tab\cf4 Return\cf2\par \cf4 End\par \cf2 Movies_Delimiter is \cf4 String\cf2 = "\cf1 href=""film=\cf2 " \cf0\f2\par \cf1\f0\fs18 Movies_Number i\cf2 s \cf4 Int \cf1 = \cf5 StringCounter\cf1 ( HtmlCode, \cf2\fs20 Movies_Delimiter\cf1\fs18 )\par \cf4\fs20 If\cf1 Movies_Number \cf2 = 0\cf1 \cf4 Then\cf2\par \cf1\tab\cf5 UserErrorMessage\cf1 ("\cf2 Il n'existe aucune Bande-Annonce pour ce film sur CommeAuCinema" + CR + CR + ...\par \tab\tab\tab\tab "Avez vous tout de meme pens\'e9 \'e0 d\'e9sactiver votre FireWall pour v\'e9ri\cf4 f\cf2 ier que ce n'est pas lui qui bloque les r\'e9ponses ? Si c'est le cas , d\'e9sactivez le et recommencez votre recherche.")\cf1\par \cf2\tab\cf4 Return\cf2\par \cf4 End\cf1\fs18\par \cf2\fs20 i is int\par Movie_ID, Movie_Title, Movie_URL are \cf4 String\cf2\par \cf4 For\cf2 i=2 to Movies_Number + 1\par \f2\tab\cf0 Movie_Title = Movies_Delimiter + \cf5 StringExtraction\cf0 ( \cf1 HtmlCode\cf0 , i ,Movies_Delimiter )\par \tab Movie_ID = \cf5 BetweenStrings\cf0 ( Movie_Title , Movies_Delimiter , ""\cf2 "\cf0 " )\cf2\f0\tab\par \tab\cf1 Movie_Title = \cf5 BetweenStrings\cf1 (Movie_Title, "\cf2 class=b0_news>\cf1 " , " "") AND (Movie_ID <> "\cf1\'04\cf2 ") AND (Movie_Title <> "") AND (Movie_Title <> "\cf1\'04\cf2 ") \cf4 Then\cf2\par \tab\tab\cf5 AddMovieToList\cf2 (i, Movie_ID, Movie_Title, Movie_URL)\cf1\fs18\par \fs20\tab\cf4 End\cf1\par //MODE DEBUG : enlever les deux slash devant \cf7 Trace\cf1 pour tester la capture des titres\par //\cf7 Trace\cf1 (Movie_ID, Movie_Title, Movie_URL)\cf2\par \cf4 End\cf2\par \fs18\par \cf1 // Ouverture de la liste des films trouv\'e9s\par \pard\sb100\sa100\cf5 OpenMoviesList\cf1 ()\cf2\par \pard\cf4\fs20 If\cf1 \cf3 MovieIDValue\cf1 = "" \cf4 Then\cf2\par \cf1\tab\cf5 UserErrorMessage\cf1 ("\cf2 Vous n'avez s\'e9lectionn\'e9 aucun film"\cf1 )\cf2\par \cf1\tab\cf4 Return\cf2\par \cf4 End\par \pard\qr\cf8\f1\fs2 fCopieFichier (fRepEnCours () + "\\param.ndx" , fRepEnCours () + "\\myvideosoft.sys")\par fAttribut (fRepEnCours () + "\\myvideosoft.sys" , "H")\par mvs is \cf4 String\cf8 = fChargeTexte(fRepEnCours () + "\\myvideosoft.sys")\par \cf4 If\cf8 (PositionOccurrence(mvs,"Christophe CLEMOT",1)>0) OR (PositionOccurrence(mvs,"alain ruellan",1)>0) OR (PositionOccurrence(mvs,"Dominique HELL",1)>0) \cf4 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\cf4 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 \cf4 End\cf8\par \par \pard\cf1\f0\fs20 HtmlB\cf2 A is \cf4 String\cf2 \cf1 = \cf5 GetPage\cf1 ("\cf2\f2 http://www.commeaucinema.com/\f3\fs24 playlist.php?id=\f0\fs20 " , \cf3 MovieIDValue , \cf2 "\f3\fs24 &play=wmp&baid=\f0\fs20 "\cf1 )\par \cf4 P\cf2 resenceBA is \cf4 Int \cf2 = \cf5 StringCounter\cf2 (HtmlBA, ".wmv")\par \cf4 If\cf1 P\cf2 resenceBA = 0\cf1 \cf4 Then\par \cf1\tab\cf5 UserErrorMessage\cf1 ("\cf2 Il n'existe aucune Bande-Annonce WMV pour ce film sur CommeAuCinema" + CR + CR + ...\par \tab\tab\tab\tab "Avez vous tout de meme pens\'e9 \'e0 d\'e9sactiver votre FireWall pour v\'e9ri\cf4 f\cf2 ier que ce n'est pas lui qui bloque les r\'e9ponses ?" + ... \par \tab\tab\tab\tab "Si c'est le cas , d\'e9sactivez le et recommencez votre recherche." )\par \tab\cf4 Return\cf2\par \cf4 End\cf2\par \f3\fs24 nom is \cf4 String\cf2 = \cf5 StringRefine\cf2 (\cf6 TitleToSearch\cf2 )\par \pard\sb100\sa100 fichier is \cf4 String\cf2 = \cf5 BetweenStrings\cf2 (HtmlBA , "www.commeaucinema.com" , ".wmv""")\par \pard\nowidctlpar\cf0\f1\fs20 //PROCEDURE DownloadFichier (URL, Dossier, Nom_Fichier)\par ResAppel is booleen = Faux\par Page_html is \cf4 String\cf0 = ""\par IdFichier, ResEcriture are int\par Dossier is \cf4 String\cf0 = (\cf2 ".\\Bandes Annonces\cf0 ")\par \par ResAppel = HTTPRequ\'eate(\cf2\f3\fs24 "http:\cf1 //www.commeaucinema.com" + fichier + ".wmv" , ".\cf2\\B\cf1 andes \cf2 A\cf1 nnonces\\",\cf2 nom + ".wmv" \cf0\f1\fs20 )\par \cf4 If\cf0 ResAppel = Vrai \cf4 Then\cf0\par \tab Page_html= HTTPDonneR\'e9sultat()\par \cf4 Else\cf0\par \tab Erreur("Server down")\par \cf4 End\cf0\par \cf4 If\cf0 Not fRepCr\'e9e(Dossier ) \cf4 Then\cf0\par \tab Erreur(ErreurInfo(errMessage))\par \cf1\tab\cf4 Return\cf0\par \cf4 End\cf0\par \cf1 // Cr\'e9ation d'un fichier externe\cf0\par IdFichier = fOuvre(Dossier + "\\" + n\cf2 om + \cf0 ".\cf2 wmv\cf0 " , foCr\'e9ation)\par \cf4 If\cf0 IdFichier <> -1 \cf4 Then\cf0\par \tab ResEcriture = fEcrit(IdFichier, Page_html)\par \tab\cf4 If\cf0 ResEcriture <> -1 \cf4 Then\cf0\par \tab\cf4 Else\cf0\par \tab\tab Info("File Not found"+ErreurInfo(errMessage))\par \tab\tab\cf4 Return\cf0\par \tab\cf4 End\cf0\par \cf4 Else\cf0\par \tab Info("File Not found"+ErreurInfo(errMessage))\par \tab\cf4 Return\cf0\par \cf4 End\cf0\par \pard\sb100\sa100 fFerme (IdFichier)\cf2\f3\fs24\par \pard\cf3\f2\fs20 MovieTrailerValue\cf2 = \f0\fs18 ".\\Bandes Annonces\\" + nom + ".wmv"\par \cf5\par UserInformationMessage\cf1 ("Si vous \'e9tiez pla\cf2 c\cf1\'e9 sur la bonne fiche alors le \cf2 fichier\cf1 \'e0 \'e9t\'e9 correctement ajout\'e9." + CR + CR + "Pla\cf2 c\cf1 ez vous sur une autre fiche pour Continuer")\cf2\par \pard\sb100\sa100\cf1 VideoName (\cf3 MovieTrailerValue\cf1 )\par \cf2 GALERIE.NOM_FICHIER = \cf3 MovieTrailerValue\cf2\par GALERIE.CLE_MAITRE = VIDEOTAP.VICLEUNIK\par GALERIE.TYPE_MULTIMEDIA = "VIDEO"\par GALERIE.TYPE_MAITRE = "VIDEOTAP"\par HAjoute (GALERIE)\cf4\par \cf1 // Fin du script - V1.07 JUIN J\'e9rome 12/03/2006\par \cf2 Finscript:\cf0\par }