按键精灵建立备忘录并定时提醒源码

源码实现了在桌面建立一个备忘录并自动提醒的功能。

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@按键专家团     wx19841231

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