[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ı
