Screen Lock (VB.NET): 3 Cov Kauj Ruam

2024 Tus sau: John Day | [email protected]. Kawg hloov kho: 2024-01-30 09:31

Kuv yuav qhia koj li cas kuv ua kuv tus kheej lub vijtsam xauv.. yog li tej zaum koj tuaj yeem ua koj tus kheej.or koj tsuas tuaj yeem siv kuv li;) Koj pom thoob plaws hauv is taws nem: 'Screen Lock!'.. thiab koj rub tawm thiab teeb tsa thiab nws xauv koj lub pc screen yog li tsis muaj leej twg tuaj yeem nkag mus rau koj lub pc thaum koj tsis nyob ntawd.. NET txhawm rau kaw lub vijtsam.in ob peb kauj ruam tom ntej no kuv yuav qhia koj li cas. Koj tuaj yeem rub kuv lub Screen Lock hauv qab no.

Kauj ruam 1: Ua Screen (part1)

Ntawm no kuv yuav qhia koj thawj feem ntawm lub vijtsam xauv.. thawj daim duab yog lub qhov rai uas tshwm sim thaum koj khiav kuv lub vijtsam xauv.on qhov no koj tuaj yeem teeb tus password.. Kuv ua nws yog li koj yuav tsum teeb tsa nws txhua lub sijhawm yog li koj yuav tsis hnov qab nws. Tsis tas li yog li kuv qhov program tsuas yog 1 file.you kuj muaj qhov xaiv pom nws pom los ntawm.. qhov no tsuas yog xauv qhov screen me ntsis pom los ntawm. Yog li koj tuaj yeem pom koj lub desktop pic ploj mus.now ntawm no yog qhov kuv tau ua nws: rau tus password:

Tus kheej Sub TextBox1_TextChanged (ByVal xa raws li System. Object, ByVal e Raws li System. EventArgs) Ua haujlwm TextBox1. TextChanged Yog TextBox1. Text = Form1. TextBox1. Text Tom qab Dim txheej txheem Raws li System. Diagnostics. Process = Tsis Dim Dim psi Raws Li Txheej Txheem TshiabStartInfo psi. UseShellExecute = tseeb psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" txheej txheem = System. Diagnostics. Process. Start (psi) Plhaub ("explorer.exe") Form1. Close () Xaus Yog Xaus Sub Dab tsi qhov no ua yog kuaj xyuas seb cov ntawv hauv textbox1 sib npaug rau cov ntawv uas koj teeb tsa thawj lub qhov rai. Tom qab ntawd yog tias nws ua nws txoj haujlwm tua tus thawj tswj haujlwm yog tias nws tau khiav, Thiab rov pib dua explorer.exe.here yog qhov pom los ntawm me ntsis: Tus kheej Sub Form2_Load (ByVal xa raws li System. Object, ByVal e Raws li System. EventArgs) Ua haujlwm MyBase. Load Dim txheej txheem Raws Li System. Diagnostics. Process = Tsis Muaj Dim psi Raws Li Txheej Txheem TshiabStartInfo psi. UseShellExecute = Tseeb psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" txheej txheem = System. Diagnostics. Process. Start (psi) Yog tias Form1. CheckBox1. Checked = True Ces Me. Opacity = 0.5 Lwm Yam Button1. Show () Xaus Yog Xaus SubThis daim ntawv yuav ua haujlwm tua explorer.exe yog li txawm tias ib tus neeg dhau los ntawm kuv lub vijtsam xauv lawv yuav tsis muaj peev xwm mus ua dab tsi! Yog tias nws muaj nws teeb opacity rau 0.5. Yog tsis yog nws qhia qhov hloov pauv tom qab khawm.

Kauj ruam 2: Ua Screen (part2)

Nov kuv yuav qhia koj li cas kuv ua nws tshem tawm tus thawj tswj haujlwm thiab nws hais li cas saum toj ntawm lwm lub windows.to teeb tsa nws ua daim ntawv saum toj kawg nkaus koj tsuas yog teeb tsa: me.topmost = trueon loadto ua rau nws ua tus thawj tswj haujlwm tsis muaj txiaj ntsig kuv siv qhov coding no:

Private Sub Form2_LostFocus (ByVal sender Raws Li Lub Hom Phiaj, ByVal e Raws Li System. EventArgs) Ua Haujlwm Rau Kuv. LostFocus Dim k Raws Li Ntev k = Plhaub ("c: / windows / system32 / taskmgr.exe", vbHide) Xaus SubWitch hauv lwm lo lus hais tias: thaum poob siab, zais tus thawj tswj haujlwm. tab sis kuj vim tias nws yog daim ntawv saum toj kawg nkaus nws loos zoo li tus thawj tswj haujlwm tsis tau khiav. Than tias thaum koj tso tus lej zais raug rau hauv… nws ua haujlwm tua tus thawj tswj haujlwm.i kuj siv: Tiv Thaiv Overrides Function ProcessDialogKey (ByVal keyData Raws Li Qhov System. Windows. Forms. Keys) Raws li Boolean Xaiv Case (keyData) Case Keys. Control Return True Case Keys. Alt lossis Keys. F4 Rov Qab Los Xeem Xaiv Rov Qab MyBase. ProcessDialogKey (keyData) End Functionwitch ua rau alt F4 tsis muaj nuj nqis!.. thiab nws sim ua tib yam nrog tus yuam sij tswj hwm, tab sis qhov ntawd tsis ua haujlwm.. tab sis kuv tso nws rau ntawm qhov xwm txheej ntawm lwm lub tshuab nws yuav.

Kauj ruam 3: Xauv Screen

Kuv vam tias koj pom cov lus qhia no muaj txiaj ntsig zoo rau txhua qhov ntawm koj li VB. NET cov haujlwm. Yog tias koj tsis nkag siab ib feem ntawm qhov no lossis koj xav tau kev pab nrog ib qho ntawm koj cov phiaj xwm thov tawm lus los yog pm kuv.and thov muab kuv pub rov qab rau ib qho teeb meem thiab thov ntsuas =] Lub vijtsam lock.exe tshuab yog tias koj xav rub tawm.. tsuas yog xyuas kom nws tau txais kev cawmdim raws li.exeto txuag txoj cai nyem thiab nyem.. txuag phiaj raws li lossis koj qhov sib npaug ces txuag ua exe.