Orodha ya maudhui:

Screen Lock (VB.NET): 3 Hatua
Screen Lock (VB.NET): 3 Hatua

Video: Screen Lock (VB.NET): 3 Hatua

Video: Screen Lock (VB.NET): 3 Hatua
Video: how to SETUP a mosquito net 2024, Julai
Anonim
Screen Lock (VB. NET)
Screen Lock (VB. NET)

Nitawaonyesha jinsi nilivyotengeneza skrini yangu mwenyewe.. kwa hivyo labda unaweza kutengeneza yako mwenyewe au unaweza kutumia yangu tu;) Unaona pande zote za wavuti: 'Screen Lock!'.. na unapakua na kusanikisha na inakufunga skrini ya pc ili hakuna mtu anayeweza kufikia kompyuta yako wakati wewe haipo. NET kufunga skrini katika hatua kadhaa zifuatazo nitakuonyesha jinsi. Unaweza kupakua Screen Lock yangu hapa chini.

Hatua ya 1: Kufanya Screen (part1)

Kufanya Screen (part1)
Kufanya Screen (part1)

Hapa nitakuonyesha sehemu ya kwanza ya kufuli ya skrini.. picha ya kwanza ni dirisha ambayo inakuja unapotumia skrini yangu ya kufunga kwenye hii unaweza kuweka nywila.. nimeifanya iwe lazima uweke kila wakati ili usisahau kamwe. Pia mpango wangu ni faili 1 tu.una fursa ya kuiona ili uone kupitia.. hii ni kwa hivyo skrini iliyofungwa inaonekana kidogo. Kwa hivyo unaweza kuona picha yako ya eneo-kazi imefifia. Sasa hivi ndivyo nilivyofanya: kwa nywila:

Binafsi Sub TextBox1_TextChanged (Mtumaji wa ByVal Kama Mfumo. Object, ByVal e Kama System. EventArgs) Hushughulikia TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Kisha Mchakato Mchakato Kama System. Diagnostics. Process = Hakuna kitu psi kama New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Mwisho ikiwa Mwisho Subward hii inafanya ni kuangalia ili kuona ikiwa maandishi katika sanduku la maandishi1 ni sawa na maandishi ambayo umeweka kwenye dirisha la kwanza. Halafu ikiwa inafanya kazi inaua msimamizi wa kazi ikiwa ilikuwa ikiendesha, na inaanza tena explorer.exe.hapa kuna kuona kupitia kidogo: Binafsi Sub Fomu2_Load (Mtumaji wa ByVal Kama Mfumo. Kitu, ByVal e Kama System. EventArgs) Hushughulikia MyBase. mchakato kama System. Diagnostics. Process = Hakuna Dim psi Kama New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Ikiwa Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Button nyingine 1. Onyesha () Mwisho ikiwa End Sub Sub kipande hiki cha hati kitafanya kazi kuua explorer.exe kwa hivyo hata kama mtu atapita skrini yangu hawataweza kufanya chochote! basi huangalia ikiwa sanduku la 'kuona kupitia' limeangaliwa. Ikiwa inayo inaweka opacity kwa 0.5. Ikiwa sivyo basi inaonyesha kitufe cha mabadiliko ya nyuma.

Hatua ya 2: Kufanya Screen (part2)

Kufanya Screen (part2)
Kufanya Screen (part2)

Hapa nitakuonyesha jinsi nilivyofanya ighairi meneja wa kazi na inasemaje juu ya windows zingine. Kuiweka kama fomu ya juu uliyoweka tu: me.topmost = trueon mzigokuifanya ifanye meneja wa kazi haina maana nilitumia uandishi huu:

Binafsi ya Sub Form2_LostFocus (Mtumaji wa ByVal Kama Kitu, ByVal e Kama System. EventArgs) Hushughulikia Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch kwa neno lingine inasema: unapopotea umakini, ficha msimamizi wa kazi.lakini pia kwa sababu ni fomu ya juu kabisa ambayo inafunguliwa kama meneja wa kazi hakuwahi kuendeshwa. Badala ya wakati unaweka nywila sahihi ndani… inafanya kazi inaua meneja wa kazi.i pia ilitumia: Protect overrides Function ProcessDialogKey (ByVal KeyData Kama Mfumo. Windows. Forms. Keys) Kama Boolean Chagua Kesi (keyData) Keys Keys. Dhibiti Kurudisha Funguo za Kesi. Alt Au Funguo… na inajaribu kufanya vivyo hivyo na ufunguo wa kudhibiti, lakini hiyo haikufanya kazi.. lakini niliiacha ikiwa tu kwenye mifumo mingine ingefanya.

Hatua ya 3: Screen Lock

Natumahi umepata msaada huu mzuri kwa miradi yako yote ya VB. NET. Ikiwa hauelewi sehemu ya hii au unahitaji msaada na moja ya miradi yako tafadhali acha maoni au jioni yangu. Na tafadhali nipe chakula tena shida yoyote na tafadhali kiwango =] Lock.exe ya skrini ni pigo ikiwa unataka kupakua.. hakikisha imehifadhiwa kama

Ilipendekeza: