Skjermlås (VB.NET): 3 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:26

Jeg skal vise deg hvordan jeg lagde min egen skjermlås.. så kanskje du kan lage din egen. Eller du kan bare bruke min;) Du ser overalt på internett: 'Skjermlås!'.. og du laster ned og installerer, og den låser PC-skjermen, slik at ingen kan få tilgang til datamaskinen din mens du ikke er der. (Windows-lås gjør det samme med mindre du ikke har et passord.) Dette programmet jeg laget bruker VB. NET for å låse skjermen. I de neste trinnene skal jeg vise deg hvordan. Du kan laste ned skjermlåsen min nedenfor.

Trinn 1: Lag skjermen (del1)

Her skal jeg vise deg den første delen av skjermlåsen.. det første bildet er vinduet som kommer opp når du kjører skjermlåsen min. På dette kan du sette passordet.. jeg lagde det, så du må sette det hver gang, slik at du aldri kan glemme det. Også så programmet mitt er bare 1 fil. Du har også muligheten til å se den for å se gjennom.. dette er bare slik at låseskjermen er litt gjennomsiktig. Så du kan se skrivebordet ditt visne ut. Nå er slik jeg gjorde det: for passordet:

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 Process. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" prosess = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Slutt Hvis Avslutt Subwhat dette gjør er å sjekke om teksten i tekstboks1 er lik teksten du satte i det første vinduet. Så hvis den gjør det, dreper oppgaven manager hvis den kjørte, og starter explorer.exe på nytt. Her er gjennomsiktig 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 script of script will task kill explorer.exe så selv om noen kommer forbi skjermlåsen min vil de ikke kunne for å gjøre noe! så sjekker den om boksen "se gjennom" er merket av. Hvis den har den, setter opaciteten til 0,5. Hvis ikke, viser den knappen for bakgrunnsendring.

Trinn 2: Lag skjermen (del2)

Her vil jeg vise deg hvordan jeg fikk det til å avbryte oppgavebehandling og hvordan det står på toppen av andre vinduer. Å sette det som det øverste skjemaet du nettopp har angitt: me.topmost = trueon loadto make it make task manager ubrukelig jeg brukte denne kodingen:

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 med andre ord sier: når du mister fokus, skjul oppgavebehandling. men også fordi det er den øverste formen det løsner som oppgavebehandling aldri ble kjørt. Så når du legger inn riktig passord i … det dreper oppgavebehandling. jeg brukte også: Protected Overrides Function 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 gjør alt F4 ubrukelig!.. og den prøver å gjøre det samme med kontrollnøkkelen, men det fungerte ikke.. men jeg lot den være på i tilfelle på andre systemer.

Trinn 3: Skjermlås

Jeg håper du synes dette var nyttig for alle dine VB. NET -prosjekter. Hvis du ikke forstår en del av dette eller du trenger hjelp med et av prosjektene dine, vennligst legg igjen en kommentar eller send meg en pm. Og vennligst gi meg tilbakemelding på eventuelle problemer og vær så snill å vurdere =] Skjermlåsen.exe er slag hvis du vil laste ned.. Bare sørg for at den er lagret som.exeto lagre høyreklikk og klikk.. lagre mål som eller tilsvarende og lagre som exe.