黄聪

论SEO对人类的重要性,请看我的博客:hcsem.com

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  884 随笔 :: 0 文章 :: 903 评论 :: 389万 阅读

想做一个自动提醒软件,又懒得再装一个软件,上网找了一个VB的,分享一下。复制到记事本,另存为reminder.vbs,再运行就可以了

复制代码
'/*=========================================================================    
'
* Intro 定时提醒,格式:时间|提示语,具体使用方法可以参考例子
'
* FileName Remind.vbs
'
* Author 黄聪
'
* Version v1.0
'
* WEB http://www.hcsem.com
'
*==========================================================================*/
tx = True
used = ""
t = ""
'■■■■■■■■■■■■■■可修改区域开始■■■■■■■■■■■■■■
t = t & "|" & "08:25:00|打卡咯!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
t = t & "|" & "11:58:00|打卡咯!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
t = t & "|" & "13:25:00|打卡咯!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
t = t & "|" & "17:58:00|打卡咯!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
'■■■■■■■■■■■■■■可修改区域结束■■■■■■■■■■■■■■
t = Right(t, Len(t) -1)

Do While tx
WScript.Sleep 10000'10秒种检测一次
tixing()
Loop
Function tixing()
t2 = Split(t, "|")
For i = LBound(t2) To UBound(t2) step 2
txsj = CDate(Date & " " & t2(i))
If DateAdd("n", -1, Now) <= txsj And DateAdd("n", 1, Now) >= txsj And InStr(used, t2(i)) = 0 Then
'时间相差一分钟且没提醒过的的话提醒
MsgBox t2(i + 1)
used = used & t2(i)'提醒过的记录一下
End If
Next
End Function
复制代码



posted on   黄聪  阅读(809)  评论(1编辑  收藏  举报
编辑推荐:
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
阅读排行:
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· 开发者新选择:用DeepSeek实现Cursor级智能编程的免费方案
· 【译】.NET 升级助手现在支持升级到集中式包管理
· 独立开发经验谈:如何通过 Docker 让潜在客户快速体验你的系统
· Tinyfox 发生重大改版
点击右上角即可分享
微信分享提示