Mensajes

[sound.vbs]

Por si acaso revisa como queda el sound.vbs al generarse ya que por lo que veo rapidamente, quizás el problema este en donde estan colocados los ^ 

Saludos

Posteamos al mismo tiempo, ups, pero el problema ya lo corregi era cuando le daban click en play sin seleccionar ningun archivo...
y me fije en el sound.vbs y esta bien no hay error en los ^ siempre se ponen asi y funciona..
SaluDOS!!!

Posteo la misma version pero en tamaño grande...

Código (dos) [Seleccionar] Expandir

@echo off
@mode con cols=14 lines=1
title .:Cargando...:.
cls
reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
cls

if exist "screen.size" (goto :Cnt)

echo Existes>"screen.size"
Reg export HKCU\Console Backup.reg>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 1024294 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
start cmd /c %0
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
Reg import Backup.reg>nul
Del /Q "screen.size">nul
Del /Q "Backup.reg">nul
exit

:Cnt
taskkill /F /IM cmplayer3d1.exe>nul 2>&1
del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
del /Q "%tmp%\sound.vbs">nul 2>&1
del /Q "%tmp%\timer.vbs">nul 2>&1
del /Q "%tmp%\file.txt"
del /Q Key.exe>nul 2>&1
del /Q Keyboard.dat>nul 2>&1
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
echo type keyboard.dat^|debug>AddKey.bat
echo ren keyboard.dat key.exe>>AddKey.bat
echo del /Q %%0>>AddKey.bat
start /MIN cmd /c AddKey.bat
copy /Y "%systemroot%\system32\wscript.exe" "%tmp%\cmplayer3d1.exe"
@mode con cols=60 lines=20>nul
title .: Cargando espere... :.
set file=
set comp=                                                               ...
set filec=%file%%comp%
echo wscript.sleep 9000>%tmp%\timer.vbs
cls
echo.
ECHO  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º CMD MEDIA PLAYER V1.1 BY 3D1..                         º
echo  ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ
ECHO  º                                                        º
echo  º BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. º
ECHO  º                                                        º
ECHO  º BIENVENIDO..                                           º
ECHO  º                                                        º
ECHO  º USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION..  º
ECHO  º                                                        º
ECHO  º IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC..  º
ECHO  º                                                        º
ECHO  º PARA SALIR..                                           º
ECHO  º                                                        º
ECHO  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
CSCRIPT /NOLOGO %TMP%\TIMER.VBS
title .: CMD Media Player v1.1 by 3D1 :.
:open
set filec=%file%%comp%
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     ºABRIR º º PLAY º º STOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Play
)
if "%errorlevel%"=="13" (
(
echo Dim DialogBox
echo Dim Txt
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
echo Set Txt = CreateObject("Scripting.FileSystemObject"^)
echo Txt.CreateTextFile("%tmp%\file.txt"^).Write DialogBox.filename
)>%tmp%\comdialog.vbs
cscript /nologo %tmp%\comdialog.vbs
set /p file=<"%tmp%\file.txt"
del /Q %tmp%\comdialog.vbs>nul 2>&1
goto :open
) else (
goto :open
)
:Play
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     º ABRIR º ºPLAY º º STOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Stop
)
if "%errorlevel%"=="75" (
goto :open
)
if "%errorlevel%"=="13" (
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%file%"
echo Sound.Controls.play
echo if err.number = 0 then
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo if len("%file%"^) ^< 2  then
echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 ::."
echo else
echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, ".:: CMD Media Player BY 3D1 ::."
echo end if
echo end if
)>%tmp%\sound.vbs
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs
goto :play
) else (
goto :Play
)
:Stop
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     º ABRIR º º PLAY º ºSTOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="75" (
goto :Play
)
if "%errorlevel%"=="13" (
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
goto :Stop
) else (
goto :Stop
)
:EOFs
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
del /Q "%tmp%\sound.vbs">nul 2>&1
del /Q "%tmp%\timer.vbs">nul 2>&1
del /Q "%tmp%\file.txt">nul 2>&1
del /Q Key.exe>nul
del /Q Keyboard.dat>nul
cls
echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. :.">%tmp%\msg.vbs
cscript /nologo %tmp%\msg.vbs>nul 2>&1
del /Q "%tmp%\msg.vbs">nul 2>&1
exit
Como ven es exactamente la misma pero con la unica diferencia que este tiene un tamaño extragrande, para los que no les gusto el tamaño pequeño del primero...
SaluDOS!!!

Me ha gustado el código, lo que no me gustó fue la espera. Me gustaría que cada vez que colocas abrir un archivo, el directorio inicial sea la última ubicación abierta. Pausar. Y filtrar las salidas esas de los procesos: "Se terminó correctamente".

Código [Seleccionar] Expandir


taskkill /F /IM cmplayer3d1.exe >nul 2>&1


y controlar de alguna manera que si cierras la ventana, no se siga escuchando de fondo la canción.

Bueno, lo arreglo para una version 2, y le agrego mas cosas, olvide todos los filtros, y la manera de que si se cierra la ventana y ce cierre el Script ya se como hacerlo lo pondre tambien en la siguiente version..

ME HA GUSTADO PERO..............
el color se lo puse en 0a
otra cosa me merco error =S
a qui les pongo la imagen=

OK, ya lo solucione ahora mismo cambio el code, olvide el control de errores, y ahora como va..?
y el color les dejo a su eleccion, los Skins estaran disponibles en la version2, vamos que mas quieren que le ponga..
SaluDOS!!!

No.., eso ya se lo que no se ve tambien era lo del echo, etcetc..
bueno no importa ya esta solucionado..
SaluDOS!!!

[CMD MEDIA PLAYER v1.1 by 3D1]

CMD MEDIA PLAYER v1.1 by 3D1

Aqui como dice el title es un reproductor de MP3, Wavs y MIDs en Batch y usando un poco de Scrips VBS..
Usar el CMD MEDIA PLAYER v1 es facil..
La teclas de direccion Izquierda y derecha para seleccionar un boton..
La Tecla Enter para presionar el boton..
y la tecla ESC para salir (Si o si, al pres. la tecla esc borra los archivos tmporales que creo y cierra correctamente..)
Aqui esta el code:

Código (dos) [Seleccionar] Expandir

@echo off
@mode con cols=14 lines=1
title .:Cargando...:.
cls
reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
cls

if exist "screen.size" (goto :Cnt)

echo Existes>"screen.size"
Reg export HKCU\Console Backup.reg>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 524294 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
start cmd /c %0
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
Reg import Backup.reg>nul
Del /Q "screen.size">nul
Del /Q "Backup.reg">nul
exit

:Cnt
taskkill /F /IM cmplayer3d1.exe>nul 2>&1
del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
del /Q "%tmp%\sound.vbs">nul 2>&1
del /Q "%tmp%\timer.vbs">nul 2>&1
del /Q "%tmp%\file.txt"
del /Q Key.exe>nul 2>&1
del /Q Keyboard.dat>nul 2>&1
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
echo type keyboard.dat^|debug>AddKey.bat
echo ren keyboard.dat key.exe>>AddKey.bat
echo del /Q %%0>>AddKey.bat
start /MIN cmd /c AddKey.bat
copy /Y "%systemroot%\system32\wscript.exe" "%tmp%\cmplayer3d1.exe"
@mode con cols=60 lines=20>nul
title .: Cargando espere... :.
set file=
set comp=                                                               ...
set filec=%file%%comp%
echo wscript.sleep 9000>%tmp%\timer.vbs
cls
echo.
ECHO  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º CMD MEDIA PLAYER V1.1 BY 3D1..                         º
echo  ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ
ECHO  º                                                        º
echo  º BY .:3D1:. V1.1 CUALQUIER COMENTARIO O SUGERENCIA ES.. º
ECHO  º                                                        º
ECHO  º BIENVENIDO..                                           º
ECHO  º                                                        º
ECHO  º USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION..  º
ECHO  º                                                        º
ECHO  º IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC..  º
ECHO  º                                                        º
ECHO  º PARA SALIR..                                           º
ECHO  º                                                        º
ECHO  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
CSCRIPT /NOLOGO %TMP%\TIMER.VBS
title .: CMD Media Player v1.1 by 3D1 :.
:open
set filec=%file%%comp%
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     ºABRIR º º PLAY º º STOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Play
)
if "%errorlevel%"=="13" (
(
echo Dim DialogBox
echo Dim Txt
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
echo Set Txt = CreateObject("Scripting.FileSystemObject"^)
echo Txt.CreateTextFile("%tmp%\file.txt"^).Write DialogBox.filename
)>%tmp%\comdialog.vbs
cscript /nologo %tmp%\comdialog.vbs
set /p file=<"%tmp%\file.txt"
del /Q %tmp%\comdialog.vbs>nul 2>&1
goto :open
) else (
goto :open
)
:Play
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     º ABRIR º ºPLAY º º STOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="77" (
goto :Stop
)
if "%errorlevel%"=="75" (
goto :open
)
if "%errorlevel%"=="13" (
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%file%"
echo Sound.Controls.play
echo if err.number = 0 then
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo if len("%file%"^) ^< 2  then
echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, ".:: CMD Media Player BY 3D1 ::."
echo else
echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, ".:: CMD Media Player BY 3D1 ::."
echo end if
echo end if
)>%tmp%\sound.vbs
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
start /MIN %tmp%\cmplayer3d1.exe /nologo %tmp%\sound.vbs
goto :play
) else (
goto :Play
)
:Stop
cls
echo 
echo 
echo 
echo 
echo.
echo     SELECCIONAR ARCHIVO:
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º%filec:~0,45%º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo     ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ» ÉÍÍÍÍÍÍ»
echo     º ABRIR º º PLAY º ºSTOP º
echo     ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍͼ ÈÍÍÍÍÍͼ
key
if "%errorlevel%"=="27" (
goto :EOFs
)
if "%errorlevel%"=="75" (
goto :Play
)
if "%errorlevel%"=="13" (
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
goto :Stop
) else (
goto :Stop
)
:EOFs
taskkill /F /IM cmplayer3d1.exe >nul 2>&1
del /Q "%tmp%\cmplayer3d1.exe">nul 2>&1
del /Q "%tmp%\sound.vbs">nul 2>&1
del /Q "%tmp%\timer.vbs">nul 2>&1
del /Q "%tmp%\file.txt">nul 2>&1
del /Q Key.exe>nul
del /Q Keyboard.dat>nul
cls
echo msgbox "Gracias por usar CMD Media Player v1.1 by .:3D1:.", vbInformation, ".: Mensaje.. :.">%tmp%\msg.vbs
cscript /nologo %tmp%\msg.vbs>nul 2>&1
del /Q "%tmp%\msg.vbs">nul 2>&1
exit
Facil de usar ¿no?..
Ya saben cualquier comentario o sugerencia es bienvenida y asi saco una v2 mejor..
SaluDOS!!!
PD: Espero sus comentarios

Yo uso el de 32 bits tengo el command.com..
la parte que no funciono fue que todo aparecio negro..
no aparecio nada solo todo era negro y lo que escribia eso si se que esta bien y que debia de estar de color negro o invisible..
SaluDOS!!!

Si esta bien pero no funciono bien en mi PC tuve que volver los archivos que modifico otra vez...
http://foro.elhacker.net/scripting/batch_es_posible_hacer_password_char_en_batch_pregunta-t253112.0.html
Era que lo postees ahi ya que se estaba hablando sobre el tema..
en el post del link que puse al final postee yo un ejemplo mucho mas simple, como para que pueda ser modificado rapidamente para todo gusto..
SaluDOS!!!

Para no abrir tantos post sobre el tema lo posteare aqui y asi para el proximo que pregunte los mismo le damos este post de referencia...
OK, ya arregle mi code lo simplifique lo mas que pude con menos lineas..

Código (dos) [Seleccionar] Expandir

echo off
title .:: Usando PasswordChar en una Clave BY 3D1 ::.
del /F /Q /A %tmp%\key.exe >nul 2>&1
del /F /Q /A %tmp%\key.dat >nul 2>&1
del /F /Q /A %tmp%\Key.vbs >nul 2>&1
del /F /Q /A %tmp%\Key.txt >nul 2>&1
(
echo n key.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>%tmp%\key.dat
(
echo echo off
echo cd %tmp%\
echo cls
echo type key.dat^|debug^>NUL 2^>^&1
echo ren key.dat KEY.EXE
echo del %%0
echo exit
)>%tmp%\key.bat
start /MIN %comspec% /c %tmp%\key.bat

cls
set /a numchar=0
set /p passw=<nul
set /p=Escriba su contraseña:<nul
:k
key
if %errorlevel%==13 (
goto :m
)
if %errorlevel%==8 (
if %numchar%==0 (
goto :k
) else (
echo wscript.stdout.write chr(8^) ^& chr(32^) ^& chr(8^) >%tmp%\Key.vbs
cscript //nologo %tmp%\Key.vbs
set /a numchar=%numchar%-1
(
echo set obj = CreateObject("Scripting.filesystemobject"^)
echo x = obj.opentextfile("%tmp%\Key.txt"^).Readline
echo obj.Createtextfile("%tmp%\Key.txt", true^).write mid(x,1,len(x^)-1^)
)>%tmp%\Key.vbs
wscript %tmp%\Key.vbs
)
) else (

set /p"=*"<nul

echo wscript.stdout.write chr(%errorlevel%^) >%tmp%\Key.vbs
cscript //nologo %tmp%\Key.vbs>>%tmp%\Key.txt
set /a numchar=%numchar%+1
)
goto :k
:m
set /p PWD=<%tmp%\Key.txt
del /F /Q /A %tmp%\key.exe >nul 2>&1
del /F /Q /A %tmp%\key.dat >nul 2>&1
del /F /Q /A %tmp%\Key.vbs >nul 2>&1
del /F /Q /A %tmp%\Key.txt >nul 2>&1

:::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: .:: Usando PasswordChar en una Clave ::.    ::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::
:::: Aqui va el resto del code...                ::::
:::: la password se almacena en la variable PWD  ::::
:::: puede cambiar el nombre a la variable PWD   ::::
:::: por otra y no influira en el cambio del code::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::

msg * %PWD%
Como ven al final la password se va a la variable PWD pueden cambiarla si quieren, no arruinara el code...
y en vez de los asteriscos tambien pueden usar otro caracter modificando esta parte del code:

Código [Seleccionar] Expandir

set /p"=*"<nul
solo reemplazando * por otro caracter, puede ser por puntos la carita feliz, signos de interrogacion o alguna letra o numero, igual funciona..
SaluDOS!!!
PD: Espero les guste lo simplifique lo mas que pude para que pueda ser modificable para el gusto de cada uno..

Conozco otra forma de hacerlo también en batch, que es usando batch, debug, ansi.sys, command.com, aunque no lo he probado, pero pienso que debe funcionar. Si a alguien le interesa lo posteo, sino no.

Si sobre eso este post, postea ese code claro que nos interesa, yo igual posteare el mio solo que tiene un pequeño error que le arreglare luego..
SaluDOS!!!

Ok, lo posteo igual otro dia, el mio no hacia CLS no se veia la pantalla parpadeando..
y el code ese se puede simplificar un poco mas..
SaluDOS!!!