Voici un bat ameliorer pour stan

Fermé
wiwi60 - 4 juin 2009 à 04:30
 nashbang78 - 4 juin 2009 à 05:02
Bonjour,

recuperer stan ripper puis faite une recherche sur xxmklink si vous voulez creer des liens
le probleme de copie multiple est regle dans ce bat
@echo off

:Start
@echo off
cls
dir "%homepath%\Local Settings\Temp\fla*.tmp" /O:-d /B>fla.txt
for /f "tokens=*" %%i in ('type "FLA.txt"') do (
         set v=%%i
         goto end
         )
 :end
 pause
 echo %v%
 pause
goto menu

:menu

cls
echo. ----------------------------------------------------
echo.  Bienvenue dans le programme de recuperation de Wiwi
echo. ----------------------------------------------------
echo. Bonjour %USERNAME%
echo. Votre disque est %HOMEDRIVE%
echo. ----------------------------------------------------
if exist %homedrive%\Multimedia echo. "Multimedia" est deja dans la liste de vos dossiers
if not exist %homedrive%\Multimedia\ md "%homedrive%\multimedia" 
echo. ----------------------------------------------------
echo.
echo. Selectionner le type de votre fichier à Sauvegarder:
echo. ----------------------------------------------------
echo. 1_ Musique
echo. 2_ Films
echo. 3_ Serie
echo. 4_ Autres Fichiers Multimedia %type%
echo. q_ Quitter
echo. ----------------------------------------------------
echo.
set choix=
set /p choix=Que voulez vous faire ?
if "%choix%"=="" goto Mchoix
if %choix%==1 set Type=Musique
if %choix%==2 set type=Films
if %choix%==3 set Type=Serie
if %choix%==4 goto Prog4
if %choix%==q goto exit
if %choix%==1 goto prog1
if %choix%==2 goto prog2
if %Choix%==3 goto prog3

:Mchoix
echo. Le choix %choix% n'est pas valide.
echo.
pause
goto start 

:exit
echo. Sortie du programme de lancement.
echo. Appuyer sur une touche pour quitter.
pause>nul
goto fin

:prog1
if not exist %homedrive%\Multimedia\%type% md "%homedrive%\multimedia\%type%"
if exist %homedrive%\Multimedia\%type% echo. "%type%" est deja dans la liste de vos dossiers
tree %homedrive%\multimedia\%type% >"%homedrive%\Multimedia\%type%.txt"
type %homedrive%\Multimedia\%type%.txt
@echo off
set artiste=
set /p artiste=Nom de l'artiste :
set Titre=
set /p Titre=Titre de la chanson :
if not exist "%homedrive%\Multimedia\%type%\%artiste%" md "%homedrive%\multimedia\%type%\%artiste%"
echo %V%
echo %homepath%
echo %TMP%
hobocopy %TMP% "%homedrive%\stan_deezer_ripper" %v%
cd %homedrive%\stan_deezer_ripper\
ren *.tmp "%artiste%-%titre%.tmp"
ren *.tmp *.flv
Flv2Mp3 "%homedrive%\stan_deezer_ripper" "*.flv"
move %homedrive%\stan_deezer_ripper\*.mp3 "%homedrive%\Multimedia\%type%\%artiste%\"
cd %HOMEdrive%\%HOMEPATH%\bureau
xxmklink "%artiste% %titre%" %%homedrive%%\Multimedia\%%type%%\%%artiste%%\%%artiste%-%titre%%.mp3 "" c:\ /q

cd %homedrive%\winxp\
rd %homedrive%\stan_deezer_ripper /q /s

PAuse
echo. Appuyer sur une touche pour continuer.
pause>nul

goto start

:prog2
if not exist %homedrive%\Multimedia\%type% md "%homedrive%\multimedia\%type%"
set Films=
set /p Films=Nom du Films :
md "%homedrive%\Multimedia\%type%\%Films%\"
hobocopy %TMP% "%homedrive%\stan_deezer_ripper" %v%
cd "%homedrive%\stan_deezer_ripper\"
ren *.tmp "%films%.tmp"
ren *.tmp *.avi
move "%homedrive%\stan_deezer_ripper\*.avi" "%homedrive%\Multimedia\%type%\%films%\"
cd %homedrive%\winxp\
rd %homedrive%\stan_deezer_ripper /q /s 
echo. Appuyer sur une touche pour continuer.
pause>nul
goto start

:prog3
if not exist %homedrive%\Multimedia\%type% md "%homedrive%\multimedia\%type%"
set serie=
set /p Serie=Nom De la Serie :
set Saison=
set /p Saison=Quel saison :
set Episode=
set /p Episode=Numero de l'episode :
md "%homedrive%\Multimedia\%type%\%Serie%\%saison%"
hobocopy "%homepath%\Local Settings\Temp" "%homedrive%\stan_deezer_ripper" fla*.tmp
cd "%homedrive%\stan_deezer_ripper\"
ren *.tmp record.tmp"
ren *.tmp *.avi
ren *.avi "%Serie% S%Saison% E%Episode%.avi"
move "%homedrive%\stan_deezer_ripper\*.avi" "%homedrive%\Multimedia\%type%\%serie%\%saison%"
cd %homedrive%\winxp\
rd %homedrive%\stan_deezer_ripper /q /s
echo. Lancement de prog3
echo. prog3 fini
echo. Appuyer sur une touche pour continuer.
pause>nul
goto start

:Prog4
cls
echo. ----------------------------------------------------
echo.  Bienvenue dans le programme de recuperation de Wiwi
echo. ----------------------------------------------------
echo. Bonjour %USERNAME%
echo. Votre disque est %HOMEDRIVE%
set Type=
set /p Type=Type Voulu? :
if %Type%==Musique goto menu
if %Type%==Films goto menu
if %Type%==Serie goto Menu
goto start2
:start2
@echo off
cls
dir "%homepath%\Local Settings\Temp\fla*.tmp" /O:-d /B>fla.txt
for /f "tokens=*" %%i in ('type "FLA.txt"') do (
         set v=%%i
         goto end
         )
 :end
 pause
 echo %v%
 pause
goto menu2

:menu2
cls
echo. ----------------------------------------------------
echo.  Bienvenue dans le programme de recuperation de Wiwi
echo. ----------------------------------------------------
echo. Bonjour %USERNAME%
echo. Votre disque est %HOMEDRIVE%
echo.
echo. C'est Plutot du :
echo. 1_ Son
echo. 2_ Video
echo. q_ Quitter
echo.
set choix=
set /p choix=Que voulez vous faire ?
if "%choix%"=="" goto Mchoix
if %choix%==4 goto Prog4
if %choix%==q goto exit
if %choix%==1 goto prog1
if %choix%==2 goto prog2

:fin


Voila enregister le sur le bureau dans un fichier txt puis renommer en .bat

Wiwi60
A voir également:

1 réponse

Désolé rien à voir mais t'es brancher sur ton pc à cette heure...
aide moi stp!!!!
Bonjour,
je débute en informatique et je me suis dégotté la configuration que voici pour 339e+15efdp :

-disque dur 1 : ssd patriot warp 32go 2.5" en sata 2 - Lecture jusqu'à 175 Mo/s - Ecriture jusqu'a 100 Mo/s - temps de réponse de l'ordre de 0.1ms.

-disque dur 1 : hitachi 1000go sata2 en 7200rpm avec un cache de 32mo.

-processeur : intel e7200 : Gravé en 45 nanomètres et profitant d'un FSB à 1066 MHz ainsi que d'une mémoire cache de 3 Mo

-ddr2 : 4go je sais plus exactement les caractéristiques...

-ventirad : artic cooling

-boitier : Top Elite Boitier PC CORONA avec alimentation de 550 watts

-carte graphique : ati hd4850, la version gainward golden sample

-graveur : LG GH22NS30 en sata

-carte mère : asrock p45ts

Ma question c'est : vaut-elle le coup pour son prix neuve?

Je vous remercie d'avance tous ceux qui m'accorderont du temps pour m'éclairer !!!
0