últimos mensajes de: Natanael

Mostrar Mensajes
Páginas: [1]

1	Programación / Programación General / Re: Como empezar en programación	en: 22 Abril 2005, 19:57 pm
Yo empeze a leer un manual de Qbasic, hice algunas cosas, despues vi algo de Pascal pero me kede con C++, ahora estoy leyendo este manual y uso el Borland Turbo C-C++ 3.0 Borland Turbo C-C++ 3.0 Otros Compiladores... Turbo Pascal 7.0 RmCobol-85 Gofer Gofer W9x

2	Programación / Scripting / Re: BAtch DUdas generales	en: 10 Abril 2005, 19:40 pm
Easy Batch File Compiler Lo pasa a exe, pero tenes q buscar el Keygen, si no te hace un recordatorio

Programación / Ejercicios / Re: EJERCICIO MSDOS

en: 10 Abril 2005, 15:52 pm

Bueno, hice algo...

Sistema.bat

Código:

@echo off
:mp
cls
echo. MENU PRINCIPAL
echo.ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.1. Utilidades del sistema
echo.2. Utilidades de ficheros
echo.3. Salir al S.O
choice /n /c123>nul
if errorlevel 3 goto end 
if errorlevel 2 mf.bat
if errorlevel 1 ms.bat 
:end
cls
echo Esta Seguro Q Dese Salir?
echo.1.Si.
echo.2.No, volver.
choice /n /c12>nul
if errorlevel 2 goto mp 
if errorlevel 1 echo Chau...
type nul|choice /c1 /n /t1,3>nul
cls

MS.bat

Código:

@echo off
:ms
cls
echo. MENU DEL SISTEMA
echo.ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.A. Actualizar y visualizar la fecha del sistema
echo.B. Visualizar las caracteristicas del sistema
echo.C. Visualizar la hora del sistema
echo.D. Analizar los problemas del disco duro
echo.E. Salir al menu principal
choice /n /cabcde >nul
if errorlevel 5 sistema.bat
if errorlevel 4 scandisk
if errorlevel 3 goto c
if errorlevel 2 goto b
if errorlevel 1 goto a
goto ms
:a
cls
echo @prompt set date=$d > {a}.bat
%comspec% /e:2048 /c {a}.bat > {b}.bat
for %%v in ({b}.bat del) do call %%v {?}.bat
echo Estamos en la fecha %date%
echo.¿Es esto correcto?
echo.1.Si
echo.2.No!
choice /n /c12 >nul
if errorlevel 2 date
if errorlevel 1 goto ms
goto ms
:b
cls
drvspace c:
echo.|ver
echo Presione una tecla para volver al Menu del Sisema
pause>nul
goto ms
cls
echo @prompt set time=$t$h$h$h > {a}.bat
%comspec% /e:2048 /c {a}.bat > {b}.bat
for %%v in ({b}.bat del) do call %%v {?}.bat
echo.Son las %time%
echo ¿Es Esto Correcto??
echo.1.Si
echo.2.NO!
choice /n /c12 >nul
if errorlevel 2 time
if errorlevel 1 goto ms

MF.bat

Código:

:mf
cls
echo. MENU DEL FICHERO
echo.ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
echo.A. Visualizar el directorio de la unidad determinada
echo.B. Visualizar el contenido de un fichero paginado
echo.C. Renombrar un fichero
echo.D. Copiar un fichero
echo.E. Borrar varios ficheros
echo.F. Salir al menu principal
echo.
echo No lo termine =P
echo Toca una tecla pa' volver
pause>nul
sistema.bat

Fijate, si lo podes terminar, aca ya son las 10:50 y no dormi todavía y quiero ver algo de QBasic

4	Seguridad Informática / Bugs y Exploits / Re: Mi Primer ASP Shell	en: 10 Abril 2005, 14:45 pm
Eso es lenguaje HTMl? Como se usa?

5	Programación / Programación General / Re:alguien sabe hacer archivos .bat?	en: 10 Abril 2005, 05:10 am
Citar vale, ezo todo bien, xo yo keria zaber zi el archivo ''sal12.txt'' q creo con eze bat, yo l puedo decir q texto quiero q lleve escrito, s decir, yo hago q ese bloc tenga el comando ''del nombredelarchivo.bat'', y al .bat q yo e creado, le añado el final l comando ''ren sal12.txt .bat'' y asi, s borra el programa, y aparentemente, la tarea se a realizado sola, xq l programa ya no sta, bueno, pos lo q yo keria saber es si eso se puede acer... no se si m e explicado bien, lo buelvo a explicar??? p.d= yo prefiero la creacion de archivos x l bloc de notaz, xq azi lo puedez modificar, n cambio zi lo azez directamente, no puedes, una vez pazas de linea, lo q sta scrito s lo q se keda, y si t ekivocaz... a volver a empezar... 8) BAT 1 Código: echo @echo off >sal12.txt echo echo Hola>> sal12.txt echo echo Como Andas? >> sal12.txt ren sal12.txt sal12.bat echo pause >>sal12.bat echo cls >>sal12.bat echo echo Chau, chau!...>>sal12.bat echo pause >>sal12.bat echo cls >>sal12.bat El "BAT1" Crearia.... Un bat llamado sal12.bat con el contenido... SAL12.BAT* Código: @echo off echo Hola echo Como Andas? pause cls echo Chau, chau!... pause cls Saludos, espero q te sirva Modificacion: Explico... >> redirecciona el resultado de un comando por ejemplo, si ponemos.. [echo Hola] el resultado seria "Hola" si ponemos [echo hola>>archiv.bat] escribiria un "bat" con el contenido [Hola] si ponemos [echo echo hola>>archiv.bat] escribe un bat con el contenido [echo hola], se entiende?

Informática / Tutoriales - Documentación / Re: TUTORIAL PROGRAMACION BAT

en: 9 Abril 2005, 08:01 am

Código:

@echo off
cls
set %1
set dia=00
set mes=00
set año=00
if %OS% == Windows_NT goto winnt
goto win9x
:winnt
date /t > date.txt
goto dia
:win9x
date <intro.txt |find "actual" >date.txt
goto dia
:dia
find " 01/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=01
find " 02/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=02
find " 03/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=03
find " 04/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=04
find " 05/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=05
find " 06/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=06
find " 07/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=07
find " 08/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=08
find " 09/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=09
find " 10/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=10
find " 11/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=11
find " 12/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=12
find " 13/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=13
find " 14/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=14
find " 15/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=15
find " 16/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=16
find " 17/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=17
find " 18/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=18
find " 19/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=19
find " 20/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=20
find " 21/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=21
find " 22/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=22
find " 23/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=23
find " 24/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=24
find " 25/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=25
find " 26/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=26
find " 27/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=27
find " 28/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=28
find " 29/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=29
find " 30/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=30
find " 31/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=31
:mes
find "/01/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=01
find "/02/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=02
find "/03/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=03
find "/04/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=04
find "/05/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=05
find "/06/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=06
find "/07/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=07
find "/08/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=08
find "/09/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=09
find "/10/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=10
find "/11/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=11
find "/12/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=12
:año
find "2004" <date.txt
if errorlevel 0 if not errorlevel 1 set año=04
find "2005" <date.txt
if errorlevel 0 if not errorlevel 1 set año=05
find "2006" <date.txt
if errorlevel 0 if not errorlevel 1 set año=06
:carpeta
cls
md %1%dia%-%mes%-%año%
:end

En Win98 no me funciono, pero...

Código:

@echo off
cls
set %1
set dia=00
set mes=00
set año=00
:win9x
ECHO.|date|FIND "actual" >date.txt
goto dia
:dia
find " 01/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=01
find " 02/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=02
find " 03/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=03
find " 04/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=04
find " 05/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=05
find " 06/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=06
find " 07/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=07
find " 08/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=08
find " 09/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=09
find " 10/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=10
find " 11/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=11
find " 12/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=12
find " 13/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=13
find " 14/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=14
find " 15/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=15
find " 16/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=16
find " 17/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=17
find " 18/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=18
find " 19/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=19
find " 20/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=20
find " 21/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=21
find " 22/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=22
find " 23/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=23
find " 24/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=24
find " 25/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=25
find " 26/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=26
find " 27/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=27
find " 28/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=28
find " 29/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=29
find " 30/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=30
find " 31/" <date.txt
if errorlevel 0 if not errorlevel 1 set dia=31
:mes
find "/01/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=01
find "/02/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=02
find "/03/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=03
find "/04/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=04
find "/05/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=05
find "/06/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=06
find "/07/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=07
find "/08/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=08
find "/09/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=09
find "/10/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=10
find "/11/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=11
find "/12/" <date.txt
if errorlevel 0 if not errorlevel 1 set mes=12
:año
find "2004" <date.txt
if errorlevel 0 if not errorlevel 1 set año=04
find "2005" <date.txt
if errorlevel 0 if not errorlevel 1 set año=05
find "2006" <date.txt
if errorlevel 0 if not errorlevel 1 set año=06
:carpeta
cls
md %1%dia%-%mes%-%año%
:end

si me funciona...
Bueno...
Quisiera saber como cambiar colores en bat
lo vi 1 ves en un bat trial q me habia bajado pero lo perdi (al bat)
ChauxX

Páginas: [1]