Verrouillage de l'écran (VB.NET) : 3 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:11

Je vais vous montrer comment j'ai créé mon propre verrouillage d'écran.. alors peut-être que vous pouvez créer le vôtre… et vous téléchargez et installez et il verrouille l'écran de votre PC afin que personne ne puisse accéder à votre PC tant que vous n'êtes pas là. (Le verrouillage Windows fait la même chose sauf si vous n'avez pas de mot de passe.) Ce programme que j'ai créé utilise VB. NET pour verrouiller l'écran. Dans les prochaines étapes, je vais vous montrer comment. Vous pouvez télécharger mon verrouillage d'écran ci-dessous.

Étape 1: Faire l'écran (partie1)

Ici, je vais vous montrer la première partie du verrouillage de l'écran. La première photo est la fenêtre qui apparaît lorsque vous exécutez mon verrouillage d'écran. Vous pouvez définir le mot de passe. à chaque fois pour que vous ne puissiez jamais l'oublier. Aussi, mon programme n'est qu'un fichier. Vous avez également la possibilité de le voir pour voir à travers.. c'est juste pour que l'écran de verrouillage soit légèrement transparent. Vous pouvez donc voir votre image de bureau s'estomper. Voici comment j'ai procédé: pour le mot de passe:

Private Sub TextBox1_TextChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère 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 SubCe que cela fait est de vérifier si le texte dans textbox1 est égal au texte que vous avez défini dans la première fenêtre. Ensuite, si c'est le cas, la tâche tue le gestionnaire de tâches s'il était en cours d'exécution et redémarre explorer.exe. Voici le bit de transparence: Private Sub Form2_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère 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) Si Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show() End If End SubCe morceau de script tuera explorer.exe, donc même si quelqu'un dépasse le verrouillage de mon écran, il ne pourra pas faire quoi que ce soit ! Ensuite, il vérifie si la case « voir à travers » a été cochée. Si c'est le cas, il définit l'opacité sur 0,5. Sinon, il affiche le bouton de modification de l'arrière-plan.

Étape 2: Faire l'écran (partie 2)

Ici, je vais vous montrer comment je l'ai fait annuler le gestionnaire de tâches et comment il est indiqué au-dessus des autres fenêtres.:

Private Sub Form2_LostFocus(ByVal sender As Object, ByVal e As System. EventArgs) gère Me. LostFocus Dim k As Long k = Shell("c:\windows\system32\taskmgr.exe", vbHide) End SubWitch en d'autres termes dit: en cas de perte de concentration, masquez le gestionnaire de tâches. mais aussi parce que c'est la forme la plus élevée, il semble que le gestionnaire de tâches n'ait jamais été exécuté. Que lorsque vous mettez le bon mot de passe dans… la tâche tue le gestionnaire de tâches. keyData As System. Windows. Forms. Keys) As Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt Ou Keys. F4 Return True End Select Return MyBase. ProcessDialogKey(keyData) End Functionwitch rend l'alt F4 inutile !.. et il essaie de faire la même chose avec la touche de contrôle, mais cela n'a pas fonctionné.. mais je l'ai laissé allumé juste au cas où sur d'autres systèmes, cela le ferait.

Étape 3: Verrouillage de l'écran

J'espère que vous avez trouvé cette instructable utile pour tous vos projets VB. NET. tous les problèmes et s'il vous plaît noter =] L'écran lock.exe est coupé si vous voulez télécharger.. assurez-vous simplement qu'il est enregistré en tant que.exe pour enregistrer un clic droit et cliquez.. enregistrer la cible sous ou votre équivalent puis enregistrer en tant qu'exe.