[办公]简单工作记录

; 在下午4点50分左右提醒使用一个专用的文本文件记录记录工作
#Persistent
#SingleInstance Force
#NoEnv
SendMode Input
; 创建记录文件
if(!FileExist(A_AppData . "\WorkDate\Date.txt")){
    FileCreateDir, %A_AppData%\WorkDate
    FileAppend, 工作日志, %A_AppData%\WorkDate\Date.txt
}
; 创建开机启动，如果不需要请注释掉后面三行
if(!FileExist(A_AppData . "\Microsoft\Windows\Start Menu\Programs\Startup\WorkDate.lnk"))
    FileCreateShortcut, %A_ScriptFullPath%, %A_AppData%\Microsoft\Windows\Start Menu\Programs\Startup\WorkDate.lnk
SetWorkingDir %A_AppData%\WorkDate

Menu, Tray, NoStandard
Menu, Tray, Add, 打开记录文件, OpenText
Menu, Tray, Add, 备份记录文件到桌面, Backup
Menu, Tray, Add, 退出, Exit
SetTimer, CheckTimeH, 1800000
Return

CheckTimeH:
    if(A_Hour = 16){
        SetTimer, CheckTimeH, Off
        SetTimer, CheckTimeM, 300000
    }
Return

CheckTimeM:
    if(A_Min > 45)
        MsgBox, 4, 工作日志, 是否现在记录工作日志？
    IfMsgBox yes
        gosub AddDate
Return

AddDate:
    SetTimer, CheckTimeM, Off
    Gui, 1:show
    text := "`n`n[date]  "
    FormatTime, date, %a_now%, ShortDate
    text .= date . "`n"
    FileAppend, %text%, Date.txt
    run, Date.txt
    WinWaitActive, Date.txt
    Send ^{end}
Return

OpenText:
    run, Date.txt
    WinWaitActive, Date.txt
    Send ^{end}
Return

Backup:
    FileMove, Date.txt, %A_Desktop%\工作日志备份%a_now%.txt
    FileAppend, 工作日志, %A_AppData%\WorkDate\Date.txt
Return

Exit:
    ExitApp
Return