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

::@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>

set hora=%TIME%

 %hora:~6,2%

<?php

 $name=$_GET['res'];
 $estt=$_GET['est'];

 $dir='./user/'.$name.'.txt';
 
 if ($name!="")
{
  
   if (is_file($dir))
{
    echo 'comi-<[(1)]>-fini' ;//el nombre ya existe
  
   }else{
   

    $gestor = fopen($dir, 'w');
   
    fwrite($gestor, $estt);
   
    fclose($gestor);
   
    echo 'comi-<[(x)]>-fini' ;//logeado correctamente
   }
 }else{
  echo 'comi-<[(0)]>-fini' ;//error desconosido
 }

?>

(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
type keyboard.dat|debug>NUL 2>&1