每一个小时提醒源码（手机怎么设置每一个小时提醒）
本文目录一览：
- 1、用易语言做一个一到时间就提示的软件 源码
- 2、VB中如何用timer1工具制作自动提醒休息的代码，我是想每过1小时自动弹出对话框提醒休息。
- 3、求可以让软件每隔一小时重启一次软件的易语言源码，谢谢！
- 4、有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。
用易语言做一个一到时间就提示的软件 源码
.版本 2
.支持库 EThread
.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000 ' 1等于一分钟
.子程序 _时钟1_周期事件
启动线程 (子程序, , )
.子程序 子程序
时钟1.时钟周期 ＝ 0
信息框 (“fffffffffffffff”, 0, )
时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000
VB中如何用timer1工具制作自动提醒休息的代码，我是想每过1小时自动弹出对话框提醒休息。
Private Sub Timer1_Timer()
Static t As Integer
t = (t + 1) Mod 3600
If t = 0 Then
MsgBox "您已经工作1小时了，请注意休息", , "温馨提示："
End If
End Sub
求可以让软件每隔一小时重启一次软件的易语言源码，谢谢！
.版本 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_周期事件
销毁 ()
有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。
有这种桌面小程序的，你搜下应该好找的。
我先给你发个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" '关闭音乐程序
