Bloqueig de pantalla (VB.NET): 3 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:18

Vaig a mostrar-vos com he creat el meu propi bloqueig de pantalla … així que potser el podeu fer vostre o bé podríeu fer servir el meu;) Ja veieu a tot Internet: "Bloqueig de pantalla"… i descarregueu i instal·leu i us bloqueja la pantalla de l'ordinador perquè ningú pugui accedir al vostre ordinador mentre no hi esteu (el bloqueig de Windows fa el mateix tret que no tingueu una contrasenya). Aquest programa que he fet utilitza VB. NET per bloquejar la pantalla. En els següents passos us mostraré com. Podeu descarregar el meu bloqueig de pantalla a continuació.

Pas 1: fer la pantalla (part1)

Aquí us mostraré la primera part del bloqueig de pantalla.. la primera foto és la finestra que apareix quan s'executa el bloqueig de pantalla. En això podeu configurar la contrasenya.. la vaig fer així que heu de configurar cada vegada perquè mai l’oblidis. A més, el meu programa només té un fitxer. També teniu l'opció de veure'l per veure-ho. Això és només perquè la pantalla de bloqueig es vegi lleugerament. Per tant, podeu veure la vostra foto d’escriptori desapareguda. Ara és com la vaig fer: per a la contrasenya:

Private Sub TextBox1_TextChanged (remitent ByVal com System. Object, ByVal i com System. EventArgs) gestiona TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text A continuació, esborra el procés com System. Diagnostics. Process = Res Dim psi com a nou 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 () Finalitza Si Finalitza el que fa és comprovar si el text del quadre de text 1 és igual al text que heu definit a la primera finestra. Aleshores, si fa aquesta tasca, mata el gestor de tasques si s’estava executant i reinicia explorer.exe. process As System. Diagnostics. Process = Res psi Dim com nou 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 Button 1. Show () End If End Sub Aquest fragment de guió matarà explorer.exe, de manera que fins i tot si algú passa el meu bloqueig de pantalla no podrà. per fer qualsevol cosa, llavors comprova si s'ha marcat la casella "veure a través". Si té, estableix l’opacitat a 0,5. Si no, mostra el botó de canvi de fons.

Pas 2: fer la pantalla (part2)

Aquí us mostraré com el vaig fer cancel·lar el gestor de tasques i com diu a sobre d’altres windows. Per establir-lo com el formulari superior que acabeu d’establir: me.topmost = trueon loadper fer que el gestor de tasques sigui inútil he utilitzat aquesta codificació:

Private Sub Form2_LostFocus (remitent ByVal com a objecte, ByVal i com System. EventArgs) Maneja Me. LostFocus Dim k As Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Finalitza SubWitch en una altra paraula diu: quan es perd el focus, amagueu gestor de tasques, però també perquè és la forma més elevada, ja que mai no s’executava el gestor de tasques. Més que quan introduïu la contrasenya correcta … la tasca mata el gestor de tasques. 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 Return MyBase. ProcessDialogKey (keyData) End Functionwitch fa que l'alt F4 sigui inútil… i intenta fer el mateix amb la tecla de control, però això no va funcionar.. però ho vaig deixar encès per si faria en altres sistemes.

Pas 3: bloqueig de pantalla

Espero que us sigui útil per a tots els vostres projectes VB. NET. Si no enteneu cap part d’això o necessiteu ajuda amb algun dels vostres projectes, deixeu-nos un comentari o pm me. si teniu problemes i, si us plau, califiqueu =] La pantalla lock.exe està en funcionament si voleu descarregar-la.. només heu d'assegurar-vos que es guardi com a fitxer.exet per fer clic amb el botó dret i fer clic a.. deseu l'objectiu com o el vostre equivalent i deseu-ho com a exe.