Khóa màn hình (VB.NET): 3 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:37

Tôi sẽ chỉ cho bạn cách tôi đã tạo khóa màn hình của riêng mình.. vì vậy có thể bạn có thể tự tạo khóa màn hình của riêng mình. Hoặc bạn có thể sử dụng của tôi;) Bạn thấy khắp nơi trên internet: 'Khóa màn hình!'.. và bạn tải xuống và cài đặt và nó sẽ khóa màn hình máy tính của bạn để không ai có thể truy cập máy tính của bạn khi bạn không ở đó. (Khóa Windows cũng thực hiện điều tương tự trừ khi bạn không có mật khẩu.) Chương trình này mà tôi thực hiện sử dụng VB. NET để khóa màn hình. Trong vài bước tiếp theo, tôi sẽ hướng dẫn bạn cách thực hiện. Bạn có thể tải xuống Screen Lock của tôi bên dưới.

Bước 1: Làm màn hình (part1)

Ở đây tôi sẽ chỉ cho bạn phần đầu tiên của khóa màn hình.. ảnh đầu tiên là cửa sổ xuất hiện khi bạn chạy khóa màn hình của tôi. Trên này bạn có thể đặt mật khẩu.. tôi đã tạo nên bạn phải đặt nó mọi lúc để bạn không bao giờ có thể quên nó. Ngoài ra, chương trình của tôi chỉ là 1 tệp. Bạn cũng có tùy chọn để xem nó để xem qua.. điều này chỉ để màn hình khóa hơi nhìn xuyên qua. Vì vậy, bạn có thể thấy hình ảnh trên màn hình của mình bị mờ đi. Đây là cách tôi đã làm điều đó: cho mật khẩu:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Xử lý TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Then Dim process As System. Diagnostics. Process = Nothing Dim psi As New ProcessStartInfo ps. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Kết thúc Nếu kết thúc Điều này thực hiện là kiểm tra xem văn bản trong hộp văn bản1 có bằng văn bản mà bạn đã đặt trên cửa sổ đầu tiên hay không. Sau đó, nếu nó thực hiện tác vụ sẽ giết trình quản lý tác vụ nếu nó đang chạy, Và khởi động lại explorer.exe. Có bit xem qua: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Xử lý 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" process = System. Diagnostics. Process. Start (psi) If Form1. CheckBox1. Checked = True Then Me. Opacity = 0,5 Else Button1. Show () End If End Sub Đoạn script này sẽ có nhiệm vụ giết explorer.exe, vì vậy ngay cả khi ai đó vượt qua khóa màn hình của tôi, họ sẽ không thể để làm bất cứ điều gì! sau đó nó sẽ kiểm tra xem hộp 'xem qua' đã được chọn chưa. Nếu có, nó sẽ đặt opacity thành 0.5, nếu không nó sẽ hiển thị nút thay đổi nền.

Bước 2: Làm màn hình (part2)

Ở đây tôi sẽ chỉ cho bạn cách tôi làm cho nó hủy bỏ trình quản lý tác vụ và cách nó hiển thị trên các cửa sổ khác. Để đặt nó làm biểu mẫu hàng đầu mà bạn vừa đặt: me.topmost = trueon load để biến nó thành trình quản lý tác vụ trở nên vô dụng, tôi đã sử dụng mã này:

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 nói cách khác: khi bị mất tiêu điểm, ẩn trình quản lý tác vụ. nhưng cũng bởi vì nó là dạng trên cùng nên nó sẽ lỏng lẻo giống như trình quản lý tác vụ không bao giờ được chạy. Hên khi bạn đặt đúng mật khẩu vào… nó tác vụ sẽ giết trình quản lý tác vụ. tôi cũng đã sử dụng: Protected Overrides Chức năng ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Hoặc Keys. F4 Return True End Chọn Return MyBase. ProcessDialogKey (keyData) End Functionwitch khiến alt F4 trở nên vô dụng!.. và nó cố gắng làm điều tương tự với phím điều khiển, nhưng điều đó không hoạt động.. nhưng tôi đã để nó chỉ để đề phòng trên các hệ thống khác.

Bước 3: Khóa màn hình

Tôi hy vọng bạn thấy hướng dẫn này hữu ích cho tất cả các dự án VB. NET của bạn. Nếu bạn không hiểu một phần của điều này hoặc bạn cần trợ giúp với một trong các dự án của mình, vui lòng để lại nhận xét hoặc pm cho tôi. Và vui lòng cung cấp lại cho tôi nguồn cấp dữ liệu bất kỳ vấn đề nào và vui lòng đánh giá =] Màn hình lock.exe bị thổi nếu bạn muốn tải xuống.. chỉ cần đảm bảo rằng nó được lưu dưới dạng lưu.exeto nhấp chuột phải và nhấp vào.. lưu mục tiêu dưới dạng hoặc tương đương của bạn sau đó lưu dưới dạng exe.