AHK: Ежемесячное однократное выполнение задачи

#NoEnv
#SingleInstance force
SetBatchLines -1

If !A_IsAdmin
    {
    Run *RunAs "%A_ScriptFullPath%"
    ExitApp
    }
;__________________________________________________________________________________________________________________
; TrayMenu

Menu Tray, NoStandard
Menu Tray, Tip, Monthly Tasks
Menu Tray, Add, Автозапуск с Windows, SwitchAutoLaunch
Menu Tray, Add
Menu Tray, Add, Выйти из программы, CloseProg
Menu Tray, Default, Выйти из программы

RegRead AutoLaunch, HKCU, Software\Microsoft\Windows\CurrentVersion\Run, MonthlyTasks
    If !AutoLaunch ; Добавление Monthly Tasks в автозапуск
        {
        RegWrite REG_SZ, HKCU, Software\Microsoft\Windows\CurrentVersion\Run, MonthlyTasks, % """" . A_ScriptFullPath . """"
        }
AutoLaunchOn := 1 ; Метка для проверки автозапуска SwitchAutoLaunch
Menu Tray, Check, Автозапуск с Windows
GoTo Tasks
;__________________________________________________________________________________________________________________
; Переключение автозапуска

SwitchAutoLaunch:
If AutoLaunchOn
    {
    RegDelete HKCU, Software\Microsoft\Windows\CurrentVersion\Run, MonthlyTasks
    AutoLaunchOn := ""
    Menu Tray, UnCheck, Автозапуск с Windows
    }
    Else
        {
        RegWrite REG_SZ, HKCU, Software\Microsoft\Windows\CurrentVersion\Run, MonthlyTasks, % """" . A_ScriptFullPath . """"
        AutoLaunchOn := 1
        Menu Tray, Check, Автозапуск с Windows
        }
return
;__________________________________________________________________________________________________________________
; Выполнение задач

Tasks:
FormatTime NextMonth, % A_Year Chr(48*(A_MM = 12)) A_MM+1, MMMM ; Получение имени следующего месяца
RegRead NextTasks, HKCU, Software\MonthlyTasks, NextTasks
    If !NextTasks ; Создание записи для выполнения задач в следующем месяце (при первом запуске Monthly Tasks)
        {
        RegWrite REG_SZ, HKCU, Software\MonthlyTasks, NextTasks, % NextMonth
        }
        
If A_MMMM = % NextTasks ; Выполнение задач вначале каждого месяца
    {
    RegRead HuaweiPath, HKLM, SOFTWARE\Wow6432Node\Huawei technologies\HUAWEI Modem Nano, ExePath ; Получение из реестра Path установленной HUAWEI Modem Nano
        If HuaweiPath
            {
            FileDelete % HuaweiPath . "\userdata\NetInfo.dat" ; Удаление файла статистики трафика за прошедший месяц
            SplashTextOn 440, 60, Monthly Tasks, `nПроизведен ежемесячный сброс статистики 3G модема Huawei !
            Sleep 3000
            SplashTextOff
            }
    RegWrite REG_SZ, HKCU, Software\MonthlyTasks, NextTasks, % NextMonth ; Создание записи для выполнения задач в следующем месяце
    }
    
Sleep % ((23-A_Hour)*3600000+(59-A_Min)*60000+(60-A_Sec)*1000)*+1 ; Отсчет времени до полуночи (нужно, если комп работает круглосуточно)
GoTo Tasks
;__________________________________________________________________________________________________________________

CloseProg:
ExitApp