Ekrāna bloķēšana (VB.NET): 3 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 11:00

Es jums parādīšu, kā es izveidoju savu ekrāna bloķēšanu.. tāpēc varbūt jūs varat izveidot savu. Vai arī jūs varētu vienkārši izmantot manu;) Internetā redzat: "Ekrāna bloķēšana!".. un jūs lejupielādējat un instalējat, un tas bloķē jūsu datora ekrānu, lai neviens nevarētu piekļūt jūsu datoram, kamēr neesat tur. (Windows atslēga dara to pašu, ja vien jums nav paroles.) Šī programma, ko es izveidoju, izmanto VB. NET, lai bloķētu ekrānu. Dažos nākamajos soļos es jums parādīšu, kā. Tālāk varat lejupielādēt manu ekrāna bloķēšanu.

1. darbība. Ekrāna izveidošana (1. daļa)

Šeit es jums parādīšu ekrāna bloķēšanas pirmo daļu. Pirmais attēls ir logs, kas parādās, palaižot ekrāna bloķēšanu. Šajā gadījumā jūs varat iestatīt paroli.. es to izveidoju, lai jums būtu jāiestata to katru reizi, lai jūs to nekad nevarētu aizmirst. Arī tāpēc mana programma ir tikai 1 fails. Jums ir arī iespēja to redzēt, lai redzētu.. tas ir tikai tāpēc, lai bloķēšanas ekrāns būtu nedaudz redzams. Tātad jūs varat redzēt, ka jūsu darbvirsmas attēls ir izbalējis. Tagad, kā es to izdarīju: parole:

Privāts apakštekstsBox1_TextChanged (ByVal sūtītājs kā System. Object, ByVal e kā System. EventArgs) Rokturis TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Tad aptumšojiet procesu kā System. Diagnostics. Process = Nekas Dim psi kā jauns ProcessStartInfo UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Beigas Ja beigas Apakš, ko tas dara, pārbauda, vai teksts 1. lodziņā ir vienāds ar tekstu, ko iestatījāt pirmajā logā. Tad, ja tas veic uzdevumu, tas nogalina uzdevumu pārvaldnieku, ja tas darbojās, un restartē explorer.exe. Šeit ir caurskatāmā bits: Privāta apakšformā2_Load (ByVal sūtītājs kā System. Object, ByVal e kā System. EventArgs) Rokturis MyBase. Load Dim process As System. Diagnostics. Process = Nekas Dim psi kā jauns ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Ja veidlapa1. CheckBox1. Checked = True, tad es. Opacity = 0.5 Else Button1. Show () Beigt, ja beigas Apakšdaļa Šis skripta uzdevums būs nogalināt explorer.exe, tāpēc pat tad, ja kāds nokļūs manā ekrāna bloķēšanā, viņi nevarēs lai kaut ko darītu! tad tā pārbauda, vai ir atzīmēta izvēles rūtiņa “caurskatīt”. Ja tas ir, tas nosaka necaurredzamību līdz 0.5. Ja nē, tas parāda fona maiņas pogu.

2. darbība. Ekrāna izveidošana (2. daļa)

Šeit es jums parādīšu, kā es liku atcelt uzdevumu pārvaldnieku un kā tas saka virs citiem logiem. Lai to iestatītu kā tikko iestatīto augšējo formu: me.topmost = trueon loadto, lai padarītu uzdevumu pārvaldnieku bezjēdzīgu:

Privāta apakšformā2_LostFocus (ByVal sūtītājs kā objekts, ByVal e kā System. EventArgs) apstrādā mani. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch citos vārdos saka: kad esat zaudējis fokusu, paslēpiet uzdevumu pārvaldnieku. bet arī tāpēc, ka tā ir visaugstākā veidlapa, ko tā pazaudē, piemēram, uzdevumu pārvaldnieks nekad netika palaists. Nekā tad, kad ievadījāt pareizo paroli… tas uzdevums nogalina uzdevumu pārvaldnieku. es arī izmantoju: aizsargātos ignorē funkciju procesu keyData As System. Windows. Forms. Keys) Kā Būla atlases gadījums (keyData) Lietiņas atslēgas. Kontrole Atgrieziet patieso lietu atslēgas. Alt vai atslēgas. F4 Atgriešanās patiesā gala izvēle Atgriezties MyBase. ProcessDialogKey (keyData) End Functionwitch padara alt F4 bezjēdzīgu!.. un tas mēģina darīt to pašu ar vadības taustiņu, bet tas neizdevās.. bet es to atstāju ieslēgtu tikai gadījumā, ja citās sistēmās tā būtu.

3. darbība. Ekrāna bloķēšana

Es ceru, ka jūs atradāt šo pamācību noderīgu visiem jūsu VB. NET projektiem. Ja jūs nesaprotat daļu no tā vai jums nepieciešama palīdzība kādā no jūsu projektiem, lūdzu, atstājiet komentāru vai rakstiet man pm. Un, lūdzu, sniedziet man atsauksmes kādas problēmas un, lūdzu, novērtējiet =] Ja vēlaties lejupielādēt, ekrāna lock.exe ir trieciens. Vienkārši pārliecinieties, vai tas ir saglabāts kā.exeto, un ar peles labo pogu noklikšķiniet un noklikšķiniet uz.