Экранды құлыптау (VB.NET): 3 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:29

Мен сізге өзімнің экран құлпын қалай жасағанымды көрсетемін.. мүмкін, сіз өз қолыңызбен жасай аласыз, немесе менікін ғана қолдана аласыз;) Интернеттің барлық жерінде: 'Экран құлпы!'.. және сіз жүктеп алып, орнатасыз, ол сіздің компьютеріңіздің экранын құлыптайды, сонда сіз жоқ кезде сіздің компьютеріңізге ешкім кіре алмайды. (Windows құпия сөзі сізде құпия сөз болмаса, дәл осылай жасайды.) Мен жасаған бұл бағдарлама VB қолданады.. NET экранды құлыптау үшін. Келесі бірнеше қадамдарда мен сізге экранның құлпын төменде жүктеуге болатынын көрсетемін.

1 -қадам: экранды жасау (1 -бөлім)

Мен сізге экран құлпын бірінші бөлігін көрсетемін.. бірінші сурет - бұл менің экранды құлыптауды іске қосқанда пайда болатын терезе, онда сіз парольді орната аласыз. бұл әр уақытта, сондықтан сіз оны ешқашан ұмыта алмайсыз. Сондай -ақ, менің бағдарламам тек 1 файл. Сізде оны көру үшін көру мүмкіндігі бар.. бұл құлыптау экраны аздап көрінеді. Жұмыс үстелінің суреті өшкенін көруге болады, енді мен мұны қалай істедім: пароль үшін:

Жеке қосалқы TextBox1_TextChanged (ByVal жіберуші System. Object ретінде, ByVal e As System. EventArgs) TextBox1. TextChanged өңдейді, егер TextBox1. Text = Form1. TextBox1. Text Содан кейін Dim Process, System. Diagnostics. Process = ештеңе Dim psi ретінде жаңа ProcessStartInfo емес. UseShellExecute = True psi. FileName = «taskkill.exe» psi. Arguments = « /F /IM taskmgr.exe» процесс = System. Diagnostics. Process. Start (psi) Shell («explorer.exe») Form1. Close () End If Sub End Subwhat - бұл мәтіндік жәшіктегі мәтіннің бірінші терезеде орнатылған мәтінмен тең екендігін тексереді. Содан кейін, егер бұл тапсырманы орындаса, ол тапсырмалар менеджерін өлтіреді, және explorer.exe қайта іске қосылады, мұнда көру биты бар: Жеке қосалқы Form2_Load (ByVal жіберуші System. Object, ByVal e As System. EventArgs) MyBase. Load Dim өңдейді. процесс ретінде System. Diagnostics. Process = Ештеңе жоқ Dimsi psi Жаңа ProcessStartInfo ретінде psi. UseShellExecute = Шын psi. FileName = «taskkill.exe» psi. Arguments = « /F /IM explorer.exe» процесс = System. Diagnostics. Process. Start (psi) Егер Form1. CheckBox1. Checked = True болса, онда Me. Opacity = 0.5 басқа түйме1. Show () End If End EndБұл сценарий explorer.exe файлын өлтіруге мүмкіндік береді, сондықтан біреу менің экранды құлыптаудан өтіп кетсе де, олар мүмкін болмайды. кез келген нәрсені жасау үшін! содан кейін «көру» жолағының белгіленгенін тексереді. Егер ол бар болса, ол мөлдірлікті 0,5 -ке орнатады, егер олай болмаса, ол фонды өзгерту түймесін көрсетеді.

2 -қадам: экран жасау (2 -бөлім)

Мұнда мен сізге тапсырмалар менеджерінен қалай бас тартқанымды және басқа терезелердің үстінде қалай жазылғанын көрсетемін. Оны сіз орнатқан жоғарғы форма ретінде орнату үшін: me.topmost = trueon loadto тапсырмалар менеджерін пайдасыз ету үшін мен осы кодты қолдандым.:

Жеке қосалқы форма2_LostFocus (ByVal жіберуші ретінде, ByVal e ретінде System. EventArgs) Мені өңдейді. LostFocus Dim k As Long k = Shell («c: / windows / system32 / taskmgr.exe», vbHide) SubWitch -ті басқа сөзбен айтқанда: фокус жоғалған кезде, тапсырмалар менеджерін жасырыңыз, бірақ ол ешқашан тапсырмалар менеджері сияқты ешқашан жоғалмайтын ең жоғарғы формасы болып табылады. Егер сіз дұрыс құпия сөзді енгізген болсаңыз, онда ол тапсырма менеджерін өлтіреді. keyData As System. Windows. Forms. Keys) Boolean Select Case (keyData) Case Keys. Control True Case Keys. Alt немесе Keys. F4 Return True End Select Return MyBase. ProcessDialogKey (keyData) End Functionwitch F4 alt -ті қажетсіз етеді!.. және ол басқару кілтімен дәл осылай жасауға тырысады, бірақ бұл жұмыс істемеді.. бірақ мен оны басқа жүйелерде болған жағдайда ғана қалдырдым.

3 -қадам: Экранды құлыптау

Сіз бұл нұсқаулықты барлық VB. NET жобаларыңыз үшін пайдалы деп таптым деп үміттенемін, егер сіз оның бір бөлігін түсінбесеңіз немесе сізге бір жобаңыз бойынша көмек қажет болса, түсініктеме қалдырыңыз немесе маған хабарлаңыз. кез келген проблемалар мен бағаны қойыңыз =] Егер сіз жүктегіңіз келсе, lock.exe экраны соққыға жығылады.. оны тінтуірдің оң жақ түймесімен нұқу үшін.exet ретінде сақталғанына көз жеткізіңіз. мақсатты немесе баламасын сақтаңыз, содан кейін exe ретінде сақтаңыз.