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

Кирилл

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

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

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,612
Реакции
6,051
Баллы
808
Ты это, скрин прилепи для подогрева...


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