联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
| 评分人 | 分数 | 时间 |
|---|---|---|
| redtek | +1 | 2006-10-15 05:41 |
Originally posted by he200377 at 2006-10-15 05:30:
@echo off
set n=10
:start
cls
echo %n%秒后自动退出
set /a n=n-1
ping -n 2 127.0.0.1>nul
if %n%==0 goto end
goto start
:end
只是记时不怎么准确
msg %USERNAME% /TIME:3 "给你三秒时间，猜猜我是谁！"
intTime = 10
If WScript.Arguments.Count <> 0 Then intTime = WScript.Arguments(0)
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "about:blank"
.FullScreen = 1
.Height = 50
.Width = 150
.Left = .document.parentwindow.screen.availwidth - .Width
.Top = .document.parentwindow.screen.availheight - .Height
.Visible = 1
.Document.write "<html><body bgcolor=beige scroll=no></body></html>"
Set objBody = .Document.Body
End With
For i = 1 To intTime
objBody.InnerHtml = "<font color=blue>你还有<font color=red>" & _
intTime - i & "</font>秒时间!</font>"
WScript.Sleep 1000
Next
objIE.Quit
Set objBody = Nothing
Set objIE = Nothing
| 评分人 | 分数 | 时间 |
|---|---|---|
| voiL | +4 | 2006-10-19 13:32 |
Originally posted by zerocq at 2006-10-19 00:33:
楼主看看这个可以不,会出现一个窗口提醒,该窗口3秒自动消失
不知道合不合你的意?
@echo off
set /p i=多少秒提醒一次?:
set /p j=倒计时多少秒结栮..
Originally posted by yfd11 at 2006-10-19 01:33:
@echo off
color 2f
Title=弱智制作QQ:441540230
set /p t1=请输入时间最后两位数有效:
set t2=%time% &echo 现在时间是:%time%
set/a t1=%t1:~-2%-60
if "%t1:~0,1%"= ...
Originally posted by 3742668 at 2006-10-19 01:47:
intTime = 10
If WScript.Arguments.Count <> 0 Then intTime = WScript.Arguments(0)
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Naviga ...
| 评分人 | 分数 | 时间 |
|---|---|---|
| jmz573515 | +1 | 2006-12-14 23:09 |
Originally posted by 3742668 at 2006-10-19 07:48:
一定要在右上角吗?左上角难道就不行?
@echo off
start /max cmd /c "title 倒数 && mode con lines=5 cols=30 && for /l %%i in (10,-1,1) do cls && ...
