#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
Здесь все закомментировано и будет несложно разобраться. Скрипт можно приспособить и под другие нужды или на выполнение сразу нескольких задач.
