Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ouvrir une fenêtre

4 réponses
Avatar
A-A
Bonjour,

en script vbs, je voudrais ouvrir cette fenêtre :

Panneau de configuration\Réseau et Internet\Connexions réseau

Pouvez-vous m'aider s'il vous plait ? Merci

4 réponses

Avatar
Marc Lognoul [MVP]
Bonjour,

La version la plus directe qui me vienne à l'esprit est la suivante:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"


--
Marc Lognoul [MCSE, MCTS, MVP]
Heureux celui qui a pu pénétrer les causes secrètes des choses
Happy is the one who could enter the secret causes of things
Blog EN: http://www.marc-antho-etc.net/blog/
Blog FR: http://www.marc-antho-etc.net/blogfr/


"A-A" wrote in message
news:4b955529$0$15812$
Bonjour,

en script vbs, je voudrais ouvrir cette fenêtre :

Panneau de configurationRéseau et InternetConnexions réseau

Pouvez-vous m'aider s'il vous plait ? Merci
Avatar
A-A
Marc Lognoul [MVP] a écrit le 09/03/2010 08:52:

Bonjour,



Bonjour Marc


La version la plus directe qui me vienne à l'esprit est la suivante:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"



Merci infiniment, cela fonctionne parfaitement.
Si je rajoute ceci ensuite :

objShell.Sendkeys "{f5}"
objShell.Sendkeys "%{f4}"


cela n'actualise pas la fenêtre et cela ne la ferme pas également.
Est-ce possible de le faire, et comment ?
Merci encore
Avatar
A-A
A-A a écrit le 09/03/2010 10:10:

Marc Lognoul [MVP] a écrit le 09/03/2010 08:52:

Bonjour,



Bonjour Marc


La version la plus directe qui me vienne à l'esprit est la suivante:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"



Merci infiniment, cela fonctionne parfaitement.
Si je rajoute ceci ensuite :

objShell.Sendkeys "{f5}"
objShell.Sendkeys "%{f4}"


cela n'actualise pas la fenêtre et cela ne la ferme pas également.
Est-ce possible de le faire, et comment ?
Merci encore



Voici qui fonctionne parfaitement :

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"
WScript.Sleep 1000
objShell.Sendkeys "{f5}"
WScript.Sleep 1000
objShell.Sendkeys "%{f4}"

Merci encore Marc.
Avatar
Marc Lognoul [MVP]
Merci à toi pour le retour.

M.

"A-A" wrote in message
news:4b9783b4$0$17890$
A-A a écrit le 09/03/2010 10:10:

Marc Lognoul [MVP] a écrit le 09/03/2010 08:52:

Bonjour,



Bonjour Marc


La version la plus directe qui me vienne à l'esprit est la suivante:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"



Merci infiniment, cela fonctionne parfaitement.
Si je rajoute ceci ensuite :

objShell.Sendkeys "{f5}"
objShell.Sendkeys "%{f4}"


cela n'actualise pas la fenêtre et cela ne la ferme pas également.
Est-ce possible de le faire, et comment ?
Merci encore



Voici qui fonctionne parfaitement :

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl"
WScript.Sleep 1000
objShell.Sendkeys "{f5}"
WScript.Sleep 1000
objShell.Sendkeys "%{f4}"

Merci encore Marc.