Temas

  Hola! Llevaba un rato curioseando en el BATCH, y me encontré con 2 Códigos, Que quiero subir al foro para que ustedes mismos lo prueben xd. Obviamente los modifiqué para que fueran más fáciles de usar, Aunque no tan fáciles de entender.

 Ponganle los nombres que se les indica abajo, para que funcionen correctamente, Ya que los códigos se re-escriben a si mismos.

1. Folder Locker

Al archivo .bat de este codigo, Debe ser llamado "Fkey.bat" Para que funcione correctamente.

Código [Seleccionar] Expandir

::3214789852:: "privado"
@ECHO OFF
@mode con cols=60 lines=20
color 0e
<"FKey.bat" set/p "linea="
set contador=0
for %%a in (%linea%) do (
set a=%%a
call :lol
)

set clave=%clave:~2,999999%
set clave=%clave:~-999999,-2%
set carpeta=%carpeta:~1,999999%
set carpeta=%carpeta:~-999999,-1%

title Folder Privado
if EXIST "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" goto UNLOCK
if NOT EXIST "%carpeta%" goto MDLOCKER
:CONFIRM
cls
echo elige una opcion
echo.
echo B [Bloquear]
echo D [Cambiar Clave]
echo F [Cambiar Carpeta]
echo S [Salir]
echo.
echo.
choice /c bsdf /n >nul
if %errorlevel%==1 goto LOCK
if %errorlevel%==2 exit
if %errorlevel%==3 goto CP
if %errorlevel%==4 goto CF
echo Invalid choice.
goto CONFIRM
:LOCK
ren "%carpeta%" "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
attrib +h +s "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
echo Folder locked
goto unlock
:UNLOCK
cls
echo Escribe la contrase¤a para desbloquear carpeta
set/p "pass=>"
if NOT %pass%==%clave% goto FAIL
attrib -h -s "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
ren "Control Panel.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" "%carpeta%"
echo Folder Unlocked successfully
goto confirm
:FAIL
echo Clave invalida
goto unlock
:MDLOCKER
md "%carpeta%"
goto confirm
:cp
cls
echo.
echo Seguro que quieres cambiar la clave?
echo.
echo [S/N]
echo.
choice /c sn /n >nul
if %errorlevel%==1 (goto cp_) else (goto confirm)
:cp_
cls
echo.
echo  Clave Antigua: %clave%
echo.
set/p clave=Nueva Clave :
(
echo w
echo 1
echo ::%clave%:: "%carpeta%"
echo e ) | edlin /b Fkey.bat
del FKEY.BAK
ren "FKEY.bat" "FKey.bat"
goto confirm

:lol
set/a contador+=1
if %contador%==1 (set clave=%a%)
if %contador%==2 (set carpeta=%a%)
goto :EOF

:cf
cls
echo.
echo Seguro que quieres cambiar la carpeta?
echo.
echo [S/N]
echo.
choice /c sn /n >nul
if %errorlevel%==1 (goto cf_) else (goto confirm)

:cf_
cls
echo.
echo  Carpeta Antigua: %carpeta%
echo.
set/p carpeta=Nueva Carpeta :
(
echo w
echo 1
echo ::%clave%:: "%carpeta%"
echo e ) | edlin /b Fkey.bat
del FKEY.BAK
ren "FKEY.bat" "FKey.bat"
goto confirm


Bloquea carpetas Con el nombre que el usuario seleccionó, Y la clave también indicada por el usuario.



                     ASCII ART

Este Otro code si les recomiendo que no lo cierren mientras se ejecuta, Ya que cambia un poco las Claves del registro para que funcione, Aunque no se alarmen, No les quemará el computador xd

PD: El ASCII art es de "TOGA" de MHA, Creado por mi con un programa. Si quieren saber el nombre del programa solamente pregunten  

PD2: Este Código Requiere 3.bat para que funcione:

              Size.bat :

Código [Seleccionar] Expandir

@echo off
title .:: Change Size by EddyW (3D1) ::.

set s=%3

if /i %s%==l (goto LucidaF)
if /i %s%==t (goto TerminalF)
pause>nul
cls
exit
:LucidaF
Reg export HKCU\Console BackupScreen.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 "Lucida Console" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 54 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d %200000 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 400 /f>nul
start /max cmd /c %1>nul
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 import BackupScreen.reg>nul
Del /Q BackupScreen.reg>nul
cls
exit
:TerminalF
Reg export HKCU\Console BackupScreen.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 %293220 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 400 /f>nul
start /max cmd /c %1>nul
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 import BackupScreen.reg>nul
Del /Q BackupScreen.reg>nul
cls
exit

Este "Size.bat", Inicia otro .bat con el tipo y tamaño de letra especificado por Otro archivo cuando es llamado. Es una función.


      INICIADOR.bat

Código [Seleccionar] Expandir

@echo off
set ruta=toga.txt
Start /MIN size.bat modulo.bat 1 L
echo %ruta%>modulo

Este codigo llama a "Size.bat" para iniciarlo con las letras predefinidas, Al modulo.bat


     MODULO.bat

Código [Seleccionar] Expandir

@echo off
@mode con cols=1000 lines=30000
color 70
<"modulo" set/p "ruta="
title Imagen
del modulo
cls
type "%ruta%"
pause>nul

Este lo llamé modulo porque no sirve para casi nada, Aunque no es un modulo xd (Le puse ese nombre porque si lol), Este codigo lo que hace es leer el ASCII ART.



Muy bien, Esos son los 3 códigos que se necesitan para iniciar el Arte ASCII, Pero, Ahora les voy a regalar un arte ASCII que es uno de mis favoritos <3 :

El ASCII art Lo guardan Como "Toga.txt" E inician el "INICIADOR.bat" Y listo xd

El ascii Art lo pasé a Pastebin ya que es demasiado grande para el foro lol, Aqui el link:

https://pastebin.com/u928xHs4

 Hola, Hace poco me encontré con este Caracter "|", Y quisiera saber exactamente para que se usa; Quiero decir, que sé que se puede utilizar en cosas como (EDLIN), Pero además de eso para que sirve? Cual es la función de ello?

Pregunto por aquí, Porque se que alguien en el Foro debe saber y porque en Internet no encuentro nada referente al tema.

Gracias de antemano.

 Hola chicos, Hace un rato estaba revizando las Funciones de batch y Encontré que se puede hacer un Pequeño BIP en la CMD; PERO, Si se le puede hacer en la cmd (Abriendo la cmd.exe y pulsando ctrl+g) Se supone que tambien se puede hacer con un comando no?

Quisiera saber como sacar Ese simbolo que parece un punto pero ubicado en el centro, Que no se encuentra en el Mapa de caracteres, Alguien Sabe como sacarlo?  

PD:Encontré en una Pagina ese Simbolo, Pero quisiera saber Como sacarlo por uno mismo?, Este es el que Conseguí:(  )

Muy buenas chicos, Hace rato estaba haciendo un cronometro, Pero quiero ponerle que guarde el tiempo en un archivo txt, y Cuando vuelva a abrir el cronometro me pregunte si quiero que inicie el tiempo desde 0, o cargue el tiempo que ya hay en el cronometro guardado.

Bien, aqui les dejo el codigo, Y diganme que puedo hacer y que se le podría colocar  :

Código [Seleccionar] Expandir

@echo off
Title Cronometro By Mudereded401
cls
color 0b
@mode con cols=26 lines=10

set s=0
set m=0
set h=0

:go
@mode con cols=28 lines=10
cls
echo.
echo Pulsa cualquier tecla
echo Para iniciar el
echo Cronometro.
echo.
echo Para pausarlo, Simplemente
echo Utiliza (CTRL + C)
echo.
pause>nul

@mode con cols=17 lines=5

set titulo=Cronometro

:bucle
cls
title %titulo%

if %s% GTR 0 color 0a
if %s% GTR 9 color 0b
if %s% GTR 19 color 09
if %s% GTR 29 color 0d
if %s% GTR 39 color 0c
if %s% GTR 49 color 0e


if %s% LSS 10 (set a=:0) else (set a=:)
if %s%==60 (
set s=0
set/a m+=1)

if %m% LSS 10 (set b=:0) else (set b=:)
if %m%==60 (
set m=0
echo 
set/a h+=1)

if %h% LSS 10 (set "c=0") else (set "c= ")

echo.
echo °±²%titulo%²±°
echo.
echo     %c%%h%%b%%m%%a%%s%
timeout/t 1 /nobreak>nul

set/a s+=1

goto bucle

Y me dicen como puedo sacar este simbolo denuevo ""?, Lo encontre en una pagina, y hace que cuando se ejecute, suene un sonidito en la cmd. Respondan pls y gracias 

 Buenas!

Hace tiempo estaba buscando la forma de crear un historial de tiempo con Batch Para cada dia, Pero no pude hacerlo  .

Queria que a cada segundo que pasa en el cronometro, Lo registre dentro de un archivo de texto pero que no se multiplique uno bajo el otro (Que es por eso que no pude), Alguien me dice como puedo implementarselo a mi cronometro?.

Aqui abajo les dejo el script y me dicen que tal está. 

------Inicio Del Codigo-------------------------------------------------------------------------

@echo off
@mode con cols=30 lines=10
cls
color 0a

set/a s=1

echo.
echo Para Pausar El Cronometro
echo Utiliza (Ctrl+C)
echo.
echo Pulsa cualquier tecla para
echo iniciar
pause>nul

:inicio
cls
echo.
echo       °±² Cronometro ²±°
echo.
echo Segundos : %s%
echo Minutos : %m%
echo Horas : %h%
timeout/t 1 /nobreak>nul
set/a s+=1
set/a m=s
set/a m/=60
set/a h=m
set/a h/=60
goto inicio

------Fin del Codigo-----------------------------------------------------------------------------

Si alguien sabe porfa diganme en los comentarios