Creer un extension comme les .exe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 262 fois - Téléchargée 27 fois


Contenu du snippet

Il pemet de creer de nouvelle Extension rapidement Juste avec un .vbs

Source / Exemple :


Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
WS.RegWrite "HKCR\.(Extension)\", "(Extension)"
WS.RegWrite "HKCR\(Extension)\", "(Type)"
WS.RegWrite "HKCR\(Extension)\AlwaysShowExt", ""
WS.RegWrite "HKCR\(Extension)\EditFlags", 0, "REG_DWORD"
WS.RegWrite "HKCR\(Extension)\BrowserFlags", 8, "REG_DWORD"
WS.RegWrite "HKCR\(Extension)\DefaultIcon\", "(CheminIco)"
WS.RegWrite "HKCR\(Extension)\Shell\", "(DefaultCommand)"
WS.RegWrite "HKCR\(Extension)\Shell\Command1\", "" 'Command1=(DefaultCommand)
WS.RegWrite "HKCR\(Extension)\Shell\Command1\command\", "(cheminprog)"

'(Extension)= ex: exe
'(Type)= Type de fichier
'(cheminProg)= ex: c:\ProgramFiles\Accessoire\Wordpad.exe p.s. prog pour cette commande la ex: Open
'(DefaultProg)
'(CheminIco)= ex c:\MonProg\IcoExt1.ico p.s Icone de se fichier

'=========================================
'New Version
'=========================================
Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
dim EXT
dim TYPE
EXT = inpoutbox("Extension : ex : exe", "Nouvelle Extension")
Path = "HKCR\" & EXT
WS.RegWrite "HKCR\." &EXT & "\", EXT
TYPE = inputbox ("Type : ex : text", "Type"
WS.RegWrite "HKCR\" & "." EXT"\", TYPE
ICO = inputbox ("Chemin de L'icone", "Icone"
WS.RegWrite Path & "\DefaultIcon\", ICO
DC = inputbox("Commande par Default", "Commande par Default", "Open")
CMD = inputbox("Application pour la commande " & DC, "Application", "Notepad.exe"
WS.RegWrite Path & "\Shell\", DC
WS.RegWrite Path & "\Shell\" & DC & "\", CMD 'Command1=(DefaultCommand)
WS.RegWrite Path & "\Shell\" & DC & "\command\", CMD

'(Type)= Type de fichier
'(cheminProg)= ex: c:\ProgramFiles\Accessoire\Wordpad.exe p.s. prog pour cette commande la ex: Open
'(DefaultProg)
'(CheminIco)= ex c:\MonProg\IcoExt1.ico p.s Icone de se fichier

Conclusion :


Mon Soft sera mis a jour d'en un jour ou deux jour

A voir également

Ajouter un commentaire

Commentaires

Messages postés
101
Date d'inscription
mardi 8 avril 2003
Statut
Membre
Dernière intervention
1 novembre 2007

A moins que je n'ai pas compris le code ...

Ce code sert à associer une extension à un programme.

Par exemple dire que :
les .txt s'ouvriront avec notepad.exe et auront une icone en forme de page.
les .doc s'ouvriront avec winword.exe et auront un W en icon.

Ect...

Pas essayé le code mais sous xp on accède à la même chose en ouvrant un explorer
cliquant sur options des dossiers
puis onglet types de fichiers
et enfin en faisant nouveau.

Je met 5/10 ça peut toujours être utile à un débutant qui cherche comment faire.
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007

Toujours pas de mise à jour ?

Ca ne marche pas on dirait qu'il manque WScript.

et explique s'il te plait.
Messages postés
14
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
21 mai 2005

j'ai compri que j'ai rien compri !!!!!

ce code pour créer koi ? un exe... que ce qu va fair ce exe ?

Bone j'atten votre mis a jour...


---------------------------------------------
ATTENTION :
ce commentaire est protégé par la loi de copyright internationale. Ni supprimer ni modifier
Merci. Le psyho Medalscape.
Messages postés
2
Date d'inscription
jeudi 11 novembre 2004
Statut
Membre
Dernière intervention
11 novembre 2004

ouais explique un peu mieux steplait!!
j'aimerais bien savoir comment foncionne ce code!
Messages postés
2
Date d'inscription
vendredi 17 janvier 2003
Statut
Membre
Dernière intervention
6 septembre 2004

Les explications sont un peu flou... aide SVP pour se script. merci ; )

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.