1. 用户定义变量 thing=在这输入你要记录的事 编辑你需要提醒的事件
2. 用户定义变量 awoke=2(s) 在这输入多少秒s,分钟m,小时h后提醒
3. Set objShell = CreateObject("WScript.Shell")
4. x = objShell.SpecialFolders.Item("desktop")
5. //↑取得桌面路径
6. set fso=CreateObject("Scripting.FileSystemObject")
7. const forwriting=2
8. const forreading=1
9. set myfile=fso.createtextfile(x&"\备忘录.txt")
10. //↑写一个TXT到桌面
11. myfile.writeline("时间:"&now)
12. myfile.writeline("事件:"&thing)
13. //↑这两行就是你写进TXT的内容
14. myfile.Close
15. Lleft=instr(1,awoke,"(")
16. Rright=instr(1,awoke,")")
17. o=mid(awoke,Lleft+1,Rright-Lleft-1)
18. //↑检测沿时单位
19. p=mid(awoke,1,Lleft-1)
20. //↑检测沿时长度
21. 如果表达式 (o="h") 为真,则
22.     q=3600
23. 否则如果(o="m")为真,则
24.     q=60
25. 否则
26.     q=1
27. 条件结束
28. t=now
29. 标记 检查时间
30. 如果表达式 (DateDiff("s",t,now)>=p*q) 为真,则
31.     //↑比较时间
32.     跳转到标记 时间到了
33. 条件结束
34. 延时50毫秒
35. 跳转到标记 检查时间
36. 标记 时间到了
37. Set myfile=fso.OpenTextFile(x&"\备忘录.txt",ForReading)
38. a=myfile.ReadLine
39. b=myfile.ReadLine
40. //↑读取刚写的内容
41. myfile.Close
42. 弹出窗口 a&vbCr&b
43. //↑把刚读取的显示出来
44. RunApp x&"\备忘录.txt"
45. //↑运行刚建立的TXT文本