主页 > 知识库 > 15分钟提醒一次,珍惜时间啊

15分钟提醒一次,珍惜时间啊

热门标签:地图标注店铺的收费 高德百度地图标注推广 南阳高频外呼系统怎么安装 菏泽电销外呼系统软件 外呼系统解决电销问题 苏丹地图标注app 贵阳电话外呼系统厂家 为什么申请400电话 京东办理400电话查询
15分钟提醒一次,珍惜时间啊
保存为.vbs
复制代码 代码如下:

today=Date()
years=DatePart("yyyy",today)-1981-1
Days=DatePart("y",today)+25
If DatePart("m",today)=12 Then
 if DatePart("d",today)>=9 Then
 MsgBox "ok"
 Years=Years+1
 Days=DatePart("d",Date)-9
 end if
end If 
MsgBox "AT ^" Years  "C!"Days"D^ SPACE-TIME!",4096+64,"脚本之家提示"
set wshshell=CreateObject("WScript.Shell")
Do
WScript.Sleep 900000
getstr=MsgBox("15分钟过去了!",4097,"......!")
If getstr=vbCancel Then 
wshshell.Popup "Bye-Bye!",2,"......!" 
WScript.Quit
End If
Loop
您可能感兴趣的文章:
  • js实时计算字数提醒的文本框
  • javascript 日历提醒系统( 兼容所有浏览器 )
  • javascript网页关闭时提醒效果脚本
  • js链接确认提醒功能
  • js实现的定时关闭页面或定时提醒效果代码
  • js 实现在离开页面时提醒未保存的信息(减少用户重复操作)

标签:沧州 通辽 阿里 昌都 咸宁 资阳 韶关 海北

巨人网络通讯声明:本文标题《15分钟提醒一次,珍惜时间啊》,本文关键词  15分钟,提醒,一次,珍惜,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《15分钟提醒一次,珍惜时间啊》相关的同类信息!
  • 本页收集关于15分钟提醒一次,珍惜时间啊的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章