Lock ng Screen (VB.NET): 3 Mga Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:16

Ipapakita ko sa iyo kung paano ako gumawa ng sarili kong lock ng screen.. kaya marahil maaari kang gumawa ng iyong sarili. O maaari mo lamang gamitin ang akin;) Nakita mo ang buong internet: 'Screen Lock!'.. at nag-download at nag-install ka at nakakandado ka nito sa pc screen upang walang maka-access sa iyong pc habang wala ka roon. (Ginagawa ng Windows lock ang parehong bagay maliban kung wala kang isang password.) Ang program na ginawa ko ay gumagamit ng VB. NET upang i-lock ang screen. Sa mga susunod na hakbang, ipapakita ko sa iyo kung paano. Maaari mong i-download ang aking Screen Lock sa ibaba.

Hakbang 1: Paggawa ng Screen (part1)

Narito ipapakita ko sa iyo ang unang bahagi ng lock ng screen.. ang unang larawan ay ang window na lalabas kapag pinatakbo mo ang aking lock ng screen. Dito maaari mong itakda ang password.. Ginawa ko ito kaya kailangan mong itakda ito sa tuwing hindi mo ito makakalimutan. Gayundin kaya ang aking programa ay 1 file lamang. Mayroon ka ring pagpipilian upang makita ito upang makita sa pamamagitan ng.. ito ay lamang upang ang lock screen ay bahagyang makita sa pamamagitan ng. Kaya't maaari mong makita ang iyong desktop pic na kupas. Ngayon narito kung paano ko ito nagawa: para sa password:

Pribadong Sub TextBox1_TextChanged (ByVal nagpadala Bilang System. Object, ByVal e Bilang System. EventArgs) Humahawak sa TextBox1. TxtChanged Kung TextBox1. Txt = Form1. TextBox1. Txt Pagkatapos ay malabo ang proseso Bilang System. Diagnostics. Process = Walang Dim psi Bilang Bagong ProsesoStartInfo psi. UseShellExecut = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM taskmgr.exe" proseso = System. Diagnostics. Process. Start (psi) Shell ("explorer.exe") Form1. Close () Tapusin Kung Tapusin ang ginagawa nito ay suriin upang makita kung ang teksto sa textbox1 ay katumbas ng teksto na itinakda mo sa unang window. Pagkatapos kung gagawin nito ang gawain ay pinapatay ang tagapamahala ng gawain kung ito ay tumatakbo, At i-restart ang explorer.exe. Narito ang makita sa pamamagitan ng bit: Pribadong Sub Form2_Load (ByVal sender Bilang System. Object, ByVal e Bilang System. EventArgs) Humahawak sa MyBase. Load Dim proseso Bilang System. Diagnostics. Process = Wala Dim psi Bilang Bagong ProcessStartInfo psi. UseShellExecut = True psi. FileName = "taskkill.exe" psi. Arguments = "/ F / IM explorer.exe" process = System. Diagnostics. Process. Start (psi) Kung Form1. CheckBox1. Checked = True Then Me. Opacity = 0.5 Else Button1. Show () Tapusin Kung Tapusin ang SubAng piraso ng script na ito ay papatayin ang explorer.exe kaya kahit na may pumasa sa aking lock ng screen hindi nila magagawa upang gawin ang anumang bagay! pagkatapos ay sinusuri nito upang makita kung ang kahon na 'see through' ay nasuri. Kung mayroon itong nagtatakda ng opacity sa 0.5. Kung hindi pagkatapos ay ipinapakita nito ang pindutan ng background ng pagbabago.

Hakbang 2: Paggawa ng Screen (bahagi2)

Dito ipapakita ko sa iyo kung paano ko nagawang kanselahin ang task manager at kung paano ito sinasabi sa tuktok ng iba pang mga windows. Upang itakda ito bilang tuktok na form na itinakda mo lamang: me.topmost = trueon loadto gawin itong walang silbi sa task manager ginamit ko ang coding na ito:

Pribadong Sub Form2_LostFocus (ByVal nagpadala Bilang Bagay, ByVal e Bilang System. EventArgs) Humahawak sa Akin. LostFocus Dim k Bilang Long k = Shell ("c: / windows / system32 / taskmgr.exe", vbHide) End SubWitch sa ibang salita ay nagsabi: kapag nawala ang pagtuon, itago ang tagapamahala ng gawain. ngunit din dahil ito ang pinakamataas na form na maluwag tulad ng task manager na hindi tumakbo. Tapos kapag inilagay mo ang tamang password sa … pinapatay nito ang task manager. Ginamit ko rin ang: Protected Overrides Function ProcessDialogKey (ByVal keyData Bilang System. Windows. Forms. Keys) Bilang Boolean Select Case (keyData) Case Keys. Control Return True Case Keys. Alt O Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch ginagawang walang silbi ang alt F4!.. at sinusubukan nitong gawin ang pareho sa control key, ngunit hindi iyon gumana.. ngunit naiwan ko ito kung sakali sa iba pang mga system na gagawin nito.

Hakbang 3: Screen Lock

Inaasahan kong napulot mong kapaki-pakinabang ito para sa lahat ng iyong mga proyekto sa VB. NET. Kung hindi mo maintindihan ang isang bahagi nito o kailangan mo ng tulong sa isa sa iyong mga proyekto mangyaring mag-iwan ng komento o pm sa akin. At mangyaring bigyan ako ng feed pabalik anumang mga problema at mangyaring rate =] Ang screen lock.exe ay pumutok kung nais mong i-download.. siguraduhin lamang na nai-save ito bilang isang.