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

有这种桌面小程序的，你搜下应该好找的。
我先给你发个VBS脚本程序，等有时间了，写个好点的。
'脚本开始
Set objShell = WScriptCreateObject("WScriptShell")
j = 120 '工作时间（分钟）
n = 10 '休息时间（分钟）
alertText = "休息一下，听听音乐" & Chr(10) & "活动一下脖子，腰部。" & Chr(10) & "生命在于运动！！" '提醒内容,Chr(10)为换行符
alertText2 = n&"分钟休息时间到了，继续工作！"
strSoundFile = "D:\Music\MyMusicwpl" '自动播放列表地址
strCommand = "wmplayerexe /prefetch:1 /Task MediaLibrary " & Chr(34) & strSoundFile & Chr(34) '播放音乐
strCommand2 = "taskkill /im wmplayerexe" '关闭音乐程序
For i = 1 To 12 '12为提醒的次数
WScriptSleep(1000 60 j)
MsgBox alertText, 64
objShellRun strCommand, 1, False
WScriptSleep(1000 60 n)
objShellRun strCommand2, 0, True
MsgBox alertText2, 64
Next
使用方法：
1 将代码保存为：Ringvbs （文件名可自定）
2 将Ringvbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\）
3 我这里使用的是Window自带的Media Player播放音乐，所以先打开您的Media Player，将“正在播放列表”另存到D:\Music\MyMusicwpl（保存路径可以自定，但要在下在的代码中修改strSoundFile的路径），以后你只要打开电脑就可以自动提醒了！
注意：如果你使用的是Winamp播放音乐，则必有把路径改为Winamp的播放列表文件地址，以及strCommand和strCommand2的值如：
strCommand = "C:\Program Files\Winamp\winampexe /prefetch:1 /Task MediaLibrary " & Chr(34) & strSoundFile & Chr(34) '播放音乐
strCommand2 = "taskkill /im winampexe" '关闭音乐程序

以上就是关于有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。全部的内容，包括:有谁能给出一段让电脑提醒定时休息的源码，比如每隔两个小时就蹦出来个对话框来提醒休息的小程序。、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！