VBScript : キーストロークを送信してキー操作をした事にする( 例 : リモート デスクトップ接続ダイアログ )

 


リモート デスクトップ接続は開いた後、詳細画面が表示されないので、ALT+O を送り、その後 SHIFT+TAB でタブを選択して、右矢印で次のタブに移動させます。

ALT+O



SHIFT+TAB > 右矢印



画面タブで設定
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Set WshShell = CreateObject("WScript.Shell")
02.WshShell.Run( "mstsc.exe" )
03. 
04.WScript.Sleep(500)
05.WshShell.AppActivate("リモート デスクトップ接続")
06.WScript.Sleep(500)
07. 
08.' キーストロークを送信
09.WshShell.SendKeys ("%O")
10.WScript.Sleep(500)
11.WshShell.SendKeys ("+{TAB}")
12.WScript.Sleep(500)
13.WshShell.SendKeys ("{RIGHT}")

※ キーストロークの送信は環境や状況によっては、うまく動作しないかもしれません。その場合は適宜変更して下さい (キーストローク詳細 / SendKeys メソッド)