UserVar thing=在这输入你要记录的事 编辑你需要提醒的事件
UserVar awoke=2(s) 在这输入多少秒s,分钟m,小时h后提醒
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(x&"\备忘录.txt")
//↑写一个TXT到桌面
myfile.writeline("时间:"&now)
myfile.writeline("事件:"&thing)
//↑这两行就是你写进TXT的内容
myfile.Close
Lleft=instr(1,awoke,"(")
Rright=instr(1,awoke,")")
o=mid(awoke,Lleft+1,Rright-Lleft-1)
//↑检测沿时单位
p=mid(awoke,1,Lleft-1)
//↑检测沿时长度
If o="h"
    q=3600
ElseIf o="m"
    q=60
Else 
    q=1
EndIf 
t=now
Rem 检查时间
If DateDiff("s",t,now)>=p*q
    //↑比较时间
    Goto 时间到了
EndIf 
Delay 50
Goto 检查时间
Rem 时间到了
Set myfile=fso.OpenTextFile(x&"\备忘录.txt",ForReading)
a=myfile.ReadLine
b=myfile.ReadLine
//↑读取刚写的内容
myfile.Close
MessageBox a&vbCr&b
//↑把刚读取的显示出来
RunApp x&"\备忘录.txt"
//↑运行刚建立的TXT文本