[stalinit078]

saavaage,
Можете выложить исходники на другой файлообменник (например rghost)?

[saavaage]

stalinit078, в шапке
Обновил исходники и утилиту. Устранен баг с вкладкой "Software" ссылки - в шапке

[FlatX007]

Код:

#include <Encoding.au3>

MsgBox(0, Default, _GetServicesStatEx())

Func _GetServicesStatEx()
    Local $sStrRep[2], $StdoutRead[2]
    Local Const $STDOUT_CHILD = 0x2 ; Constants.au3

    $hIPconfig1_1 = Run('sc query wuauserv', '', @SW_HIDE, $STDOUT_CHILD)
    $hIPconfig1_2 = Run('sc qc wuauserv', '', @SW_HIDE, $STDOUT_CHILD)

    While 1
        $StdoutRead[0] &= StdoutRead($hIPconfig1_1)
        $StdoutRead[1] &= StdoutRead($hIPconfig1_2)
        If @error Then ExitLoop
        Sleep(10)
    WEnd

    $sStrRep[0] = StringRegExpReplace($StdoutRead[0], "(?si).*STATE\D*(\d+).*", '\1')
    $sStrRep[1] = StringRegExpReplace($StdoutRead[1], "(?si).*START_TYPE\D*(\d+).*", '\1')

    If Not IsNumber($sStrRep[0]) Then $sStrRep[0] = StringRegExpReplace(_Encoding_CyrillicTo1251($StdoutRead[0]), "(?si).*Состояние\D*(\d+).*", '\1')
    If Not IsNumber($sStrRep[1]) Then $sStrRep[1] = StringRegExpReplace(_Encoding_CyrillicTo1251($StdoutRead[1]), "(?si).*Тип_запуска\D*(\d+).*", '\1')

    Return $sStrRep[0] & '|' & $sStrRep[1]
EndFunc

[saavaage]

FlatX007, насколько я понял, это и есть элегантный способ заставить работать и русскую версию sc (в win7)? . Надо будет таким образом "причесать" весь код. Беру на заметку. Как дойду до финнального релиза (сейчас идет тестирование на форуме), так сделаю везде, где можно.
Спасибо.

[FlatX007]

Если у вас работает эта функция, значит всё нормально .. тк она у меня работает тоже - я ведь тестировал как никак.

[saavaage]

Поправил код (пока без учета замечаний FlatX007)
Изменения:
1. Dialup - сделано автоматическое закрытие после выполнения автоматической настройки
2. Pagefile - устранен баг с 0 размером в случае выбора пункта в настройках Виртуальной памяти "Размер по выбору системы"
3. Сделал недоступными для корректировки все окна вывода информации (за исключением изменяемой)
4. Firewall - увеличил интервал между действиями по автоматической настройке. Возможно теперь проблем с зависанием не будет (не тестил)
5. Перевел на русский названия полей на вкладке Network
6. Расширил базу антивирусов

Ссылки в шапке обновлены

[saavaage]

Сегодня вечером будет свежий код. Планирую исправить баг с антивирусом и сделать прочие мелкие изменения.

[saavaage]

Выкладываю новую версию утилиты.
Изменения:
1. Устранен баг с определением антивирусом
2. устранен баг с "-1" при определении внешнего ip
3. устранен баг с вываливанием утилиты при запуске (ошибка Pozia) - спасибо madmasles и Yashied за помощь и науку
4. Незначительные изменения:
- теперь буквы дисков привязаны к текущим разделам системы (вкладка Folders - pagefile) - спасибо madmasles за предложение
- по клику на лого, автоматический переход в ветку форума
- небольшие улучшения кода

Ссылки обновлены - см. в шапке

База слов для определения антивируса:
'Antivir', 'Security Suite', 'ESET Security', 'COMODO Internet Security', 'AVG Free', 'Avira AntiVir', 'ESET Smart Security', 'ESET NOD32', 'KIS', 'Kaspersky Internet Security', 'Symantec Endpoint Protection', 'BitDefender Total Security', 'Norton 360', 'Security Space', 'Doctor Web', 'Vba32', 'Panda Global Protection', 'McAfee', 'GData', 'Microsoft Security Essentials'

Тестим, пожалуйста

На всякий случай, дублирую модуль по определению софта, установленного в системе (см. аттач). Если не сложно, отпишитесь как там называются Ваши антивирусы для внесения новых слов в базу. Тем, кто качал исходники, качать модуль не надо - он уже есть в архиве.

[saavaage]

Нашел небольшой баг с функцией "Обновить" вкладки Folders (исчезали буквы разделов из выпадающих списков. Поправил, ссылки перезалил.

Извините, спешка.