☰

ダイアログボックスを開くコマンド

tag-icon • tag-icon script vbscript dialog
ダイアログボックスを開くコマンド

ここでは Windows 10 Pro を実行しています。Windows ゲーム コントローラー構成へのショートカットとして機能する簡単なスクリプトを使用していますが、本当に行きたい場所に到達するには、常にダイアログ ボックスの [プロパティ] ボタンに手動で移動する必要があります。この最初の画像は、ショートカットでアクセスできる場所です。

ここに画像の説明を入力してください

ここで私が行きたいのは、「プロパティ」ボタンを押してアクセスできる次のページです。

ここに画像の説明を入力してください

スクリプトを変更して、ゲーム コントローラ構成ダイアログの 2 番目のページに自動的に移動するようにしたいと思います。スクリプトを変更する方法、またはこれを実現する新しいスクリプトを作成する方法はありますか? 以下は、(スタート メニューにショートカットをピン留めできる Tileconfiy というプログラムによって生成された) .vbs スクリプトです。

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

ゲーム構成は正常に開きますが、TAB と ENTER の部分が実行されません。コードのこの最後の部分については、次のようないくつかのバリエーションを試しました。

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

そして

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

そして

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

そして

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

どれもうまく機能しないようです。

答え1

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

まず、ゲーム コントローラ ダイアログを開きます。次に、ウィンドウをアクティブにして、[プロパティ] ボタンをクリックするように指示します。

関連情報