// Скрипт по перезапуску модемов
// пытаемся загрузить страницу из интернет, если не получается,
// то перезапускаем приложение для модема
Если (Окна.Активно()=1)           Тогда Возврат; Конец; // если форма программы активна, то ничего не делаем
Если (Файлы.Есть("http://ya.ru")) Тогда Возврат; Конец;
перезапустили  = 0;
ПапкаПрограммы = Компьютеры.Директории("%ProgramFiles%");

Список = Окна.Определить("МегаФон | Модем", "QWidget"); // если модем от мегафона
Если (Список.Количество()>0) Тогда
    Объект = Список.Получить(0);
    Окна.Закрыть(Объект);
    Подождать(3);
    Если (Окна.Класс()="QWidget") Тогда
        Нажать(Клавиши.Ввод);
    Конец;
    Подождать(20);
    Запустить(ПапкаПрограммы+"\MegaFon Modem\MegaFon Modem.exe");
    перезапустили = 1;
Конец;

Список = Окна.Определить("USB-модем «Билайн»", "QWidget"); // если модем от билайн
Если (Список.Количество()>0) Тогда
    Объект = Список.Получить(0);
    Окна.Активизировать(Объект);
    Окна.Закрыть(Объект);
    Подождать(3);
    Если (Окна.Класс()="QWidget") Тогда
        Нажать(Клавиши.Ввод);
    Конец;
    Подождать(10);
    Запустить(ПапкаПрограммы+"\USB-модем Билайн\Huawei\USB-modem Beeline.exe");
    Подождать(20);
    Список = Окна.Определить("USB-модем «Билайн»", "QWidget"); // еще раз определим положение окна
    Если (Список.Количество()>0) Тогда
        Объект = Список.Получить(0);
        Окна.Активизировать(Объект);
        Нажать(Клавиши.Левая, 1, Объект.Лево+525, Объект.Верх+345);
    Конец;
    перезапустили = 1;
Конец;

Список = Окна.Определить("Коннект", "TApplication"); // если модем от мтс
Если (Список.Количество()>0) Тогда
    Объект = Список.Получить(0);
    Окна.Активизировать(Объект);
    Окна.Закрыть(Объект);
    Подождать(3);
    Если (Окна.Класс()="TApplication") Тогда
        Нажать(Клавиши.Влево);
        Нажать(Клавиши.Ввод);
    Конец;
    Подождать(20);
    Запустить(ПапкаПрограммы+"\ConnectManager\UIMain.exe");
    перезапустили = 1;
Конец;

Если (перезапустили=1) Тогда
    // добавим в статистику момент перезапуска
    Настройка          = Главный.Определить(0,                  Объекты.Дерево, Свойства.Наименование, "Настройка");
    ГруппаСтатистики   = Настройка.Определить(0,                Объекты.Группа, Свойства.Наименование, "Статистика");
    СписокПерезапусков = Настройка.Определить(ГруппаСтатистики, Объекты.Список, Свойства.Наименование, "Перезапуски модема");
    СписокПерезапусков.Колонки.Определить("Момент", Типы.Момент, 120, 1, 0);
    Объект = СписокПерезапусков.Определить(0, Объекты.Объект, Свойства.Момент, Моменты.Текущий);
Конец;