ล็อกหน้าจอ (VB.NET): 3 ขั้นตอน

2024 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2024-01-30 13:09

ฉันจะแสดงให้คุณเห็นว่าฉันล็อกหน้าจอของตัวเองได้อย่างไร.. ดังนั้นบางทีคุณสามารถสร้างหน้าจอของคุณเองได้.. และคุณดาวน์โหลดและติดตั้งและล็อกหน้าจอพีซีของคุณเพื่อไม่ให้ใครเข้าถึงพีซีของคุณในขณะที่คุณไม่อยู่ที่นั่น (การล็อก Windows จะทำสิ่งเดียวกันเว้นแต่คุณจะไม่มีรหัสผ่าน) โปรแกรมนี้ที่ฉันสร้างใช้ VB. NET เพื่อล็อกหน้าจอในไม่กี่ขั้นตอนถัดไป ฉันจะแสดงวิธีให้คุณดู คุณสามารถดาวน์โหลดการล็อกหน้าจอของฉันได้ที่ด้านล่าง

ขั้นตอนที่ 1: การสร้างหน้าจอ (ตอนที่ 1)

ที่นี่ฉันจะแสดงส่วนแรกของการล็อกหน้าจอ..รูปแรกคือหน้าต่างที่ปรากฏขึ้นเมื่อคุณเรียกใช้การล็อกหน้าจอของฉัน คุณสามารถตั้งรหัสผ่านได้.. ฉันสร้างมันขึ้นมา ดังนั้นคุณต้องตั้งค่า ทุกครั้งเพื่อให้คุณไม่มีวันลืม ดังนั้นโปรแกรมของฉันจึงมีเพียง 1 ไฟล์ คุณยังมีตัวเลือกในการดูผ่าน.. นี่เป็นเพียงเพื่อให้หน้าจอเมื่อล็อกมองเห็นได้เล็กน้อย ดังนั้นคุณสามารถเห็นรูปเดสก์ท็อปของคุณจางหายไป นี่คือวิธีที่ฉันทำ:สำหรับรหัสผ่าน:

Private Sub TextBox1_TextChanged (ผู้ส่ง ByVal เป็น System. Object, ByVal e As System. EventArgs) จัดการ TextBox1. TextChanged หาก TextBox1. Text = Form1. TextBox1. Text จากนั้นกระบวนการ Dim เป็น System. Diagnostics. Process = Nothing Dim psi เป็น ProcessStartInfo psi ใหม่ UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM taskmgr.exe" กระบวนการ = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () End If End Sub การดำเนินการนี้จะตรวจสอบว่าข้อความใน textbox1 เท่ากับข้อความที่คุณตั้งค่าในหน้าต่างแรกหรือไม่ จากนั้นถ้ามันทำงานจะฆ่าตัวจัดการงานถ้ามันทำงานอยู่ และรีสตาร์ท explorer.exe นี่คือการดูผ่านบิต: Private Sub Form2_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) จัดการ MyBase. Load Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM explorer.exe" กระบวนการ = System. Diagnostics. Process. Start (psi) ถ้า Form1. CheckBox1. Checked = True แล้วก็ Me. Opacity = 0.5 Else Button1. Show() End If End Sub สคริปต์ชิ้นนี้จะทำงาน kill explorer.exe ดังนั้นแม้ว่าจะมีคนผ่านการล็อกหน้าจอของฉัน พวกเขาก็จะไม่สามารถทำได้ จะทำอะไรก็ได้! จากนั้นจะตรวจสอบว่าได้ทำเครื่องหมายในช่อง 'ดูผ่าน' หรือไม่ หากมีการตั้งค่าความทึบเป็น 0.5 ถ้าไม่เช่นนั้นจะแสดงปุ่มเปลี่ยนพื้นหลัง

ขั้นตอนที่ 2: การสร้างหน้าจอ (ตอนที่ 2)

ที่นี่ฉันจะแสดงให้คุณเห็นว่าฉันทำให้มันยกเลิกตัวจัดการงานได้อย่างไรและมันบอกได้อย่างไรว่าอยู่ด้านบนของ windows อื่น ๆ เพื่อตั้งเป็นรูปแบบบนสุดที่คุณเพิ่งตั้งค่า:me.topmost = trueon load เพื่อให้ตัวจัดการงานไร้ประโยชน์ฉันใช้การเข้ารหัสนี้:

Private Sub Form2_LostFocus (ผู้ส่ง ByVal เป็นวัตถุ ByVal e As System. EventArgs) จัดการ Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch ในคำอื่น ๆ พูดว่า: เมื่อสูญเสียโฟกัส ให้ซ่อนตัวจัดการงานแต่เนื่องจากเป็นรูปแบบบนสุด มันจึงดูเหมือนตัวจัดการงานไม่เคยถูกเรียกใช้ มากกว่าเมื่อคุณใส่รหัสผ่านที่ถูกต้องใน … งานจะฆ่า task manager.i ยังใช้:Protected Overrides Function ProcessDialogKey(ByVal) keyData เป็น System. Windows. Forms. Keys) เป็น Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt หรือ Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch ทำให้ alt F4 ไร้ประโยชน์!.. และพยายามทำเช่นเดียวกันกับปุ่มควบคุม แต่ไม่ได้ผล.. แต่ฉันเปิดทิ้งไว้เผื่อว่าระบบอื่นจะทำได้

ขั้นตอนที่ 3: ล็อกหน้าจอ

ฉันหวังว่าคุณจะพบว่าคำแนะนำนี้มีประโยชน์สำหรับโครงการ VB. NET ทั้งหมดของคุณ หากคุณไม่เข้าใจส่วนหนึ่งของสิ่งนี้หรือคุณต้องการความช่วยเหลือเกี่ยวกับโครงการใดโครงการหนึ่งของคุณโปรดแสดงความคิดเห็นหรือ pm ให้ฉันและโปรดให้ฟีดแบ็คกับฉัน ปัญหาใด ๆ และโปรดให้คะแนน =]ล็อกหน้าจอ exe ระเบิดหากคุณต้องการดาวน์โหลด.. เพียงตรวจสอบให้แน่ใจว่าได้บันทึกเป็น.exe เพื่อบันทึกคลิกขวาแล้วคลิก.. บันทึกเป้าหมายเป็นหรือเทียบเท่าจากนั้นบันทึกเป็น exe