Näytön lukitus (VB.NET): 3 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

Aion näyttää sinulle, kuinka tein oman näytön lukituksen.. joten ehkä voit tehdä oman. Tai voit käyttää vain omaani;) Näet kaikkialla Internetissä: "Näytön lukitus!".. ja lataat ja asennat ja se lukitsee tietokoneesi näytön, joten kukaan ei voi käyttää tietokonettasi, kun et ole siellä. (Windows-lukko tekee saman, ellei sinulla ole salasanaa.) Tämä tekemäni ohjelma käyttää VB: tä. NET lukita näyttö. Seuraavissa vaiheissa näytän sinulle kuinka voit ladata näytön lukituksen alla.

Vaihe 1: Näytön tekeminen (osa 1)

Tässä aion näyttää sinulle näytön lukituksen ensimmäisen osan.. ensimmäinen kuva on ikkuna, joka tulee esiin, kun suoritat näytön lukituksen. Tällä voit asettaa salasanan.. tein sen, joten sinun on asetettava joka kerta, jotta et voi koskaan unohtaa sitä. Myös niin minun ohjelma on vain 1 tiedosto. Sinulla on myös mahdollisuus nähdä se nähdä läpi.. tämä on vain niin, että lukitusnäyttö on hieman läpi. Joten näet työpöydän kuvan haalistuneena. Nyt tein sen seuraavasti: salasanalle:

Private Sub TextBox1_TextChanged (ByVal -lähettäjä System. Object, ByVal e As System. EventArgs) Käsittelee TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Sitten Dim -prosessi järjestelmänä. Diagnostics. Process = Ei mitään Dim psi kuin uusi ProcessStartIn UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Lopeta Jos Lopeta Alivalinta, tämä tarkistaa, onko tekstiruudun 1 teksti sama kuin ensimmäisessä ikkunassa määrittämäsi teksti. Sitten jos se suorittaa tehtävän, se tappaa tehtävienhallinnan, jos se oli käynnissä, ja käynnistää explorer.exe: n uudelleen. Tässä on läpinäkyvä bitti: Yksityinen alilomake2_Load (ByVal -lähettäjä As System. Object, ByVal e As System. EventArgs) Käsittelee MyBase. Load Dim process As System. Diagnostics. Process = Ei mitään Dim psi Uutena ProcessStartInfo psi. UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Jos Form1. CheckBox1. Checked = True then Me. Opacity = 0.5 Else Button1. Show () End If End SubTämä skriptin tehtävä tappaa explorer.exe, joten vaikka joku ohittaisi näytön lukituksen, he eivät voi tehdä mitään! sitten se tarkistaa, onko "läpinäkyvä" -ruutu valittu. Jos se on, se asettaa opasiteetiksi 0.5, jos ei, se näyttää taustan vaihtopainikkeen.

Vaihe 2: Näytön tekeminen (osa 2)

Tässä näytän sinulle, kuinka tein sen peruuttamasta tehtävienhallinnan ja miten se lukee muiden ikkunoiden päällä. Asettaaksesi sen juuri asettamaasi ylimmän lomakkeen muotoon: me.topmost = trueon loadto tehdä tehtävähallinnasta hyödytön käytin tätä koodausta:

Yksityinen alilomake2_LostFocus (ByVal -lähettäjä objektina, ByVal e As System. EventArgs) käsittelee minua. LostFocus Dim k niin pitkä k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) Lopeta SubWitch toisin sanoen: kun keskittyminen on kadonnut, piilota tehtävienhallinta. mutta myös siksi, että se on ylin muoto, jota se löysää, kuten tehtävienhallinta ei ole koskaan ajettu. kuin kun laitat oikean salasanan… se tehtävä tappaa tehtävienhallinnan. käytin myös: Suojattu ohittaa toiminnon prosessi keyData As System. Windows. Forms. Keys) Boolen valintatapauksena (keyData) Case Keys. Control Return True Case Keys. Alt or Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch tekee alt F4: stä hyödyttömän!.. ja se yrittää tehdä samoin ohjausnäppäimellä, mutta se ei toiminut.. mutta jätin sen päälle siltä varalta, että muissa järjestelmissä se olisi.

Vaihe 3: Näytön lukitus

Toivottavasti tämä ohje oli hyödyllinen kaikille VB. NET -projekteillesi. Jos et ymmärrä osaa tästä tai tarvitset apua jossakin projektissasi, jätä kommentti tai lähetä minulle viesti. Ja anna minulle palautetta ongelmia ja arvioi =] Näytön lukitus.exe on isku, jos haluat ladata.. vain varmista, että se on tallennettu.exeto -tiedostona ja napsauta hiiren kakkospainikkeella ja napsauta.. tallenna kohde nimellä tai vastaava ja tallenna sitten exe -tiedostona.