杭州交通信息网大屏幕拼接控制系统:定时提醒---怎么修改?
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 20:26:33
--------------------------------------
set WshShell = WScript.CreateObject("WScript.Shell")
msgbox "定时提醒成功启动!",4096,"成功"
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline & vbnewline & " 任务完成了吗?加油!"
for i = 1 to 12 '12为提醒的次数
WScript.Sleep(1000*60*35) '每35分钟提醒一次
msgbox alerttext,4096,alerttitle
next
----------------------------------------------
以上源码保存为 名字.vbs
就可以做成定时提醒了
可惜啊
可以打开太多个了,能不能提醒已经添加就
提醒一下?
怎么使功能更完善呢?
用的是VbScript
就是说,打开一个定时提醒后,就不能再运行相同的.
set WshShell = WScript.CreateObject("WScript.Shell")
msgbox "定时提醒成功启动!",4096,"成功"
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline & vbnewline & " 任务完成了吗?加油!"
for i = 1 to 12 '12为提醒的次数
WScript.Sleep(1000*60*35) '每35分钟提醒一次
msgbox alerttext,4096,alerttitle
next
----------------------------------------------
以上源码保存为 名字.vbs
就可以做成定时提醒了
可惜啊
可以打开太多个了,能不能提醒已经添加就
提醒一下?
怎么使功能更完善呢?
用的是VbScript
就是说,打开一个定时提醒后,就不能再运行相同的.
set WshShell = WScript.CreateObject("WScript.Shell")
count=0
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if ps.name="wscript.exe" then count=count+1
next
if count > 1 then wscript.quit
msgbox "定时提醒成功启动!",4096,"成功"
'对话框标题
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下胳膊，脖子，腰部。" & vbnewline & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline & vbnewline & " 任务完成了吗?加油!"
for i = 1 to 12 '12为提醒的次数
WScript.Sleep(1000*60*35) '每35分钟提醒一次
msgbox alerttext,4096,alerttitle
next
可惜啊
可以打开太多个了,能不能提醒已经添加就
提醒一下? 啥意思啊，看不懂