Blokada ekranu (VB.NET): 3 kroki

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:34

Pokażę ci, jak zrobiłem własną blokadę ekranu.. więc może możesz zrobić własną lub po prostu użyć mojej;) W całym Internecie widzisz: „Blokada ekranu!”.. a ty pobierasz i instalujesz, i blokujesz ekran komputera, więc nikt nie może uzyskać dostępu do twojego komputera, gdy cię tam nie ma. (Blokada systemu Windows robi to samo, chyba że nie masz hasła.) Ten program, który stworzyłem, używa VB. NET, aby zablokować ekran. W kilku następnych krokach pokażę ci, jak. Możesz pobrać moją blokadę ekranu poniżej.

Krok 1: Tworzenie ekranu (część 1)

Tutaj pokażę ci pierwszą część blokady ekranu.. pierwsze zdjęcie to okno, które pojawia się po uruchomieniu mojej blokady ekranu. na tym możesz ustawić hasło.. zrobiłem to, że musisz ustawić za każdym razem, abyś nigdy nie mógł tego zapomnieć. Również mój program to tylko 1 plik. Masz również opcję, aby go zobaczyć, aby przejrzeć.. po prostu ekran blokady jest lekko prześwitujący. Możesz więc zobaczyć wyblakły obraz pulpitu. Teraz oto, jak to zrobiłem: hasło:

Private Sub TextBox1_TextChanged(ByVal sender jako System. Object, ByVal e As System. EventArgs) Obsługuje TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Następnie przyciemnij proces jako System. Diagnostics. Process = Nic Przyciemnij psi jako nowe ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = "/F /IM taskmgr.exe" process = System. Diagnostics. Process. Start(psi) Shell("explorer.exe") Form1. Close() End If End Sub Działanie to sprawdza, czy tekst w polu tekstowym1 jest równy tekstowi ustawionemu w pierwszym oknie. Następnie, jeśli to zrobi, zadanie zabija menedżera zadań, jeśli był uruchomiony, i ponownie uruchamia explorer.exe. Oto bit przezroczysty: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Obsługuje MyBase. Load Dim process As System. Diagnostics. Process = Nic 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 SubTen fragment skryptu zabije explorer.exe, więc nawet jeśli ktoś przejdzie przez moją blokadę ekranu, nie będzie mógł zrobić cokolwiek! następnie sprawdza, czy pole „przejrzyj” zostało zaznaczone. Jeśli tak, ustawia krycie na 0.5. Jeśli nie, to pokazuje przycisk zmiany tła.

Krok 2: Tworzenie ekranu (część 2)

Tutaj pokażę ci, jak spowodowałem, że anulowałem menedżera zadań i jak to jest napisane nad innymi oknami. aby ustawić go jako górną formę, którą właśnie ustawiłeś: ja.topmost = trueon load, aby uczynić menedżera bezużytecznym, użyłem tego kodowania:

Private Sub Form2_LostFocus(ByVal sender As Object, ByVal e As System. EventArgs) Obsługuje Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch innymi słowy mówi: gdy stracisz koncentrację, ukryj menedżera zadań. Ale także dlatego, że jest to najwyższa forma, która wygląda tak, jakby menedżer zadań nigdy nie był uruchamiany. Niż po umieszczeniu prawidłowego hasła w … zadanie zabija menedżera zadań. keyData As System. Windows. Forms. Keys) As Boolean Wybierz Case (keyData) Case Keys. Control Return True Case Keys. Alt Or Keys. F4 Return True End Wybierz Return MyBase. ProcessDialogKey(keyData) End Functionwitch czyni alt F4 bezużytecznym!.. i próbuje zrobić to samo z klawiszem kontrolnym, ale to nie zadziałało.. ale zostawiłem go na wszelki wypadek w innych systemach.

Krok 3: Blokada ekranu

Mam nadzieję, że ta instrukcja okazała się pomocna dla wszystkich twoich projektów VB. NET. jeśli nie rozumiesz części tego lub potrzebujesz pomocy przy jednym ze swoich projektów, zostaw komentarz lub napisz do mnie. i przekaż mi informację zwrotną wszelkie problemy i proszę ocenić =] ekran lock.exe jest ciosem, jeśli chcesz pobrać.. po prostu upewnij się, że jest zapisany jako.exe, aby zapisać, kliknij prawym przyciskiem myszy i kliknij.. zapisz cel jako lub jego odpowiednik, a następnie zapisz jako exe.