Discussion :

[batch-dos]

Bonjour, j'utilise un script en vbs pour créer un raccourci mais j'aimerais associer une image a ce raccourci (vous voyer ce que je veut dire ?)

voila le script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Shell, DesktopPath, LNK
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set lnk = Shell.CreateShortcut(DesktopPath & "\Tchat.lnk") 
lnk.TargetPath = "C:\Users\Phillippe\tchat.bat"
lnk.Save

Merci de votre aide

[SfJ5Rpw8]

Bonjour,

met à jour la propriété IconLocation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lnk.IconLocation ="C:\tmp\site-vb\www\favicon.ico"
lnk.Save

[batch-dos]

merci

je fais comme sa ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Shell, DesktopPath, LNK
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set lnk = Shell.CreateShortcut(DesktopPath & "\Tchat.lnk") 
lnk.TargetPath = "C:\Users\Phillippe\tchat.bat"
lnk.IconLocation ="ICONE_QUE_JE_VEUX_METTRE"
lnk.Save

je peut mettre une icone jpg ou que .ico

je suis pas très fort en vbs...

edit:
mais mon icone est dans %SystemRoot%\system32\SHELL32.dll
comment je la reconnais et comment je al recupere ...

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lnk.IconLocation ="%SystemRoot%\system32\SHELL32.dll,13"

à toi de trouver le bon index, dans la fenêtre de sélection tu compte de haut en bas puis de gauche à droite, en débutant à l'index 0

[batch-dos]

Ok Merci

edit: mais par exemple est-ce que "%SystemRoot%\system32\SHELL32.dll,160" sera la meme icone sur touts les ordinateurs ???

[hackoofr]

Salut
Vous pouvez aussi extraire une icône associée a un exécutable se trouvant dans le dossier System32 par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lnk.IconLocation = "narrator.exe, 0" ' exemple de l'icone de narrator.exe dans le system32