400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > 实用vbs提醒小程序

实用vbs提醒小程序
热门标签：检查注册表项 银行业务 智能手机 呼叫中心市场需求 铁路电话系统 美图手机 网站文章发布 服务器配置
      使用方法：
      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" '关闭音乐程序
'/////////////////////////////代码开始
Set objShell = WScript.CreateObject("WScript.Shell")
j = 60 '工作时间（分钟）
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
'/////////////////////////////代码结束
您可能感兴趣的文章:
  • 算阶乘的vbs小程序
  • PDF的VBS小程序代码
  • C语言实现的一个万年历小程序
  • C语言小程序 如何判断三角型类型
  • C语言小程序 计算第二天日期示例代码
  • C语言小程序 如何判断两个日期之差
  • c语言10个经典小程序
  • 好玩的vbs微信小程序之语言播报功能

标签：新疆 长治 河南 沧州 上海 沈阳 红河 乐山

巨人网络通讯声明：本文标题《实用vbs提醒小程序》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：一个最简单的vbs类实例代码

    下一篇：使用vbs下载文件的代码加强版

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266