begin process at 2012 02 11 12:32:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de registre

 > CREER UN EXTENSION COMME LES .EXE

CREER UN EXTENSION COMME LES .EXE


 Information sur la source

Note :
4,67 / 10 - par 3 personnes
4,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de registre Niveau :Débutant Date de création :15/03/2004 Date de mise à jour :07/05/2004 13:43:03 Vu :4 969
Auteur : WbMr

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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
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


 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) SHELLVIEW EN VB.NET par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) AJOUTER OU SUPPRIMER MENU CONTEXTUEL D'APPLICATION PAR CLIC ... par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFIER IMAGE COULEUR EN NOIR ET BLANC PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNER ET IMPRIMER FORMAT PHOTO (10X15) par Le Pivert
Toutes les sources de la catégorie Base de registre

Commentaires et avis

Commentaire de rzack le 06/09/2004 11:53:10

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

Commentaire de zaymeiz le 11/11/2004 17:14:58

ouais explique un peu mieux steplait!!
j'aimerais bien savoir comment foncionne ce code!

Commentaire de medalscape le 24/04/2005 15:12:36

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.

Commentaire de zonebleue le 12/09/2006 18:15:47

Toujours pas de mise à jour ?

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

et explique s'il te plait.

Commentaire de threadom le 02/11/2007 14:05:03 5/10

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.

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,856 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)