Cache les lecteur

Soyez le premier à donner votre avis sur cette source.

Vue 5 906 fois - Téléchargée 560 fois

Description

voila c'est un truc tout con mais sa marche bien
bon pour le faire fonctionner il faut juste lire le read me et puis vous comprendrai

Source / Exemple :


in the zip (si quelqun veux des information sur se mini programe quil me le dise)

Conclusion :


voila je pence pas quil i est de beug mais a vous de me le dire

Codes Sources

A voir également

Ajouter un commentaire Commentaires
'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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.