Creer un extension comme les .exe


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

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.