CallTask.vbs
Set FSO = WScript.CreateObject(“Scripting.FileSystemObject”)
callTask
‘————————————————————————————————————————
Sub callTask()
Set test = FSO.OpenTextFile(“備忘くんアベンダー”,8,false)
test.WriteLine time
Set test = nothing
Set INI = FSO.OpenTextFile(“forget_em_not.ini”,1,0)
’タスクリストを空行まで読む
do until INI.AtEndOfLine
str = INI.readLine
if instr(1,str,Chr(9))0 then
tab1=instr(1,str,Chr(9))
tab2=instr(tab1+1,str,Chr(9))
tDate = left(str,tab1-1)
tTime = mid(str, tab1+1, tab2-tab1-1)
tMsg = mid(str, tab2+1, len(str)-tab2+1)
nowDate = month(now) & “/” & day(now)
nowTime = hour(now) & “:” & right(“0” & minute(now),2)
if tDate = “d” then tDate = nowDate
if tDate = “sun” and weekday(now) = 1 then tDate = nowDate
if tDate = “mon” and weekday(now) = 2 then tDate = nowDate
if tDate = “tue” and weekday(now) = 3 then tDate = nowDate
if tDate = “wed” and weekday(now) = 4 then tDate = nowDate
if tDate = “thu” and weekday(now) = 5 then tDate = nowDate
if tDate = “fri” and weekday(now) = 6 then tDate = nowDate
if tDate = “sat” and weekday(now) = 7 then tDate = nowDate
if tDate = nowDate and tTime = nowTime then
call msgbox (tMsg„”備忘くん”)
end if
end if
loop
INI.close
set INI = nothing
End Sub
