Board logo

标题: 编程的乐趣 - 送给大家一个小闹钟! 非常简单,你也能做! [打印本页]
作者: SzAngel    时间: 2007-9-26 20:38     标题: 编程的乐趣 - 送给大家一个小闹钟! 非常简单,你也能做!

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

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

刚才我写了个,下面我给大家贴上代码!   这段代码 修改里面的时间 然后复制到记事本里保存为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
复制代码
很简单吧,呵呵!
作者: 坏坏的风    时间: 2007-9-26 20:41

作者: 眞紅い天    时间: 2007-10-6 17:55

天书...
作者: 失落的枫    时间: 2007-12-15 18:13

对
天书 你也不说在那做
作者: SzAngel    时间: 2007-12-15 18:23

原帖由 失落的枫 于 2007-12-15 18:13 发表
对
天书 你也不说在那做
我说了,在记事本做!
作者: wangjiaju01    时间: 2007-12-21 23:00     标题: 回复 #1 SzAngel 的帖子

呵呵```厉害哦

想学却不太懂。。。。
作者: wrr1203    时间: 2008-2-22 16:44

作者: nanfor    时间: 2008-3-16 13:33

学习
作者: 慕枫一叶    时间: 2008-3-17 12:09

不错不错，拿来直接用了
作者: hmlovehl    时间: 2008-3-19 12:19

犯得上法大师傅发生大幅度大撒
作者: yanshuguan    时间: 2008-4-11 17:16

呵呵   好玩

我也玩玩
作者: xu80136385    时间: 2008-4-12 10:57

额不懂复杂列
作者: 魔法多多    时间: 2008-4-23 10:57

恩  以前一直找像这样的小闹钟

现在终于自己也能编辑了  HOHO   高兴
作者: xyz2008    时间: 2008-5-1 19:51

知道点理论就行了,不是钻研这方面的料
作者: sdj37    时间: 2008-5-2 20:42

看上去有点复杂 还是算了~
作者: Q琦    时间: 2008-5-7 12:47

呵呵
貌似我没啥用哦
嘿嘿~
作者: 253870450    时间: 2008-5-8 22:41

看不懂啊
作者: 坏男人    时间: 2008-5-28 13:35

看不懂·····
作者: crazy    时间: 2008-5-28 19:06

呵呵，想起在学校学C的时候的"你好，世界"了！
作者: bingbo    时间: 2008-6-3 22:15

我梦游了,来看看
作者: ha321    时间: 2008-6-13 17:04

呵呵 VBS...

19喽：

好像很多编程入门都是“你好，世界！”
作者: 178311022    时间: 2008-6-27 14:54

果真是太简单了，可是我一样都没看的懂
作者: 心在飞翔    时间: 2008-7-9 10:14

简单，但是真正要学就有一个距离了。
作者: 风月之使    时间: 2008-7-17 13:13

我是有点笨,不太会
作者: 两袖清风    时间: 2008-7-21 10:01     标题: 回复 21# ha321 的帖子

呵呵，我底子比较差，C还没学。这个VB也都还没会，好崇拜sz真希望能拜在你门下学习学习。
作者: 杰灬王子    时间: 2008-7-24 02:04

才疏学浅，看不懂。。。。
作者: acoorj    时间: 2008-8-9 10:55

只听"哐当"一声响,天上掉下来个锅盖,正砸在我头上,上面还有 SzAngel 做的 圣诞卡 一张
作者: Nchlas    时间: 2008-8-23 21:46

闹钟五块钱一个我怎么不买个?

要费这时间?
作者: NeighborTotoro    时间: 2008-8-27 01:43

完全的天书
作者: 氨奇    时间: 2008-9-2 23:07

good！！！！
作者: 178311022    时间: 2008-12-2 09:51

把他分开了 怎么弄啊



欢迎光临 紫菀论坛 (http://bbs.szyin.com/) Powered by Discuz! 7.1