☰

Befehl zum Öffnen des Dialogfelds

tag-icon • tag-icon script vbscript dialog
Befehl zum Öffnen des Dialogfelds

Hier läuft Windows 10 Pro. Ich verwende ein einfaches Skript, das als Abkürzung zu meiner Windows-Gamecontroller-Konfiguration dient, aber ich muss immer manuell zur Schaltfläche „Eigenschaften“ im Dialogfeld navigieren, um dorthin zu gelangen, wo ich wirklich hin möchte. Dieses erste Bild zeigt, wohin mich die Abkürzung führt:

Bildbeschreibung hier eingeben

Ich möchte nun zur nächsten Seite gelangen, die Sie durch Klicken auf die Schaltfläche „Eigenschaften“ erreichen:

Bildbeschreibung hier eingeben

Ich möchte das Skript so ändern, dass es automatisch zu dieser zweiten Seite des Gamecontroller-Konfigurationsdialogs geht. Gibt es eine Möglichkeit, das Skript zu ändern oder sogar ein neues zu schreiben, das dies erreicht? Hier ist das .vbs-Skript (generiert von einem Programm namens Tileconfiy, das das Anheften von Verknüpfungen an das Startmenü ermöglicht):

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}")

Die Spielkonfiguration wird problemlos geöffnet, aber der TAB- und ENTER-Teil wird nicht ausgeführt. Ich habe mehrere Variationen dieses letzten Teils des Codes ausprobiert, darunter die folgenden:

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

Und

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

Und

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

Und

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

Nichts davon scheint zu funktionieren.

Antwort1

' -------------------------------------------------------------------------------
'--- 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}")

Zuerst öffnet sich der Dialog Gamecontroller. Dann aktiviert man das Fenster und klickt auf die Schaltfläche Eigenschaften.

verwandte Informationen