Accueil > > > LECTEUR AUDIO MP3/MIDI/WAVE
LECTEUR AUDIO MP3/MIDI/WAVE
Information sur la source
Description
Sans aucun dll, il vous permet de lire diferent format audio.
Il à un petit air de winamp avec sa seekbar.
On peut lui faire des skin baser sur mdx.
Source
- ;Lecteur Audio V1.5 par aerith "aeris_vallee@hotmail.com"
- ;Pour utiliser MDX.dll le chemin du repertoire ne doit pas avoir d'espace
- ;Pour une utilisation partiel ou complette dans un script me prevenir svp
-
- ;##########MENU##########
- menu channel,menubar {
- -
- Lecteur MP3/Wave/Midi : {
- if (!$dialog(lecteur).title) {
- if (!$lecteur(lecteur,x)) $lecteur(lecteur,x,-1)
- if (!$lecteur(lecteur,y)) $lecteur(lecteur,y,-1)
- if (!$lecteur(rep,mdx)) $lecteur(rep,mdx,$findfile($mircdir,mdx.dll,1))
- if ((!$lecteur(rep,mdx)) || (!$exists($lecteur(rep,mdx)))) {
- echo -a MDX.dll non trouver dans le repertoire de mirc, instalez le et relancez le lecteur
- beep 5 50
- }
- if (!$exists(lecteur/temp.txt)) { mkdir lecteur | write lecteur/temp.txt }
- dialog -dm lecteur lecteur
- }
- }
- }
-
- ;##########LECTEUR##########
- dialog lecteur {
- title "Lecteur Audio"
- size $lecteur(lecteur,x) $lecteur(lecteur,y) 187 105
- option dbu
- button "I<", 10, 1 1 18 10
- button ">", 11, 19 1 18 10
- button "I I", 12, 37 1 18 10
- button "", 13, 55 1 18 10
- button ">I", 14, 73 1 18 10
- scroll "", 15, 1 11 90 8, range 100 horizontal top
- box "Volume Master", 20, 94 0 92 20
- scroll "", 21, 96 8 48 9, range 0 65535 horizontal left
- edit , 22, 145 7 17 10, read center
- check "mute", 23, 163 8 22 10
- box "Mode", 30, 148 20 38 29
- check "Shuffle", 31, 153 37 29 10
- check "Loop", 32, 153 27 23 10
- button "Mixer", 62, 152 50 30 10
- button "Play-List", 63, 152 61 30 10
- button "Skin", 1, 152 72 30 10
- button "Option", 64, 152 83 30 10, ok cancel
- button "Exit", 60, 152 94 30 10, ok cancel
- box "Information", 40, 1 20 146 84
- edit "", 3, 3 28 10 10, read autohs center
- edit "", 41, 13 28 31 10, read autohs center
- edit "", 2, 44 28 41 10, read autohs center
- edit "", 42, 85 28 30 10, read autohs center
- edit "", 43, 115 28 30 10, read autohs center
- edit "", 44, 3 38 142 10, read autohs center
- list 45, 3 48 142 54, size hsbar vsbar
- }
- on *:dialog:lecteur:init:*: {
- loadskinlecteur
- $lecteur(volume,master,$round($calc($vol(master) / 655.35),0))
- did -ra lecteur 22 $lecteur(volume,master)
- did -c lecteur 21 $vol(master)
- if ($vol(master).mute == 1) did -c lecteur 23
- if ($lecteur(option,shuffle) == on) did -c lecteur 31
- if ($lecteur(option,loop) == on) did -c lecteur 32
- var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
- if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 alarmemarche
- afficheplaylist
- }
- ;##lecture##
- on *:dialog:lecteur:sclick:11: {
- lecteurplay
- }
- ;##pause##
- on *:dialog:lecteur:sclick:12: {
- if ($lecteur(option,pause) == on ) {
- splay resume
- lecteur option pause off
- lecteur lecteur p 0
- did -ra lecteur 3 >
- dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio
- }
- else {
- splay pause
- lecteur option pause on
- lecteur lecteur p 1
- did -ra lecteur 3 I I
- dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio (Pause)
- }
- }
- ;##stop##
- on *:dialog:lecteur:sclick:13: {
- lecteurstop
- }
- ;##musique precedente##
- on *:dialog:lecteur:sclick:10: {
- if ($lecteur(lecteur,no) > 1) {
- $lecteur(lecteur,no,$calc($lecteur(lecteur,no) - 1))
- lecteurplay
- }
- }
- ;##seek barre##
- on *:dialog:lecteur:scroll:15: {
- if ($insong) splay seek $round($calc($did(15).sel * $insong.length / 100),0)
- }
- ;##musique suivante##
- on *:dialog:lecteur:sclick:14: {
- if ($lecteur(lecteur,no) < $lines(lecteur/temp.txt)) {
- $lecteur(lecteur,no,$calc($lecteur(lecteur,no) +1))
- lecteurplay
- }
- }
- ;##volume master##
- on *:dialog:lecteur:scroll:21: {
- $lecteur(volume,master,$round($calc($did(21).sel / 655.35),0))
- vol -v $calc(655 * $lecteur(volume,master))
- did -o lecteur 22 1 $lecteur(volume,master)
- if ($dialog(mixer).title != $null) {
- did -o mixer 12 1 $lecteur(volume,master)
- did -c mixer 11 $vol(master)
- }
- }
- ;##mute master##
- on *:dialog:lecteur:sclick:23: {
- if (($vol(master).mute != 0) && ($did(23).state != 1)) {
- vol -vu2
- if ($dialog(mixer).title != $null) did -u mixer 13
- }
- else {
- vol -vu1
- if ($dialog(mixer).title != $null) did -c mixer 13
- }
- }
- ;##shuffle##
- on *:dialog:lecteur:sclick:31: {
- if (($lecteur(option,shuffle) != off) && ($did(31).state != 1)) $lecteur(option,shuffle,off)
- else $lecteur(option,shuffle,on)
- }
- ;##loop##
- on *:dialog:lecteur:sclick:32: {
- if (($lecteur(option,loop) != off) && ($did(32).state != 1)) $lecteur(option,loop,off)
- else $lecteur(option,loop,on)
- }
- ;##exit##
- on *:dialog:lecteur:sclick:60: {
- $lecteur(lecteur,x,$dialog(lecteur).x)
- $lecteur(lecteur,y,$dialog(lecteur).y)
- if ($dialog(mixer).title) {
- $lecteur(mixer,x,$dialog(mixer).x)
- $lecteur(mixer,y,$dialog(mixer).y)
- }
- if ($dialog(playlist).title) {
- $lecteur(playlist,x,$dialog(playlist).x)
- $lecteur(playlist,y,$dialog(playlist).y)
- }
- if ($dialog(lecteur.option).title) {
- $lecteur(option,x,$dialog(lecteur.option).x)
- $lecteur(option,y,$dialog(lecteur.option).y)
- }
- timerlecteurmarche off
- timerlecteursleep off
- timerlecteurstop off
- }
- ;##mixer##
- on *:dialog:lecteur:sclick:62: {
- if (!$dialog(mixer).title) {
- if (!$lecteur(mixer,x)) $lecteur(mixer,x,$calc($dialog(lecteur).x + 380))
- if (!$lecteur(mixer,y)) $lecteur(mixer,y,$dialog(lecteur).y)
- dialog -am mixer mixer
- }
- }
- ;##playlist##
- on *:dialog:lecteur:sclick:63: {
- if (!$dialog(playlist).title) {
- if (!$lecteur(playlist,x)) $lecteur(playlist,x,$dialog(lecteur).x)
- if (!$lecteur(playlist,y)) $lecteur(playlist,y,$calc($dialog(lecteur).y + 242))
- dialog -am playlist playlist
- }
- }
- ;##skin##
- on *:dialog:lecteur:sclick:1: {
- :choixs
- if (!$lecteur(rep,skin)) $lecteur(rep,skin,C:)
- var %rep = $sfile($nofile($lecteur(rep,skin)),Skin a charger)
- if ($right(%rep,5) != .skin) {
- $lecteur(error,error,Nom de fichier incorecte)
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- $lecteur(rep,skin,%rep)
- loadskinlecteur
- }
- ;##option##
- on *:dialog:lecteur:sclick:64: {
- if (!$dialog(lecteur.option).title) {
- if (!$lecteur(option,x)) $lecteur(option,x,$calc($dialog(lecteur).x + 380))
- if (!$lecteur(option,y)) $lecteur(option,y,$calc($dialog(lecteur).y + 242))
- dialog -am lecteur.option lecteur.option
- }
- }
- ;##double click jouer##
- on *:dialog:lecteur:dclick:45: {
- $lecteur(lecteur,no,$did(45).sel)
- lecteurplay
- }
-
- ;##########MIXER##########
- dialog mixer {
- title "Lecteur -=Mixer=-"
- size $lecteur(mixer,x) $lecteur(mixer,y) 92 72
- option dbu
- box "Master", 10, 1 0 90 20
- scroll "", 11, 2 8 48 9, range 0 65535 horizontal left
- edit , 12, 50 8 17 10, read center
- check "mute", 13, 68 8 22 10
- box "Wave/MP3", 20, 1 20 90 20
- scroll "", 21, 2 28 48 9, range 0 65535 horizontal left
- edit , 22, 50 28 17 10, read center
- check "mute", 23, 68 28 22 10
- box "Midi", 30, 1 40 90 20
- scroll "", 31, 2 48 48 9, range 0 65535 horizontal left
- edit , 32, 50 48 17 10, read center
- check "mute", 33, 68 48 22 10
- button "Exit", 40, 31 61 30 10, ok cancel
- }
- on *:dialog:mixer:init:*: {
- $lecteur(volume,master,$round($calc($vol(master) / 655.35),0))
- did -ra mixer 12 $lecteur(volume,master)
- $lecteur(volume,wave,$round($calc($vol(wave) / 655.35),0))
- did -ra mixer 22 $lecteur(volume,wave)
- $lecteur(volume,midi,$round($calc($vol(midi) / 655.35),0))
- did -ra mixer 32 $lecteur(volume,midi)
- if ($vol(master).mute == 1) did -c mixer 13
- if ($vol(wave).mute == 1) did -c mixer 23
- if ($vol(midi).mute == 1) did -c mixer 33
- did -c mixer 11 $vol(master)
- did -c mixer 21 $vol(wave)
- did -c mixer 31 $vol(midi)
- loadskinlecteur
- }
- ;##volume master##
- on *:dialog:mixer:scroll:11: {
- $lecteur(volume,master,$round($calc($did(11).sel / 655.35),0))
- vol -v $calc(655 * $lecteur(volume,master))
- did -o lecteur 22 1 $lecteur(volume,master)
- did -o mixer 12 1 $lecteur(volume,master)
- did -c lecteur 21 $vol(master)
- }
- ;##mute master##
- on *:dialog:mixer:sclick:13: {
- if (($vol(master).mute != 0) && ($did(13).state != 1)) {
- vol -vu2
- if ($dialog(mixer).title != $null) did -u lecteur 23
- }
- else {
- vol -vu1
- if ($dialog(mixer).title != $null) did -c lecteur 23
- }
- }
- ;##volume wave##
- on *:dialog:mixer:scroll:21: {
- $lecteur(volume,wave,$round($calc($did(21).sel / 655.35),0))
- vol -w $calc(655 * $lecteur(volume,wave))
- did -o mixer 22 1 $lecteur(volume,wave)
- }
- ;##mute wave##
- on *:dialog:mixer:sclick:23: {
- if (($vol(wave).mute != 0) && ($did(23).state != 1)) vol -wu2
- else vol -wu1
- }
- ;##volume midi##
- on *:dialog:mixer:scroll:31: {
- $lecteur(volume,midi,$round($calc($did(31).sel / 655.35),0))
- vol -m $calc(655 * $lecteur(volume,midi))
- did -o mixer 32 1 $lecteur(volume,midi)
- }
- ;##mute midi##
- on *:dialog:mixer:sclick:33: {
- if (($vol(midi).mute != 0) && ($did(33).state != 1)) vol -mu2
- else vol -mu1
- }
- ;##exit##
- on *:dialog:mixer:sclick:40: {
- $lecteur(mixer,x,$dialog(mixer).x)
- $lecteur(mixer,y,$dialog(mixer).y)
- }
-
- ;##########PLAYLIST##########
- dialog playlist {
- title "Lecteur -=Play-List=-"
- size $lecteur(playlist,x) $lecteur(playlist,y) 187 111
- option dbu
- box "Play-List", 17, 1 1 185 19
- edit "", 10, 4 8 179 10, autohs
- box "Musique", 18, 1 21 185 76
- edit , 1, 4 29 179 10, autohs
- list 3, 4 39 179 44, size hsbar vsbar
- button "ouvrir", 2, 4 84 35 10
- button "ajouter", 8, 40 84 35 10
- button "effacer", 15, 76 84 35 10
- button "monter", 12, 112 84 35 10
- button "decendre", 13, 148 84 35 10
- button "ouvrir P-List", 6, 4 99 35 10
- button "tout ajouter", 9, 40 99 35 10
- button "tout effacer", 4, 76 99 35 10
- button "sauvegarder", 5, 112 99 35 10
- button "Exit", 7, 148 99 35 10, ok cancel
- }
- on *:dialog:playlist:init:*: {
- did -ra playlist 1 $lecteur(rep,musique)
- var %a = 1
- var %b = 0
- did -r playlist 3
- while (%b != $null) {
- var %b = $findfile($lecteur(rep,musique),*.*,%a)
- if (((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) && ($exists(%b))) did -za playlist 3 %b
- inc %a
- }
- loadskinlecteur
- }
- ;##ouvrir musique##
- on *:dialog:playlist:sclick:2: {
- if (!$lecteur(rep,musique)) $lecteur(rep,musique,C:)
- var %rep = $sdir($lecteur(rep,musique),Dossier des musiques)
- $lecteur(rep,musique,%rep)
- did -ra playlist 1 $lecteur(rep,musique)
- var %a = 1
- var %b = 0
- did -r playlist 3
- while (%b != $null) {
- var %b = $findfile($lecteur(rep,musique),*.*,%a)
- if (((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) && ($exists(%b))) did -za playlist 3 %b
- inc %a
- }
- }
- ;##list musique##
- on *:dialog:playlist:sclick:3: {
- var %c = $calc($sound($did(3,$did(3).sel)).length / 1000)
- did -ra playlist 1 $gmt(%c,$iif(%c >= 3600,hh:nn:ss,nn:ss)) : $nopath($did(3,$did(3).sel))
- }
- :##nouveau##
- on *:dialog:playlist:sclick:4: {
- $lecteur(erreur,error,Voulez vous suprimer la play-list ?)
- $dialog(lecteur.erreur,lecteur.erreur)
- if ($lecteur(erreur,ok) == ok) {
- did -ra playlist 10
- remove lecteur/temp.txt
- afficheplaylist
- }
- }
- ;##sauvegarder##
- on *:dialog:playlist:sclick:5: {
- var %b = $$?="Nom de la Play-List ?"
- if ((.m3u isin %b) || (\ isin %b) || (/ isin %b)) {
- $lecteur(erreur,error,Nom de fichier incorect)
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- if (!$lecteur(rep,list)) $lecteur(rep,list,C:)
- var %rep = $sdir($nofile($lecteur(rep,list)),Repertoire ou sauvez la Play-List (sans espace))
- var %a = %rep $+ %b $+ .m3u
- if ($exists(%a)) {
- $lecteur(erreur,error,Voulez vous ecraser %a)
- $dialog(lecteur.erreur,lecteur.erreur)
- if ($lecteur(erreur,ok) != ok) halt
- }
- copy -o lecteur/temp.txt %a
- if (!$exists(%a)) {
- $lecteur(erreur,error,Erreur durand la sauvegarde (il y a peut etre des espaces dans le chemin du fichier))
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- did -ra playlist 10 %a
- $lecteur(rep,list,$nofile(%a))
- }
- ;##ouvrir playlist##
- on *:dialog:playlist:sclick:6: {
- if (!$lecteur(rep,list)) $lecteur(rep,list,C:)
- var %rep = $sfile($nofile($lecteur(rep,list)),Play-List a charger (.m3u))
- if ($right(%rep,4) != .m3u) {
- $lecteur(erreur,error,Nom de fichier incorecte)
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- $lecteur(rep,list,%rep)
- did -ra playlist 10 $lecteur(rep,list)
- var %a = 1
- write -c lecteur/temp.txt
- while (%a <= $lines($lecteur(rep,list))) {
- var %b = $read($lecteur(rep,list),%a)
- if ((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) write lecteur/temp.txt %b
- inc %a
- }
- afficheplaylist
- }
- ;##exit##
- on *:dialog:playlist:sclick:7: {
- $lecteur(playlist,x,$dialog(playlist).x)
- $lecteur(playlist,y,$dialog(playlist).y)
- }
- ;##ajouter##
- on *:dialog:playlist:sclick:8: {
- if (!$did(3).sel) {
- $lecteur(erreur,error,Pas de musique selectionner dans "Musique")
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- if (!$did(lecteur,45).sel) {
- write lecteur/temp.txt $did(3,$did(3).sel)
- $lecteur(lecteur,no,$lines(lecteur/temp.txt))
- }
- else {
- write -il $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt $did(3,$did(3).sel)
- $lecteur(lecteur,no,$calc($did(lecteur,45).sel +1))
- }
- afficheplaylist
- }
- ;##tout ajouter##
- on *:dialog:playlist:sclick:9: {
- if (!$did(lecteur,45).sel) {
- var %a = 1
- var %b = 0
- while (%b != $null) {
- var %b = $did(playlist,3,%a)
- if ($exists(%b)) write lecteur/temp.txt %b
- inc %a
- }
- $lecteur(lecteur,no,$lines(lecteur/temp.txt))
- }
- else {
- var %a = 1
- var %b = 0
- while (%b != $null) {
- var %b = $did(playlist,3,%a)
- if ($exists(%b)) write -il $+ $calc($did(lecteur,45).sel + %a) lecteur/temp.txt %b
- inc %a
- }
- $lecteur(lecteur,no,$calc($did(lecteur,45).sel + $lines(lecteur/temp.txt)))
- }
- afficheplaylist
- }
- ;##monter##
- on *:dialog:playlist:sclick:12: {
- if (!$did(lecteur,45).sel) {
- $lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- else {
- if ($did(lecteur,45).sel != 1) {
- write -il $+ $calc($did(lecteur,45).sel - 1) lecteur/temp.txt $read(lecteur/temp.txt,$did(lecteur,45).sel)
- write -dl $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt
- $lecteur(lecteur,no,$calc($did(lecteur,45).sel - 1))
- }
- }
- afficheplaylist
- }
- ;##decendre##
- on *:dialog:playlist:sclick:13: {
- if (!$did(lecteur,45).sel) {
- $lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- else {
- if ($did(lecteur,45).sel != $lines(lecteur/temp.txt)) {
- write -il $+ $calc($did(lecteur,45).sel + 2) lecteur/temp.txt $read(lecteur/temp.txt,$did(lecteur,45).sel)
- write -dl $+ $did(lecteur,45).sel lecteur/temp.txt
- $lecteur(lecteur,no,$calc($did(lecteur,45).sel + 1))
- }
- }
- afficheplaylist
- }
- ;##suprimer##
- on *:dialog:playlist:sclick:15: {
- if (!$did(lecteur,45).sel) {
- $lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
- $dialog(lecteur.erreur,lecteur.erreur)
- halt
- }
- else {
- write -dl $+ $did(lecteur,45).sel lecteur/temp.txt
- $lecteur(lecteur,no,$did(lecteur,45).sel)
- }
- afficheplaylist
- }
- ;##double click ajouter##
- on *:dialog:playlist:dclick:3: {
- if (!$did(lecteur,45).sel) {
- write lecteur/temp.txt $did(3,$did(3).sel)
- $lecteur(lecteur,sel,$lines(lecteur/temp.txt))
- }
- else {
- write -il $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt $did(3,$did(3).sel)
- $lecteur(lecteur,sel,$calc($did(lecteur,45).sel + 1))
- }
- afficheplaylist
- }
-
- ;##########ERREUR##########
- dialog lecteur.erreur {
- title "Lecteur -=Erreur=-"
- size $calc($lecteur(lecteur,x) + 20) $calc($lecteur(lecteur,y) + 20) 100 50
- option dbu
- text "", 1, 0 0 100 40, center
- button "OK", 2, 0 40 30 10, ok
- button "Cancel", 3, 70 40 30 10, cancel
- }
- on *:dialog:lecteur.erreur:init:*: {
- did -ra lecteur.erreur 1 $lecteur(erreur,error)
- }
- ;##ok##
- on *:dialog:lecteur.erreur:sclick:2:{
- $lecteur(erreur,ok,ok)
- }
-
- ;##########OPTION##########
- dialog lecteur.option {
- title "Lecteur -=Option=-"
- size $lecteur(option,x) $lecteur(option,y) 92 93
- option dbu
- check "Dire la musique sur les salons", 1, 3 1 80 10
- check "Dire sur tout les salons", 2, 9 11 80 10
- check "Lancer au demarage de mIRC", 3, 3 21 85 10
- box "Reveil", 10, 1 31 90 50
- check "Marche", 11, 4 38 30 10
- combo 12, 33 38 25 50, result vsbar drop
- combo 13, 63 38 25 50, result vsbar drop
- check "Sleep", 21, 9 48 25 10
- combo 22, 33 48 25 50, result vsbar drop
- combo 23, 63 48 25 50, result vsbar drop
- check "Arret", 31, 4 58 30 10
- combo 32, 33 58 25 50, result vsbar drop
- combo 33, 63 58 25 50, result vsbar drop
- button "Apliquer modification", 40, 4 70 84 9, ok
- button "Exit", 50, 31 82 30 10, ok
- }
- on *:dialog:lecteur.option:init:*: {
- if ($lecteur(option,chan) == on) did -c lecteur.option 1
- else did -b lecteur.option 2
- if ($lecteur(option,amsg) == on) did -c lecteur.option 2
- if ($lecteur(option,auto) == on) did -c lecteur.option 3
- if ($lecteur(alarme,lecture) == on) did -c lecteur.option 11
- else did -b lecteur.option 12,13,21,22,23
- if ($lecteur(alarme,sleep) == on) did -c lecteur.option 21
- else did -b lecteur.option 22,23
- if ($lecteur(alarme,stop) == on) did -c lecteur.option 31
- else did -b lecteur.option 32,33
- var %a = 0
- while (%a < 24) {
- did -a lecteur.option 12,13,22,23,32,33 %a
- inc %a 1
- }
- while (%a < 60) {
- did -a lecteur.option 13,23,33 %a
- inc %a 1
- }
- did -c lecteur.option 12 $calc($lecteur(alarme,lecture.h) + 1)
- did -c lecteur.option 13 $calc($lecteur(alarme,lecture.m) + 1)
- did -c lecteur.option 22 $calc($lecteur(alarme,sleep.h) + 1)
- did -c lecteur.option 23 $calc($lecteur(alarme,sleep.m) + 1)
- did -c lecteur.option 32 $calc($lecteur(alarme,stop.h) + 1)
- did -c lecteur.option 33 $calc($lecteur(alarme,stop.m) + 1)
- loadskinlecteur
- }
- ;##dire musique##
- on *:dialog:lecteur.option:sclick:1: {
- if (($lecteur(option,chan) != off) && ($did(1).state != 1)) { $lecteur(option,chan,off) | did -b lecteur.option 2 }
- else $lecteur(option,chan,on) did -e lecteur.option 2
- }
- ;##dire partout##
- on *:dialog:lecteur.option:sclick:2: {
- if (($lecteur(option,amsg) != off) && ($did(2).state != 1)) $lecteur(option,amsg,off)
- else $lecteur(option,amsg,on)
- }
- ;##autorun##
- on *:dialog:lecteur.option:sclick:3: {
- if (($lecteur(option,auto) != off) && ($did(3).state != 1)) $lecteur(option,auto,off)
- else $lecteur(option,auto,on)
- }
- ;##alarme lecture##
- on *:dialog:lecteur.option:sclick:11: {
- if (($lecteur(alarme,lecture) != off) && ($did(11).state != 1)) { $lecteur(alarme,lecture,off) | did -b lecteur.option 12,13,21,22,23 }
- else { $lecteur(alarme,lecture,on) | did -e lecteur.option 12,13,21 | if ($lecteur(alarme,sleep) == on) did -e lecteur.option 22,23 }
- }
- ;##alarme sleep##
- on *:dialog:lecteur.option:sclick:21: {
- if (($lecteur(alarme,sleep) != off) && ($did(21).state != 1)) { $lecteur(alarme,sleep,off) | did -b lecteur.option 22,23 }
- else { $lecteur(alarme,sleep,on) | did -e lecteur.option 22,23 }
- }
-
- ;##alarme stop##
- on *:dialog:lecteur.option:sclick:31: {
- if (($lecteur(alarme,stop) != off) && ($did(31).state != 1)) { $lecteur(alarme,stop,off) | did -b lecteur.option 32,33 }
- else { $lecteur(alarme,stop,on) | did -e lecteur.option 32,33 }
- }
- ;##apliquer modification##
- on *:dialog:lecteur.option:sclick:40: {
- $lecteur(alarme,lecture.h,$did(12))
- $lecteur(alarme,lecture.m,$did(13))
- $lecteur(alarme,sleep.h,$did(22))
- $lecteur(alarme,sleep.m,$did(23))
- $lecteur(alarme,stop.h,$did(32))
- $lecteur(alarme,stop.m,$did(33))
- timerlecteurmarche off
- var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
- if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 alarmemarche
- timerlecteursleep off
- var %a = $lecteur(alarme,sleep.h) $+ : $+ $lecteur(alarme,sleep.m)
- if ($lecteur(alarme,sleep) == on) timerlecteursleep %a 1 1 lecteurstop
- timerlecteurstop off
- var %a = $lecteur(alarme,stop.h) $+ : $+ $lecteur(alarme,stop.m)
- if ($lecteur(alarme,stop) == on) timerlecteurstop %a 1 1 lecteurstop
- }
- ;##exit##
- on *:dialog:lecteur.option:sclick:50: {
- $lecteur(option,x,$dialog(lecteur.option).x)
- $lecteur(option,y,$dialog(lecteur.option).y)
- }
-
- ;##########ALIAS##########
- ;##retourne une variable de config.ini##
- alias lecteur {
- if (!$3) return $readini lecteur/config.ini $1 $2
- if ($3) writeini -n lecteur/config.ini $1 $2 $3-
- }
- ;##affiche la playlist dans lecteur##
- alias afficheplaylist {
- var %a = 1
- did -r lecteur 45
- while (%a <= $lines(lecteur/temp.txt)) {
- var %b = $read(lecteur/temp.txt,%a)
- if ($exists(%b)) {
- var %c = $calc($sound(%b).length / 1000)
- did -za lecteur 45 %a $+ . $gmt(%c,$iif(%c >= 3600,hh:nn:ss,nn:ss)) : $nopath(%b)
- }
- else did -ra playlist 10 erreur : %b
- inc %a
- }
- if (($lecteur(lecteur,no) > 0) && ($lecteur(lecteur,no) <= $lines(lecteur/temp.txt))) did -c lecteur 45 $lecteur(lecteur,no)
- }
- ;##charge et evalu un skin##
- alias loadskinlecteur {
- var %a = 2
- while ($lines($lecteur(rep,skin)) > %a) {
- var %b = $read($lecteur(rep,skin),%a)
- if (%b) $eval(%b)
- inc %a 1
- }
- }
- ;##joue la musique##
- alias lecteurplay {
- $lecteur(option,pause,off)
- $lecteur(lecteur,musique,$read(lecteur/temp.txt,$lecteur(lecteur,no)))
- splay $lecteur(lecteur,musique)
- $lecteur(lecteur,defile,1)
- did -ra lecteur 3 >
- timerseek -m 0 250 lecteurseek
- var %a = $lecteur(alarme,stop.h) $+ : $+ $lecteur(alarme,stop.m)
- if ($lecteur(alarme,stop) == on) timerlecteurstop %a 1 1 lecteurstop
- did -c lecteur 45 $lecteur(lecteur,no)
- var %a = $calc($file($lecteur(lecteur,musique)).size / 1048576)
- if ($round(%a,0) == 0) did -ra lecteur 43 $round($calc(%a * 1024),2) Kb
- else did -ra lecteur 43 $round(%a,2) Mb
- dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio
- if ($inwave) {
- var %l = $calc($inwave.length / 1000)
- $lecteur(lecteur,c,$lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
- }
- elseif ($inmidi) {
- var %l = $calc($inmidi.length / 1000)
- $lecteur(lecteur,c,$lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
- }
- elseif ($insong) {
- did -ra lecteur 2 $sound($lecteur(lecteur,musique)).mode
- did -ra lecteur 42 $sound($lecteur(lecteur,musique)).bitrate kbps
- var %l = $calc($insong.length / 1000)
- var %a = $sound($lecteur(lecteur,musique)).artist - $sound($lecteur(lecteur,musique)).album - $sound($lecteur(lecteur,musique)).title
- if ($len(%a) < 5) var %a = $nopath($lecteur(lecteur,musique))
- $lecteur(lecteur,c,$lecteur(lecteur,no) $+ . %a ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
- }
- if ($lecteur(option,chan) == on) {
- if ($lecteur(option,amsg) == on) ame ¬ MusIk $lecteur(lecteur,c)
- else if ($chr(35) isin $active) msg $active ¬ MusIk $lecteur(lecteur,c)
- }
- }
- ;##stop la musique##
- alias lecteurstop {
- splay stop
- timerseek off
- timerlecteurmarche off
- timerlecteursleep off
- timerlecteurstop off
- if ($dialog(lecteur).title) {
- did -ra lecteur 41
- did -ra lecteur 42
- did -ra lecteur 43
- did -ra lecteur 44
- did -ra lecteur 2
- did -ra lecteur 3
- did -c lecteur 15 0
- dialog -t lecteur Lecteur Audio (Stop)
- var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
- if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 timer 1 60 alarmemarche
- }
- lecteur option pause off
- lecteur lecteur defile 0
- lecteur lecteur c 0
-
- }
- ;##mise a jour seek##
- alias lecteurseek {
- if (!$dialog(lecteur).title) lecteurstop
- if (($insong) && (.mp3 isin $lecteur(lecteur,musique))) {
- var %a = $calc($insong.pos / 1000)
- did -c lecteur 15 $round($calc($insong.pos * 100 / $insong.length),0)
- }
- if (($inwave) && (.wav isin $lecteur(lecteur,musique))) {
- var %a = $calc($inwave.pos / 1000)
- did -c lecteur 15 $round($calc($inwave.pos * 100 / $inwave.length),0)
- }
- if (($inmidi) && (.mid isin $lecteur(lecteur,musique))) {
- var %a = $calc($inmidi.pos / 1000)
- did -c lecteur 15 $round($calc($inmidi.pos * 100 / $inmidi.length),0)
- }
- if (%a != $null) {
- did -ra lecteur 41 $gmt(%a,$iif(%a >= 3600,hh:nn:ss,nn:ss))
- if ($len($lecteur(lecteur,c)) > 45) {
- var %b = $lecteur(lecteur,c) $lecteur(lecteur,c)
- did -ra lecteur 44 $mid(%b,$lecteur(lecteur,defile),45)
- if ($lecteur(lecteur,defile) >= $len($lecteur(lecteur,c))) $lecteur(lecteur,defile,1)
- else $lecteur(lecteur,defile,$calc($lecteur(lecteur,defile) + 1))
- }
- else did -ra lecteur 44 $lecteur(lecteur,c)
- if ($lecteur(lecteur,pause) == on) {
- if ($lecteur(lecteur,p) == 1) did -ra lecteur 41 $gmt(%a,$iif(%a >= 3600,hh:nn:ss,nn:ss))
- if ($lecteur(lecteur,p) == 4) did -ra lecteur 41 : | lecteur lecteur p 0
- $lecteur(lecteur,p,$calc($lecteur(lecteur,p) + 1))
- }
- }
- if (((!$insong) && (.mp3 isin $lecteur(lecteur,musique))) || ((!$inwave) && (.wav isin $lecteur(lecteur,musique))) || ((!$inmidi) && (.mid isin $lecteur(lecteur,musique)))) {
- lecteurstop
- if ($lecteur(option,shuffle) == on) $lecteur(lecteur,no,$rand(1,$lines(lecteur/temp.txt)))
- else if ($lecteur(lecteur,no) == $lines(lecteur/temp.txt)) {
- if ($lecteur(option,loop) == on) $lecteur(lecteur,no,1)
- else halt
- }
- else $lecteur(lecteur,no,$calc($lecteur(lecteur,no) + 1))
- lecteurplay
- }
- }
- ;##alarme marche##
- alias alarmemarche {
- timerlecteurmarche off
- timerlecteursleep off
- lecteurplay
- var %a = $lecteur(alarme,sleep.h) $+ : $+ $lecteur(alarme,sleep.m)
- if ($lecteur(alarme,sleep) == on) timerlecteursleep %a 1 1 lecteurstop
- }
-
- ;##########DIVERS##########
- ;##lancement auto##
- on *:start: {
- if ($lecteur(option,auto) == on) dialog -dm lecteur lecteur
- }
;Lecteur Audio V1.5 par aerith "aeris_vallee@hotmail.com"
;Pour utiliser MDX.dll le chemin du repertoire ne doit pas avoir d'espace
;Pour une utilisation partiel ou complette dans un script me prevenir svp
;##########MENU##########
menu channel,menubar {
-
Lecteur MP3/Wave/Midi : {
if (!$dialog(lecteur).title) {
if (!$lecteur(lecteur,x)) $lecteur(lecteur,x,-1)
if (!$lecteur(lecteur,y)) $lecteur(lecteur,y,-1)
if (!$lecteur(rep,mdx)) $lecteur(rep,mdx,$findfile($mircdir,mdx.dll,1))
if ((!$lecteur(rep,mdx)) || (!$exists($lecteur(rep,mdx)))) {
echo -a MDX.dll non trouver dans le repertoire de mirc, instalez le et relancez le lecteur
beep 5 50
}
if (!$exists(lecteur/temp.txt)) { mkdir lecteur | write lecteur/temp.txt }
dialog -dm lecteur lecteur
}
}
}
;##########LECTEUR##########
dialog lecteur {
title "Lecteur Audio"
size $lecteur(lecteur,x) $lecteur(lecteur,y) 187 105
option dbu
button "I<", 10, 1 1 18 10
button ">", 11, 19 1 18 10
button "I I", 12, 37 1 18 10
button "", 13, 55 1 18 10
button ">I", 14, 73 1 18 10
scroll "", 15, 1 11 90 8, range 100 horizontal top
box "Volume Master", 20, 94 0 92 20
scroll "", 21, 96 8 48 9, range 0 65535 horizontal left
edit , 22, 145 7 17 10, read center
check "mute", 23, 163 8 22 10
box "Mode", 30, 148 20 38 29
check "Shuffle", 31, 153 37 29 10
check "Loop", 32, 153 27 23 10
button "Mixer", 62, 152 50 30 10
button "Play-List", 63, 152 61 30 10
button "Skin", 1, 152 72 30 10
button "Option", 64, 152 83 30 10, ok cancel
button "Exit", 60, 152 94 30 10, ok cancel
box "Information", 40, 1 20 146 84
edit "", 3, 3 28 10 10, read autohs center
edit "", 41, 13 28 31 10, read autohs center
edit "", 2, 44 28 41 10, read autohs center
edit "", 42, 85 28 30 10, read autohs center
edit "", 43, 115 28 30 10, read autohs center
edit "", 44, 3 38 142 10, read autohs center
list 45, 3 48 142 54, size hsbar vsbar
}
on *:dialog:lecteur:init:*: {
loadskinlecteur
$lecteur(volume,master,$round($calc($vol(master) / 655.35),0))
did -ra lecteur 22 $lecteur(volume,master)
did -c lecteur 21 $vol(master)
if ($vol(master).mute == 1) did -c lecteur 23
if ($lecteur(option,shuffle) == on) did -c lecteur 31
if ($lecteur(option,loop) == on) did -c lecteur 32
var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 alarmemarche
afficheplaylist
}
;##lecture##
on *:dialog:lecteur:sclick:11: {
lecteurplay
}
;##pause##
on *:dialog:lecteur:sclick:12: {
if ($lecteur(option,pause) == on ) {
splay resume
lecteur option pause off
lecteur lecteur p 0
did -ra lecteur 3 >
dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio
}
else {
splay pause
lecteur option pause on
lecteur lecteur p 1
did -ra lecteur 3 I I
dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio (Pause)
}
}
;##stop##
on *:dialog:lecteur:sclick:13: {
lecteurstop
}
;##musique precedente##
on *:dialog:lecteur:sclick:10: {
if ($lecteur(lecteur,no) > 1) {
$lecteur(lecteur,no,$calc($lecteur(lecteur,no) - 1))
lecteurplay
}
}
;##seek barre##
on *:dialog:lecteur:scroll:15: {
if ($insong) splay seek $round($calc($did(15).sel * $insong.length / 100),0)
}
;##musique suivante##
on *:dialog:lecteur:sclick:14: {
if ($lecteur(lecteur,no) < $lines(lecteur/temp.txt)) {
$lecteur(lecteur,no,$calc($lecteur(lecteur,no) +1))
lecteurplay
}
}
;##volume master##
on *:dialog:lecteur:scroll:21: {
$lecteur(volume,master,$round($calc($did(21).sel / 655.35),0))
vol -v $calc(655 * $lecteur(volume,master))
did -o lecteur 22 1 $lecteur(volume,master)
if ($dialog(mixer).title != $null) {
did -o mixer 12 1 $lecteur(volume,master)
did -c mixer 11 $vol(master)
}
}
;##mute master##
on *:dialog:lecteur:sclick:23: {
if (($vol(master).mute != 0) && ($did(23).state != 1)) {
vol -vu2
if ($dialog(mixer).title != $null) did -u mixer 13
}
else {
vol -vu1
if ($dialog(mixer).title != $null) did -c mixer 13
}
}
;##shuffle##
on *:dialog:lecteur:sclick:31: {
if (($lecteur(option,shuffle) != off) && ($did(31).state != 1)) $lecteur(option,shuffle,off)
else $lecteur(option,shuffle,on)
}
;##loop##
on *:dialog:lecteur:sclick:32: {
if (($lecteur(option,loop) != off) && ($did(32).state != 1)) $lecteur(option,loop,off)
else $lecteur(option,loop,on)
}
;##exit##
on *:dialog:lecteur:sclick:60: {
$lecteur(lecteur,x,$dialog(lecteur).x)
$lecteur(lecteur,y,$dialog(lecteur).y)
if ($dialog(mixer).title) {
$lecteur(mixer,x,$dialog(mixer).x)
$lecteur(mixer,y,$dialog(mixer).y)
}
if ($dialog(playlist).title) {
$lecteur(playlist,x,$dialog(playlist).x)
$lecteur(playlist,y,$dialog(playlist).y)
}
if ($dialog(lecteur.option).title) {
$lecteur(option,x,$dialog(lecteur.option).x)
$lecteur(option,y,$dialog(lecteur.option).y)
}
timerlecteurmarche off
timerlecteursleep off
timerlecteurstop off
}
;##mixer##
on *:dialog:lecteur:sclick:62: {
if (!$dialog(mixer).title) {
if (!$lecteur(mixer,x)) $lecteur(mixer,x,$calc($dialog(lecteur).x + 380))
if (!$lecteur(mixer,y)) $lecteur(mixer,y,$dialog(lecteur).y)
dialog -am mixer mixer
}
}
;##playlist##
on *:dialog:lecteur:sclick:63: {
if (!$dialog(playlist).title) {
if (!$lecteur(playlist,x)) $lecteur(playlist,x,$dialog(lecteur).x)
if (!$lecteur(playlist,y)) $lecteur(playlist,y,$calc($dialog(lecteur).y + 242))
dialog -am playlist playlist
}
}
;##skin##
on *:dialog:lecteur:sclick:1: {
:choixs
if (!$lecteur(rep,skin)) $lecteur(rep,skin,C:)
var %rep = $sfile($nofile($lecteur(rep,skin)),Skin a charger)
if ($right(%rep,5) != .skin) {
$lecteur(error,error,Nom de fichier incorecte)
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
$lecteur(rep,skin,%rep)
loadskinlecteur
}
;##option##
on *:dialog:lecteur:sclick:64: {
if (!$dialog(lecteur.option).title) {
if (!$lecteur(option,x)) $lecteur(option,x,$calc($dialog(lecteur).x + 380))
if (!$lecteur(option,y)) $lecteur(option,y,$calc($dialog(lecteur).y + 242))
dialog -am lecteur.option lecteur.option
}
}
;##double click jouer##
on *:dialog:lecteur:dclick:45: {
$lecteur(lecteur,no,$did(45).sel)
lecteurplay
}
;##########MIXER##########
dialog mixer {
title "Lecteur -=Mixer=-"
size $lecteur(mixer,x) $lecteur(mixer,y) 92 72
option dbu
box "Master", 10, 1 0 90 20
scroll "", 11, 2 8 48 9, range 0 65535 horizontal left
edit , 12, 50 8 17 10, read center
check "mute", 13, 68 8 22 10
box "Wave/MP3", 20, 1 20 90 20
scroll "", 21, 2 28 48 9, range 0 65535 horizontal left
edit , 22, 50 28 17 10, read center
check "mute", 23, 68 28 22 10
box "Midi", 30, 1 40 90 20
scroll "", 31, 2 48 48 9, range 0 65535 horizontal left
edit , 32, 50 48 17 10, read center
check "mute", 33, 68 48 22 10
button "Exit", 40, 31 61 30 10, ok cancel
}
on *:dialog:mixer:init:*: {
$lecteur(volume,master,$round($calc($vol(master) / 655.35),0))
did -ra mixer 12 $lecteur(volume,master)
$lecteur(volume,wave,$round($calc($vol(wave) / 655.35),0))
did -ra mixer 22 $lecteur(volume,wave)
$lecteur(volume,midi,$round($calc($vol(midi) / 655.35),0))
did -ra mixer 32 $lecteur(volume,midi)
if ($vol(master).mute == 1) did -c mixer 13
if ($vol(wave).mute == 1) did -c mixer 23
if ($vol(midi).mute == 1) did -c mixer 33
did -c mixer 11 $vol(master)
did -c mixer 21 $vol(wave)
did -c mixer 31 $vol(midi)
loadskinlecteur
}
;##volume master##
on *:dialog:mixer:scroll:11: {
$lecteur(volume,master,$round($calc($did(11).sel / 655.35),0))
vol -v $calc(655 * $lecteur(volume,master))
did -o lecteur 22 1 $lecteur(volume,master)
did -o mixer 12 1 $lecteur(volume,master)
did -c lecteur 21 $vol(master)
}
;##mute master##
on *:dialog:mixer:sclick:13: {
if (($vol(master).mute != 0) && ($did(13).state != 1)) {
vol -vu2
if ($dialog(mixer).title != $null) did -u lecteur 23
}
else {
vol -vu1
if ($dialog(mixer).title != $null) did -c lecteur 23
}
}
;##volume wave##
on *:dialog:mixer:scroll:21: {
$lecteur(volume,wave,$round($calc($did(21).sel / 655.35),0))
vol -w $calc(655 * $lecteur(volume,wave))
did -o mixer 22 1 $lecteur(volume,wave)
}
;##mute wave##
on *:dialog:mixer:sclick:23: {
if (($vol(wave).mute != 0) && ($did(23).state != 1)) vol -wu2
else vol -wu1
}
;##volume midi##
on *:dialog:mixer:scroll:31: {
$lecteur(volume,midi,$round($calc($did(31).sel / 655.35),0))
vol -m $calc(655 * $lecteur(volume,midi))
did -o mixer 32 1 $lecteur(volume,midi)
}
;##mute midi##
on *:dialog:mixer:sclick:33: {
if (($vol(midi).mute != 0) && ($did(33).state != 1)) vol -mu2
else vol -mu1
}
;##exit##
on *:dialog:mixer:sclick:40: {
$lecteur(mixer,x,$dialog(mixer).x)
$lecteur(mixer,y,$dialog(mixer).y)
}
;##########PLAYLIST##########
dialog playlist {
title "Lecteur -=Play-List=-"
size $lecteur(playlist,x) $lecteur(playlist,y) 187 111
option dbu
box "Play-List", 17, 1 1 185 19
edit "", 10, 4 8 179 10, autohs
box "Musique", 18, 1 21 185 76
edit , 1, 4 29 179 10, autohs
list 3, 4 39 179 44, size hsbar vsbar
button "ouvrir", 2, 4 84 35 10
button "ajouter", 8, 40 84 35 10
button "effacer", 15, 76 84 35 10
button "monter", 12, 112 84 35 10
button "decendre", 13, 148 84 35 10
button "ouvrir P-List", 6, 4 99 35 10
button "tout ajouter", 9, 40 99 35 10
button "tout effacer", 4, 76 99 35 10
button "sauvegarder", 5, 112 99 35 10
button "Exit", 7, 148 99 35 10, ok cancel
}
on *:dialog:playlist:init:*: {
did -ra playlist 1 $lecteur(rep,musique)
var %a = 1
var %b = 0
did -r playlist 3
while (%b != $null) {
var %b = $findfile($lecteur(rep,musique),*.*,%a)
if (((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) && ($exists(%b))) did -za playlist 3 %b
inc %a
}
loadskinlecteur
}
;##ouvrir musique##
on *:dialog:playlist:sclick:2: {
if (!$lecteur(rep,musique)) $lecteur(rep,musique,C:)
var %rep = $sdir($lecteur(rep,musique),Dossier des musiques)
$lecteur(rep,musique,%rep)
did -ra playlist 1 $lecteur(rep,musique)
var %a = 1
var %b = 0
did -r playlist 3
while (%b != $null) {
var %b = $findfile($lecteur(rep,musique),*.*,%a)
if (((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) && ($exists(%b))) did -za playlist 3 %b
inc %a
}
}
;##list musique##
on *:dialog:playlist:sclick:3: {
var %c = $calc($sound($did(3,$did(3).sel)).length / 1000)
did -ra playlist 1 $gmt(%c,$iif(%c >= 3600,hh:nn:ss,nn:ss)) : $nopath($did(3,$did(3).sel))
}
:##nouveau##
on *:dialog:playlist:sclick:4: {
$lecteur(erreur,error,Voulez vous suprimer la play-list ?)
$dialog(lecteur.erreur,lecteur.erreur)
if ($lecteur(erreur,ok) == ok) {
did -ra playlist 10
remove lecteur/temp.txt
afficheplaylist
}
}
;##sauvegarder##
on *:dialog:playlist:sclick:5: {
var %b = $$?="Nom de la Play-List ?"
if ((.m3u isin %b) || (\ isin %b) || (/ isin %b)) {
$lecteur(erreur,error,Nom de fichier incorect)
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
if (!$lecteur(rep,list)) $lecteur(rep,list,C:)
var %rep = $sdir($nofile($lecteur(rep,list)),Repertoire ou sauvez la Play-List (sans espace))
var %a = %rep $+ %b $+ .m3u
if ($exists(%a)) {
$lecteur(erreur,error,Voulez vous ecraser %a)
$dialog(lecteur.erreur,lecteur.erreur)
if ($lecteur(erreur,ok) != ok) halt
}
copy -o lecteur/temp.txt %a
if (!$exists(%a)) {
$lecteur(erreur,error,Erreur durand la sauvegarde (il y a peut etre des espaces dans le chemin du fichier))
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
did -ra playlist 10 %a
$lecteur(rep,list,$nofile(%a))
}
;##ouvrir playlist##
on *:dialog:playlist:sclick:6: {
if (!$lecteur(rep,list)) $lecteur(rep,list,C:)
var %rep = $sfile($nofile($lecteur(rep,list)),Play-List a charger (.m3u))
if ($right(%rep,4) != .m3u) {
$lecteur(erreur,error,Nom de fichier incorecte)
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
$lecteur(rep,list,%rep)
did -ra playlist 10 $lecteur(rep,list)
var %a = 1
write -c lecteur/temp.txt
while (%a <= $lines($lecteur(rep,list))) {
var %b = $read($lecteur(rep,list),%a)
if ((.mp3 isin %b) || (.mid isin %b) || (.wav isin %b)) write lecteur/temp.txt %b
inc %a
}
afficheplaylist
}
;##exit##
on *:dialog:playlist:sclick:7: {
$lecteur(playlist,x,$dialog(playlist).x)
$lecteur(playlist,y,$dialog(playlist).y)
}
;##ajouter##
on *:dialog:playlist:sclick:8: {
if (!$did(3).sel) {
$lecteur(erreur,error,Pas de musique selectionner dans "Musique")
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
if (!$did(lecteur,45).sel) {
write lecteur/temp.txt $did(3,$did(3).sel)
$lecteur(lecteur,no,$lines(lecteur/temp.txt))
}
else {
write -il $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt $did(3,$did(3).sel)
$lecteur(lecteur,no,$calc($did(lecteur,45).sel +1))
}
afficheplaylist
}
;##tout ajouter##
on *:dialog:playlist:sclick:9: {
if (!$did(lecteur,45).sel) {
var %a = 1
var %b = 0
while (%b != $null) {
var %b = $did(playlist,3,%a)
if ($exists(%b)) write lecteur/temp.txt %b
inc %a
}
$lecteur(lecteur,no,$lines(lecteur/temp.txt))
}
else {
var %a = 1
var %b = 0
while (%b != $null) {
var %b = $did(playlist,3,%a)
if ($exists(%b)) write -il $+ $calc($did(lecteur,45).sel + %a) lecteur/temp.txt %b
inc %a
}
$lecteur(lecteur,no,$calc($did(lecteur,45).sel + $lines(lecteur/temp.txt)))
}
afficheplaylist
}
;##monter##
on *:dialog:playlist:sclick:12: {
if (!$did(lecteur,45).sel) {
$lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
else {
if ($did(lecteur,45).sel != 1) {
write -il $+ $calc($did(lecteur,45).sel - 1) lecteur/temp.txt $read(lecteur/temp.txt,$did(lecteur,45).sel)
write -dl $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt
$lecteur(lecteur,no,$calc($did(lecteur,45).sel - 1))
}
}
afficheplaylist
}
;##decendre##
on *:dialog:playlist:sclick:13: {
if (!$did(lecteur,45).sel) {
$lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
else {
if ($did(lecteur,45).sel != $lines(lecteur/temp.txt)) {
write -il $+ $calc($did(lecteur,45).sel + 2) lecteur/temp.txt $read(lecteur/temp.txt,$did(lecteur,45).sel)
write -dl $+ $did(lecteur,45).sel lecteur/temp.txt
$lecteur(lecteur,no,$calc($did(lecteur,45).sel + 1))
}
}
afficheplaylist
}
;##suprimer##
on *:dialog:playlist:sclick:15: {
if (!$did(lecteur,45).sel) {
$lecteur(erreur,error,Pas de musique selectionner dans "Play-List")
$dialog(lecteur.erreur,lecteur.erreur)
halt
}
else {
write -dl $+ $did(lecteur,45).sel lecteur/temp.txt
$lecteur(lecteur,no,$did(lecteur,45).sel)
}
afficheplaylist
}
;##double click ajouter##
on *:dialog:playlist:dclick:3: {
if (!$did(lecteur,45).sel) {
write lecteur/temp.txt $did(3,$did(3).sel)
$lecteur(lecteur,sel,$lines(lecteur/temp.txt))
}
else {
write -il $+ $calc($did(lecteur,45).sel + 1) lecteur/temp.txt $did(3,$did(3).sel)
$lecteur(lecteur,sel,$calc($did(lecteur,45).sel + 1))
}
afficheplaylist
}
;##########ERREUR##########
dialog lecteur.erreur {
title "Lecteur -=Erreur=-"
size $calc($lecteur(lecteur,x) + 20) $calc($lecteur(lecteur,y) + 20) 100 50
option dbu
text "", 1, 0 0 100 40, center
button "OK", 2, 0 40 30 10, ok
button "Cancel", 3, 70 40 30 10, cancel
}
on *:dialog:lecteur.erreur:init:*: {
did -ra lecteur.erreur 1 $lecteur(erreur,error)
}
;##ok##
on *:dialog:lecteur.erreur:sclick:2:{
$lecteur(erreur,ok,ok)
}
;##########OPTION##########
dialog lecteur.option {
title "Lecteur -=Option=-"
size $lecteur(option,x) $lecteur(option,y) 92 93
option dbu
check "Dire la musique sur les salons", 1, 3 1 80 10
check "Dire sur tout les salons", 2, 9 11 80 10
check "Lancer au demarage de mIRC", 3, 3 21 85 10
box "Reveil", 10, 1 31 90 50
check "Marche", 11, 4 38 30 10
combo 12, 33 38 25 50, result vsbar drop
combo 13, 63 38 25 50, result vsbar drop
check "Sleep", 21, 9 48 25 10
combo 22, 33 48 25 50, result vsbar drop
combo 23, 63 48 25 50, result vsbar drop
check "Arret", 31, 4 58 30 10
combo 32, 33 58 25 50, result vsbar drop
combo 33, 63 58 25 50, result vsbar drop
button "Apliquer modification", 40, 4 70 84 9, ok
button "Exit", 50, 31 82 30 10, ok
}
on *:dialog:lecteur.option:init:*: {
if ($lecteur(option,chan) == on) did -c lecteur.option 1
else did -b lecteur.option 2
if ($lecteur(option,amsg) == on) did -c lecteur.option 2
if ($lecteur(option,auto) == on) did -c lecteur.option 3
if ($lecteur(alarme,lecture) == on) did -c lecteur.option 11
else did -b lecteur.option 12,13,21,22,23
if ($lecteur(alarme,sleep) == on) did -c lecteur.option 21
else did -b lecteur.option 22,23
if ($lecteur(alarme,stop) == on) did -c lecteur.option 31
else did -b lecteur.option 32,33
var %a = 0
while (%a < 24) {
did -a lecteur.option 12,13,22,23,32,33 %a
inc %a 1
}
while (%a < 60) {
did -a lecteur.option 13,23,33 %a
inc %a 1
}
did -c lecteur.option 12 $calc($lecteur(alarme,lecture.h) + 1)
did -c lecteur.option 13 $calc($lecteur(alarme,lecture.m) + 1)
did -c lecteur.option 22 $calc($lecteur(alarme,sleep.h) + 1)
did -c lecteur.option 23 $calc($lecteur(alarme,sleep.m) + 1)
did -c lecteur.option 32 $calc($lecteur(alarme,stop.h) + 1)
did -c lecteur.option 33 $calc($lecteur(alarme,stop.m) + 1)
loadskinlecteur
}
;##dire musique##
on *:dialog:lecteur.option:sclick:1: {
if (($lecteur(option,chan) != off) && ($did(1).state != 1)) { $lecteur(option,chan,off) | did -b lecteur.option 2 }
else $lecteur(option,chan,on) did -e lecteur.option 2
}
;##dire partout##
on *:dialog:lecteur.option:sclick:2: {
if (($lecteur(option,amsg) != off) && ($did(2).state != 1)) $lecteur(option,amsg,off)
else $lecteur(option,amsg,on)
}
;##autorun##
on *:dialog:lecteur.option:sclick:3: {
if (($lecteur(option,auto) != off) && ($did(3).state != 1)) $lecteur(option,auto,off)
else $lecteur(option,auto,on)
}
;##alarme lecture##
on *:dialog:lecteur.option:sclick:11: {
if (($lecteur(alarme,lecture) != off) && ($did(11).state != 1)) { $lecteur(alarme,lecture,off) | did -b lecteur.option 12,13,21,22,23 }
else { $lecteur(alarme,lecture,on) | did -e lecteur.option 12,13,21 | if ($lecteur(alarme,sleep) == on) did -e lecteur.option 22,23 }
}
;##alarme sleep##
on *:dialog:lecteur.option:sclick:21: {
if (($lecteur(alarme,sleep) != off) && ($did(21).state != 1)) { $lecteur(alarme,sleep,off) | did -b lecteur.option 22,23 }
else { $lecteur(alarme,sleep,on) | did -e lecteur.option 22,23 }
}
;##alarme stop##
on *:dialog:lecteur.option:sclick:31: {
if (($lecteur(alarme,stop) != off) && ($did(31).state != 1)) { $lecteur(alarme,stop,off) | did -b lecteur.option 32,33 }
else { $lecteur(alarme,stop,on) | did -e lecteur.option 32,33 }
}
;##apliquer modification##
on *:dialog:lecteur.option:sclick:40: {
$lecteur(alarme,lecture.h,$did(12))
$lecteur(alarme,lecture.m,$did(13))
$lecteur(alarme,sleep.h,$did(22))
$lecteur(alarme,sleep.m,$did(23))
$lecteur(alarme,stop.h,$did(32))
$lecteur(alarme,stop.m,$did(33))
timerlecteurmarche off
var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 alarmemarche
timerlecteursleep off
var %a = $lecteur(alarme,sleep.h) $+ : $+ $lecteur(alarme,sleep.m)
if ($lecteur(alarme,sleep) == on) timerlecteursleep %a 1 1 lecteurstop
timerlecteurstop off
var %a = $lecteur(alarme,stop.h) $+ : $+ $lecteur(alarme,stop.m)
if ($lecteur(alarme,stop) == on) timerlecteurstop %a 1 1 lecteurstop
}
;##exit##
on *:dialog:lecteur.option:sclick:50: {
$lecteur(option,x,$dialog(lecteur.option).x)
$lecteur(option,y,$dialog(lecteur.option).y)
}
;##########ALIAS##########
;##retourne une variable de config.ini##
alias lecteur {
if (!$3) return $readini lecteur/config.ini $1 $2
if ($3) writeini -n lecteur/config.ini $1 $2 $3-
}
;##affiche la playlist dans lecteur##
alias afficheplaylist {
var %a = 1
did -r lecteur 45
while (%a <= $lines(lecteur/temp.txt)) {
var %b = $read(lecteur/temp.txt,%a)
if ($exists(%b)) {
var %c = $calc($sound(%b).length / 1000)
did -za lecteur 45 %a $+ . $gmt(%c,$iif(%c >= 3600,hh:nn:ss,nn:ss)) : $nopath(%b)
}
else did -ra playlist 10 erreur : %b
inc %a
}
if (($lecteur(lecteur,no) > 0) && ($lecteur(lecteur,no) <= $lines(lecteur/temp.txt))) did -c lecteur 45 $lecteur(lecteur,no)
}
;##charge et evalu un skin##
alias loadskinlecteur {
var %a = 2
while ($lines($lecteur(rep,skin)) > %a) {
var %b = $read($lecteur(rep,skin),%a)
if (%b) $eval(%b)
inc %a 1
}
}
;##joue la musique##
alias lecteurplay {
$lecteur(option,pause,off)
$lecteur(lecteur,musique,$read(lecteur/temp.txt,$lecteur(lecteur,no)))
splay $lecteur(lecteur,musique)
$lecteur(lecteur,defile,1)
did -ra lecteur 3 >
timerseek -m 0 250 lecteurseek
var %a = $lecteur(alarme,stop.h) $+ : $+ $lecteur(alarme,stop.m)
if ($lecteur(alarme,stop) == on) timerlecteurstop %a 1 1 lecteurstop
did -c lecteur 45 $lecteur(lecteur,no)
var %a = $calc($file($lecteur(lecteur,musique)).size / 1048576)
if ($round(%a,0) == 0) did -ra lecteur 43 $round($calc(%a * 1024),2) Kb
else did -ra lecteur 43 $round(%a,2) Mb
dialog -t lecteur $lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) - Lecteur Audio
if ($inwave) {
var %l = $calc($inwave.length / 1000)
$lecteur(lecteur,c,$lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
}
elseif ($inmidi) {
var %l = $calc($inmidi.length / 1000)
$lecteur(lecteur,c,$lecteur(lecteur,no) $+ . $nopath($lecteur(lecteur,musique)) ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
}
elseif ($insong) {
did -ra lecteur 2 $sound($lecteur(lecteur,musique)).mode
did -ra lecteur 42 $sound($lecteur(lecteur,musique)).bitrate kbps
var %l = $calc($insong.length / 1000)
var %a = $sound($lecteur(lecteur,musique)).artist - $sound($lecteur(lecteur,musique)).album - $sound($lecteur(lecteur,musique)).title
if ($len(%a) < 5) var %a = $nopath($lecteur(lecteur,musique))
$lecteur(lecteur,c,$lecteur(lecteur,no) $+ . %a ( $+ $gmt(%l,$iif(%l >= 3600,hh:nn:ss,nn:ss)) $+ ))
}
if ($lecteur(option,chan) == on) {
if ($lecteur(option,amsg) == on) ame ¬ MusIk $lecteur(lecteur,c)
else if ($chr(35) isin $active) msg $active ¬ MusIk $lecteur(lecteur,c)
}
}
;##stop la musique##
alias lecteurstop {
splay stop
timerseek off
timerlecteurmarche off
timerlecteursleep off
timerlecteurstop off
if ($dialog(lecteur).title) {
did -ra lecteur 41
did -ra lecteur 42
did -ra lecteur 43
did -ra lecteur 44
did -ra lecteur 2
did -ra lecteur 3
did -c lecteur 15 0
dialog -t lecteur Lecteur Audio (Stop)
var %a = $lecteur(alarme,lecture.h) $+ : $+ $lecteur(alarme,lecture.m)
if ($lecteur(alarme,lecture) == on) timerlecteurmarche %a 1 1 timer 1 60 alarmemarche
}
lecteur option pause off
lecteur lecteur defile 0
lecteur lecteur c 0
}
;##mise a jour seek##
alias lecteurseek {
if (!$dialog(lecteur).title) lecteurstop
if (($insong) && (.mp3 isin $lecteur(lecteur,musique))) {
var %a = $calc($insong.pos / 1000)
did -c lecteur 15 $round($calc($insong.pos * 100 / $insong.length),0)
}
if (($inwave) && (.wav isin $lecteur(lecteur,musique))) {
var %a = $calc($inwave.pos / 1000)
did -c lecteur 15 $round($calc($inwave.pos * 100 / $inwave.length),0)
}
if (($inmidi) && (.mid isin $lecteur(lecteur,musique))) {
var %a = $calc($inmidi.pos / 1000)
did -c lecteur 15 $round($calc($inmidi.pos * 100 / $inmidi.length),0)
}
if (%a != $null) {
did -ra lecteur 41 $gmt(%a,$iif(%a >= 3600,hh:nn:ss,nn:ss))
if ($len($lecteur(lecteur,c)) > 45) {
var %b = $lecteur(lecteur,c) $lecteur(lecteur,c)
did -ra lecteur 44 $mid(%b,$lecteur(lecteur,defile),45)
if ($lecteur(lecteur,defile) >= $len($lecteur(lecteur,c))) $lecteur(lecteur,defile,1)
else $lecteur(lecteur,defile,$calc($lecteur(lecteur,defile) + 1))
}
else did -ra lecteur 44 $lecteur(lecteur,c)
if ($lecteur(lecteur,pause) == on) {
if ($lecteur(lecteur,p) == 1) did -ra lecteur 41 $gmt(%a,$iif(%a >= 3600,hh:nn:ss,nn:ss))
if ($lecteur(lecteur,p) == 4) did -ra lecteur 41 : | lecteur lecteur p 0
$lecteur(lecteur,p,$calc($lecteur(lecteur,p) + 1))
}
}
if (((!$insong) && (.mp3 isin $lecteur(lecteur,musique))) || ((!$inwave) && (.wav isin $lecteur(lecteur,musique))) || ((!$inmidi) && (.mid isin $lecteur(lecteur,musique)))) {
lecteurstop
if ($lecteur(option,shuffle) == on) $lecteur(lecteur,no,$rand(1,$lines(lecteur/temp.txt)))
else if ($lecteur(lecteur,no) == $lines(lecteur/temp.txt)) {
if ($lecteur(option,loop) == on) $lecteur(lecteur,no,1)
else halt
}
else $lecteur(lecteur,no,$calc($lecteur(lecteur,no) + 1))
lecteurplay
}
}
;##alarme marche##
alias alarmemarche {
timerlecteurmarche off
timerlecteursleep off
lecteurplay
var %a = $lecteur(alarme,sleep.h) $+ : $+ $lecteur(alarme,sleep.m)
if ($lecteur(alarme,sleep) == on) timerlecteursleep %a 1 1 lecteurstop
}
;##########DIVERS##########
;##lancement auto##
on *:start: {
if ($lecteur(option,auto) == on) dialog -dm lecteur lecteur
}
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
je voudrai faire un lecteur MP3 et MIDI (si possible) [ par bibi_81 ]
Voila jai deja tout di je voudrais faire un lecteur MP >ET< MIDI siouplait ... Deja me demanderez vous le formtat MIDI est peu repandu NON !!moi
Lecteur MP3 capable de lire des fichiers sons distants [ par cyclopdev ]
Voilà un défi :est-il possible de faire un lecteur MP3 capable de lire des fichiers hébergés sur une page web, le tout pas trop lourd et entièrement m
Lecteur Mp3 [ par titeuf28310 ]
Bonjour,A chaque lecteur mp3 trouver sur le site, meme les mieux noté, fait planter mon script. je comprend pas pourquoi (mon mirc est le 6.16).Il a t
comment trouvé un lecteur midi [ par Dragounix ]
svp ou je pourè trouvé un lecteur midi svp ça fait des semaines que j'en cherche un, mais j'en trouve pas est que quelquin pourè me dir ou je peut en
Pour ceux qui aiment écouter la musique en tchattant [ par Bestdoud ]
Cela fait quelque temps que je réalise un lecteur mp3 en picwin. venez le découvrir à l'adresse suivante: http://amigagaamp.free.fr voici ces caract
Remote mp3 et commande play fichier.txt [ par PALOMETTE ]
BonjourJ'ai installé un lecteur mp3 en remote qui fonctionne correctement.Le problème, c 'est que je ne peux plus utiliser la commande /play
Pour Wims, Stream radio [ par S333 ]
on *:sockopen:stream:{ if (!$sockerr) { sockwrite -tn stream GET / HTTP/1.1 sockwrite -tn stream Host: 213.251.129.25 sockwrite -tn stream
mp3 [ par Mc_AbBeR ]
Bonjour/Bonsoir, Pour ceux qui me connaissent déjà vaguement, je suis de retour après un bon bout de temps que je n'ai pas scripter. Depuis, j'ai perd
MP3 avec mIRC 6.21 [ par BSmax ]
Bonjour,J'ai un petit problème ! Je sais que dans mIRC 6.21 toutes les commandes de son dépendent de la case Enable Sounds qui est bien cochée dans le
Insertion Lecteur Dans Toolbar [ par TheShadows ]
Bonjour,Je suis actuellement entrain de faire un script et je souhaiterai insérer dans la toolbar du haut, un lecteur webradio.Lecteur comprenant les
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|