中国DOS联盟

I want to write something to achieve the following effects
After running /
Requires entering a time (a, unit: hours),
After entering, a pop-up window "The online time you set is a hours!" pops up
This pop-up window hides by itself after 3 seconds!
A prompt pops up every 15 minutes: Protect your eyes! The prompt box disappears after 15 seconds~
Then when the time (a) you just entered is about to reach (for example, if you enter 1, it is at 59 minutes), prompt "The time you limited has arrived! Please be ready to log off!" (Preferably, a countdown can be displayed at the same time! 60-59-58...1-0)
When the countdown is 0 (that is, the entered time a arrives), run a certain program!

It should be achievable with vbs? But I don't understand, and I only have a slight understanding of bat~ If it can be written with bat, it would be better^_^~~
I also posted a request in this forum, but the answers received are not many~ Alas.

Preferably, no third-party software is used~~ I have searched online many times, and there are few that can really satisfy. I want to implement something that everyone can use!
The purpose of making this thing is obvious, which is to remind some people who use the computer frequently! Pay attention to their own health!
I myself have caused high myopia now because I didn't pay attention to eye-related issues and faced the monitor for a long time!
It's too late to regret! I can only hope that a certain expert can write such a thing.
Put this thing in the Internet cafe, so that (or urge) each online user can develop a good eye care habit!
Wish every computer enthusiast, while enjoying the joy brought by the computer, can always have a pair of bright eyes!

Merry Christmas~~~~~~

Hoping!

@echo off

set /p a=你所设定的上机时间为a小时:

set /a b=%a%

set /a d=%a%*4

set /a d=%d%-1

msg %username% /time:3  "你所设定的上机时间为%a%小时!"

set /a c=1

set /a e=15

setlocal enabledelayedexpansion

:1

sleep 900000

msg %username% /time:15  ":)........保护眼睛哦........:)!"

if !e! equ 14 goto 3 

if !c! equ !d! set /a e=14 

set /a c+=1&&goto 1

:3

sleep 840000

set f=60

:4

msg %username% /time:1  ":)还有!f!秒时间到!请作好备份!!!:)"

set /a f-=1

if !f! GEQ 1 goto 4 

sleep 60000

exit

I made a batch, the code is a bit messy!! But it's okay!!! I don't have much time and didn't test it for an hour!!! You test it yourself!!!!
First sofa!! Hehe!!!

@echo off

set /p a=The time you set for using the computer is a hours:

set /a b=%a%

set /a d=%a%*4

set /a d=%d%-1

msg %username% /time:3  "The time you set for using the computer is %a% hours!"

set /a c=1

set /a e=15

setlocal enabledelayedexpansion

:1

sleep 900000

msg %username% /time:15  ":)........Protect your eyes........:)"

if !e! equ 14 goto 3 

if !c! equ !d! set /a e=14 

set /a c+=1&&goto 1

:3

sleep 840000

set f=60

:4

msg %username% /time:1  ":)There are still !f! seconds until the time is up! Please make a backup!!!:)"

set /a f-=1

if !f! GEQ 1 goto 4 

sleep 60000

exit

The sleep software has accurate time (millisecond level)!! The memory usage is not much!!! (388k)
A small drawback must be an integer hour!!!
The sleep must be in the same folder as the batch, otherwise the sleep in the code should be changed to the specific path!! Such as d:\sleep.exe
Corrected a few serious errors!!
If the owner needs it, change exit to the program you want to run!!!

Last edited by lotus516 on 2006-12-25 at 03:47 PM ]

Learning

Still need external commands

But it's difficult to make BAT use internal commands to achieve the effect!

I think maybe I can call the shutdown command.

But shutdown seems to require administrator privileges. Otherwise, it can't be executed.

It might be a bit difficult if you're not an administrator...

Also, what is the operating environment of the original poster??????........

Can timing be done in a special way?

Flexibly use ping -w -n 1 non - existent IP
For example, ping -n 1 -w 1000 1.255

Originally posted by everest79 at 2006-12-25 23:54:
Can timing be done in a special way?

Flexibly use ping -w -n 1 non-existent IP
For example, ping -n 1 -w 1000 1.255

It's not that it can't be done, but the precision is not high. The owner has high requirements, and ping won't work!!
Are there any more ingenious techniques for batch processing delays?http://www.cn-dos.net/forum/viewthread.php?tid=23475&fpage=1&highlight=%E6%89%B9%E5%A4%84%E7%90%86%E5%BB%B6%E6%97%B6%E8%BF%98%E6%9C%89%E4%BB%80%E4%B9%88%E7%B2%BE%E5%B7%A7%E7%82%B9%E7%9A%84%E6%8A%80%E5%B7%A7%E5%90%97%EF%BC%9F

Operation failed!

Prompt: Error 1702 when getting the session name

This is the problem I encountered when running...
windows xp sp2

Also, can you write a vbs to achieve the above function.
Brother lotus516's code didn't test successfully. I don't know if there will be a command prompt window in the taskbar after running??
I think the best code written should not have any things appear in the taskbar after running~~vbs should be able to achieve that, right?

Originally posted by junyee at 2006-12-26 08:13:
Run failed!

Prompt: Error 1702 when getting session name

This is the problem I encountered when running...
Windows XP SP2

Also, can a VBS be written to achieve the above function.
Brother lotus516's ...

I can do it without SP2! There are windows in the taskbar, but VBS can't make windows. But I just can't figure out how to make the window! Also, it can be made into a service to eliminate the window!

Last edited by lotus516 on 2006-12-26 at 09:35 AM ]

, thank you in advance...
There are many VBS experts in the forum~~~Come and help!

set ws=createobject("wscript.shell")

set fso=createobject("scripting.filesystemobject")

a=inputbox("请设定你的上机时间。(单位：小时)","提示")

ws.popup "你设定的时间为" & a& "小时",3,"提示"

starttime=timer

do

endtime=timer

sysj=endtime-starttime

if sysj>=3600*a-60 then 

ws.popup"你所限定的时间已到！请做好下机准备！",60,"提示"

ws.run "cmd" '这是你要运行的程序

wscript.quit

end if

if sysj <3600*a-960 then

wscript.sleep 1000*15*60

ws.Popup"保护眼睛啊！", 15, "系统提示"

else

wscript.sleep 1000

end if

loop

Roughly written one, not tested. For reference only. (The time cannot be as accurate as you said, some functions cannot be realized)

set ws=createobject("wscript.shell")

set fso=createobject("scripting.filesystemobject")

a=inputbox("Please set your computer time. (Unit: hours)","Prompt")

ws.popup "The time you set is " & a& " hours",3,"Prompt"

starttime=timer

do

endtime=timer

sysj=endtime-starttime

if sysj>=3600*a-60 then 

ws.popup"Your limited time is up! Please be ready to log off!",60,"Prompt"

ws.run "cmd" 'This is the program you want to run

wscript.quit

end if

if sysj <3600*a-960 then

wscript.sleep 1000*15*60

ws.Popup"Protect your eyes!", 15, "System Prompt"

else

wscript.sleep 1000

end if

loop

Last edited by jmz573515 on 2006-12-26 at 09:49 AM ]

Using the at command

c:\>at /?
The AT command schedules commands and programs to run at a specific date and time.
To use the AT command, the Schedule Service must be running.

The VBScript on floor 13 pops up a prompt at the 16th minute, and the test is okay. But the prompt when the final time is up is not implemented?