Kufuli kwa Hifadhi ya VBScript: Hatua 5

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:50

Sasisha: Programu hii sasa ina uwezo wa kuficha anatoa zilizofungwa maalum

Baada ya kutengeneza kufuli yangu ya skrini ambayo inafunga kompyuta ya watumiaji niliamua kuchukua changamoto ya kutengeneza kitufe cha gari kinachofunga kiendeshi.

Sisi sote wakati mwingine tunataka kuweka watumiaji nje ya gari (haswa gari la usb). Kwa hivyo programu hii itafunga gari ili kuzuia watumiaji wasioidhinishwa kupata ufikiaji wake.

Tofauti na skrini yangu ya kufunga script hii ni ngumu sana. Hasa kwa sababu niliongeza mengi ikiwa ni na basi ni kutoa tu kwa programu kujisikia mtaalamu.

Mpango huu ulitengenezwa katika VBScript. Katika hatua chache zifuatazo nitakuonyesha jinsi nilivyoifanya.

Hatua ya 1: Programu yangu…

Unaweza kupakua Hifadhi yangu ya Hifadhi hapa chini:

Hapa kuna faili mbichi ya VBScript KIUNGO. Itabidi uondoe moja ya 's mwishowe kwa hivyo ni' DriveLock.vbs 'au kile unachotaka kwa muda mrefu tu ikiisha katika.vbs.

Hatua ya 2: Kufanya Hifadhi ya Hifadhi (sehemu ya 1)

Hapa nitakuonyesha sehemu ya kwanza ya kufuli la gari… Picha ya kwanza ndio inakuja wakati unapoendesha programu hiyo kwanza.

Nimeifanya iwe na chaguo tatu hapa, kufunga gari, kufungua gari au kuondoka.

Sasa hivi ndivyo nilivyofanya:

Kazi DisplayPrompt () intSplash = MsgBox ("Je! Ungependa kufanya nini?" & VbCrLf & vbCrLf _ & "[Bonyeza NDIYO ili kufunga gari]" & vbCrLf _ & "[Bonyeza HAPANA ili kufungua gari (s)] ", 35, cTitleBarMsg) Ikiwa intSplash = 2 Kisha OnyeshaSplashScreen () ElseIf intSplash = 7 Kisha Kwenye Kosa Endelea Next objWshShl. RegDelete" HKLM / Software / Microsoft / Windows / CurrentVersion / Sera / Explorer / NoViewOnDrive "Software / Microsoft / Windows / CurrentVersion / Sera / Explorer / NoDrives "Ikiwa Nambari. Nambari 0 Basi MsgBox" Drives tayari zimefunguliwa. ", 16, cTitleBarMsg DisplayPrompt () Mwisho Ikiwa kwenye Kosa la Picha 0 objWshShl. Run" Taskkill / f / im Explorer.exe ", 0 WScript. Lala 300 objWshShl. Kimbia" cmd / c explorer.exe ", 0 MsgBox" Hifadhi imefunguliwa ilikuwa na mafanikio! ", 64, cTitleBarMsg DisplayPrompt () Mwisho ikiwa Kazi ya Mwisho.

Ukibonyeza HAPANA kufungua gari, inafuta vitufe vya Usajili ambavyo vina mipangilio ambayo inafunga / inaficha gari pia huangalia ikiwa gari tayari imefunguliwa. Halafu inaanza tena Explorer.exe ili mabadiliko yatekelezwe mara moja.

Ukibonyeza kughairi, inaonyesha skrini ya Splash kisha inatoka.

Mwishowe ukibonyeza NDIYO basi huenda kwenye menyu inayofuata. Ambayo nitaelezea katika hatua inayofuata.

Hatua ya 3: Kufanya Hifadhi ya Hifadhi (sehemu ya 2)

Ifuatayo nitakuonyesha menyu ikiwa unachagua gari ya wachawi ambayo unataka kufunga (picha 1).

Weka colDrives = objFSO. Drives

Kwa Kila objDrive katika colDrives strDriveList = strDriveList & objDrive. DriveLetter & Space (10) Next strDrives = LCase (Replace (strDriveList, "", "", 1, -1)) Set ColDrives = objFSO. Drives strDriveList = objDrive katika colDrives strDriveList = strDriveList & objDrive. DriveLetter & ": \" na Nafasi (5) Ifuatayo

InputMenu ()

Sub InputMenu strChoice = InputBox ("Ingiza barua ya gari unayotaka kufunga." & _ "Au andika ZOTE ili kufunga anatoa zote." & _ Vbcrlf & vbcrlf & "Drives zinazopatikana" & Space (3) & _ ":" & vbCrLf & vbCrLf & strDriveList, cTitleBarMsg)

Kidogo cha kwanza cha nambari hutengeneza orodha ya anatoa zote zinazopatikana. Sehemu inayofuata ni kisanduku cha kuingiza ikiwa ungeingiza barua ya gari ambayo ungependa kufunga.

Ukijaribu kuandika kwa chochote isipokuwa barua halali ya kiendeshi, na programu itaikataa. Hivi ndivyo nilifanya hivyo:

Ikiwa IsEmpty (strChoice) Basi

DisplaySplashScreen () ElseIf strChoice = "" Halafu MsgBox "Usiache hii tupu.", 16, cTitleBarMsg InputMenu () ElseIf LCase (strChoice) = "all" Basi 'Usifanye Lingine Kama Len (strChoice) 1 Kisha MsgBox "Lazima uingie barua TU. ", 16, cTitleBarMsg InputMenu () ElseIf Not InStr (1, strDrives, LCase (strChoice), 1) 0 Halafu MsgBox" Chaguo batili, tafadhali jaribu tena. ", 16, cTitleBarMsg InputMenu () Mwisho Ikiwa

Mistari miwili ya kwanza huangalia ikiwa mtumiaji anagonga kitufe cha kughairi, na ikiwa waliondoka kwenye programu.

Mistari mitatu inayofuata huangalia ikiwa mtumiaji ameacha eneo la kuingiza tupu.

Nambari iliyobaki inachanganya sana, lakini kimsingi ni kuhakikisha tu kwamba mtumiaji ameandika katika gari halali.

Hatua ya 4: Kufanya Hifadhi ya Hifadhi (Sehemu ya 3)

Kwa sababu fulani Usajili hauwezi kusoma barua ya gari peke yake, kwa hivyo lazima iwekwe kwa nambari inayolingana. Ndivyo kanuni hii hapa chini inafanya. Kwa habari zaidi juu ya hii bonyeza hapa.

ElseIf strChoice = "a" Basi

intDriveNumber = 1 ElseIf strChoice = "b" Kisha intDriveNumber = 2 ElseIf strChoice = "c" Kisha intDriveNumber = 4

Mara tu nambari imesanidiwa hati sasa inaweza kuandika kwa Usajili ukitumia nambari hii:

Ujumbe mwingine, ni kwamba mpango huu unaandika kwa HKLM badala ya HKCU. HKLM inaathiri watumiaji wote badala ya mtumiaji wa sasa aliyeingia tu ili kufuli iwe bora zaidi.

objWshShl. RegWrite "HKLM / Software / Microsoft / Windows / CurrentVersion / Sera / Explorer / NoViewOnDrive", nambari ya IntDrive, "REG_DWORD"

objWshShl. RegWrite "HKLM / Software / Microsoft / Windows / CurrentVersion / Sera / Explorer / NoDrives", IntDriveNumber, "REG_DWORD"

Hatua ya 5: Hifadhi ya Hifadhi

Natumai umepata msaada huu wa kufundisha. ikiwa hauelewi sehemu ya hii, tafadhali post maoni au jioni yangu.

Na tafadhali nipe maoni juu ya shida yoyote na tafadhali kiwango. Nilitumia muda mwingi juu ya hii.

Ikiwa unataka kupakua faili ya vbs mbichi, hakikisha imehifadhiwa na ugani wa faili ya.vbs. Jambo lingine zuri juu yake, ni kwamba inabebeka ili uweze kuiendesha kutoka kwa gari la kuangazia na hauitaji kusanikisha chochote.