Էկրանի կողպում (VB.NET) `3 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:53

Ես ձեզ ցույց կտամ, թե ինչպես եմ ես պատրաստել իմ սեփական էկրանի կողպումը … այնպես որ գուցե դուք կարող եք ինքներդ պատրաստել: կամ դուք կարող եք պարզապես օգտագործել իմը;) Դուք տեսնում եք ամբողջ ինտերնետում. «Էկրանի կողպում»:.. և ներբեռնում և տեղադրում եք, և այն կողպում է ձեր համակարգչի էկրանը, որպեսզի ոչ ոք չկարողանա մուտք գործել ձեր համակարգիչ, քանի դեռ այնտեղ չեք: (Windows- ի կողպումը նույնն է անում, եթե գաղտնաբառ չունեք): Այս ծրագիրը, որը ես պատրաստել եմ, օգտագործում է VB. NET էկրանը կողպելու համար: հաջորդ մի քանի քայլերում ես ձեզ ցույց կտամ, թե ինչպես: Դուք կարող եք ներբեռնել իմ Էկրանի կողպումը ստորև:

Քայլ 1: Էկրանի պատրաստում (մաս 1)

Այստեղ ես ձեզ ցույց կտամ էկրանի կողպման առաջին մասը.. առաջին լուսանկարն այն պատուհանն է, որը հայտնվում է իմ էկրանի կողպումը գործարկելիս: դրա վրա կարող եք գաղտնաբառ սահմանել: դա ամեն անգամ, այնպես որ երբեք չես կարող մոռանալ այն: Բացի այդ, իմ ծրագիրը ընդամենը 1 ֆայլ է: Դուք նաև հնարավորություն ունեք այն տեսնելու `այն տեսնելու համար: սա այն է, որ կողպեքի էկրանը փոքր -ինչ թափանցելի լինի: Այսպիսով, դուք կարող եք տեսնել, որ ձեր աշխատասեղանի լուսանկարը խունացած է: հիմա ահա թե ինչպես եմ դա արել. Գաղտնաբառի համար.

Private Sub TextBox1_TextChanged (ByVal ուղարկող ՝ որպես System. Object, ByVal e As System. EventArgs) Handles TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Այնուհետեւ Dim process as System. Diagnostics. Process = Nothing dim psi As New ProcessStart UseShellExecute = psշմարիտ psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Ավարտ, եթե ավարտի Այն, ինչ դա անում է, ստուգում է ՝ տեսնելու, թե արդյոք տեքստային տեքստում տեքստը հավասար է առաջին պատուհանի վրա դրված տեքստին: Այնուհետև, եթե այն կատարում է, խնդիրը սպանում է առաջադրանքի կառավարիչին, եթե այն աշխատում էր, և վերագործարկում է explorer.exe- ն: ահա թափանցիկ բիթը ՝ Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load Dim process As System. Diagnostics. Process = Ոչինչ Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Else Button1. Show () End If End SubThis սցենարի այս կտորը պետք է սպանի explorer.exe- ն, այնպես որ, նույնիսկ եթե ինչ -որ մեկը շրջանցի իմ էկրանի կողպումը, նա չի կարողանա որևէ բան անելու համար: այնուհետև ստուգվում է ՝ արդյոք «թափանցիկ» վանդակը ստուգված է: Եթե այն ունի, ապա անթափանցիկությունը սահմանում է 0.5: Եթե ոչ, ապա ցույց է տալիս փոփոխության ֆոնի կոճակը:

Քայլ 2. Էկրանի պատրաստում (մաս 2)

Այստեղ ես ձեզ ցույց կտամ, թե ինչպես եմ ստիպել այն չեղարկել առաջադրանքի կառավարիչը և ինչպես է այն գրված մյուս պատուհանների վրա: այն սահմանելու համար, ինչպես դուք պարզապես սահմանել եք.:

Private Sub Form2_LostFocus (ByVal sender As Object, ByVal e As System. EventArgs) Handles Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch- ը այլ խոսքով ասում է. ուշադրության կենտրոնացումը թաքցնելը, թաքցնել առաջադրանքի կառավարիչը: բայց նաև այն պատճառով, որ այն ամենաբարձր ձևն է, որը կարծես թե երբևէ չի գործարկվել: Մինչև երբ ճիշտ գաղտնաբառ եք դնում… առաջադրանքը սպանում է առաջադրանքների կառավարիչին: ես նաև օգտագործել եմ. keyData As System. Windows. Forms. Keys) Որպես Boolean Ընտրել Case (keyData) Case Keys. Control Return True Case Keys. Alt or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch- ը alt F4- ն անօգուտ է դարձնում:.. և փորձում է նույնն անել կառավարման ստեղնով, բայց դա չաշխատեց … բայց ես այն թողեցի միացված այլ համակարգերի դեպքում, եթե դա աներ:

Քայլ 3: Էկրանի կողպում

Հուսով եմ, որ դուք գտել եք այս ուսանելի ծրագիրը օգտակար ձեր բոլոր VB. NET նախագծերի համար: եթե դուք չեք հասկանում դրա մի մասը կամ օգնության կարիք ունեք ձեր նախագծերից մեկում, թողեք մեկնաբանություն կամ գրեք ինձ: և խնդրում եմ ինձ հետադարձ կապ տրամադրել որևէ խնդիր և խնդրում ենք գնահատել =] Էկրանի կողպումը.exe- ն փչում է, եթե ցանկանում եք ներբեռնել.. պարզապես համոզվեք, որ այն պահվում է որպես.exet ՝ աջ սեղմումով պահելու և սեղմելու համար: պահպանել թիրախը կամ համարժեքը, այնուհետև պահպանել որպես exe: