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

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:25

Ukážu vám, jak jsem vytvořil svůj vlastní zámek obrazovky.. takže si možná můžete vytvořit svůj vlastní. Nebo můžete použít můj;) Všude na internetu vidíte: „Screen Lock!“.. NET k uzamčení obrazovky. V několika následujících krocích vám ukážu jak. Můj zámek obrazovky si můžete stáhnout níže.

Krok 1: Vytvoření obrazovky (část 1)

Zde vám ukážu první část zámku obrazovky. pokaždé, abyste na to nikdy nemohli zapomenout. Také můj program je pouze 1 soubor. Máte také možnost vidět, aby bylo vidět skrz.. to je jen proto, že obrazovka zámku je mírně průhledná. Takže můžete vidět, jak váš obrázek na ploše vybledl. Nyní je, jak jsem to udělal: pro 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 Sub what this makes is checked to see if the text in textbox1 is equal to the text that you set on the first window. Pak, pokud to udělá, úloha zabije správce úloh, pokud byl spuštěn, a restartuje explorer.exe. Zde je vidět skrz 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) Pokud Form1. CheckBox1. Checked = True Then Me. Opacity = 0,5 Else Button1. Show () End If End Sub Tento kus skriptu bude mít za úkol zabít explorer.exe, takže i když se někdo dostane mimo můj zámek obrazovky, nebude schopen dělat cokoli! poté zkontroluje, zda není zaškrtnuto políčko „vidět skrz“. Pokud má, nastaví krytí na 0,5. Pokud ne, zobrazí tlačítko pro změnu pozadí.

Krok 2: Vytvoření obrazovky (část 2)

Zde vám ukážu, jak jsem to zrušil Správce úloh a jak to říká nad ostatními okny. Chcete -li jej nastavit jako nejlepší formu, kterou jste právě nastavili: me.topmost = trueon load, aby byl správce úloh zbytečný, použil jsem toto kódování:

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 in other word says: když ztratíte zaměření, skryjte správce úloh. ale také proto, že je to nejvyšší forma, kterou ztrácí, jako by správce úloh nebyl nikdy spuštěn. Potom, když do něj zadáte správné heslo, úloha zabije správce úloh. Také jsem použil: Protected Overrides Funkce 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 zbytečné!.. a snaží se udělat totéž s ovládacím klíčem, ale to nefungovalo.. ale nechal jsem to zapnuté jen pro případ, že by to na jiných systémech šlo.

Krok 3: Zámek obrazovky

Doufám, že vám tento návod pomohl u všech vašich projektů VB. NET. Pokud některé části nerozumíte nebo potřebujete pomoci s některým z vašich projektů, zanechte prosím komentář nebo mi napište. A dejte mi prosím zpětnou vazbu nějaké problémy a prosím ohodnoťte =] Screen lock.exe je v pořádku, pokud si chcete stáhnout.. stačí se ujistit, že je uložen jako.exeto uložit pravým tlačítkem a kliknout.. uložit cíl jako nebo ekvivalent, pak uložit jako exe.