Simplemente la idea se me ha ocurrido al ver el mensaje de Dirpok, en el que se intenta crear un cronometro en batch....pero como a mi me gusta más vbscript, porque me parece que da más posibilidades, he creado el mio en este lenguaje
El cronometro pide un nombre de usuario, sin el que no se pude comenzar, luego de eso queda a la espera de que se presione aceptar en un mensaje, una vez que se acepta, comienza el conteo , al terminar avisa de cuanto tiempo se ha demorado (igualmente lo va haciendo a medida que van pasando los segundos)
Al dar aceptar nuevamente termina de contar, y guarde registro de la fecha y hora actual, así como el usuario, y su tiempo en un registro (C:\ranking.txt), y abre el archivo que contiene el ranking para que pueda verse
A ver que les parece....
Código
set objshell = createobject("wscript.shell") set objfso = createobject("scripting.filesystemobject") set ranking = objfso.opentextfile("C:\ranking.txt",8,true) do usuario = inputbox("Ingresa tu nombre por favor...") if usuario <> "" then exit do else msgbox "Debes de ingresar un nombre de usuario para continuar..." end if loop msgbox "Presiona aceptar para comenzar el conteo..." empieza = time() mensaje = -1 do while mensaje = -1 tiempo = datediff("s",empieza,time()) mensaje = objshell.popup(tiempo,1,"Cronometro") loop ranking.writeline now() & chr(9) & usuario & chr(9) & "...." & tiempo & "seg." ranking.close msgbox "El tiempo insumido a sido de " & tiempo & " segundos" objshell.run "C:\ranking.txt"
Creo que me ha quedado bastante bien
Mensaje original de donde saqué la idea
Cronometro en BATCH
Saludos