Si ce n'est celui-ci, c'est celui-là

Le
Mascaret
Bonjour,

Windows XP Pro SP3
Internet Explorer 8


Si j'exécute le script VBS suivant :
--
Set oShApp=CreateObject ("Shell.Application")
Set oSh=CreateObject ("WScript.Shell")
oShApp.ControlPanelItem "inetcpl.cpl,,0"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%s": WScript.Sleep (1000)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%{s}"
oSh.SendKeys "%{TAB}"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%{F4}"
oSh.SendKeys "%o": WScript.Sleep (1000)
oSh.SendKeys "%{F4}"
--

j'ai bien "Propriétés de Internet" qui s'ouvre.

Si je vais dans IE8 ==> Outils ==> Options Internet, ce n'est pas
"Propriétés de Internet" qui s'ouvre mais "Options Internet".

Sont-ce les deux mêmes "programmes" avec un nom différent ou deux
programmes différents ?

Je n'ai pas souvenir de noms différents avec IE7.

Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Azo4
Le #19227811
un clic droit donne "propriétés internet" et dans outils ou panneau de
config "options internet"

AMHA c'est purement "cosmétique"

--
Serge CENCI
MVP MS Windows Desktop Experience
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/



"Mascaret" news:49f95be5$0$12630$
Bonjour,

Windows XP Pro SP3
Internet Explorer 8


Si j'exécute le script VBS suivant :
--------------------------------------
Set oShApp=CreateObject ("Shell.Application")
Set oSh=CreateObject ("WScript.Shell")
oShApp.ControlPanelItem "inetcpl.cpl,,0"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%s": WScript.Sleep (1000)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%{s}"
oSh.SendKeys "%{TAB}"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%{F4}"
oSh.SendKeys "%o": WScript.Sleep (1000)
oSh.SendKeys "%{F4}"
--------------------------------------

j'ai bien "Propriétés de Internet" qui s'ouvre.

Si je vais dans IE8 ==> Outils ==> Options Internet, ce n'est pas
"Propriétés de Internet" qui s'ouvre mais "Options Internet".

Sont-ce les deux mêmes "programmes" avec un nom différent ou deux
programmes différents ?

Je n'ai pas souvenir de noms différents avec IE7.

Merci.


Jean-Claude BELLAMY
Le #19227921
"Mascaret" news:49f95be5$0$12630$
Windows XP Pro SP3
Internet Explorer 8


Si j'exécute le script VBS suivant :


pas besoin de tout ce script, une simple commande
INETCPL.CPL
suffit !

j'ai bien "Propriétés de Internet" qui s'ouvre.
Si je vais dans IE8 ==> Outils ==> Options Internet, ce n'est pas
"Propriétés de Internet" qui s'ouvre mais "Options Internet".

Sont-ce les deux mêmes "programmes"


Bien sûr !!!
Dans les 2 cas c'est la même DLL inetcpl.cpl qui est appelée
- soit par rundll32.exe
- soit par iexplore.exe

avec un nom différent


Non, uniquement le nom de fenêtre

ou deux programmes différents ?


NON

Je n'ai pas souvenir de noms différents avec IE7.


Alzheimler te guette mon petit ! ;-)
Déjà avec IE6 sous W2K cette dichotomie de noms de fenêtre (et uniquement de
nom) existe !
http://www.cijoint.fr/cj200904/cijrPfvYMX.jpg


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Mascaret
Le #19232091
Jean-Claude BELLAMY a écrit le 30/04/2009 10:38:

"Mascaret" news:49f95be5$0$12630$
Windows XP Pro SP3
Internet Explorer 8


Si j'exécute le script VBS suivant :


pas besoin de tout ce script, une simple commande
INETCPL.CPL
suffit !




Je suis un mangeur de scripts VBS. Comment inclure
ce "INETCPL.CPL" dans un script vbs pour que ça nettoie tout
automatiquement ? Merci.




j'ai bien "Propriétés de Internet" qui s'ouvre.
Si je vais dans IE8 ==> Outils ==> Options Internet, ce n'est pas
"Propriétés de Internet" qui s'ouvre mais "Options Internet".

Sont-ce les deux mêmes "programmes"


Bien sûr !!!
Dans les 2 cas c'est la même DLL inetcpl.cpl qui est appelée
- soit par rundll32.exe
- soit par iexplore.exe

avec un nom différent


Non, uniquement le nom de fenêtre

ou deux programmes différents ?


NON

Je n'ai pas souvenir de noms différents avec IE7.


Alzheimler te guette mon petit ! ;-)
Déjà avec IE6 sous W2K cette dichotomie de noms de fenêtre (et
uniquement de nom) existe !
http://www.cijoint.fr/cj200904/cijrPfvYMX.jpg



Ok, merci pour ces précisions.
Jean-Claude BELLAMY
Le #19232391
"Mascaret" news:49f9e106$0$17076$
[...]
Je suis un mangeur de scripts VBS. Comment inclure
ce "INETCPL.CPL" dans un script vbs pour que ça nettoie tout
automatiquement ? Merci.



Que veux-tu faire exactement ?
Si j'ai bien compris, tu veux lacer INETCPL afin de vider les fichiers
temporaires ?
Et tu veux automatiser cela, sans avoir à appuyer sur un bouton ?
C'est bien çà ?

Avec ceci, p.ex. :
Fichier "DELTIF.VBS"
------------ couper ici ------------
Const SW_SHOWNORMAL=1
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "control.exe INETCPL.CPL", SW_SHOWNORMAL
While not shell.AppActivate("Propriétés de Internet")
WScript.Sleep 100
Wend
shell.SendKeys "{TAB}{TAB}{TAB}{TAB}~%S"
------------ couper ici ------------

NB : mon script ne ferme pas la fenêtre de l'applet. C'est volontaire.

En effet, si j'envoie une séquence finale
Shell sendkeys "%{F4}"
elle risque d'être adressée à la boite de dialogue de progression de
suppression des TIF !
On peut alors surveiller l'existence de cette boite, mais çà devient vite
une usine à gaz !

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Mascaret
Le #19232951
Jean-Claude BELLAMY a écrit le 30/04/2009 20:02:

"Mascaret" news:49f9e106$0$17076$
[...]
Je suis un mangeur de scripts VBS. Comment inclure
ce "INETCPL.CPL" dans un script vbs pour que ça nettoie tout
automatiquement ? Merci.



Que veux-tu faire exactement ?
Si j'ai bien compris, tu veux lacer INETCPL afin de vider les fichiers
temporaires ?
Et tu veux automatiser cela, sans avoir à appuyer sur un bouton ?
C'est bien çà ?



Oui, ce que fait parfaitement ce script déjà indiqué :

--------------------------------------
Set oShApp=CreateObject ("Shell.Application")
Set oSh=CreateObject ("WScript.Shell")
oShApp.ControlPanelItem "inetcpl.cpl,,0"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%s": WScript.Sleep (1000)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%s": WScript.Sleep (150)
oSh.SendKeys "%{s}"
oSh.SendKeys "%{TAB}"
While oSh.AppActivate("Propriétés de Internet") <> True: Wend
oSh.SendKeys "%{F4}"
oSh.SendKeys "%o": WScript.Sleep (1000)
oSh.SendKeys "%{F4}"
--------------------------------------

qui n'est pas usine à gaz du tout.


Avec ceci, p.ex. :
Fichier "DELTIF.VBS"
------------ couper ici ------------
Const SW_SHOWNORMAL=1
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "control.exe INETCPL.CPL", SW_SHOWNORMAL
While not shell.AppActivate("Propriétés de Internet")
WScript.Sleep 100
Wend
shell.SendKeys "{TAB}{TAB}{TAB}{TAB}~%S"
------------ couper ici ------------

NB : mon script ne ferme pas la fenêtre de l'applet. C'est volontaire.



Dommage, je suis fainéant :-)


En effet, si j'envoie une séquence finale
Shell sendkeys "%{F4}"
elle risque d'être adressée à la boite de dialogue de progression de
suppression des TIF !
On peut alors surveiller l'existence de cette boite, mais çà devient
vite une usine à gaz !



Je teste ton script.
Mascaret
Le #19232941
Mascaret a écrit le 30/04/2009 21:21:

En effet, si j'envoie une séquence finale
Shell sendkeys "%{F4}"
elle risque d'être adressée à la boite de dialogue de progression de
suppression des TIF !
On peut alors surveiller l'existence de cette boite, mais çà devient
vite une usine à gaz !



Je teste ton script.



Merci Jean-Claude, ton script fonctionne nickel.
Pour fermer la fenêtre, je me contenterai d'une temporisation de deux
secondes puis la fenêtre pourra se fermer. Ce doit être possible en une
seule ligne :-)

J'allais oublier le plus important : Merci !!
Publicité
Poster une réponse
Anonyme