Заключване на екрана (VB.NET): 3 стъпки

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:56

Ще ви покажа как направих моето собствено заключване на екрана.. така че може би можете да направите своя собствена. Или просто можете да използвате моя;) Виждате навсякъде в интернет: "Заключване на екрана!".. и изтегляте и инсталирате и той ви заключва екрана на компютъра, така че никой да няма достъп до вашия компютър, докато вие не сте там. (Заключването на Windows прави същото, освен ако нямате парола.) Тази програма, която направих, използва VB. NET за заключване на екрана. В следващите няколко стъпки ще ви покажа как. Можете да изтеглите моето заключване на екрана по -долу.

Стъпка 1: Създаване на екрана (част 1)

Тук ще ви покажа първата част от заключването на екрана. всеки път, така че никога да не можете да го забравите. Също така, така че моята програма е само с 1 файл. Вие също имате възможност да го видите, за да го видите.. това е просто така, че заключеният екран леко се вижда. Така че можете да видите снимката на работния плот избледняла. Сега ето как го направих: за паролата:

Private Sub TextBox1_TextChanged (ByVal изпращач като System. Object, ByVal e As System. EventArgs) Обработва TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text След това обработете като System. Diagnostics. Process = Nothing Dim psi като 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 Kaj прави това, проверява дали текстът в textbox1 е равен на текста, който сте задали в първия прозорец. След това, ако го изпълни, задачата убива диспечера на задачите, ако е бил изпълнен, и рестартира explorer.exe. Ето прозорчето за бита: Private Sub Form2_Load (ByVal изпращач като System. Object, ByVal e As System. EventArgs) Обработва MyBase. Load Dim процес като System. Diagnostics. Process = Нищо Dim psi като нов ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Else Button1. Show () End If End Sub Тази част от скрипта ще изпълни задачата да убие explorer.exe, така че дори някой да мине през заключването на екрана ми, те няма да могат за да направи каквото и да е! след това проверява дали квадратчето „виж през“е поставено. Ако има, той задава непрозрачност на 0.5. Ако не, тогава показва бутона за промяна на фона.

Стъпка 2: Създаване на екрана (част 2)

Тук ще ви покажа как го накарах да анулира диспечера на задачите и как се казва отгоре на други прозорци. За да го зададете като най -горната форма, която току -що сте задали: me.topmost = trueon load, за да го направя мениджър на задачи безполезен, използвах това кодиране:

Private Sub Form2_LostFocus (Подател на ByVal като обект, ByVal e като System. EventArgs) Обработва Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch с друга дума казва: когато загубите фокус, скрийте диспечера на задачите. но също така, защото това е най -горната форма, която изгубва, като диспечерът на задачите никога не е бил стартиран. След като поставите правилната парола в… задачата убива диспечера на задачите. аз също използвам: Защитена отмяна Функция ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) Като булеви букви за избор (keyData) Ключове за случай. Контрол Върнете истинските ключови букви. Alt или Keys. F4 Връщане на True End Изберете Връщане MyBase. ProcessDialogKey (keyData) Краен функционален ключ превключва alt F4 безполезен!.. и се опитва да направи същото с контролния ключ, но това не работи.. но го оставих включен за всеки случай на други системи би го направил.

Стъпка 3: Заключване на екрана

Надявам се, че сте намерили тази инструкция полезна за всички ваши проекти на VB. NET.ако не разбирате част от това или имате нужда от помощ с някой от вашите проекти, моля, оставете коментар или ми пишете. всички проблеми и моля, оценете =] Screen lock.exe е взривен, ако искате да изтеглите.. просто се уверете, че е записан като.exe, за да запазите десния бутон и щракнете.. запазете целта като или еквивалента ви, след това запишете като exe.