数据库连接池的作用:定时提醒---怎么修改?
来源:百度文库 编辑:神马品牌网 时间:2024/08/26 19:05:59
--------------------------------------
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
可惜啊
可以打开太多个了,能不能提醒已经添加就
提醒一下? 啥意思啊,看不懂