标题: 限时输入! [打印本页]

---

作者: qwd     时间: 2008-4-26 02:03    标题: 限时输入!

@echo off
set js=%time:~-4,1%
:m
cls
echo.&echo.  %time:~0,-3%     %c%
echo.^Set ys=WScript.CreateObject("WScript.Shell")>tmp.vbs
echo.WScript.Sleep 1 >>tmp.vbs
echo.ys.SendKeys "{ENTER}">>tmp.vbs
echo.Wscript.quit >>tmp.vbs

start tmp.vbs
set/a c=%time:~-4,1%-%js%
if %c% lss 0 set/a c=c+10
if %c% GEQ 9 (echo 已超时^!&set a= )
set/p a=限9秒内输任意字符暂停!_
if "%a%"=="" (goto m)

:zt
del tmp.vbs
pause