últimos mensajes de: EddyW

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19

161	Programación / Scripting / Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)	en: 29 Abril 2009, 16:22 pm
Cita de: Novlucker en 29 Abril 2009, 16:17 pm 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!!!

162

Programación / Scripting / Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)

en: 29 Abril 2009, 16:20 pm

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

Código

@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!!!

163	Programación / Scripting / Re: [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)	en: 29 Abril 2009, 16:13 pm
Cita de: 0x0309 en 29 Abril 2009, 07:15 am 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: 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.. Cita de: Martin-Ph03n1X en 29 Abril 2009, 08:15 am 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!!!

164	Programación / Scripting / Re: [BATCH]Funcion Password	en: 29 Abril 2009, 05:57 am
No.., eso ya se lo que no se ve tambien era lo del echo, etcetc.. bueno no importa ya esta solucionado.. SaluDOS!!!

165

Programación / Scripting / [Batch] CMD MEDIA PLAYER v1.1 by 3D1 (Reproductor de MP3, Wav, Mid)

en: 29 Abril 2009, 05:39 am

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

@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

166	Programación / Scripting / Re: [BATCH]Funcion Password	en: 29 Abril 2009, 05:32 am
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!!!

167	Programación / Scripting / Re: [BATCH]Funcion Password	en: 29 Abril 2009, 04:35 am
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!!!

168

Programación / Scripting / Re: (Batch) Es Posible hacer password char en batch? (Pregunta)

en: 29 Abril 2009, 03:41 am

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

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:

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..

169	Programación / Scripting / Re: (Batch) Es Posible hacer password char en batch? (Pregunta)	en: 28 Abril 2009, 19:11 pm
Cita de: 0x0309 en 28 Abril 2009, 13:07 pm 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!!!

170	Programación / Scripting / Re: (Batch) Es Posible hacer password char en batch? (Pregunta)	en: 28 Abril 2009, 07:12 am
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!!!

Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19