Блокировка экрана (VB.NET): 3 шага

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:55

Я собираюсь показать вам, как я сделал свою собственную блокировку экрана … так что, возможно, вы можете сделать свою собственную. Или вы могли бы просто использовать мою;) Вы видите повсюду в Интернете: 'Блокировка экрана!' … и вы загружаете и устанавливаете, и он блокирует ваш компьютер, чтобы никто не мог получить доступ к вашему компьютеру, пока вас нет. (Блокировка Windows делает то же самое, если у вас нет пароля.) Эта программа, которую я сделал, использует VB. NET для блокировки экрана. В следующих нескольких шагах я покажу вам, как это сделать. Вы можете скачать мою Блокировку экрана ниже.

Шаг 1: Изготовление экрана (часть 1)

Здесь я собираюсь показать вам первую часть блокировки экрана.. первая картинка - это окно, которое появляется, когда вы запускаете мою блокировку экрана. На этом вы можете установить пароль.. я сделал это так, что вы должны установить это каждый раз, чтобы никогда не забыть. Кроме того, в моей программе всего 1 файл. У вас также есть возможность увидеть его, чтобы увидеть насквозь.. это просто для того, чтобы экран блокировки был немного виден. Итак, вы можете видеть, что изображение вашего рабочего стола исчезло. Вот как я это сделал: для пароля:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает TextBox1. TextChanged, если TextBox1. Text = Form1. TextBox1. Text Затем Dim process As System. Diagnostics. Process = Nothing DimIn psifo as New ProcessStart. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End If End Sub то, что это делает, проверяет, совпадает ли текст в textbox1 с текстом, который вы установили в первом окне. Затем, если он это делает, задача убивает диспетчер задач, если он был запущен, и перезапускает explorer.exe. Вот бит прозрачности: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает MyBase. Load Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Если Form1. CheckBox1. Checked = True, то Me. Opacity = 0,5 Else Button1. Show () End If End Sub Эта часть скрипта вызовет kill explorer.exe, поэтому даже если кто-то преодолеет мою блокировку экрана, они не смогут делать что-либо! затем он проверяет, установлен ли флажок «видеть насквозь». Если есть, то непрозрачность устанавливается на 0,5, в противном случае отображается кнопка изменения фона.

Шаг 2: Изготовление экрана (часть 2)

Здесь я покажу вам, как я заставил его отключить диспетчер задач и как он говорит поверх других окон. Чтобы установить его как верхнюю форму, которую вы только что установили: me.topmost = trueon load, чтобы сделать диспетчер задач бесполезным, я использовал эту кодировку:

Private Sub Form2_LostFocus (ByVal sender As Object, ByVal e As System. EventArgs) обрабатывает Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch другими словами говорит: при потере фокуса скрыть диспетчер задач. Но также потому, что это самая верхняя форма, в которой он выглядит, как будто диспетчер задач никогда не запускался. Затем, когда вы вводите правильный пароль … он убивает диспетчер задач. Я также использовал: Protected Overrides Function ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Or Keys. F4 Вернуть True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch делает alt F4 бесполезным! … и он пытается сделать то же самое с клавишей управления, но это не сработало … но я оставил его на всякий случай, если в других системах это будет.

Шаг 3. Блокировка экрана

Я надеюсь, что вы нашли это руководство полезным для всех ваших проектов VB. NET. Если вы не понимаете часть этого или вам нужна помощь с одним из ваших проектов, пожалуйста, оставьте комментарий или напишите мне. И, пожалуйста, дайте мне обратную связь любые проблемы и, пожалуйста, оцените =] Экран lock.exe - это круто, если вы хотите скачать … просто убедитесь, что он сохранен как.ex, чтобы сохранить, щелкните правой кнопкой мыши и щелкните.. Сохраните цель как или ваш эквивалент, затем сохраните как exe.