Turinys:
- 1 veiksmas: ekrano sukūrimas (1 dalis)
- 2 veiksmas: ekrano sukūrimas (2 dalis)
- 3 veiksmas: ekrano užraktas
Video: Ekrano užraktas (VB.NET): 3 žingsniai
2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:51
Aš jums parodysiu, kaip aš padariau savo ekrano užraktą.. taigi galbūt jūs galite padaryti savo. Arba galite tiesiog naudoti mano;) Internete matote: „Ekrano užraktas!“.. ir jūs atsisiųsite ir įdiegsite, o tai užrakins jūsų kompiuterio ekraną, kad niekas negalėtų pasiekti jūsų kompiuterio, kol jūsų nėra. („Windows“užraktas daro tą patį, nebent turite slaptažodį.) Ši mano sukurta programa naudoja VB. NET užrakinti ekraną. Per kelis kitus veiksmus parodysiu, kaip tai padaryti. Žemiau galite atsisiųsti ekrano užraktą.
1 veiksmas: ekrano sukūrimas (1 dalis)
Čia aš jums parodysiu pirmąją ekrano užrakto dalį kiekvieną kartą, kad niekada negalėtum to pamiršti. Taip pat mano programa yra tik 1 failas. Jūs taip pat turite galimybę pamatyti, kad pamatytumėte.. tai tik todėl, kad užrakto ekranas būtų šiek tiek matomas. Taigi galite pamatyti, kad jūsų darbalaukio nuotrauka išnyko. Dabar štai kaip aš tai padariau: dėl slaptažodžio:
Private Sub TextBox1_TextChanged (ByVal siuntėjas kaip System. Object, ByVal e kaip System. EventArgs) tvarko TextBox1. TextChanged If TextBox1. Text = Form1. TextBox1. Text Tada pritemdyti procesą kaip System. Diagnostics. Process = Nieko Dim psi kaip naujas ProcessStartInfo UseShellExecute = True psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM taskmgr.exe" process = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Pabaiga Jei pabaiga Tai, ką tai daro, patikrina, ar tekstas 1 laukelyje yra lygus pirmajame lange nustatytam tekstui. Tada, jei ji tai atlieka, užduotis užmuša užduočių tvarkyklę, jei ji buvo paleista, ir iš naujo paleidžia explorer.exe. Čia yra peržiūros bitas: Privatus subformas2_Load („ByVal“siuntėjas kaip „System. Object“, „ByVal“ir „System. EventArgs“) tvarko „MyBase. Load Dim“process As System. Diagnostics. Process = Nieko Dim psi kaip naujas ProcessStartInfo psi. UseShellExecute = Tiesa psi. FileName = "taskkill.exe" psi. Arguments = " /F /IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Jei Forma1. CheckBox1. Checked = Tiesa Tada aš. Opacity = 0.5 Kitas mygtukas1. Rodyti () Pabaiga Jei pabaiga Šis scenarijus atliks užduotį nužudyti explorer.exe, todėl net jei kas nors peržengs mano ekrano užraktą, jie negalės daryti bet ką! tada patikrina, ar pažymėtas langelis „peržiūrėti“. Jei jis turi, jis nustato neskaidrumą iki 0.5. Jei ne, tai rodo fono pakeitimo mygtuką.
2 veiksmas: ekrano sukūrimas (2 dalis)
Čia aš jums parodysiu, kaip aš padariau, kad jis atšauktų užduočių tvarkyklę ir kaip sakoma ant kitų langų. Kad ją nustatytumėte kaip viršutinę formą, kurią ką tik nustatėte: me.topmost = trueon loadto, kad užduočių tvarkyklė taptų nenaudinga, naudoju šį kodavimą:
Privati antrinė forma2_LostFocus („ByVal“siuntėjas kaip objektas, „ByVal“ir „System. EventArgs“) tvarko mane. praradę dėmesį, paslėpkite užduočių tvarkyklę. bet taip pat ir todėl, kad tai yra aukščiausia forma, kurią ji atleidžia, pvz., užduočių tvarkyklė niekada nebuvo paleista. Pvz., kai įvedate teisingą slaptažodį… užduotis žudo užduočių tvarkyklę. aš taip pat naudoju: keyData As System. Windows. Forms. Keys) Kaip loginis pasirinkimo atvejis (keyData) Bylos raktai. Kontrolė Grąžinti tikrojo atvejo raktus. Alt arba Keys. F4 Grąžinti tikrąją pabaigą Pasirinkite Grįžti MyBase. ProcessDialogKey (keyData) End Functionwitch daro „alt F4“nenaudingą!.. ir jis bando padaryti tą patį su valdymo klavišu, bet tai nepavyko.. bet aš palikau jį įjungtą tik tuo atveju, jei tai būtų kitose sistemose.
3 veiksmas: ekrano užraktas
Tikiuosi, kad ši pamoka jums buvo naudinga visiems jūsų VB. NET projektams. Jei nesuprantate dalies šio klausimo arba jums reikia pagalbos dėl vieno iš savo projektų, palikite komentarą arba parašykite man pm. bet kokios problemos ir prašau įvertinkite =] Jei norite atsisiųsti, ekrano užraktas.exe yra smūgis. tiesiog įsitikinkite, kad jis išsaugotas kaip.exeto, išsaugokite dešinįjį pelės klavišą ir spustelėkite.. išsaugoti tikslą kaip arba jūsų atitikmenį, tada išsaugoti kaip exe.
Rekomenduojamas:
Veikimas be ekrano / ekrano (be galvos) „Raspberry Pi“ar kituose „Linux“/ „Unix“kompiuteriuose: 6 žingsniai
Veikimas be ekrano / ekrano (be galvos) „Raspberry Pi“ar kituose „Linux“/ „Unix“kompiuteriuose: Kai dauguma žmonių perka „Raspberry PI“, jie mano, kad jiems reikia kompiuterio ekrano. Nešvaistykite pinigų nereikalingiems kompiuterių monitoriams ir klaviatūroms. Negaiškite laiko perkeldami klaviatūras ir monitorius iš vieno kompiuterio į kitą. Nesiriškite televizoriaus, kai jo nėra
„VBScript“ekrano užraktas: 6 žingsniai
„VBScript“ekrano užraktas: Internete mačiau daugybę ekrano užraktų, todėl nusprendžiau pabandyti jį sukurti. Aš nusprendžiau jį paskelbti, nes gali būti labai naudinga užrakinti kompiuterį, jei jame nėra slaptažodžio. Taigi aš jus išmokysiu, kaip tai padaryti. Arba tiesiog pereikite prie žingsnio
„Arduino TFT“jutiklinio ekrano durų užraktas: 5 žingsniai
„Arduino TFT“jutiklinio ekrano durų užraktas: tai mano pirmasis „Instructable“. Šiame projekte naudojamas „Arduino“ir 2,8 " Jutiklinis TFT jutiklinis ekranas su slaptažodžio eskizu, kad suaktyvintų relę, kuri nutraukia grandinę iki „mag lock“durų. Fone sugedo durų RFID užraktas, o ne iš naujo prijungtas
Porto užraktas: Nešiojamas užraktas: 5 žingsniai
Porto-spyna: Nešiojama spyna: Sveiki visi, taigi, kalbant apie šį projektą, norėjau sukurti tai, kas paprasta, nes tai išsprendžia paprastą problemą, be jokių užraktų jūsų CR-kioske. Dauguma žmonių pradžioje mane nurašė sakydami: ar ne paprasčiau įdiegti spynas? Tai
„Raspberry Pi“jutiklinio ekrano ekrano pamoka: 5 žingsniai (su paveikslėliais)
„Raspberry Pi“jutiklinio ekrano ekrano pamoka: atmeskite savo HDMI kabelius, nes dabar galite turėti „Pi“ekraną! Ši instrukcija padės jums nustatyti „Pi“sąranką su jutikliniu ekranu ir kaip ją naudoti, kad atitiktų jūsų poreikius. Bet kokio tipo HAT stiliaus ekranas gali būti