Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows XP Discussions Générales Modification d'une icône en VBS ?

Modification d'une icône en VBS ?

19 réponses
Avatar
L'AMI Yves
J'ai un petit programme VBS (j'en ai parlé récemment dans un autre fil)
que je lance à l'aide d'un raccourci qui est dans la barre de lancement
rapide.
Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
possibilités
pour la modifier.
Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il change
aussi
l'icône associée au raccourci. Voici le code que j'ai écrit : pourquoi ne
marche-t-il pas ?

set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
select case test'
case 1
Raccourci.IconLocation="Icones.exe,1"
case 2
Raccourci.IconLocation="Icones.exe,2"
case 3
Raccourci.IconLocation="Icones.exe,3"
case else
Raccourci.IconLocation="Icones.exe,4"
end select
Raccourci.save

Je n'ai aucun message d'erreur, simplement, l'icône ne change pas. Je me
suis demandé si le problème ne venait pas de "createShortcut", puisque le
raccourci existe déjà, mais j'ai été incapable de trouver de la doc
(j'aimerais
bien un .chm) sur le Wscript.shell.

AMIcalement
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
L'AMI Yves
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451a731f$0$25908$
Dans le message :451a65a3$0$1756$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
Eh bien, la méthode qui marche, c'est "ceinture et bretelles" : avec
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"


c'est bon ! Depuis tout à l'heure, ça me trottait dans la tête : je
pensais que
Windows créait un raccourci vide... mais il le faisait évidemment si
je lui donnais un mauvais chemin... Ce sont toujours les autres qui
se trompent, hein !

MERCI !


YAPADKOI !
Mais c'était bien ce que je pensais, à savoir que tu avais commis une
conceté dans le chemin du raccourci !


Le problème, c'est que maintenant j'ai tout effacé : impossible d'identifier
ma "conceté". Mais comme il m'a semblé bon "à l'oeil", je pense que ce
devait
être un double blanc quelquepart...?


Accessoirement, cher JCB, penses-tu avancer sur le "bug" SuperExec que
j'ai trouvé avant l'été ?


Oui, je suis dessus, le bug est corrigé, je recompile, et j'ajoute la
possibilité de choisir le compte admin pour chaque machine (ou au
contraire, le rendre commun, au choix). Et comme je tiens à "blinder" le
truc, je teste auparavant, dans le cas d'une machine distante, si le
compte indiqué (username/password) :
- existe bien sur cette machine (ou ce domaine)
- est bien avec des privilèges administrateur
et là, je découvre des tas de cas tordus possibles !!!
P.ex. un compte local admin sur une machine, qui existe bien sur une autre
mais qui n'y est pas admin, ou encore qui est admin mais qui n'a pas le
même password.
Ou encore une machine distante où les partages administratifs ont été
désactivés et/ou l'accès distant au registre désactivé également, avec des
comptes amdin différents, ...
En effet, pour tester si un compte est admin, je tente l'ouverture d'une
connexion distante sur le partage administratif "ADMIN$" à l'aide de la
fonction "WNetAddConnection2", qui permet le passage de username/password.
Mais si les partages admins ont été désactivés, je suis mal ! ;-)
Je peux bien sûr les réactiver à distance, mais il faut que j'aie accès à
la BDR distante, et pour çà il faut que le compte que j'utilise localement
soit admin sur la machine distante et que ce service ne soit pas arrêté.
Je peux éventuellement redémarrer ce service à distance, mais là aussi il
faut des droits ...

Donc dans certaines configurations "destroys", c'est ... "On tourne en
rond, merde, on tourne en rond, merde, on tourne en rond!" ;-)


Tu sais pas ? Tu m'as fait rire... Bon courage.

<HS>
Par ailleurs, toute la semaine dernière j'étais loin de mon PC, puisque je
suis allé admirer à Kourou en Guyane la dernière éclipse de soleil avant
2008. C'était une très belle annulaire, visible le 22 septembre uniquement
en Guyana, Surinam et Guyane (les photos sont en préparation sur mon site)
Et la prochaine éclipse de soleil aura lieu le 7 février 2008, une
annulaire de 2mn12s, et comme c'est dans l'Antarctique, je crois que je
m'abstiendrai ;-) !
Quant à la prochaine éclipse totale, c'est pour le 1er aout 2008, visible
dans le nord du Canada, le Groënland, la Sibérie, la Mongolie et le nord
de la Chine.

Celle que j'attends est une totale de 5mn20s (très longue!), le 11 juillet
2010, visible à l'ile de Pâques et un peu au Chili et en Argentine.
Ahhhhhhh ... la couronne solaire en fond avec en contre-jour les
alignements de Moaïs, çà sera un spectacle féérique !


Mais c'est que vers cette époque, je devrais moi-aussi être à la retraite...
Et
comme mon rêve, c'est un truc du genre exotique au loin sur un bateau... Si
on ne se perd pas de vue d'ici là...

Encore merci, et à bientôt pour SuperExec...

AMIcalement
</HS>

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr




Avatar
jeuf
IOBA a exprimé avec précision :

Désolé, Yves ; la prochaine fois, je réviserai mon JCB avant de
l'ouvrir ;-)



Avant d'ouvrir ton JCB ?

--
JFV - Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
Nulla elit. Vestibulum hendrerit. Morbi a odio in lectus ornare
feugiat. Etiam quis mi. Cras wisi eros, ornare in, mattis et,
ullamcorper vitae, arcu. Duis eu nisl eget urna tempus hendrerit.
Avatar
IOBA
"jeuf" a écrit dans le message de news:

| IOBA a exprimé avec précision :
| >
| > Désolé, Yves ; la prochaine fois, je réviserai mon JCB avant de
| > l'ouvrir ;-)
|
| Avant d'ouvrir ton JCB ?
|
| --
:-)) J'sais pas pourquoi, j'étais sûr que tu me la ferais, celle-là !
Je n'aurai qu'une réponse : :-p

--
IOBA
Avatar
Christian Fabre
Le Thu, 28 Sep 2006 11:21:46 +0200, jeuf s'exprima en ces
termes :

Avant d'ouvrir ton JCB



Là, il faut être outillé :-)

Jean-Claude, pas sur la tête, c'est juste pour un bon mot, hein !
--
Christian Fabre
http://cil.capbrun.free.fr/
http://ufctoulon.free.fr/
Avatar
Jean-Claude BELLAMY
Dans le message :,
Christian Fabre a pris la peine d'écrire ce
qui suit :
Le Thu, 28 Sep 2006 11:21:46 +0200, jeuf s'exprima en ces
termes :

Avant d'ouvrir ton JCB



Là, il faut être outillé :-)

Jean-Claude, pas sur la tête, c'est juste pour un bon mot, hein !



MDR + ROTFL !!!!!!!
:-) :-) :-) :-) :-) :-) :-) :-) :-) :-)


May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Avatar
L'AMI Yves
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451c35fa$0$25925$
Dans le message :,
Christian Fabre a pris la peine d'écrire ce
qui suit :
Le Thu, 28 Sep 2006 11:21:46 +0200, jeuf s'exprima en ces
termes :

Avant d'ouvrir ton JCB



Là, il faut être outillé :-)

Jean-Claude, pas sur la tête, c'est juste pour un bon mot, hein !



MDR + ROTFL !!!!!!!
:-) :-) :-) :-) :-) :-) :-) :-) :-) :-)


J'ai pas compris ROTFL

Pourquoi, ici, une discussion vachement sérieuse dégénère toujours en
partie de rigolade ?

Question sérieuse encore : tout d'un coup, je ne sais pas pour quelle
raison,
mon application s'est mise à m'ouvrir une injurebox, et un bandeau jaune
est apparu en haut de mon formulaire HTML, parlant de je ne sais quoi
bloqué. J'ai ouvert ma fenêtre IE normale, Outils/Options/Sécurité/Avancé
et j'ai coché la case qui parle de l'exécution (capitale) des scripts
locaux,
et tout est rentré dans l'ordre. Je ne sasi pas qui a décoché cette case (je
suis seul à utiliser mon poste) ni quand, mais j'ai essayé de voir si, dans
mon application, je pouvais lire l'état de cette case à cocher, la cocher
pour mon besoin immédiat, puis la restaurer. Autre question : je voudrais
supprimer les trrois icônes en haut à droite. Pour tout cela, je cherche la
doc sur les objets méthodes etc de InternetExplorer.Application : JCB,
où trouves-tu tout cela ?

AMIcalement.


May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr




Avatar
Jean-Claude BELLAMY
Dans le message :451cc922$0$25519$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451c35fa$0$25925$
Dans le message :,
Christian Fabre a pris la peine
d'écrire ce qui suit :
Le Thu, 28 Sep 2006 11:21:46 +0200, jeuf s'exprima en
ces termes :
Avant d'ouvrir ton JCB


Là, il faut être outillé :-)
Jean-Claude, pas sur la tête, c'est juste pour un bon mot, hein !



MDR + ROTFL !!!!!!!
:-) :-) :-) :-) :-) :-) :-) :-) :-) :-)


J'ai pas compris ROTFL



ROTFL est l'acronyme de "Rolling On The Floor Laughing"
(= "(mort de) rire à se rouler par terre")

variante :
ROTFLBTC ("Rolling On The Floor Laughing Biting The Carpet")
-> Mort de Rire à manger la moquette


Pourquoi, ici, une discussion vachement sérieuse dégénère toujours en
partie de rigolade ?


Je trouve cela très sympa, au contraire !!!
On peut A LA FOIS être sérieux dans ses actes tout en ne se prenant pas au
sérieux !

Question sérieuse encore : tout d'un coup, je ne sais pas pour quelle
raison,
mon application s'est mise à m'ouvrir une injurebox, et un bandeau
jaune est apparu en haut de mon formulaire HTML, parlant de je ne
sais quoi bloqué. J'ai ouvert ma fenêtre IE normale,
Outils/Options/Sécurité/Avancé et j'ai coché la case qui parle de
l'exécution (capitale) des scripts locaux,
et tout est rentré dans l'ordre. Je ne sasi pas qui a décoché cette
case (je suis seul à utiliser mon poste) ni quand, mais j'ai essayé
de voir si, dans mon application, je pouvais lire l'état de cette
case à cocher, la cocher pour mon besoin immédiat, puis la restaurer.



Pour l'exécution locale de scripts, je passe par
Outils/Options/Avancé/Sécurité
"Autoriser le contenu actif à s'exécuter dasn les fichiers ...local"
C'est stocké dans la clef :
HKCUSoftwareMicrosoftInternet
ExplorerMainFeatureControlFEATURE_LOCALMACHINE_LOCKDOWN"

Autre question : je voudrais supprimer les trrois icônes en haut à
droite. Pour tout cela, je cherche la doc sur les objets méthodes etc
de InternetExplorer.Application : JCB, où trouves-tu tout cela ?



Dans le DVD du MSDN
Mais tu trouveras ces infos également sur le site MSDN de MS :
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp



--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Avatar
L'AMI Yves
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451d020d$0$25907$
Dans le message :451cc922$0$25519$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451c35fa$0$25925$
Dans le message :,
Christian Fabre a pris la peine
d'écrire ce qui suit :
Le Thu, 28 Sep 2006 11:21:46 +0200, jeuf s'exprima en
ces termes :
Avant d'ouvrir ton JCB


Là, il faut être outillé :-)
Jean-Claude, pas sur la tête, c'est juste pour un bon mot, hein !



MDR + ROTFL !!!!!!!
:-) :-) :-) :-) :-) :-) :-) :-) :-) :-)


J'ai pas compris ROTFL



ROTFL est l'acronyme de "Rolling On The Floor Laughing"
(= "(mort de) rire à se rouler par terre")

variante :
ROTFLBTC ("Rolling On The Floor Laughing Biting The Carpet")
-> Mort de Rire à manger la moquette



Merci, je m'endormirai moins ignorant ce soir.

Pourquoi, ici, une discussion vachement sérieuse dégénère toujours en
partie de rigolade ?


Je trouve cela très sympa, au contraire !!!
On peut A LA FOIS être sérieux dans ses actes tout en ne se prenant pas au
sérieux !


Entièremenr d'accord. Bien entendu ma remarque était "légère", je faisais
semblant de jouer les vieux barbons (et en même temps allusion à certains
fils où ne s'expriment que des ego frustrés, et rien de constructif pour la
connaissance des ordinateurs), mais passons...

Question sérieuse encore : tout d'un coup, je ne sais pas pour quelle
raison,
mon application s'est mise à m'ouvrir une injurebox, et un bandeau
jaune est apparu en haut de mon formulaire HTML, parlant de je ne
sais quoi bloqué. J'ai ouvert ma fenêtre IE normale,
Outils/Options/Sécurité/Avancé et j'ai coché la case qui parle de
l'exécution (capitale) des scripts locaux,
et tout est rentré dans l'ordre. Je ne sasi pas qui a décoché cette
case (je suis seul à utiliser mon poste) ni quand, mais j'ai essayé
de voir si, dans mon application, je pouvais lire l'état de cette
case à cocher, la cocher pour mon besoin immédiat, puis la restaurer.



Pour l'exécution locale de scripts, je passe par
Outils/Options/Avancé/Sécurité
"Autoriser le contenu actif à s'exécuter dasn les fichiers ...local"
C'est stocké dans la clef :
HKCUSoftwareMicrosoftInternet
ExplorerMainFeatureControlFEATURE_LOCALMACHINE_LOCKDOWN"


Merci, mais maintenant, je sais comment la trouver tout seul, grâce à
Regmon.

Autre question : je voudrais supprimer les trrois icônes en haut à
droite. Pour tout cela, je cherche la doc sur les objets méthodes etc
de InternetExplorer.Application : JCB, où trouves-tu tout cela ?



Dans le DVD du MSDN


Il faut payer combien, pour s'abonner au DVD du MSDN ?
Mais tu trouveras ces infos également sur le site MSDN de MS :
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp


Est-il possible (aspirateur...?) de télécharger des extraits de ce machin
énorme
et encombrant ?
En attendant, il ne m'a pas semblé qu'il y ait de réponse à ma question
(sauf
peut-être "sizable", à tester). Peut-être en utilisant le hWnd et les
entrées dans
l'API Win32 ... est-ce que ça vaut le coup ?

Merci...

AMIcalement



--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr




Avatar
claude et claudine
> P.ex. :
Raccourci.IconLocation="k:trucs divers et variésmes icônes à moi que
j'aiIcones.exe,1515"



C'est le raccourci de l'utilisateur Ho_mer dalors ! ;+) [Dom
coyrighted]

Je te dois une bière, Dom
__
CB
C&C
1 2