VB 6 Тестер для невнимательных пользователей ПК

Кирилл

Команда форума
Администратор
Сообщения
14,080
Реакции
6,133
Баллы
993
Вчера крайне оперативно накидал такую программку,для рассылки сотрудникам одного предприятия,по человечески стало жаль сисадмина и вот...
....Суть в том,что те,кто до сих пор не знает как не зашифровать свой комп хотя бы месяц откроют эту рассылку и вынуждены будут пройти тест.

Ну и, собственно,идея теста понравилась и решил поделиться образцом.
Можно прикрутить функцию,с помощью которой можно будет вопросы и ответы теста менять и добавлять,тем самым используя его для добровольного участия в тестах форумчан или ,как вариант,тех же сотрудников на работе кому образумить надо.
Пока что прилагаю свой немного деревянный исходник и программу,исходя из отзывов и решим интересна ли идея и стоит ли ее дорабатывать...

VB.NET:
Private Type tagINITCOMMONCONTROLSEX
  dwSize  As Long
  dwICC  As Long
End Type

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As tagINITCOMMONCONTROLSEX) As Boolean

Private Sub Command1_Click()

Select Case Combo1.Text
    Case "Я открыл(а) неизвестный мне файл,который пришел по почте"
        Label3.Caption = "Вопрос №2"
        Label4.Caption = "Что надо делать,если я понимаю,что запустил(а) вирус-шифровальщик?"
        Combo1.List(0) = "Звонить системному администратору"
        Combo1.List(1) = "Ничего не делать"
        Combo1.List(2) = "Связаться со злоумышленниками и заплатить им выкуп"
        Combo1.List(3) = "Немедленно выключить компьютер и звонить Системному Администратору!"
        Combo1.Text = "Верный ответ!"
        Check1(0).Visible = True
    Case "Я не знаю"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Я ничего не делал(а)"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Звонить системному администратору"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Ничего не делать"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Связаться со злоумышленниками и заплатить им выкуп"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Немедленно выключить компьютер и звонить Системному Администратору!"
        Label3.Caption = "Вопрос №3"
        Label4.Caption = "Как именно вы выключите компьютер?"
        Combo1.List(0) = "Через меню пуск - завершение работы"
        Combo1.List(1) = "Разобью монитор"
        Combo1.List(2) = "Позову Системного Администратора"
        Combo1.List(3) = "Я работаю за компьютером - выдерну кабель питания"
        Combo1.List(4) = "У меня ноутбук - зажму кнопку включения пока ноутбук не выключится"
        Combo1.Text = "Верный ответ!"
        Check1(1).Visible = True
    Case "Через меню пуск - завершение работы"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Разобью монитор"
        Combo1.Text = "Это не верный ответ,попробуй еще раз."
    Case "Я работаю за компьютером - выдерну кабель питания"
        Combo1.Text = "Верный ответ!"
        Check1(2).Visible = True
        Text1.Text = "Если вы запустили малоизвестный вам файл или вам пришло электронное письмо от незнакомых лиц и вы его случано открыли - будьте бдительны,возможно вы стали жертвой моженников.Первыми признакми,что это случилось будут являться изменение иконок части ваших файлов и повышенная загрузка процесора компьютера,ощущение того,что он подвисает и тормозит при работе.Удачи!"
        Text1.Visible = True
        Command1.Visible = False
        Label1.Visible = False
        Combo1.Visible = False
        Command2.Visible = True
        Check1(2).Visible = True
    Case "У меня ноутбук - зажму кнопку включения пока ноутбук не выключится"
        Combo1.Text = "Верный ответ!"
        Text1.Text = "Если вы запустили малоизвестный вам файл или вам пришло электронное письмо от незнакомых лиц и вы его случано открыли - будьте бдительны,возможно вы стали жертвой моженников.Первыми признакми,что это случилось будут являться изменение иконок части ваших файлов и повышенная загрузка процесора компьютера,ощущение того,что он подвисает и тормозит при работе.Удачи!"
        Text1.Visible = True
        Command1.Visible = False
        Command2.Visible = True
        Label1.Visible = False
        Combo1.Visible = False
        Check1(2).Visible = True
  End Select
       

 
       
End Sub

Sub Zero()
End Sub

Private Sub Command2_Click()
    End
  
End Sub

Private Sub Form_Initialize()
  On Error Resume Next
  Dim ICC As tagINITCOMMONCONTROLSEX

  ' Enable visual styles
  With ICC
      .dwSize = Len(ICC)
      .dwICC = &HFF& 'http://www.geoffchappell.com/studies/windows/shell/comctl32/api/commctrl/initcommoncontrolsex.htm
  End With
  InitCommonControlsEx ICC
End Sub
Код:
http://my-files.ru/re0xe1
 
Последнее редактирование:

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
6,378
Реакции
5,877
Баллы
718
Ты это, скрин прилепи для подогрева...


Безымянный.png
 
Сверху Снизу