Ekranni qulflash (VB.NET): 3 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

Men sizga o'z ekran qulfimni qanday yasaganimni ko'rsatmoqchiman.. balki o'zingiznikini yasashingiz mumkin. Yoki siz menikidan foydalanishingiz mumkin;) Internetda hamma narsani ko'rasiz: 'Ekran qulfi!'.. va siz yuklaysiz va o'rnatasiz va u sizning shaxsiy kompyuteringizni ekranini qulflaydi, shuning uchun siz bo'lmaganingizda hech kim sizning kompyuteringizga kira olmaydi. (Agar sizda parol bo'lmasa, Windows qulfi ham xuddi shunday qiladi.) Men yaratgan bu dastur VBdan foydalanadi.. NET ekranni qulflash uchun. Keyingi bir necha qadamda men sizga ko'rsataman. Siz mening ekran qulfimni quyida yuklab olishingiz mumkin.

1 -qadam: Ekranni yaratish (1 -qism)

Bu erda men sizga ekran qulfining birinchi qismini ko'rsatmoqchiman.. birinchi rasm - bu ekran qulfini ishga tushirganingizda paydo bo'ladigan oyna, bu erda siz parolni o'rnatishingiz mumkin.. men buni shunday o'rnatdim bu har safar, shuning uchun uni hech qachon unutolmaysiz. Bundan tashqari, mening dasturim faqat 1 ta fayl, sizda ham ko'rish imkoniyati bor.. bu shunchaki qulflangan ekran biroz ko'rinib turishi uchun. Shunday qilib, siz ish stolidagi rasm o'chib ketganini ko'rishingiz mumkin, endi men buni qanday qildim: parol uchun:

Private Sub TextBox1_TextChanged (ByVal jo'natuvchi System. Object sifatida, ByVal e As System. EventArgs) TextBox1. TextChanged bo'lsa TextBox1. Text = Form1. TextBox1. Text So'ng Dim jarayoni sifatida System. Diagnostics. Process = Hech narsa Dim psi yangi ProcessStartInfo sifatida. UseShellExecute = Haqiqiy psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" jarayoni = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Agar tugasa, tugatish - bu matn qutisidagi matn birinchi oynada siz o'rnatgan matnga tengligini tekshiradi. So'ngra, agar u bajarsa, vazifa menejeri ishlayotgan bo'lsa, uni o'ldiradi va explorer.exe -ni qayta ishga tushiradi, bu erda bit orqali ko'rish mumkin: Private Sub Form2_Load (ByVal yuboruvchi System. Object sifatida, ByVal e As System. EventArgs) MyBase. Load Dim -ni boshqaradi. jarayon sifatida System. Diagnostics. Process = Hech narsa Dim psi Yangi ProcessStartInfo kabi psi. UseShellExecute = Haqiqiy psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" jarayoni = System. Diagnostics. Process. Start (psi) Agar Form1. CheckBox1. Checked = To'g'ri bo'lsa Me. Opacity = 0.5 Boshqa tugma1. Show () End If End SubThis skript parcha explorer.exe -ni o'ldiradi, shuning uchun kimdir mening ekran qulfimdan o'tib ketgan bo'lsa ham keyin "ko'rish" katagiga belgi qo'yilganligini tekshiradi. Agar u mavjud bo'lsa, u shaffoflikni 0,5 ga o'rnatadi, agar bo'lmasa, u fonni o'zgartirish tugmachasini ko'rsatadi.

2 -qadam: Ekranni yaratish (2 -qism)

Bu erda men sizga vazifa menejerini qanday qilib bekor qilganimni va u boshqa oynalar tepasida qanday yozilganligini ko'rsataman. Uni siz o'rnatgan eng yaxshi shakl sifatida belgilash uchun: me.topmost = trueon loadto vazifa menejerini foydasiz qilish uchun men bu kodlashni ishlatganman.:

Shaxsiy Sub Form2_LostFocus (ByVal jo'natuvchi sifatida, ByVal e As System. EventArgs) Men bilan ishlaydi. Fokus yo'qolganda, vazifa menejerini yashiring, lekin bu vazifa menejeri hech qachon ishlamaydigan eng yuqori formadir, chunki siz to'g'ri parolni kiritganingizda … vazifa menejerini o'ldiradi. keyData As System. Windows. Forms. Keys) Boolean Select Case (keyData) Case Keys. Control Key Case Keys. Alt yoki Keys. F4 Return True End Return MyBase. ProcessDialogKey (keyData) End Functionwitch alt F4ni foydasiz qiladi!.. va u xuddi shunday boshqaruv tugmachasi bilan bajarishga harakat qiladi, lekin bu ishlamadi.. lekin men uni boshqa tizimlarda bo'lgani kabi qoldirdim.

3 -qadam: Ekranni qulflash

Umid qilamanki, siz ushbu VB. NET loyihalaringiz uchun hamma narsani foydali deb topdingiz, agar siz uning bir qismini tushunmasangiz yoki sizga loyihalaringizdan birida yordam kerak bo'lsa, izoh qoldiring yoki menga yozing. har qanday muammo va iltimos, baho bering =] Agar siz yuklab olmoqchi bo'lsangiz, lock.exe ekranining zarbasi bor.. u sichqonchaning o'ng tugmachasini bosish va tugmani bosish uchun.exet sifatida saqlanganligiga ishonch hosil qiling.