Stap 2: Making The Drive Lock (deel 1)
Hier zal ik u tonen het eerste deel van de drive lock... De eerste foto is wat omhoog komt wanneer u het programma voor het eerst uitvoert.
Ik heb het dus u drie opties hier hebt, om te vergrendelen een drive om te ontgrendelen schijf/schijven of exit.
Nu is hier hoe ik het deed:
Function DisplayPrompt() intSplash = MsgBox("What would you like to do?" & vbCrLf & vbCrLf _ & "[Click on YES to lock a drive] " & vbCrLf _ & "[Click on NO to unlock drive(s)]",35, cTitleBarMsg) If intSplash = 2 Then DisplaySplashScreen() ElseIf intSplash = 7 Then On Error Resume Next objWshShl.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive" If Err.Number <> 0 Then MsgBox "Drives are already unlocked.",16,cTitleBarMsg DisplayPrompt() End If On Error Goto 0 objWshShl.Run "Taskkill /f /im explorer.exe",0 WScript.Sleep 300 objWshShl.Run "explorer.exe" MsgBox "Drive unlocked was succesfull!",64,cTitleBarMsg DisplayPrompt() End If
Als u op Nee om te ontgrendelen de schijf/schijven klikt, verwijdert het de registersleutel met de instellingen die de schijf die wordt ook gecontroleerd als het station al ontgrendeld worden vergrendeld. Vervolgens herstarten op explorer.exe zodat de wijzigingen onmiddellijk doorgevoerd worden.
Als u op Annuleren klikt, wordt het splash-scherm weergegeven en vervolgens wordt afgesloten.
Tot slot als u op Ja klikt gaat dan het naar het volgende menu. Die ik zal uitleggen in de volgende stap.