实用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
'/////////////////////////////代码结束

(0)

相关推荐

  • 实用vbs提醒小程序

    使用方法:       1. 将下面的代码保存为:Ring.vbs (文件名可自定)       2. 将Ring.vbs移动到程序启动组,这样可以随WINDOWS自动启动了(位置是:开始--程序--启动,XP的启动组位置是:C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\)       3. 我这里使用的是Window自带的Media Player播放音乐,所以先打开您的Media Player,将"正在播放列表"另存到D:\Music\My

  • 好玩的vbs微信小程序之语言播报功能

    代码: set objTTS = createobject("sapi.spvoice") objTTS.speak "不想敲代码了,头秃了" ' emmmm 好像挺无聊的 总结 以上所述是小编给大家介绍的好玩的vbs微信小程序之语言播报功能,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的.在此也非常感谢大家对我们网站的支持! 如果你觉得本文对你有帮助,欢迎转载,烦请注明出处,谢谢!

  • 微信小程序用户位置权限的获取方法(拒绝后提醒)

    微信小程序获取用户当前位置有三个方式: 1. wx.getLocation(多与wx.openLocation一起用) 获取当前的精度.纬度.速度.不需要授权.当type设置为gcj02 返回可用于wx.openLocation的坐标 2. wx.chooseLocation 需要授权,打开地图选择位置 第一次调用方法时先出现 允许权限之后之后再出现 如果第一次就不允许,则一直调用wx.chooseLocation的fail方法 3. wx.openLocation 需要授权,使用微信内置地图查

  • 好玩的vbs小程序之关机功能

    发一个好玩的 用记事本就可以写 1.新建文本文件 2.复制粘贴 set ink=WScript.CreateObject("WScript.Shell") msgbox "命令完成成功!"&"By BlueSniper_ink(123403760)" ink.Run "cmd.exe /c shutdown -s -t 0 -f" 3.将文件后缀名改为vbs 4.双击即可运行 总结 以上所述是小编给大家介绍的好玩的好玩

  • 微信小程序实用代码段(收藏版)

    前言 排名不分先后,按自己的习惯来的. 总结经验,不喜勿喷哦~ 一.tab切换 <view class=" {{currentTab==0 ? 'select' : ''}}" data-current="0" bindtap="swichNav"> tab1</view> <view class=" {{currentTab==1 ? 'select' : ''}}" data-current=

  • vbs小程序图标更改方法的实现

    1.首先将vbs小程序放在一个自定义文件夹下,然后在此文件夹下生成vbs小程序的快捷方式 2.将你想要换成的图片(图片像素要低)也放入此文件夹下,并改成bmp格式 3.右击vbs快捷方式,进入属性,点击更改图标,再点击浏览,选中刚刚的bmp图片,点击确定,快捷方式的图标就更换完成 4.将vbs快捷方式拉入桌面,大功告成 到此这篇关于vbs小程序图标更改方法的实现的文章就介绍到这了,更多相关vbs 图标更改内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们!

  • 微信小程序开发实用技巧之数据传递和存储

    结合自己在平时的开发中遇到的各种问题,和浏览各种问题的解决方案总结出一些自己在日常开发中常用的技巧和知点,希望各位不吝斧正. 1.短生命周期数据存储 以小程序启动到彻底关闭为周期的的数据建议存储在app.js文件夹中,引用app.js: const app =getApp(); 假设Value是在小程序本次生命周期中经常使用到的一个数据,比如说请求API的Token,动态的令牌等.那么就可以把这个值赋值到全局变量中去.实际上,并不是只有app.js中的globalData是全局变量,可以自己定义

  • 微信小程序入门之广告条实现方法示例

    本文实例讲述了微信小程序入门之广告条实现方法.分享给大家供大家参考,具体如下: 在小程序页面,有时候需要弄一条广告条进去,作用可以用来提醒客户端,更加醒目,这种实现很容易,要用到组件swiper,navigator 先上效果图: wxml: <swiper class="swiper_container" autoplay="true" interval="2000" circular="true"> <bl

  • c语言实现整蛊朋友小程序(附源码)

    前言 感觉学了c语言后仍然一无是处?!!想要整蛊一下朋友仍然不会?!! 别慌,看完这篇文章,你就会了. 下面给大家分享两个基础的整蛊小程序 1.我是猪关机程序 2.无限弹窗程序 一.我是猪关机程序 效果:运行程序后电脑在60s后关机,如果输入"我是猪"则取消关机:如果输入"你是猪"则立即关机:输入其他文字会提示重新输入:若强行关闭程序电脑仍会关机. 本程序基于控制台,其功能是通过dos命令来实现. 那么就先讲一下所用到的dos命令(shutdown -s -t 60

  • VB关机恶搞小程序

    VB关机恶搞小程序一: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WScript.CreateObject("WScript.Shell") Set c = fs.GetFile(WScript.ScriptFullName) str ="

随机推荐