Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Diciembre 02, 2008, 10:04:04
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: AT infinito + PING(mi primer batch)[update 25 02 2007] 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: AT infinito + PING(mi primer batch)[update 25 02 2007]  (Leído 170 veces)
FOXmx
Habitual
*****
Desconectado Desconectado

Mensajes: 153



Ver Perfil
« en: Febrero 18, 2007, 03:52:11 »

juegos gratis
HABIA UN ERROR EN LA DECLARACION DE LAS VARIABLES "hm" y "hh", falto declararlas con "/a"

Lo que queria era un programa que me hiciera un LOG, que me ayudara a saber si mi conexion hacia mi gateway habia tenido interrupciones, y saber a que hora ocurrio eso, pues mi conexion no es mia, me la comparte un vecino
viendo en estos dichosos foros, encontre lo que necesitava, y con eso del AT podran hacer lo que quieran.. saludos...
(es el primero, talvez se pueda mejorar)}

en la ultima linea del programa esta el la direccion donde debe estar el programa, ustedes pueden modificarlo, para esconderlo o algo asi y en el lugar donde se guarda el log tambien.

Gracias a "iobh", supe como hacer la parte del "for", pues me encontre un post con esa secuencia

se puede hacer que detecte automaticamente el Gateway para comenzar el log, cya.

NOTA cuando el AT ejecuta una tarea, porlomenos esta no sale a pantalla(no se ve la pantalla negra)..
===========================================
pinglog.bat   (nombre del programa)
===========================================
REM V1.0
         @echo off
set direccion=192.168.1.1 REM la direccion a la que quieren comprobar el enlace
ping -n 1 %direccion% > temp.iobh
find "TTL" temp.iobh>temp2.iobh
for /f "skip=2 tokens=1,2*" %%a in (temp2.iobh) do set rs=%%a REM analiza si existe algo escrito en esas coordenadas del temporal
if "%rs%"=="" goto fin                     REM si hay vacio, significa que no hay enlace      
for /f "skip=2 tokens=1,2*" %%a in (temp2.iobh) do echo %time:~0,5% %%a %%b %%c >>c:\logping%date:~0,2%-%date:~3,2%-%date:~6,4%.txt REM lugar donde se guarda el log
del *.iobh      REM aqui analiza el archivo denuevo y toma los renglones que necesito, esto se puede suprimir y solo poner un comentario               
goto fin2
:fin
echo %date% %time:~0,5% no hubo respuesta del host>>c:\logping%date:~0,2%-%date:~3,2%-%date:~6,4%.txt   REM lugar donde se guarda el log
del *.iobh
:fin2
REM -----aqui reactivo la tarea cada minuto y arreglo el error de 59 a 60 en los minutos y de 23 a 24 en las horas
set /a hm=%time:~3,2%
set /a hh=%time:~0,2%
set /a nm=%hm%+1
if NOT "%nm%"=="60" goto cont
set /a nm=0
set /a hh=%hh%+1
if NOT "%hh%"=="24" goto cont
set /a hh=0
:cont
AT %hh%:%nm% c:\PINGLOG.BAT


===========================================
pinglog.bat
===========================================
REM V1.01
         @echo off
set direccion=192.168.1.1
ping -n 1 %direccion% > temp.iobh
find "TTL" temp.iobh>temp2.iobh
for /f "skip=2 tokens=1,2*" %%a in (temp2.iobh) do set rs=%%a REM analiza si existe algo escrito en esas coordenadas del temporal
if "%rs%"=="" goto fin                     REM si hay vacio, significa que no hay enlace      
echo %time:~0,5% Hay respuesta del HOST>>c:\logping%date:~0,2%-%date:~3,2%-%date:~6,4%.txt
del *.iobh   
goto fin2
:fin
echo %time:~0,5% No hubo respuesta del host>>c:\logping%date:~0,2%-%date:~3,2%-%date:~6,4%.txt
rem gracias a: iobh
del *.iobh
:fin2
REM -----aqui reactivo la tarea cada minuto y arreglo el error de 59 a 60 en los minutos y de 23 a 24 en las horas
set /a hm=%time:~3,2%
set /a hh=%time:~0,2%
set /a nm=%hm%+1
if NOT "%nm%"=="60" goto cont
set /a nm=0
set /a hh=%hh%+1
if NOT "%hh%"=="24" goto cont
set /a hh=0
:cont
AT %hh%:%nm% c:\PINGLOG.BAT


===========================================


Codigo final con unas modificaciones
V2.0
===================================
Código:
rem echo off
MD C:\LOGS\PINGLOG\%DATE:~3,2%-%DATE:~6,4%
set direccion=192.168.1.254
ping -n 1 %direccion% > temp.iobh
find "TTL" temp.iobh>temp2.iobh
for /f "skip=2 tokens=1,2*" %%a in (temp2.iobh) do echo %time:~0,5% %%a %%b %%c >>C:\LOGS\PINGLOG\%DATE:~3,2%-%DATE:~6,4%\%date:~0,2%-%date:~3,2%-%date:~6,4%.txt&set rs=%%a
if "%rs%"=="" goto fin
del *.iobh
goto fin2
:fin
echo %time:~0,5% no hubo respuesta del host>>C:\LOGS\PINGLOG\%DATE:~3,2%-%DATE:~6,4%\%date:~0,2%-%date:~3,2%-%date:~6,4%.txt
rem gracias a: iobh
del *.iobh
:fin2

REM -----aqui reactivo la tarea cada minuto y arreglo el error de 59 a 60 en los minutos y de 23 a 24 en las horas y un error con los numeros 08 y 09
set hm=%time:~3,2%
set hh=%time:~0,2%

if %hm%==07 set hm=7
if %hm%==08 set hm=8
if %hm%==09 set hm=9
if %hh%==07 set hh=7
if %hh%==08 set hh=8
if %hh%==09 set hh=9

set /a nm=%hm%+1
if NOT %nm%==60 goto cont
set /a nm=0
set /a hh=%hh%+1
if NOT %hh%==24 goto cont
set /a hh=0

:cont
AT %hh%:%nm% C:\PINGLOG.BAT
===================================
« Última modificación: Febrero 25, 2007, 05:25:48 por FOXmx » En línea


Si lo que haces no funciona programa otra coza, piensa en nuevas ideas, no en las mismas.
Lo que hagas con un codigo es tu responsabilidad, estoy deacuerdo en joder el windows pero no en joder sus archivos personales.
Furious Dami
No puedo morir, mi objetivo de vivir me mantiene vivo...
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2354


Prefiero morir de pie que vivir arrodillado...

FuriousDami@hotmail.com
Ver Perfil WWW Email
« Respuesta #1 en: Febrero 23, 2007, 09:15:35 »

Nada mal para ser el primero ay algunas cosas que se pueden mejorar. Te recomiendo que analizes bien el code y lo intentes mejorar.
PD:esta mejor que el primero que hice yo.   
 
XD
En línea


Una persona se hace realmente fuerte cuando protege a un ser querido...

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
- El Rincón Del Furious -


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Visitá mi galería!!

asf_oxid
Habitual
*****
Desconectado Desconectado

Mensajes: 261


asf_oxid@hotmail.com
Ver Perfil Email
« Respuesta #2 en: Febrero 24, 2007, 04:18:21 »

a mi se me queda pensando en la linae de el ping...
nu se a que se debe.... pero es algo raro quizastenga algun problem yo..
En línea

....saludos desde barna
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: AT infinito + PING(mi primer batch)[update 25 02 2007] « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC