Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R] Le vbs ne trouve pas le mp3
Auteur Message
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Bonjour,

Je programme un petit lecteur mp3. Mais losque je lance la musique, le vbs ne trouve pas le mp3.

Voici le code du batch :
Code:

@echo off
title MP3Lite
if not exist Files md Files
cd Files
set choix=0
set count=0
set musique=Non d‚fini
if exist MP3Lite_1.vbs set count=1
if exist 1.txt (
  for /f "tokens=1,*" %%a in (1.txt) do (
    set "musique=%%a"
  )
)

:Menu
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º                MP3Lite                º
echo º                                       º
echo       Num‚ro de musique: %count%
echo       Titre : %musique%
echo º                                       º
echo º      1. Help          2. Quitter      º
echo º                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
choice /C:12psajecd Votre commande :
if %ERRORLEVEL%==1 goto Help
if %ERRORLEVEL%==2 exit
if %ERRORLEVEL%==3 goto Precedent
if %ERRORLEVEL%==4 goto Suivant
if %ERRORLEVEL%==5 goto Arreter
if %ERRORLEVEL%==6 goto Jouer
if %ERRORLEVEL%==7 goto Enregistrer
if %ERRORLEVEL%==8 goto Credits
if %ERRORLEVEL%==9 goto Supprimer

:Help
cls
echo Vous voici dans le batch MP3Lite, par LavaPower.
echo Celui-ci marche avec la commande choice.
echo Il faut donc appuyer sur certaines lettres ou chiffres pour faire une commande.
echo Voici les commandes et leur lettre ou chiffre :
echo.
echo - 1 : Permet d'afficher cette aide
echo - 2 : Permet de quitter le batch
echo - C : Permet d'afficher les cr‚dits
echo - E : Permet d'enregistrer une chanson
echo - D : Permet de supprimer une chanson
echo - J : Permet de jouer la musique affich‚e
echo - A : Permet d'arreter la musique
echo - P : Permet d'afficher la chanson pr‚c‚dente
echo - S : Permet d'afficher la chanson suivante
echo.
echo ATTENTION 'P' et 'S' ne lance pas la musique.
pause>nul
goto Menu

:Enregistrer
cls
set/p nom= Nom de la musique :
set/p ext= Extension de la musique :
if not exist %nom%.%ext% goto ERREUR
Call :PlaySound /music %nom%.%ext%

:ERREUR
echo.
echo Le fichier demand‚ n'existe pas ou il n'est pas dans le dossier
pause>nul
goto Menu

:Jouer
cls
call :PlaySound /play

:Arreter
cls
call :PlaySound /stop

:Supprimer
cls
echo Voulez-vous supprimer %musique% ? (Oui/Non)
set/p choix=
if /i %choix%==Non goto Menu
if /i %choix%==Oui Call :PlaySound /delete
goto Supprimer

:Precedent
cls
set/a counttemp=%count% - 1
if %count% LEQ 0 goto ERREUR2
set %count%=%counttemp%
for /f "tokens=1,*" %%a in (%count%.txt) do (
    set "musique=%%a"
)
goto Menu

:ERREUR2
echo Vous ne pouvez pas aller en arriŠre
pause>nul
goto Menu

:Suivant
cls
set/a counttemp=%count% + 1
if not exist MP3Lite_%counttemp%.vbs goto PasDeSuivant
set %count%=%counttemp%
for /f "tokens=1,*" %%a in (%count%.txt) do (
    set "musique=%%a"
)
goto Menu

:PasDeSuivant
echo Il n'y a pas de musique suivante.
echo Voulez-vous revenir … la premiŠre ? (Oui/Non)
set/p choix=
if /i %choix%==oui (
  set count=1
  for /f "tokens=1,*" %%a in (1.txt) do (
    set "musique=%%a"
  )
)
if /i %choix%==non goto Menu
goto PasDeSuivant

:PlaySound
if /i "%1"=="/stop" goto stop
if /i "%1"=="/music" goto music
if /i "%1"=="/play" goto play
if /i "%1"=="/delete" goto delete
if /i "%1"=="" exit /b 2

:music
cls
if not exist %2 exit /b 1
for /L %%A in (1,1,200) do (
 if not exist MP3Lite_%%A.vbs (
  set num=%%A
  goto Suite
 )
)

:Suite
set file-vbs=MP3Lite_%num%.vbs
if exist %file% goto flux
(echo %nom%) > %num%.txt
(echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
echo Sound.URL = %2
echo Sound.Controls.play
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >%file-vbs%
echo La musique '%nom%' a ‚t‚ enregistr‚e dans le fichier %file-vbs%
pause>nul
goto Menu

:play
cls
TASKKILL /F /IM "WScript.exe" /T >nul 2>nul
tskill "WScript.exe" myapp /a >nul 2>nul
start "" MP3Lite_%count%.vbs
echo La musique %musique% a ‚t‚ lanc‚e
pause>nul
goto Menu

:stop
cls
TASKKILL /F /IM "WScript.exe" /T >nul 2>nul
tskill "WScript.exe" myapp /a >nul 2>nul
echo La musique a ‚t‚ stopp‚ !
pause>nul
goto Menu

:delete
cls
del MP3Lite_%count%.vbs
echo La musique %musique% a ‚t‚ supprim‚e !
pause>nul
goto Menu

:Credits
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º             By LavaPower              º
echo º                                       º
echo º    Membre du forum : batch.xoo.it     º
echo º  Remercie ces membres pour leur aide  º
echo º                                       º
echo º     email : lavapower84@gmail.com     º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
pause>nul
goto Menu


Voici le code du vbs :
Code:

Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = Changer.mp3
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000


Voici l'erreur produite :
Code:

Script : D:\Alexis\Programme\Programme utilitaire\MP3 lite\Files\MP3Lite_1.vbs
Ligne : 2
Caract. : 1
Erreur : Objet requis: 'Changer'
Code : 800A01A8
Source : Erreur d'exécution Microsoft VBScript


PS : Le mp3 est dans le meme dossier que le vbs

Merci de vouloir m'aider !



Dernière édition par LavaPower le Mer 2 Sep 2015 - 14:07; édité 1 fois

______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message . 
Essaye "Changer.mp3" au lieu de Changer.mp3 Wink




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Bonjour ,

Dans le vbs executer par le batch ,met le meme répertoire en partant du batch

exemple :

la musique est executer dans le dossier "musique"

alors le vbs est

Code:
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = musique\Changer.mp3
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000


Voila , si tu comprends pas encore , tu peut me le dire , je te ferais un test d'est que j'ai un PC

Cordialement , le magnifique Anto2112 xD




______________________________________________________
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Anto2112 a écrit:
Bonjour ,

Dans le vbs executer par le batch ,met le meme répertoire en partant du batch

exemple :

la musique est executer dans le dossier "musique"

alors le vbs est

Code:
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = musique\Changer.mp3
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000


Voila , si tu comprends pas encore , tu peut me le dire , je te ferais un test d'est que j'ai un PC

Cordialement , le magnifique Anto2112 xD

Il a dit que son mp3 était dans la même dossier que le vbs ^^




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
et bah

Si tu execute un vbs a partir du batch et que tumet le vbs dans un autre dossier , le vbs doit garder le meme répertoire que le batch

( att magicdos connais pas ce principe ) xD

Cordialement , Le helper de merde , Anto2112 xD




______________________________________________________
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Anto2112 a écrit:
et bah

Si tu execute un vbs a partir du batch et que tumet le vbs dans un autre dossier , le vbs doit garder le meme répertoire que le batch

( att magicdos connais pas ce principe ) xD

Cordialement , Le helper de merde , Anto2112 xD

Ben si je connais, mais ce n'est pas le sujet puisque ses fichiers sont dans le même répertoire Rolling Eyes




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Bon aupire si tu veut que je te fasse un prog dès que j'ai le temps , tu verras que c'est sa , ( j'en suis sur a 99,9999999999999999999999999999999999999999999 % )

Cordialement , l'emmerdeur qui veut prouver son avis et aidez le posteur , Anto2112




______________________________________________________
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Anto2112 a écrit:
Bon aupire si tu veut que je te fasse un prog dès que j'ai le temps , tu verras que c'est sa , ( j'en suis sur a 99,9999999999999999999999999999999999999999999 % )

Cordialement , l'emmerdeur qui veut prouver son avis et aidez le posteur , Anto2112

Anto... Je sais que ce que tu dis est vrai, mais ça n'a pas de rapport avec le sujet Neutral

LavaPower a écrit:
PS : Le mp3 est dans le meme dossier que le vbs


Pas besoin de spécifier un autre répertoire si les fichiers sont dans le même dossier Wink




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message Re: Le vbs ne trouve pas le mp3 
LavaPower a écrit:
PS : Le mp3 est dans le meme dossier que le vbs


Esque le fichier vbs et mp3 est dans le meme répertoire que le batch??




______________________________________________________
Visiter le site web du posteur Skype
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Bonjour vous deux,

Le dossier n'était pas le problème et c'est bien les guillemets qu'il manquait.

Merci quand même à vous deux.




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Répondre en citant
Message [R] Le vbs ne trouve pas le mp3 
Crying or Very sad J'ai eu 0,111111111 % qui pourrais dire le contraire

GG alors MagicDos

Moi je vais prendre une corde xD

Mort de Rire

Bye et de rien

Cordialement , le help qui ne sert a rien , Anto2112




______________________________________________________
Visiter le site web du posteur Skype
Message [R] Le vbs ne trouve pas le mp3 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch