Que es justamente lo que puse yo.
Bueno, ya que volví aprovecho para agregar el ejemplo VBS. No está bien escrito, pero tampoco estamos en el foro de visual. Allí debe haber más y mejores ejemplos.
Código:
<html>
<body>
<input type="button" value="Recargar" id="botonRecargar" />
<input id="id_input" size="2" />
<script language=vbscript>
function botonRecargar_onclick
dim valor
valor = msgbox ("Click en Aceptar devuelve 1 y recarga en 2 seg." &Chr(13) & Chr(10)& "Click en Cancelar devuelve 2 y no recarga.", 49, "Hizo Click en Recargar!.")
id_input.value = valor
If valor=1 Then
SetTimeOut "Self.Document.Location=Self.Location",2000,"VBScript"
end If
end function
</script>
</body>
</html>