◆こんなソフトウェアつくってください〜Part14〜◆

17 名前：15 mailto:sage [2009/09/07(月) 06:26:47 ID:NySEynjO0] >>16 「設定変更のキーボード操作をスクリプトで記述する」だけですけどね 環境により操作が異なることもあるので全部書きたくなかったってのもあるけど・・・ スクリプト実行により画面上のチェックが反転されるかどうか確認した後、 最終行「'wsl.SendKeys "{ENTER}"」の先頭の「'」を削除して下さい ※ 設定値を判定せずにチェック反転を行っているため 　　一部が無効なショートカットとして扱われて音が鳴ります '■以下をスクリプトとして拡張子vbsで保存（ダブルクリックで実行） Set wsl = WScript.CreateObject("WScript.Shell") '画面のプロパティが起動済みの場合は閉じる if wsl.AppActivate("画面のプロパティ") then wsl.SendKeys "{ESC}" '画面のプロパティ(設定タブ)を起動する wsl.run "control desk.cpl ,3": cnt =0 do: WScript.Sleep 100: cnt=cnt+1 loop while not wsl.AppActivate("画面のプロパティ") and cnt < 9 if not wsl.AppActivate("画面のプロパティ") then MsgBox "起動失敗": WScript.Quit 'ディスプレイ切り替え（プライマリ／非アクティブ反転） wsl.SendKeys "%D1%E%U" 'ディスプレイ１設定([ALT]+[D],[1], [ALT]+[E], [ALT]+[U]) wsl.SendKeys "%D2%E%U" 'ディスプレイ２設定([ALT]+[D],[2], [ALT]+[E], [ALT]+[U]) wsl.SendKeys "%D1%E" 'ディスプレイ１設定([ALT]+[D],[1], [ALT]+[E]) 'デフォルトボタン押下（[OK]ボタン押下と同義） 'wsl.SendKeys "{ENTER}"

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef