::@echo off

:main

goto pausa 
pause
goto:EOF


:pausa

set /s Seg=5
set /p hora=%TIME%
set /s cont=0
set /s  mas=1 

:Pbluse
:Sbluse

set /p a=%TIME%
 
if %hora:~6,2% EQU %a:~6,2% then goto Sbluse

set /s cont= %cont% + %mas%


if %cont% LEQ %Seg% then goto Pbluse

goto:EOF

E:\Documents and Settings\Facundo\Escritorio>m.bat

E:\Documents and Settings\Facundo\Escritorio>pause
Presione una tecla para continuar . . .

E:\Documents and Settings\Facundo\Escritorio>set /S hora=11213211

E:\Documents and Settings\Facundo\Escritorio>set /S a=11213211

E:\Documents and Settings\Facundo\Escritorio>pause
Presione una tecla para continuar . . .
No se esperaba 2a:~6 en este momento.
E:\Documents and Settings\Facundo\Escritorio>if ~6,2a:~6,2 then goto SbluseE:\Do
cuments and Settings\Facundo\Escritorio>

dim segundos as integer
dim intcont as integer
dim strTime as tring
strtime=Time
segundos=10
intcont=0
do
 
 do
  if Time<>strtime then exit do
  doevents
 loop
 intcont=intcont+1
if intcont=> segundos then exit do
 loop