Hur man gör en disklås (2 / 5 steg)
Steg 2: Att göra The Drive Lock (del 1)
Här kommer jag visa dig den första delen av disklåsfunktionen... Första bilden är vad som kommer upp när du först köra programmet.
Jag gjorde det så har du tre alternativ här, att låsa en enhet, för att låsa upp enheten/enheterna eller exit.
Nu är här hur jag gjorde det:
Funktion DisplayPrompt()
intSplash = MsgBox ("Vad vill du göra?" & vbCrLf & vbCrLf _
& "[Klicka på Ja för att låsa en driva]" & vbCrLf _
& "[Klicka på Nej om du vill låsa upp enheten/enheterna]", 35, cTitleBarMsg)
Om intSplash = 2 då
DisplaySplashScreen()
ElseIf intSplash = 7 då
På fel återupptas nästa
objWshShl.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive"
Om Err.Number <> 0 sedan
MsgBox "Enheter är redan upplåst.", 16, cTitleBarMsg
DisplayPrompt()
Slut om
På fel Goto 0
objWshShl.Run "Taskkill f im explorer.exe",0
WScript.Sleep 300
objWshShl.Run "explorer.exe"
MsgBox "Drive olåst var lyckad!", 64, cTitleBarMsg
DisplayPrompt()
Slut om
Om du klickar på Nej om du vill låsa upp enheten/enheterna, det tar bort den registernyckel som innehåller inställningar som låser enheten också kontrolleras för att se om enheten är redan upplåst. Då startar det om explorer.exe så att ändringarna tas i bruk omedelbart.
Om du klickar på Avbryt visas startbilden och avslutas sedan.
Slutligen om du klickar på Ja går då det till nästa meny. Som jag kommer att förklara i nästa steg.