☰

comando para abrir el cuadro de diálogo

tag-icon • tag-icon script vbscript dialog
comando para abrir el cuadro de diálogo

Ejecutando Windows 10 Pro aquí. Estoy usando un script simple que actúa como un acceso directo a la configuración de mi controlador de juegos de Windows, pero siempre tengo que navegar manualmente hasta el botón "propiedades" en el cuadro de diálogo para llegar a donde realmente quiero llegar. Esta primera imagen es a donde me lleva el acceso directo:

ingrese la descripción de la imagen aquí

Ahora el lugar al que quiero ir es la siguiente página a la que se puede acceder presionando el botón 'Propiedades':

ingrese la descripción de la imagen aquí

Me gustaría modificar el script para que vaya automáticamente a esta segunda página del cuadro de diálogo de configuración del controlador del juego. ¿Hay alguna manera de modificar el script o incluso escribir uno nuevo que logre esto? Aquí está el script .vbs (generado por un programa llamado Tileconfiy que permite fijar accesos directos al menú de inicio):

Dim targetPath, targetArguments

targetPath = """C:\Windows\explorer.exe"""
targetArguments = "C:\Windows\System32\joy.cpl"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\Windows\System32\"
WshShell.Run targetPath & " " & targetArguments, 1
WshShell.AppActivate("joy.cpl")
WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{ENTER}")

La configuración del juego se abre bien pero las partes TAB y ENTER no se ejecutan. Probé varias variaciones de esta última parte del código, incluidas las siguientes:

WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{ENTER}")

y

WshShell.SendKeys("{TAB}")
WshShell.SendKeys("{~}")

y

WScript.CreateObject("WScript.Shell").SendKeys("{TAB})";
WScript.CreateObject("WScript.Shell").SendKeys("~");

y

WScript.CreateObject("WScript.Shell").SendKeys("{TAB}";
WScript.CreateObject("WScript.Shell").SendKeys("ENTER");

Ninguno de los cuales parece hacerlo funcionar.

Respuesta1

' -------------------------------------------------------------------------------
'--- AUTOGENERATED BY TILEICONIFIER - DO NOT MANUALLY EDIT ---
'--------------------------------------------------------------------------------

'Custom Shortcut Type = "Explorer"
'Shortcut Name = "JOYSTICK WIn10"
'Shortcut Path = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\TileIconify\Custom Shortcuts\JOYSTICK WIn10_1\JOYSTICK WIn10.lnk"

Dim targetPath, targetArguments

targetPath = """C:\Windows\explorer.exe"""
targetArguments = "C:\Windows\System32\joy.cpl"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:\Windows\"
WshShell.Run targetPath & " " & targetArguments, 1
WshShell.AppActivate("Game controllers")
Wscript.Sleep 2000
WshShell.SendKeys("{TAB}{TAB}{TAB}")
WshShell.SendKeys("{ENTER}")

Primero abre el cuadro de diálogo Controladores de juego. Luego activa la ventana y hace clic en el botón Propiedades.

información relacionada