想做一个自动提醒软件,又懒得再装一个软件,上网找了一个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
作者:黄聪
出处:http://www.cnblogs.com/huangcong/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。
出处:http://www.cnblogs.com/huangcong/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· DeepSeek火爆全网,官网宕机?本地部署一个随便玩「LLM探索」
· 开发者新选择:用DeepSeek实现Cursor级智能编程的免费方案
· 【译】.NET 升级助手现在支持升级到集中式包管理
· 独立开发经验谈:如何通过 Docker 让潜在客户快速体验你的系统
· 并发编程 - 线程同步(二)