侯体宗的博客
  • 首页
  • Hyperf版
  • beego仿版
  • 人生(杂谈)
  • 技术
  • 关于我
  • 更多分类
    • 文件下载
    • 文字修仙
    • 群聊
    • 九宫格抽奖
    • 拼图
    • 消消乐
    • 相册

实用vbs提醒小程序

微信(小程序)  /  管理员 发布于 3年前   224

      使用方法:
      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
'/////////////////////////////代码结束


  • 上一条:
    微信抢红包ASP.NET代码轻松实现
    下一条:
    微信 getAccessToken方法详解及实例
  • 昵称:

    邮箱:

    0条评论 (评论内容有缓存机制,请悉知!)
    最新最热
    • 分类目录
    • 人生(杂谈)
    • 技术
    • linux
    • Java
    • php
    • 框架(架构)
    • 前端
    • ThinkPHP
    • 数据库
    • 微信(小程序)
    • Laravel
    • Redis
    • Docker
    • Go
    • swoole
    • Windows
    • Python
    • 苹果(mac/ios)
    • 相关文章
    • 小程序开发之跳转微信直播示例api(0个评论)
    • 在uni_app中开发小程序之常用功能示例代码汇总(0个评论)
    • 小程序开发之多端框架:taro(0个评论)
    • 微信小程序前端使用七牛云官方SDK上传七牛云代码示例(0个评论)
    • 百度小程序审核未通过,真机审核存在点击返回键退出小程序...解决方式之一tabBar(0个评论)
    • 近期文章
    • 如何优雅处理async await错误推荐:await-to-js库(0个评论)
    • lodash工具库(0个评论)
    • 在Laravel项目中使用中间件方式统计用户在线时长功能代码示例(0个评论)
    • 在Laravel中构建业务流程模型(0个评论)
    • windows系统中安装FFMpeg及在phpstudy环境php7.3 + php-ffmpeg扩展的使用流程步骤(0个评论)
    • 在go语言中对浮点的数组、切片(slice)进行正向排序和反向排序(0个评论)
    • 在go语言中对整数数组、切片(slice)进行排序和反向排序(0个评论)
    • 在go语言中对字符串数组、切片(slice)进行排序和反向排序(0个评论)
    • 最新国内免注册ChatGPT体验站_ChatGPT镜像站访问链接地址2023/3/28持续更新(0个评论)
    • 在Laravel项目中的实现无密码认证之:发送邮箱链接授权(0个评论)
    • 近期评论
    • 博主 在

      2023年国务院办公厅春节放假通知:1月21日起休7天中评论 @ xiaoB 你只管努力,剩下的叫给天意;天若有情天亦老,..
    • xiaoB 在

      2023年国务院办公厅春节放假通知:1月21日起休7天中评论 会不会春节放假后又阳一次?..
    • BUG4 在

      你翻墙过吗?国内使用vpn翻墙可能会被网警抓,你需了解的事中评论 不是吧?..
    • 博主 在

      go语言+beego框架中获取get,post请求的所有参数中评论 @ t1  直接在router.go文件中配就ok..
    • Jade 在

      如何在MySQL查询中获得当月记录中评论 Dear zongscan.com team, We can skyroc..
    • 2017-10
    • 2018-01
    • 2020-03
    • 2021-06
    • 2021-10
    • 2022-03
    • 2023-02
    Top

    Copyright·© 2019 侯体宗版权所有· 粤ICP备20027696号 PHP交流群

    侯体宗的博客