Programme qui cache des dossier deriere plusieurs icone au choix

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 896 fois - Téléchargée 26 fois

Contenu du snippet

J'avais trouvé l'idée sur le site, mais je trouvais cela chiant à chaque fois de devoir changer la source du script pour quil fasse tel ou tel dossier. donc j'ai fait un truc où il n'y a plus qu'à rentrer les informations demandées.
C'est pas mal quand on a une personne en qui on n'a pas trop confiance et qui ne connait pas trop l'informatique( comme le dos parceque avec le dos on peut voir les fichiers contenus mais cela peut servir pour cacher des fichiers systeme. Et puis je pense que je mettrai bientot la source à jour pour que la partie qui remet les dossiers en état normal soit en détection automatique.
voila, je suis debutant, soyez indulgent dans la note et dans vos commentaires, quoique les critiques soient les bienvenues

Source / Exemple :


Dim fso, MyFile
Z = Inputbox("si vous vouler aller sur la partit pour cacher entre 1 sinon pour montrer le dossier cacher entrer 2")
if z = 1 then
A = Inputbox("quel est le chemin d'accès de ce fichier ??")
B = Inputbox("mettez le chemin d'accès du dossier qui sera changé et à la fin n'oubliez pas de mettre le nom du dossier"& VbCr &"exemple : si votre chemin d'accès est c:\\\\\\\\\\\\\\\\program files et que vous voulez appeler votre dossier 'henry', alors vous devez écrire"& VbCr &"c:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\program files\\\\\\\\\\\\\\\\henry"& VbCr &"remarque : Vous pouvez mettre le même chemin d'accès et le même nom que le dossier d'origine, ce qui est même préférable pour vous en souvenir")
Msgbox "rentrez le chiffre qui correspond à l'icone que vous voulez mettre"
C = Inputbox("1 .accès réseau à distance "& VbCr &"2 .Boite de reception "& VbCr &"3 .Bureau "& VbCr &"4 .Dossier web "& VbCr &"5 .historique "& VbCr &"6 .Imprimante "& VbCr &"7 .Internet explorer "& VbCr &"8 .Mes documents "& VbCr &"9 .panneau de configuration "& VbCr &"10 .polices "& VbCr &"11 .porte document"& VbCr &"12 .poste de travail "& VbCr &"13 .tache planifiée "& VbCr &"14 .voisinage reseau "& VbCr &"15 .corbeille")
If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
Msgbox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
Msgbox "t con ou koi le choix c entre 1 et 15"
end if
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFolder(""&a&"")
MyFile.Copy (""&b&""&d&"")
MyFile.Delete
End If
If Z = 2 Then
A = Inputbox("quel est le chemin d'accès de ce dossier ??")
B = Inputbox("metter le chemin d'accer du dossier qui sera remis.vous pouver changer son non et meme le chemin d'accée")
Msgbox "rentrez le chiffre qui correspond à l'icone que vous aver sur ce dossier cacher"
C = Inputbox("1 .accès réseau à distance "& VbCr &"2 .Boite de reception "& VbCr &"3 .Bureau "& VbCr &"4 .Dossier web "& VbCr &"5 .historique "& VbCr &"6 .Imprimante "& VbCr &"7 .Internet explorer "& VbCr &"8 .Mes documents "& VbCr &"9 .panneau de configuration "& VbCr &"10 .polices "& VbCr &"11 .porte document"& VbCr &"12 .poste de travail "& VbCr &"13 .tache planifiée "& VbCr &"14 .voisinage reseau "& VbCr &"15 .corbeille")
If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
Msgbox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
Msgbox "t con ou koi le choix c entre 1 et 15"
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFolder(""&a&""&d&"")
MyFile.Copy (""&b&"")
MyFile.delete
end if

Conclusion :


C'est assez simple à comprendre mais c'est quand meme terriblement efficace contre quelqu'un qui ne connait pas le dos.
Si quelqu'un sait comment proteger un dossier de la lecture du dos en vbs, ça sera le bienvenu.
Si vous remarquez des beugs ou des trucs du même style, dites le moi.
J'en ai déja trouveé un avec l'icone de la poubelle.

A voir également

Ajouter un commentaire

Commentaires

Huugooo
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014

Désolé si là ça ressemble à rien mais le gros bloc tiens sur une ligne
Huugooo
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014

Je te conseille un truc pour t'épargner bcp de lignes :

Tu remplaces :

If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If



Par :

If C < 1 Or C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
Else
D = Choose(C + 1, ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{00021400-0000-0000-C000-000000000046}", ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}", ".{FF393560-C2A7-11CF-BFF4-444553540000}", ".{2227A280-3AEA-1069-A2DE-08002B30309D}", ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}", ".{450D8FBA-AD25-11D0-98A8-0800361B1103}", ".{21EC2020-3AEA-1069-A2DD-08002B30309D}", ".{BD84B380-8CA2-1069-AB1D-08000948F534}", ".{85BBD920-42A0-1069-A2E4-08002B30309D}", ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}", ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", ".{208D2C60-3AEA-1069-A2D7-08002B30309D}", ".{645FF040-5081-101B-9F08-00AA002F954E}")
End If

Et puis tu pourrais réfléchir pour éviter de recopier 2 fois le même code après le Z 1 et Z 2.

Sinon c'est bien =)
shadowmoy
Messages postés
340
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
25 août 2007

longue vie à BruNews !! :op
kickbar
Messages postés
44
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
19 mars 2011

oui il me semble que sa existe mais je c'est pas du tout commen l'utiliser.

ps : pour mon ortographe je ferai sa soit demains donc samedi soi dimanche
BruNews
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
18
regarde si 'Select case ' existe en vbscript, remplacerait bien tous ces if qui sont tous executes alors que quand 1 cas est trouve, on ne doit plus tester les autres.

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.