Bllokimi i ekranit (VB.NET): 3 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:34

Unë do t'ju tregoj se si e kam bërë bllokimin e ekranit tim.. kështu që ndoshta ju mund ta bëni tuajin. Ose thjesht mund të përdorni timen;) Ju shihni kudo në internet: 'Screen Lock!'.. dhe ju shkarkoni dhe instaloni dhe kyç ekranin e kompjuterit tuaj në mënyrë që askush të mos ketë qasje në kompjuterin tuaj ndërsa nuk jeni aty. (Windows lock bën të njëjtën gjë nëse nuk keni fjalëkalim.) Ky program që kam bërë përdor VB. NET për të kyçur ekranin. Në hapat e ardhshëm do t'ju tregoj se si. Ju mund të shkarkoni Screen Lock tim më poshtë.

Hapi 1: Bërja e ekranit (pjesa 1)

Këtu unë do t'ju tregoj pjesën e parë të kyçjes së ekranit.. fotografia e parë është dritarja që shfaqet kur ju përdorni bllokimin e ekranit tim. Në këtë ju mund të vendosni fjalëkalimin.. e bëra kështu që ju duhet të vendosni atë çdo herë kështu që nuk mund ta harroni kurrë. Gjithashtu programi im është vetëm 1 skedar. Ju gjithashtu keni mundësinë ta shihni atë për të parë.. kjo është vetëm kështu që ekrani i kyçjes është pak i tejdukshëm. Kështu që ju mund të shihni që fotografia e desktopit tuaj është zbehur. Tani ja si e bëra: për fjalëkalimin:

Nën -teksti privat TextBox1_TextChanged (dërguesi ByVal Si System. Object, ByVal e As System. EventArgs) Trajton TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Pastaj zbeh procesin si sistem. Diagnostics. Process = Asgjë Dim psi Si proces i ri UseShellExecute = E vërtetë psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Fundi Nëse Përfundon Çfarë bën kjo është kontrollon për të parë nëse teksti në kutinë e tekstit 1 është i barabartë me tekstin që keni vendosur në dritaren e parë. Pastaj nëse e kryen atë detyra vret menaxherin e detyrave nëse ishte duke funksionuar, dhe rinis explorer.exe. Këtu është see see bit: Private Sub Form2_Load (dërguesi ByVal Si System. Object, ByVal e As System. EventArgs) Trajton MyBase. Load Dim proces Si System. Diagnostics. Process = Asgjë Dim psi Si New ProcessStartInfo psi. UseShellExecute = E vërtetë psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Nëse Form1. CheckBox1. Checked = E vërtetë Atëherë Unë. Opacity = 0.5 Butoni Tjetër1. Shfaqje () Përfundo Nëse Përfundon Nëna Kjo pjesë e shkrimit do të detyrojë të vrasë explorer.exe kështu që edhe nëse dikush e kapërcen bllokimin tim të ekranit nuk do të jetë në gjendje për të bërë asgjë! atëherë kontrollon për të parë nëse kutia 'see through' është kontrolluar. Nëse ka, e vendos opacitetin në 0.5. Nëse jo, atëherë tregon butonin e ndryshimit të sfondit.

Hapi 2: Bërja e ekranit (pjesa 2)

Këtu do t'ju tregoj se si e bëra atë të anulojë menaxherin e detyrave dhe si thotë sipër dritareve të tjera. Për ta vendosur atë si formën kryesore që sapo keni vendosur: me.topmost = trueon ngarkesë për ta bërë atë menaxherin e detyrave të padobishëm kam përdorur këtë kodim:

Nën -Forma Private2_LostFocus (Dërguesi ByVal Si Objekt, ByVal e Si System. EventArgs) Trajton Me. LostFocus Dim k Sa kohë k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Fundi SubWitch me fjalë të tjera thotë: kur humbni fokusin, fshihni menaxherin e detyrave. por edhe për shkak se është forma më e lartë që humbet si menaxheri i detyrave. Kur të vendosni fjalëkalimin e duhur … detyra vret menaxherin e detyrave. kam përdorur gjithashtu: Protected Overrides Function ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) Si Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch e bën alt F4 të padobishëm!.. dhe përpiqet të bëjë të njëjtën gjë me çelësin e kontrollit, por kjo nuk funksionoi.. por e lashë atë në rast se do të funksiononte në sistemet e tjera.

Hapi 3: Bllokimi i ekranit

Shpresoj se e keni gjetur këtë të dobishme për të gjitha projektet tuaja VB. NET. Nëse nuk e kuptoni një pjesë të kësaj ose keni nevojë për ndihmë me një nga projektet tuaja, ju lutemi lini një koment ose më shkruani në pm. Dhe ju lutem më jepni ushqim ndonjë problem dhe ju lutemi vlerësoni =] Kyçi i ekranit.exe është në goditje nëse doni të shkarkoni.. vetëm sigurohuni që të ruhet si.exeto për të ruajtur klikimin e djathtë dhe klikoni.. ruani objektivin si ose ekuivalentin tuaj pastaj ruani si exe.