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文本