Étape 2: Making The Drive Lock (partie 1)
Ici, je vais vous montrer la première partie de la serrure de la voiture... La première photo, c’est ce qui arrive lorsque vous exécutez tout d’abord le programme.
J’ai fait en sorte que vous disposez de trois options ici, pour verrouiller un lecteur, pour déverrouiller le lecteur (s) ou sortie.
Maintenant, voici comment je l’ai fait :
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
Si vous cliquez sur non pour déverrouiller le disque, il supprime la clé de Registre qui contient les paramètres de verrouiller le lecteur qu'il vérifie également si le lecteur est déjà déverrouillé. Puis il redémarre explorer.exe afin que les modifications prennent effet immédiatement.
Si vous cliquez sur Annuler, il affiche l’écran de démarrage et puis se termine.
Enfin si vous cliquez sur Oui, puis il va au menu suivant. Que j’expliquerai dans la prochaine étape.