Zámka obrazovky (VB.NET): 3 kroky

2024 Autor: John Day | [email protected]. Naposledy zmenené: 2024-01-30 12:02

Ukážem vám, ako som si vytvoril vlastný zámok obrazovky.. takže si možno môžete vytvoriť svoj vlastný. Alebo môžete použiť ten môj;) Všade na internete vidíte: „Zámok obrazovky!“.. NET na uzamknutie obrazovky. V niekoľkých nasledujúcich krokoch vám ukážem ako. Môj zámok obrazovky si môžete stiahnuť nižšie.

Krok 1: Vytvorenie obrazovky (časť 1)

Tu vám ukážem prvú časť zámku obrazovky. zakaždým, aby ste na to nikdy nemohli zabudnúť. Tiež môj program je iba 1 súbor. Máte tiež možnosť vidieť ho cez.. Je to len preto, aby bola obrazovka uzamknutia mierne priehľadná. Takže môžete vidieť, že váš obrázok na pracovnej ploche vybledol. Teraz tu je návod, ako som to urobil: pre heslo:

Private Sub TextBox1_TextChanged (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Then Dim process As System. Diagnostics. Process = Nothing Dim psi As New 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 Čo to robí, skontroluje, či sa text v textbox1 zhoduje s textom, ktorý ste nastavili v prvom okne. Potom, ak to urobí, úloha zabije správcu úloh, ak bol spustený, a reštartuje explorer.exe. Existuje priehľadný bit: Private Sub Form2_Load (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles 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 SubThis piece of script will task kill explorer.exe so even if someone gets around my screen lock will not be able urobiť čokoľvek! potom skontroluje, či je začiarknuté políčko „vidieť“. Ak má, nastaví krytie na 0,5. Ak nie, potom zobrazí tlačidlo zmeniť pozadie.

Krok 2: Vytvorenie obrazovky (časť 2)

Tu vám ukážem, ako som to urobil, aby som zrušil správcu úloh a ako to hovorí nad inými oknami. Ak ho chcete nastaviť ako najlepší formulár, ktorý ste práve nastavili: me.topmost = trueon load, aby bol správca úloh zbytočný, použil som toto kódovanie:

Private Sub Form2_LostFocus (odosielateľ ByVal ako objekt, ByVal e ako System. EventArgs) Spracováva mňa. LostFocus Dim k ako dlhý k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Koniec SubWitch iným slovom hovorí: keď stratíte zameranie, skryte správcu úloh. ale aj preto, že je to najvyššia forma, ako keby sa správca úloh nikdy nespustil. Potom, keď doň zadáte správne heslo, úloha zabije správcu úloh. Tiež som použil: Chránené prepísanie Funkcia ProcessDialogKey (ByVal keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch makes the alt F4 zbytočné!.. a pokúša sa urobiť to isté s ovládacím kľúčom, ale nefungovalo to.. ale nechal som to zapnuté len pre prípad, že by to bolo v iných systémoch.

Krok 3: Zámok obrazovky

Dúfam, že ste našli návod, ktorý je užitočný pre všetky vaše projekty VB. NET. Ak nerozumiete časti tohto dokumentu alebo potrebujete pomoc s niektorým z vašich projektov, zanechajte komentár alebo mi napíšte. A dajte mi prosím vedieť, akékoľvek problémy a ohodnoťte =] Screen lock.exe je spustený, ak ho chcete stiahnuť.. uistite sa, že je uložený ako.exeto, kliknite pravým tlačidlom myši a kliknite na.. uložiť cieľ ako alebo ekvivalent, potom uložiť ako exe.