[General]
Description=建立备忘录到桌面上并定时提醒
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=日常应用

[Script]
UserVar thing=在这输入你要记录的事 编辑你需要提醒的事件
UserVar awoke=2(s) 在这输入多少秒s,分钟m,小时h后提醒
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forwriting=2
VBS const forreading=1
VBS set myfile=fso.createtextfile(x&"\备忘录.txt")
//↑写一个TXT到桌面
VBS myfile.writeline("时间:"&now)
VBS myfile.writeline("事件:"&thing)
//↑这两行就是你写进TXT的内容
VBS 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 时间到了
VBS Set myfile=fso.OpenTextFile(x&"\备忘录.txt",ForReading)
VBS a=myfile.ReadLine
VBS b=myfile.ReadLine
//↑读取刚写的内容
VBS myfile.Close
VBSCall MessageBox (a&vbCr&b)
//↑把刚读取的显示出来
VBSCall RunApp(x&"\备忘录.txt")
//↑运行刚建立的TXT文本
