每一个小时提醒源码_每一个小时提醒自己闹钟

文章目录：

• 1、有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。
• 2、设计一个程序，每半个小时提醒一次，这样的程序要怎么设计?
• 3、求可以让软件每隔一小时重启一次软件的易语言源码，谢谢！
• 4、用易语言做一个一到时间就提示的软件 源码

有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。

有这种桌面小程序的，你搜下应该好找的。

我先给你发个VBS脚本程序，等有时间了，写个好点的。

'脚本开始

Set objShell = WScript.CreateObject("WScript.Shell")

j = 120 '工作时间（分钟）

n = 10 '休息时间（分钟）

alertText = "休息一下，听听音乐" Chr(10) "活动一下脖子，腰部。" Chr(10) "生命在于运动！！" '提醒内容,Chr(10)为换行符

alertText2 = n"分钟休息时间到了，继续工作！"

strSoundFile = "D:\Music\MyMusic.wpl" '自动播放列表地址

strCommand = "wmplayer.exe /prefetch:1 /Task MediaLibrary " Chr(34) strSoundFile Chr(34) '播放音乐

strCommand2 = "taskkill /im wmplayer.exe" '关闭音乐程序

For i = 1 To 12 '12为提醒的次数

WScript.Sleep(1000 * 60 * j)

MsgBox alertText, 64

objShell.Run strCommand, 1, False

WScript.Sleep(1000 * 60 * n)

objShell.Run strCommand2, 0, True

MsgBox alertText2, 64

Next

使用方法：

1. 将代码保存为：Ring.vbs （文件名可自定）

2. 将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\）

3. 我这里使用的是Window自带的Media Player播放音乐，所以先打开您的Media Player，将“正在播放列表”另存到D:\Music\MyMusic.wpl（保存路径可以自定，但要在下在的代码中修改strSoundFile的路径），以后你只要打开电脑就可以自动提醒了！

注意：如果你使用的是Winamp播放音乐，则必有把路径改为Winamp的播放列表文件地址，以及strCommand和strCommand2的值如：

strCommand = "C:\Program Files\Winamp\winamp.exe /prefetch:1 /Task MediaLibrary " Chr(34) strSoundFile Chr(34) '播放音乐

strCommand2 = "taskkill /im winamp.exe" '关闭音乐程序

设计一个程序，每半个小时提醒一次，这样的程序要怎么设计?

像你说的这种情况，也就是计时精度要求不高的场合，实现的方式太多啦。

比如响应WM_TIMER，这个是所有方式中资源消耗最小的。

其次使用API :WaitForSingleObject，这个是内核级别的，资源消耗也小。

最次的就是循环等待了。在循环里，睡眠一段时间检测时间。

求可以让软件每隔一小时重启一次软件的易语言源码，谢谢！

.版本 2

.程序集 窗口程序集1

.程序集变量 x, 整数型

.程序集变量 y, 整数型

.子程序 __启动窗口_创建完毕

x ＝ 取小时 (取现行时间 ())

y ＝ 取分钟 (取现行时间 ())

时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件

.如果真 (x ＝ 23)

.如果真 (x ＞ 取小时 (取现行时间 ()))

.如果真 (y ＝ 取分钟 (取现行时间 ()))

销毁 ()

.如果真结束

.如果真结束

.如果真结束

.如果真 (x ＜ 取小时 (取现行时间 ()))

.如果真 (y ＝ 取分钟 (取现行时间 ()))

销毁 ()

.如果真结束

.如果真结束

.子程序 __启动窗口_将被销毁

运行 (取运行目录 () ＋ “\” ＋ “软件的名称.exe”, 真, )

这样写麻烦点哦，。还有个简单的。

.版本 2

.程序集 窗口程序集1

.程序集变量 x, 整数型

.子程序 __启动窗口_创建完毕

x ＝ 60 × 60 × 1000

时钟1.时钟周期 ＝ x ' 3600000也就是一小时的时间。

.子程序 __启动窗口_将被销毁

运行 (取运行目录 () ＋ “\” ＋ “软件的名称.exe”, 真, )

.子程序 _时钟1_周期事件

销毁 ()

用易语言做一个一到时间就提示的软件 源码

.版本 2

.支持库 EThread

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000 ' 1等于一分钟

.子程序 _时钟1_周期事件

启动线程 (子程序, , )

.子程序 子程序

时钟1.时钟周期 ＝ 0

信息框 (“fffffffffffffff”, 0, )

时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000