5/5 (14 avis)
Vue 5 582 fois - Téléchargée 318 fois
menu channel { Multimedia .Pr_Vidz Lecteur video : pr_vidz } on 1:LOAD:{ echo 4 Merci d'utiliser Pr_vidz ! echo 4 Pour infos , aides , idées join #prscript on quakenet ! echo 4 Pour lire une video tapper /pr_vidz ou click droit sur un channel ! echo 4 By PrOutie66 } on 1:unLOAD:{ unset %prvidzfile echo 4 Pr_vidz Supprimé ! } dialog pr_vidz { title "Pr_DivX" size -1 -1 507 218 option dbu box "", 2, 0 1 313 19 box "DivX", 4, 1 21 313 194 list 7, 318 30 183 182, hsbar vsbar box "Liste DivX", 8, 315 21 190 194 box "", 9, 315 1 189 19 button "Ajouter", 10, 317 7 37 10 button "Enlever", 11, 356 7 37 10 button "Ajouter dossier", 12, 395 7 39 10 button "Lire !", 13, 436 7 37 10 button "Cacher selection", 14, 265 7 45 10 text "Info Video:", 1, 2 7 28 8 edit "Durée :", 15, 33 6 60 10, read edit "Taille :", 16, 94 6 60 10, read edit "Codec :", 17, 155 6 60 10, read button "Afficher infos !", 18, 220 7 42 10 menu "Fichier", 3 item "Ajouter une video", 5, 3 item "Ajouter un repetoire", 6, 3 item "Effacer la selection", 19, 3 item "#prscript on quakenet", 20, 3 } on 1:dialog:pr_vidz:menu:*:{ if ( $did == 5 ) { set %prvidzfile $sfile(c:\,Choisir la vidéo à ajouter,oktext) did -a pr_vidz 7 %prvidzfile ; divxplay $shortfn(%prvidzfile) ; //dialog -s pr_vidz $dialog(pr_vidz).x $dialog(pr_vidz).y 630 455 } if ( $did == 19 ) { did -ar pr_vidz 7 } if ( $did == 20 ) { join #prscript | .msg #prscript Salut ! pr_vidz } } on 1:dialog:pr_vidz:dclick:*:{ if $did == 7 { ; divxplay $did(7).seltext did -ar pr_vidz 15 Durée : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_length) did -ar pr_vidz 16 Taille : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_size) did -ar pr_vidz 17 Codec : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_codec) set %prvidzcodec $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_codec) set %prvidzduree $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_length) set %prvidzsize $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_size) divxplay $shortfn($did(pr_vidz,7).seltext ) } } on 1:dialog:pr_vidz:sclick:*:{ if $did == 13 { did -ar pr_vidz 15 Durée : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_length) did -ar pr_vidz 16 Taille : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_size) did -ar pr_vidz 17 Codec : $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_codec) set %prvidzcodec $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_codec) set %prvidzduree $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_length) set %prvidzsize $dll(dll\AVIinfos.dll,AVIFile, $did(pr_vidz,7).seltext >_size) divxplay $shortfn($did(pr_vidz,7).seltext ) } if $did == 14 { if ($did(14).text == Cacher selection ) { did -ar pr_vidz 14 Afficher Selection dialog -s pr_vidz $dialog(pr_vidz).x $dialog(pr_vidz).y 630 455 halt } if ($did(14).text == Afficher Selection ) { did -ar pr_vidz 14 Cacher selection dialog -s pr_vidz $dialog(pr_vidz).x $dialog(pr_vidz).y 1010 455 halt } } if $did == 10 { set %prvidzfile $sfile(c:\,Choisir la vidéo à ajouter,oktext) did -a pr_vidz 7 %prvidzfile } if $did == 11 { did -d pr_vidz 7 $did(7).sel } if $did == 12 { set %prvidzfile $sdir(c:\,Choisir le dossier à ajouter ( plus il ya de fichiers plus le traitement sera long ),oktext) var %o $findfile(%prvidzfile,*.*,0) set %i 1 while ( %i <= %o ) { var %dazung $findfile(%prvidzfile,*.*, $eval(%i , 2) ) var %dozung $mid(%dazung , $calc($len(%dazung) - 3 ) , 99) echo s %dozung if ( %dozung == .avi ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } if ( %dozung == .mpg ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } if ( %dozung == .asf ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } if ( %dozung == .wmv ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } if ( %dozung == .wma ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } if ( %dozung == .mp3 ) { did -a pr_vidz 7 $findfile(%prvidzfile,*.*,%i) } inc %i } } if $did == 18 { msg $active 4»10»9» 12 Watching : 7 $nopath($did(pr_vidz,7).seltext) 8 5[2 Length : %prvidzduree 5][2 Size : %prvidzsize 5][ 2 Codec : %prvidzcodec 5] 9«10«4« } } on 1:dialog:pr_vidz:init:0:{ dialog -s pr_vidz $dialog(pr_vidz).x $dialog(pr_vidz).y 1010 455 dll dll\mdx.dll SetMircVersion $version dll dll\mdx.dll MarkDialog pr_vidz dll dll\mdx.dll SetDialog pr_vidz bgcolor $rgb(1,1,1) var %i 1 while ( %i < 25 ) { dll dll\mdx.dll SetColor pr_vidz %i textbg $rgb(0,0,0) dll dll\mdx.dll SetColor pr_vidz %i text $rgb(0,255,255) dll dll\mdx.dll SetColor pr_vidz %i background $rgb(0,0,0) inc %i } } alias pr_vidz { dialog -m pr_vidz pr_vidz } on 1:dialog:pr_vidz:sclick:*:{ if ( $did == 3 ) { did -g pr_vidz 4 $dll(mAvi.dll,Load,@pr_vidz > 1gars1fillevacherie.avi) } } alias pr_vidzwin { window -a @pr_vidz 0 0 1024 768 } alias divxplay { set %tmp2mp " $+ $scriptdir $+ playerhtml.html $+ " set %tmpmp $chr(34) $+ $1 $+ $chr(34) write -c %tmp2mp write %tmp2mp <EMBED WIDTH="100%" HEIGHT="100%" SRC= $+ %tmpmp $+ > ; dialog -s pr_vidz $dialog(pr_vidz).x $dialog(pr_vidz).y 359 422 var %hwnd = $dll($mircdirdll/nHTMLn_2.9.dll,find,DivX) dll dll\nHTMLn_2.9.dll attach %hwnd dll dll\nHTMLn_2.9.dll navigate $scriptdir $+ playerhtml.html } }
14 nov. 2004 à 13:24
9/10
28 mai 2004 à 09:55
Mais comme meme 4 jtrouve un ptit peu mechant , po grave ^^
27 mai 2004 à 21:32
Pi tu sais ia pas mal de personnes qui s'eclatent a mettre des sales notes sans commentaire ces temps ci
27 mai 2004 à 20:36
27 mai 2004 à 07:03
Mais jte met o defis tu faire quelque chose de beau en picwin en une aprem"
Apres le bac ca sera sans probleme :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.