Étape 4: Ajout de ce que nous avons appris dans le script
Voici le code pour disableing le lecteur :
Set shellobj = CreateObject("WScript.Shell")
shellobj.Run « cmd »
WScript.Sleep 200
shellobj.SendKeys "mountvol g:\ /d {enter}"
_
Vous devez comprendre tout cela si loin de nos petits tests
Voici le code pour ouvrir une image comme il voulait et fermer la première fenêtre de l’invite de commandes :
WScript.Sleep 2000
shellobj.SendKeys "c:\3.jpg{enter}exit{enter"}
_
Comme vous pouvez le voir, vous pouvez ajouter plusieurs commandes à une ligne tant que la fenêtre est toujours ouverte. Il attendra jusqu'à ce que la dernière commande a été exécutée avant le début de celle qui suit.
Voici le code pour le pop up boîtes afin que votre script reste en marche jusqu'à ce que vous réactivez le lecteur :
Dim MyVar
MyVar = 2
tandis que myvar = 2
MyVar = MsgBox ("Turn drive back sur", 65, « Rallumer drive »)
Wend
MsgBox ("nous nous tournerons maintenant disque dur retour sur!!!")
_
Note que, en mettant la variable Myvar = à 2 qui est la valeur du bouton Annuler dans la boîte de message, nous allons lancer une boucle continue jusqu'à ce que vous appuyez sur le bouton ok. Cela nous oblige à cliquez sur Oui pour mettre fin au script. Seulement après Oui est poussé la valeur myval change à 1 et permettre la boucle soit divisé therfore continuant le script et vomir le messagebox disant l’entraînement va alors être réactivé.
Maintenant si vous vous souvenez d’avant que cela ne le comand suivant jusqu'à ce que la dernière commande a été finie ainsi jusqu'à ce que vous appuyez sur le bouton ok sur la messagebox ne sera donnée.
Oui, nous pourrions utiliser juste la messagebox pour réactiver le lecteur, mais alors si vous ne voulez pas il activé encore mais accidentellement cliquer ok il n’y a aucune mesure de sécurité. Avec l’oui/sans boîte vous n’avez aucun autre choix pour, cliquez sur Oui.
Nous pourrions vous débarrasser de la messagebox supplémentaire, mais j’aime bien avoir une confirmation que le travail est accompli.
Maintenant, nous arrivons à où le remontage, le marquage et le nettoyage est effectué. Eh bien, on pourrait penser que c’est tout simple, mais ce n’est pas. Si vous constatez que chaque fois que nous voulons placer une clé d’entrée ou tab dans notre ligne de sendkeys nous il suffit de taper {ENTER}. La raison de ceci est parce qu’il voit les {et} comme des caractères spéciaux. Donc si nous utilisons des supports de cutrly comme ils sont imprimés dans le guid {c0ea045c-56fe-11de-8a5a-001111cb3c76} la commande sendkeys serait esentually Appuyez sur le bouton c0ea045c-56fe-11de-8a5a-001111cb3c76. Puisqu’il n’y a aucune telle touche que notre script se briserait et puis aucun lecteur reparti pour nous.
Alors, Comment obtenons-nous autour de cela ? La réponse est bien ironiquement les supports eux-mêmes. Depuis rien thtat se trouve dans les accolades ouvrantes et fermantes concerne recevrez comme une touche enfoncée nous vient de mettre le support que nous voulons à l’intérieur des accolades ouvrantes et fermantes. Donc une belle serait {{} et sa fin serait {}}
Alors maintenant, la fin de notre code ressemblerait à ceci :
shellobj.Run « cmd »
WScript.Sleep 200
shellobj.SendKeys "mountvol g: \\?\Volume{{}c0ea045c-56fe-11de-8a5a-001111cb3c76{}}\{enter}label g: HDD1e {enter} taskkill /F /IM rundll32.exe{enter}exit{enter} »