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

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

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

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

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

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

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

    Код (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

     
    Код (Text):
    http://my-files.ru/re0xe1
     
    Последнее редактирование: 11 сен 2016
    tzrb, Guest, Dragokas и ещё 1-му нравится это.
  2. Dragokas
    Оффлайн

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

    Сообщения:
    4.478
    Симпатии:
    4.307
    Ты это, скрин прилепи для подогрева...


    Безымянный.png
     
    Kиpилл нравится это.

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