ეკრანის ჩაკეტვა (VB.NET): 3 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:22

მე ვაპირებ გაჩვენოთ როგორ გავაკეთე ჩემი საკუთარი ეკრანის დაბლოკვა.. ასე რომ თქვენ შეგიძლიათ გააკეთოთ საკუთარი თავი… და თქვენ გადმოწერეთ და დააინსტალირეთ და ის ჩაკეტავს თქვენი კომპიუტერის ეკრანს ისე, რომ არავის შეეძლოს თქვენი კომპიუტერის წვდომა სანამ თქვენ იქ არ ხართ. (Windows lock აკეთებს იმავეს, თუ პაროლი არ გაქვთ.) ეს პროგრამა, რომელიც მე გავაკეთე, იყენებს VB. NET ეკრანის დაბლოკვის მიზნით. მომდევნო რამდენიმე ნაბიჯში მე გაჩვენებთ როგორ. თქვენ შეგიძლიათ ჩამოტვირთოთ ჩემი ეკრანის დაბლოკვა ქვემოთ.

ნაბიჯი 1: ეკრანის დამზადება (ნაწილი 1)

აქ მე ვაპირებ გაჩვენოთ ეკრანის დაბლოკვის პირველი ნაწილი.. პირველი სურათი არის ფანჯარა, რომელიც გამოჩნდება ჩემი ეკრანის დაბლოკვისას. ამაზე შეგიძლიათ დააყენოთ პაროლი.. მე გავაკეთე ასე რომ თქვენ უნდა დააყენოთ ყოველ ჯერზე, ასე რომ თქვენ ვერასოდეს დაივიწყებთ მას. ასევე, ჩემი პროგრამა მხოლოდ 1 ფაილია. თქვენ ასევე გაქვთ შესაძლებლობა ნახოთ ის სანახავად.. ეს მხოლოდ ისეა, რომ ჩაკეტილი ეკრანი ოდნავ გამჭვირვალეა. ასე რომ თქვენ შეგიძლიათ ნახოთ თქვენი დესკტოპის სურათი გაცვეთილი. ახლა აქ არის როგორ გავაკეთე ეს: პაროლისთვის:

პირადი ქვე TextBox1_TextChanged (ByVal გამგზავნი როგორც System. Object, ByVal e As System. EventArgs) ამუშავებს TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text მაშინ Dim process as System. Diagnostics. Process = არაფერი Dim psi როგორც ახალი ProcessStart UseShellExecute = ნამდვილი psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () დასასრული თუ დასასრული რას აკეთებს ეს არის ამოწმებს, არის თუ არა ტექსტი ტექსტში 1 ტოლი იმ ტექსტისა, რომელიც თქვენ დააყენეთ პირველ ფანჯარაში. მაშინ, თუ ის ასრულებს ამოცანას კლავს დავალების მენეჯერს, თუ ის გაშვებული იყო და გადატვირთავს explorer.exe. აქ არის see through bit: Private Sub Form2_Load (ByVal გამომგზავნი როგორც სისტემა. ობიექტი, ByVal e As System. EventArgs) ამუშავებს MyBase. Load Dim პროცესი როგორც System. Diagnostics. Process = არაფერი Dim psi როგორც ახალი 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 Sub ეს სკრიპტის ამოცანა იქნება explorer.exe– ს მოკვლა. არაფრის გაკეთება! შემდეგ ის ამოწმებს, არის თუ არა შემოწმებული ყუთი შემოწმებულია. თუ მას აქვს გაუმჭვირვალეობა 0.5 -მდე. თუ არა მაშინ აჩვენებს ცვლილების ფონის ღილაკს.

ნაბიჯი 2: ეკრანის დამზადება (ნაწილი 2)

აქ მე გაჩვენებთ, თუ როგორ გავაუქმე ეს ამოცანის მენეჯერი და როგორ წერია სხვა ფანჯრების თავზე. იმისათვის, რომ ის დააყენოთ როგორც ზედა ფორმა: me.topmost = trueon დატვირთვა, რათა ამოცანის მენეჯერი გამოუსადეგარი გახდეს მე გამოვიყენე ეს კოდირება:

Private Sub Form2_LostFocus (ByVal გამგზავნი როგორც ობიექტი, ByVal e როგორც System. EventArgs) ამუშავებს მე. LostFocus Dim k დიდხანს k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch სხვა სიტყვებით ამბობს: ფოკუსირების დაკარგვის შემთხვევაში, დამალე ამოცანის მენეჯერი. მაგრამ ასევე იმიტომ, რომ ის არის ყველაზე მაღალი ფორმა, როგორც ამოცანების მენეჯერი არასოდეს ყოფილა გაშვებული. ვიდრე თქვენ შეიყვანთ სწორ პაროლს … ეს ამოცანა კლავს დავალების მენეჯერს. მე ასევე ვიყენებდი: დაცული უგულებელყოფს ფუნქციის პროცესს დიალოგური (ByVal keyData As System. Windows. Forms. Keys) როგორც ლოგიკური Select 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 პროექტისთვის. თუ თქვენ არ გესმით ამის ნაწილი ან გჭირდებათ დახმარება რომელიმე თქვენს პროექტში, გთხოვთ დატოვეთ კომენტარი ან მომწერეთ pm. და გთხოვთ მომცეთ ნებისმიერი პრობლემა და გთხოვთ შეაფასოთ =] ეკრანის დაბლოკვა. exe არის დარტყმა თუ გსურთ გადმოწეროთ.. უბრალოდ დარწმუნდით რომ ის შენახულია როგორც.exet, რათა შეინახოთ მარჯვენა ღილაკი და დააწკაპუნოთ.. შეინახეთ სამიზნე როგორც ან თქვენი ექვივალენტი შემდეგ შეინახეთ როგორც exe.