编程的乐趣 - 送给大家一个小闹钟! 非常简单,你也能做!

SzAngel

今天自由幻想版主 坏坏的风 问我小闹钟怎么写, 正被软件开发郁闷着的我也休闲下哈,给大家上堂课!

小闹钟...简单到只用记事本就能写..

刚才我写了个,下面我给大家贴上代码!   这段代码 修改里面的时间 然后复制到记事本里保存为1.VBS 双击试试!

1. DIM a
   
2. a=cdate("2007-9-26 20:11:00")
   
3. Do Until now>=a
   
4. wscript.sleep 5000
   
5. Loop
   
6. msgbox("时间到")
   
7. Wscript.Quit

复制代码

加上注释哈!

1. DIM a     '定义变量不用理会哈
   
2. a=cdate("2007-9-26 20:11:00")   '字符串转义为时间用来设定需要提醒的时间.
   
3. Do Until now>=a     '循环检测语句,当现在时间超过或者等于设定时间就退出循环检测.
   
4. wscript.sleep 5000  '间隔5000毫秒循环,降低CPU占用!
   
5. Loop
   
6. '下面是退出循环后的动作
   
7. msgbox("时间到")   '弹出一个对话.
   
8. Wscript.Quit  '退出整个程序.

复制代码

这个是带打开文件的代码,比如可以打开一个MP3提醒

1. DIM a,objShell
   
2. Set objShell = CreateObject("Wscript.Shell")
   
3. a=cdate("2007-9-26 20:11:00")
   
4. Do Until now>=a
   
5. wscript.sleep 5000
   
6. Loop
   
7. objShell.Run """E:/My Music/sr.mid""",true
   
8. msgbox("时间到")
   
9. Wscript.Quit

复制代码

因为是VBS脚本文件,运行后无窗口的,所以要关闭就要终止她的进程,下面的代码保存为2.VBS 双击就能终止全部VBS进程

1. dim bag,pipe
   
2. set bag=getobject("winmgmts:\\.\root\cimv2")
   
3. set pipe=bag.execquery("select * from win32_process where name='WScript.exe'")
   
4. for each i in pipe
   
5. i.terminate()
   
6. next
   
7. wscript.sleep 1

复制代码

很简单吧,呵呵!

SzAngel

原帖由 失落的枫 于 2007-12-15 18:13 发表
对
天书 你也不说在那做

我说了,在记事本做!