Дэлгэцийн түгжээ (VB.NET): 3 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:06

Би танд өөрийн дэлгэцийн түгжээг хэрхэн яаж хийснийг харуулах гэж байна.. магадгүй та өөрөө өөрөө хийж болно. Эсвэл та минийхийг ашиглаж болно;) Та интернетийн эргэн тойронд: 'Дэлгэцийн түгжээ!.. мөн та татаж аваад суулгаснаар таны компьютерийн дэлгэц түгжигддэг тул таны байхгүй үед таны компьютерт хэн ч нэвтрэх боломжгүй болно. (Windows нууц үг нууц үггүй л бол үүнийг хийдэг.) Миний хийсэн энэ програм нь VB ашигладаг. Дэлгэцийг түгжихийн тулд. NET. Дараагийн хэдэн алхам дээр би хэрхэн яаж хийхийг харуулах болно. Та миний Дэлгэцийн түгжээг доороос татаж авч болно.

Алхам 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. Dsiagnostics. Process = Dim psi гэж шинэ ProcessStartInfo байдлаар зохицуулдаг. UseShellExecute = Үнэн psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" процесс = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End If End End Subwhat what this is Текстийн хайрцаг1 дэх текст нь эхний цонхонд тохируулсан тексттэй тэнцүү эсэхийг шалгадаг. Дараа нь хэрэв энэ даалгаврыг гүйцэтгэвэл ажлын менежер ажиллуулж байсан бол түүнийг устгаж, explorer.exe -ийг дахин эхлүүлнэ. Энд битийн дамжуулалт байна: Хувийн дэд хэлбэр2_Load (ByVal илгээгч нь System. Object, ByVal e As System. EventArgs) MyBase. Load Dim -ийг зохицуулдаг. процесс As System. Diagnostics. Process = Шинэ psi. UseShellExecute = Шинэ psi. UseShellExecute = psi. Arguments = " /F /IM explorer.exe" процесс = System. Diagnostics. Process. Start (psi) Хэрэв Form1. CheckBox1. Checked = Үнэн бол Me. Opacity = 0.5 өөр товчлуур 1. Show () End If End End Энэ скрипт нь explorer.exe файлыг устгах болно, тиймээс хэн нэгэн миний дэлгэцийн түгжээг давсан ч чадахгүй. юу ч хийх! Дараа нь 'дамжуулан харах' хайрцгийг шалгасан эсэхийг шалгадаг. Хэрэв энэ нь тунгалаг байдлыг 0.5 болгож тохируулдаг бол үгүй бол дэвсгэрийн өөрчлөлтийн товчлуурыг харуулна.

Алхам 2: Дэлгэц хийх (2 -р хэсэг)

Энд би яаж үүнийг даалгаврын менежерийг цуцалж, бусад цонхны дээр хэрхэн бичсэнийг харуулах болно. Үүнийг таны тохируулсан дээд хэлбэр болгон тохируулах: me.topmost = trueon loadto үүнийг даалгаврын менежерийг ашиггүй болгохын тулд би энэ кодчиллыг ашигласан болно.:

Хувийн дэд хэлбэр2_LostFocus (ByVal илгээгч нь Объект, ByVal e As System. EventArgs) Me. 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 or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch нь alt F4 -ийг ашиггүй болгодог!.. мөн энэ нь хяналтын товчлууртай ижил зүйлийг хийхийг оролдсон боловч энэ нь ажиллахгүй байсан.. гэхдээ би бусад системд ийм зүйл тохиолдсон тохиолдолд л үүнийг үлдээсэн.

Алхам 3: Дэлгэцийн түгжээ

VB. NET -ийн бүх төслүүд танд хэрэгтэй болно гэж найдаж байна. Хэрэв та энэ хэсгийг ойлгохгүй байгаа эсвэл төслийнхөө аль нэгэнд тусламж хэрэгтэй байгаа бол сэтгэгдлээ үлдээгээрэй эсвэл над руу бичээрэй. ямар нэгэн асуудал гарвал үнэлгээ өгнө үү =] Хэрэв та татаж авахыг хүсвэл дэлгэцийн lock.exe нь цохилт болно.. зүгээр л үүнийг дарна уу.exet хадгалахын тулд хулганы баруун товчийг дараад дарна уу. зорилгоо өөртэй нь адилтгаж хадгалаад exe хэлбэрээр хадгална уу.