Programas en Batch

[Warkanlock]

Bueno amigos mios, como siempre...Vengo con cosas nuevas, en este caso, Programacion en Batch...Dejo los codigos abajo y sirven, estan echos por mi a los 10 años...

Bueno brother, como no aportaba nada a la comunidad, decidi aportar estos 3 codigos de programa que cree en bacht, hace mas o menos 1 año...
Los codigos fuente y el link estara junto con la descripción.

Archivador de Texto:
Source Code:

@echo off
title Creador de Textos By Warkanlock
color 30
:menu
echo ==============
echo - -
echo - W-K-L -
echo - -
echo ==============
echo Todo lo que escribas se guardara en C:
echo.
pause
cls
:inicio
set/p pre=Quieres entrar en el menu Si/No:
if %pre%==si goto si
if %pre%==no goto no
:si
echo.
echo Entraste en el creador de txt de Warkanlock
echo El archivo se creara en la carpeta del programa
set/p word=Escribe lo que desas guardar:
echo.
set/p lug=Escribe que nombre quieres que tenga:
echo.
set/p exe=Escribe que extencion le quieres dar(bat o txt)
echo %word% se guardara correctamente con el nombre %lug%.%exe%
echo %word% >nul >%lug%.%exe%
echo Presiona enter para crearlo
pause>nul
echo Archivo Creado
echo.
echo Volveras al menu presionando Enter.
pause>nul
cls
goto inicio
:no
echo.
echo Has elegido la opcion no
echo Tu programa se cerrara
echo Muchas grasias por usar este programa
echo Creado By Warkanlock
pause
exit

Visualizador de Memoria y IP:
Source Code:

@echo off
color 30
title Warkanlock Interfaz de programas..
echo ==================================
echo = =
echo = Warkanlock Production =
echo = =
echo ==================================
:inicio
echo.
echo Hola, estas en una interfaz de programas By warkanlock.
echo.
pause
cls
echo.
set/p nom= Primero anota como te llamas:
echo.
echo Hola %nom%. Pulsa una tecla para acceder al menu.
echo.
pause>nul
cls
:menu
echo.
echo Estas dentro de la interfaz.
echo.
set/p deseo=Anota Ip: para ver tu Ip - Memoria: para ver tu Memoria - Salir: Para salir :
if %deseo%==ip goto ip
if %deseo%==memoria goto memoria
if %deseo%==reiniciar goto inicio
if %deseo%==salir (goto salir) else echo. && echo mal && goto menu
:ip
echo.
echo Para ver tu Ip Presiona una tecla.
pause>nul
ipconfig
echo.
echo.
echo Pulsa una tecla para ir al Menu...
pause>nul
cls
goto menu
:memoria
echo.
echo Tu memoria esta siendo analizada
echo Presiona una tecla para ver tu memoria
echo.
pause>nul
echo.
echo.
mem
echo.
echo.
echo pulsa una tecla para ir al Menu
pause>nul
cls
goto menu
:salir
cls
echo.
echo Estabas usando un programa de Warkanlock Grasias
echo.
echo pulsa una tecla para salir
pause>nul
exit

Calculadora
Source Code:

@echo off
color b9
title ..::Calculadora-By-Warkanlock::..
:calculadora
cls
echo.
echo Los signos para hacer las operaciones son:
echo.
echo Suma +
echo Resta -
echo Multiplicacion *
echo Division /
echo.
echo Ingrese la operacion.
echo.
echo Al finalizar presione enter.
echo.
set /p cuenta=Ingresar cuenta:
set /a cuentaterminada=%cuenta%
echo.
echo El resultado es: %cuentaterminada%
echo.
echo.
echo Presione 0 para hacer otra cuenta.
echo Presione 9 para salir
echo.
set /p numero=Ingrese la opcion deseada y luego presione enter:
if %numero%==0 goto calculadora
if %numero%==9 goto fin
:fin
cls
echo ...
echo Programa by Warkanlock
echo ...
echo Presione enter para salir...
pause>nul
exit

Ejecutar de Programas -Basíco-:
Source Code:

@echo off
title ..::Ejecutador-De-Aplicaciones::..
color 9
:inicio
echo.
echo =================
echo - -
echo - w-K-L -
echo - -
echo =================
echo.
pause
cls
:menu
echo.
echo Estas en el menu de aplicaciones by warkanlock.
echo.
echo Los programas que estan dentro de la aplicacion son...
echo CMD
echo PAINT
echo BLock de Notas
echo.
set/p deseo=Escribe Que aplicacion quieres ejcutar-(Ayuda para solocitar ayuda) :
if %deseo%==ayuda goto ayuda
if %deseo%==cmd goto cmd
if %deseo%==block goto block
if %deseo%==paint goto paint
if %deseo%==salir (goto salir) else echo. && echo mal && goto menu
:ayuda
echo.
echo Estas en el servicio de ayuda.
echo.
echo Lo que deves hacer es escribir el nombre de el programa:
echo Paint para abrir paint
echo Block para abrir el block de notas
echo cmd para abrir el cmd
echo.
echo Pulsa una tecla para ir al menu
pause>nul
goto menu
:cmd
echo.
echo Presiona enter para ejecutar el CMD
echo.
pause>nul
start %systemroot%\system32\cmd.exe
pause>nul
cls
goto menu
:block
echo.
echo Presiona enter para ejecutar el block de notas
echo.
pause>nul
start %SystemRoot%\system32\notepad.exe
echo.
echo Pulsa una tecla para ir al menu
pause>nul
cls
goto menu
aint
echo.
echo Presiona enter para ejecutar Paint
pause>nul
start %SystemRoot%\system32\mspaint.exe
echo.
echo Pulsa una tecla para ir al menu
pause>nul
cls
goto menu
:salir
echo.
echo --Grasias por usar mi programa--
echo Presiona enter para sair
pause>nul
exit

Link de Descarga Programas de Muestra

http://www.4shared.com/file/d3Fo-2KQ/Pack_Programas.html

Ejecutar de Programas -Avanzado-:
NOTA: Este programa no viene en el pack del link de arriba, lo separe de los otros
Source Code:

@echo off
title Warkanlock Producciones
color 30
:menu
echo ==============
echo - -
echo - W-K-L -
echo - -
echo ==============
echo.
echo Estas por entrar el configuracion de nuestro programa
echo ayuda para ver las instrucciones del programa
:menu
set/p pre=Avanzada/Basica:
if %pre%==ava goto ava
if %pre%==ba goto ba
if %pre%==ayuda goto ayuda
:ayuda
echo Para poder abrir los 2 tipos de comandos
echo Escriba Ava = avanzada
echo Escriba Ba = basica
cls
goto menu
:ava
echo.
echo A continuacion escribe la ruta que necesitas abrir
set/p word=Escribe la ruta original del archivo:
start %word%
echo.
cls
goto menu
:ba
echo.
echo Selecciona tu programa
echo -Mapa de caracteres
echo -Desfragmentador
echo -Calculadora
echo -Paint
echo -NotaPad
echo -Servicios
echo -Volumen General
echo -Administrador de tareas
echo -Telnet
echo.
set/p deseo=Escribe el nombre el nombre de los programas
if %deseo%==mapa de caracteres goto map
if %deseo%==desfragmentador goto des
if %deseo%==calculadora goto cal
if %deseo%==paint goto paint
if %deseo%==notepad goto note
if %deseo%==servicios goto servi
if %deseo%==volumen general goto volu
if %deseo%==administrador de tareas goto admi
if %deseo%==telnet goto telnet
:map
echo.
Pulsa una tecla para abrir Mapa de Caracteres
pause>nul
start H:\WINDOWS\system32\charmap.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:des
echo.
Pulsa una tecla para Desfragmentador de disco
pause>nul
start H:\WINDOWS\system32\dfrg.msc
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:cal
echo.
Pulsa una tecla para abrir Calculadora
pause>nul
start H:\WINDOWS\system32\calc.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
aint
echo.
Pulsa una tecla para abrir Paint
pause>nul
start H:\WINDOWS\system32\mspaint.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:note
echo.
Pulsa una tecla para abrir Notapad
pause>nul
start H:\WINDOWS\system32\notepad.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:servi
echo.
Pulsa una tecla para abrir Sevicios
pause>nul
start H:\WINDOWS\system32\services.msc
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:volu
echo.
Pulsa una tecla para abrir Configuracion de Volumenes
pause>nul
start H:\WINDOWS\system32\sndvol32.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:admi
echo.
Pulsa una tecla para abrir Administrador de Tareas
pause>nul
start H:\WINDOWS\system32\taskmgr.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba
:telnet
echo.
Pulsa una tecla para abrir Comando Telnet
pause>nul
start H:\WINDOWS\system32\telnet.exe
cls
echo ¿Quieres volver al menu o a el comando basico?
set/p deseo= Si/No:
if %deseo%==si goto si
if %deseo%==no goto no
si:
cls
goto menu
no:
cls
goto ba

Link de Descarga:
http://www.4shared.com/file/TIvUh088/Ejecutador_Avanzado.html

----

Espero que les haya gustado esta compilacion de programas que hice, todos estan diseñados por mi

PD: En cualquier momento agrego unos tutoriales de como crear un bacht

 

[Musami]

Buen tema, gracias por el aporte. ( Eres el rey de los Hilos y Post, no veas )

 

[sparda_hunter]

(No creo que sea reflote ya que se habla sobre programas y no novedades)
Queria aportar un Batch que utilizo mucho para tener un autoapagado cuando desee (por ejemplo si me quedo dormido viendo una pelicula)

shutdown -s -t 60

60 se puede cambiar a cualquier valor en segundos

Para cancelar el autoapagado:

shutdown -a