CACHE LES LECTEUR

Signaler
Messages postés
28
Date d'inscription
dimanche 2 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2014
-
 ABOAT -
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20483-cache-les-lecteur

'J'ai commencer le début pour ne plus utiliser le "les nombre .txt"


Dim b, strdisque
b = inputbox("rentrer le chiffre du disque a cacher :","Cache Disque")
select case b
case a strdisque = "1"
case b strdisque = "2"
case c strdisque = "4"
case d strdisque = "6"
case e strdisque = "8"
case f strdisque = "16"
case g strdisque = "32"
case h strdisque = "64"
case i strdisque = "128"
case j strdisque = "256"
case k strdisque = "512"
case l strdisque = "1024"
case m strdisque = "2048"
case n strdisque = "4096"
case o strdisque = "8192"
case p strdisque = "16384"
case q strdisque = "32768"
case r strdisque = "65536"
case s strdisque = "131072"
case t strdisque = "524288"
case u strdisque = "1048576"
case v strdisque = "2097152"
case w strdisque = "4194304"
case y strdisque = "8388608"
case x strdisque = "16777216"
case z strdisque = "33554432"
End Select

MsgBox "Le disque : " & b & vbcr & "a comme valeur : " & strdisque
Messages postés
28
Date d'inscription
dimanche 2 janvier 2005
Statut
Membre
Dernière intervention
5 mai 2014

Script simple (j'aurais peut etre meme trouvé tout seul lol) qui marche trés bien ;)
Par contre il y a quelques fautes dans les messages.
Bon ce n'est pas grave mais pour les frenchies comme moi ça tappe à l'oeil

b = inputbox("rentrez le chiffre que vous avez obtenu grâce à les nombre.txt ")
Set WS = CreateObject("WScript.Shell")
WS.RegWrite

"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",""&b&"","REG_DWORD"
msgbox "ceci n'est qu'une version beta "
msgbox "la nouvelle version arrivera bientôt"
msgbox "fait par kickbar"

Voilà c'est un peu mieux comme ça.

8/10