- 19 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/09/07(月) 18:59:55 ID:AhEHlZqq0]
- >>17さん
モニタのリフレッシュレートが切り替え時におかしくなるのも手動で直していたため
それをなおすのも出来ないかと調べつつやったらできました！
Set wsl = WScript.CreateObject("WScript.Shell")
'画面のプロパティ(設定タブ)を起動する
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 "%V"
wsl.SendKeys "^{TAB}"
wsl.SendKeys "^{TAB}"
wsl.SendKeys "%S"
wsl.SendKeys "{DOWN 7}"
wsl.SendKeys "{ENTER}"
と書いたら対応できました。本当にありがとうございました。
|
 |
