Screen Lock (VB.NET): 3 кадам

2025 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2025-01-23 14:53

Мен сизге кантип өзүмдүн экран кулпумду жасаганымды көрсөтөм.. ошон үчүн сиз өзүңүздүкүн жасай аласыз. Же сиз жөн гана меникин колдоно аласыз;) Сиз интернеттин баардыгын көрүп турасыз: 'Экран кулпусу!'.. жана сиз жүктөп алып, орнотосуз жана ал сиздин компьютериңиздин экранын кулпулайт, ошондуктан сиз жокто сиздин компьютериңизге эч ким кире албайт.. NET экраны кулпулоо үчүн. Кийинки бир нече кадамдарда мен сизге кантип көрсөтөм. Сиз төмөндө менин Screen Lock'ту жүктөп алсаңыз болот.

1 -кадам: Экранды жасоо (1 -бөлүк)

Бул жерде мен сизге экран кулпусунун биринчи бөлүгүн көрсөтөйүн деп жатам.. биринчи сүрөт - менин экран кулпумду иштеткенде пайда болгон терезе. Мында сиз паролду орното аласыз.. мен муну сиз орнотушуңуз керек бул ар дайым, ошондуктан аны эч качан унутпайсың. Ошондой эле менин программам болгону 1 файл. Сизде аны көрүү үчүн көрүү мүмкүнчүлүгү бар.. бул жөн гана кулпу экраны аркылуу көрүнүп турат. Ошентип, сиз рабочий сүрөтүңүз өчүп калганын көрө аласыз. Эми мен муну кантип жасадым: пароль үчүн:

Private Sub TextBox1_TextChanged (ByVal sender as System. Object, ByVal e as System. EventArgs) TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Андан кийин Dim процесси System. Diagnostics. Process = Эч нерсе Dim psi New ProcessStartInfo катары. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End End Subwhat муну кылса, textbox1деги текст сиз биринчи терезеде койгон текстке барабар экенин текшерет. Андан кийин, эгер ал тапшырманы аткарса, анда ал иштеп жаткан болсо, тапшырма менеджерин өлтүрөт, жана explorer.exe.ди кайра баштайт: бит аркылуу көрүңүз: Жеке Sub Form2_Load (ByVal жөнөтүүчү System. Object, ByVal e As System. EventArgs) MyBase. Load Dimны иштетет. процесс As System. Diagnostics. Process = Эч нерсе Dim psi 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 башка баскыч 1. Көрсөтүү () End End End Бул скрипт explorer.exe файлын өлтүрөт, ошондуктан кимдир бирөө менин экран кулпумдан өтүп кетсе дагы бир нерсе кылуу үчүн! анда "көрүү" кутучасынын белгиленгенин текшерет. Эгерде ал бар болсо, анда ал тунуктукту 0.5. Антпесе, анда ал фондун өзгөртүү баскычын көрсөтөт.

2 -кадам: Экранды жасоо (2 -бөлүк)

Бул жерде мен кантип тапшырма менеджерин жокко чыгарганымды жана башка терезелердин үстүндө кантип жазылганын көрсөтөм. Аны сиз жөн эле койгон эң мыкты форма катары коюңуз: me.topmost = trueon loadto тапшырмаларды башкаруучуну пайдасыз кылуу үчүн мен бул кодду колдондум:

Жеке Sub Form2_LostFocus (ByVal жөнөтүүчү катары, ByVal e As System. EventArgs) Мени иштетет. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) SubWitchти башкача айтканда мындай дейт: Фокус жоголгондо, тапшырма менеджерин жашырып коюңуз, бирок ал эң жакшы форма болгондуктан, тапшырмалар менеджери эч качан иштебейт. Туура сырсөздү киргизгениңизге караганда… ал тапшырма менеджерди өлтүрөт. keyData As System. Windows. Forms. Keys) Boolean Select Case (keyData) Case Keys. Control True Case Keys. Alt Же Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch alt F4ту пайдасыз кылат!.. жана ал дагы көзөмөлдөө ачкычы менен ушундай кылууга аракет кылат, бирок бул иштеген жок.. бирок мен аны башка системаларда болгон учурда эле таштап койгом.

3 -кадам: Screen Lock

Мен бул көрсөтмөнү бардык VB. NET долбоорлоруңуз үчүн пайдалуу деп үмүттөнөм, эгер сиз анын бир бөлүгүн түшүнбөсөңүз же сизге долбоорлоруңуздун бирөөсү боюнча жардам керек болсо, комментарий калтырыңыз же мага PM жазыңыз. кандайдыр бир көйгөйлөр жана сураныч =] Экранды lock.exe жүктөп алууну кааласаңыз, сокку болот.. жөн гана анын.exeto катары чыкылдатып, оң баскычты чыкылдатып, чыкылдатыңыз.. максатты же эквивалентиңизди сактап, exe катары сактаңыз.