VB 6 Windows Error Detect (сбор данных для анализа причин сбоев)

Тема в разделе "Visual Basic 6 / Сценарии VBScript, JScript", создана пользователем Kиpилл, 17 янв 2014.

  1. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Итак,что хочется.
    Утилита для сбора необходимой информации для быстрого анализа системы и возможных причин появления сбоев.
    С последующим развитием функционала до взаимодействия с пользователем путем выполнения заготовленных таблеток и внедрения скриптов ,возможно заранее заготовленного кода.

    1)Базовый лог (стандартный запуск)

    • Системный журнал,удобно читаемый.
    • Информация о системе,оборудовании,установленном программном обеспечении.
    • Лог загрузки процессора
    • Температуры,SMART
    • Автозагрузка
    • список процессов с выводом дочерних и потребляемых ресурсов

    • Частично можно воспользоваться например SITLog от Glax,если он не против -там кое что уже реализовано.
    2)Дополнительный лог
    (каждый пункт запрашивается отдельно)

    • Тест диска и получение лога (chkdsk)
    • Включение записи малого дампа и получение его в архив
    • sfc /*
    • progdump


    3)Таблетки

    Таблетки нужно будет периодически добавлять,отсюда следует что эту возможность надо предусмотреть.
     
    Последнее редактирование: 17 янв 2014
    Guest, tzrb, E100 и ещё 1-му нравится это.
  2. glax24
    Оффлайн

    glax24 Разработчик

    Сообщения:
    2.000
    Симпатии:
    1.450
    не против только за )))
     
    E100 и Kиpилл нравится это.
  3. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Итого таки начал потихоньку ... проект по проверке целостности файлов тоже будет переведен сюда.
    Сейчас думаю над удобной навигацией.

    Если у кого есть желание то можете выразить критику или аргументы.
     

    Вложения:

    • wed_test.7z
      Размер файла:
      296,7 КБ
      Просмотров:
      47
    tzrb, Dragokas и E100 нравится это.
  4. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    На x64 не работает. Запустив перехватчик консольных окон понял почему.

    Тебе нужно добавить отключение файлового редиректора.
    Можешь это делать также как реализовано в HJT, отключаешь в самом начале программы и включаешь перед ее завершением (в твоем случае можно поставить на процедуру события закрытия формы).
    Держи код:
    Код (vb.net):
    Option Explicit

    Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryW" (ByVal lpFileName As Long) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
    Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProcess As Long, ByRef Wow64Process As Long) As Long
    Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (OldValue As Long) As Long
    Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" (OldValue As Long) As Long

    Private Sub Form_Load()
        ' отключаем
        If IsWOW64() Then ToggleWow64FSRedirection False
    end sub

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        'включаем
        ToggleWow64FSRedirection True
    End Sub


    Function IsWOW64() As Boolean
        Dim hModule As Long, procAddr As Long, lIsWin64 As Long
     
        hModule = LoadLibrary(StrPtr("kernel32.dll"))
        If hModule Then
            procAddr = GetProcAddress(hModule, "IsWow64Process")
            If procAddr <> 0 Then
                IsWow64Process GetCurrentProcess(), lIsWin64
                IsWOW64 = CBool(lIsWin64)
            End If
            FreeLibrary hModule
        End If
    End Function

    Public Sub ToggleWow64FSRedirection(bEnable As Boolean)
        Static lWow64Old As Long
        If bEnable Then
            If lWow64Old <> 0 Then
                Wow64RevertWow64FsRedirection lWow64Old
                lWow64Old = 0
            End If
        Else
            If lWow64Old = 0 Then Wow64DisableWow64FsRedirection lWow64Old
        End If
    End Sub
     

    Вложения:

    • res.jpg
      res.jpg
      Размер файла:
      35,6 КБ
      Просмотров:
      1
    Последнее редактирование: 28 июн 2015
    tzrb, E100 и Kиpилл нравится это.
  5. E100
    Оффлайн

    E100 Активный пользователь

    Сообщения:
    84
    Симпатии:
    60
    А на xp не работает
     
  6. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    Кстати, да, нужно отталкиваться от версии ОС. Например, в XP, нет всего что связано с восстановлением хранилища и т.п.
    И командную строку запускай через обычную функцию Shell "sfc /scannow"
    а то в XP это вызывает вместо запуска диалоговое окно "Запуск от имени...".
     
    tzrb и E100 нравится это.
  7. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Это все учитываться,конечно,будет.
    с получением прав для проги это так и будет делаться,так как нужда в ShellExecute с аргументами отпадает
    --- Объединённое сообщение, 27 июн 2015 ---
    А что именно?
     
    tzrb и E100 нравится это.
  8. E100
    Оффлайн

    E100 Активный пользователь

    Сообщения:
    84
    Симпатии:
    60
    В XP при запуске:
    Выполнить проверку sfc /scannow
    Ошибка
    ---------------------------
    dism.exe
    ---------------------------
    Windows не удалось найти 'dism.exe'. Проверьте, что имя было введено правильно, и повторите попытку. Чтобы выполнить поиск файла, нажмите кнопку "Пуск", а затем выберите команду "Найти".
    ---------------------------

    Остальные тесты:
    Выполнить проверку CHKDSK, SMART, Получить лог последнего CHKDSK, Монтировать образ диска. (Запуск от имени другого пользователя)
     
    tzrb нравится это.
  9. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Эти пункты еще не подключены,так же пока что отсутствует логирование,протокол,таблетки,скриптовый анализатор и работа с системными утилитами.


    Да,точно))
    Для хр по другому делается,исправлю.

    Сейчас жду что скажет Стас,почему права при подключении манифеста не получены.
     
    tzrb и E100 нравится это.
  10. regist
    Оффлайн

    regist гоняюсь за туманом Ассоциация VN/VIP VIP Разработчик

    Сообщения:
    11.382
    Симпатии:
    5.268
    не, если файл компилируется, то конечно лучше сразу при компиляции его засунуть. Я просто для общего развития, что есть ещё один способ. При этом ещё можно было редактировать манифест и сразу проверять результат.
     
  11. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Новый образец для желающих помочь проверить работоспособность на разных ОС
    Включена только категория восстановление системы,таблетки и скрипты тоже пока отключил
    http://rghost.ru/7TdgCBn5k
     
  12. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Ну вот и первый результат теста. :Hi:

    block.png
    --- Объединённое сообщение, 26 июл 2015 ---
    block2.png
    --- Объединённое сообщение, 26 июл 2015, Дата первоначального сообщения: 26 июл 2015 ---
    block3.png
    --- Объединённое сообщение, 26 июл 2015 ---
    Кстати могу на твоем файле продемонстрировать малодокументированные функции SNS (в разделе тестирования).
    Одно изменение в настройках и браузеры защищены так, что никакие внешние файлы не смогут быть скачаны и/или запущены.
    Твой файл идеально подходит по той причине, что он необычный и написан кем-то неизвестным и без цели заразить ПК.
    Ну и потому, что тебя тут все знают.
     
    Последнее редактирование: 26 июл 2015
  13. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    SNS-amigo, его интересовала не антивирусная проверка, а тест функционала программы.

    --- Объединённое сообщение, 26 июл 2015, Дата первоначального сообщения: 26 июл 2015 ---
    Koza Nozdri, вроде работает, только хотелось бы чтобы в конце сканирования открывалось диалоговое окно сохранения файла-отчета (лучше сразу в виде архива).
    А вначале, чтобы появлялось окно "Рекомендуется вставить установочный CD-диск", а то я на таком темном фоне прочитал эту рекомендацию уже только после того, как просканировал.
    --- Объединённое сообщение, 26 июл 2015 ---
    Отправил твой файл в Avira и Bkav.
     
    Последнее редактирование: 29 июл 2015
    Kиpилл нравится это.
  14. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Кирилл просил протестировать, я протестировал, как понял.
     
    Последнее редактирование модератором: 27 июл 2015
  15. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    SNS-amigo,Андрей.
    В этой теме процесс разработки программы.
    WED не имеет цифровой подписи,не рассылался вирлабам и т.д. - конечно реакция на программу будет однозначна.
    Мне важно знать на всех ли ОС она работает,не падает ли пока в коде 1000 строк а не 100 000,что бы легче было переделать.

    А тестирование с SNS и всем остальным ПО будет после выпуска публичной рабочей версии))
    --- Объединённое сообщение, 27 июл 2015 ---
    Ок,сделаю.
    И про диск тоже.
    Вот все сомневался насчет картинки)))
    Надо будет оригинальную сообразить потом.
     
    Последнее редактирование: 27 июл 2015
  16. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    1. Первый спойлер от гугло-хрома.
    2.
    Ну как же, а кто его засветил вирлабам >>>
    Понятно кто.
     
  17. Kиpилл
    Онлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.217
    Симпатии:
    4.978
    Андрей,не суть,повторюсь что отрабатывается работоспособность,навигация и дизайн программы,если есть желание помоги с тестом,все остальное не в эту тему.
    --- Объединённое сообщение, 27 июл 2015 ---
    + принмаются хотелки и предложения.
     
    Последнее редактирование: 27 июл 2015
  18. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    После слов алекса в мой адрес, нет.
     
  19. грум
    Оффлайн

    грум Команда форума Преподаватель Модератор

    Сообщения:
    2.874
    Симпатии:
    1.535
    Кирилл попробовал на 10 работает.А картинку и правда лучше сменить.
     
    Kиpилл нравится это.
  20. regist
    Оффлайн

    regist гоняюсь за туманом Ассоциация VN/VIP VIP Разработчик

    Сообщения:
    11.382
    Симпатии:
    5.268
    На XP утиль вообще не запускается. Посмотрел на 7-ке. Размер кнопок надо бы увеличить

    [​IMG]
     
    Kиpилл нравится это.

Поделиться этой страницей