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

运行环境：分辨率：1440×900 色深：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文本