最小化したIEをVBScriptで最前面に表示したい

Question

前提・実現したいこと

IEをVBScriptで最前面に表示したいです。

試したこと

まず調べてみると以下のようにすればIEが最前面に表示されることがわかりました。

Const strIEexe = "iexplore.exe" 'IEのプロセス名
Dim intProcID
 
'IEのウィンドウをアクティブ化する
call ActiveIE
 
sub ActiveIE()
    Dim objWshShell
    GetProcID(strIEexe)
    If intProcID = 0 Then
    	WScript.Quit(0) 
    	Exit Sub
    End If
    Set objWshShell = CreateObject("Wscript.Shell")
    objWshShell.AppActivate intProcID
    Set objWshShell = Nothing
End Sub
 
Function GetProcID(ProcessName)
    Dim Service
    Dim QfeSet
    Dim Qfe
 
    Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer
    Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='"& ProcessName &"'")
 
    intProcID = 0
 
    For Each Qfe in QfeSet
        intProcID = Qfe.ProcessId
        Exit For
    Next
 
    GetProcID = intProcID <> 0
End Function

発生している問題・エラーメッセージ

しかし、このままではIEを最小化していた場合に最前面に出力されないことが分かったのでさらに調べてみると

objWshShell.SendKeys"%"
objWshShell.SendKeys"R"

を追加すればショートカットを入力したことになり、最小化が解除されるということなので以下のソースを作成しました。

該当のソースコード

Const strIEexe = "iexplore.exe" 'IEのプロセス名
Dim intProcID
 
'IEのウィンドウをアクティブ化する
call ActiveIE
 
sub ActiveIE()
    Dim objWshShell
    GetProcID(strIEexe)
    If intProcID = 0 Then
    	WScript.Quit(0) 
    	Exit Sub
    End If
    Set objWshShell = CreateObject("Wscript.Shell")
    objWshShell.AppActivate intProcID
　　'---追加---
    WScript.Sleep(500)
    objWshShell.SendKeys"%"
    objWshShell.SendKeys"R"
    '---ここまで---
　　 Set objWshShell = Nothing
End Sub
 
Function GetProcID(ProcessName)
    Dim Service
    Dim QfeSet
    Dim Qfe
 
    Set Service = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer
    Set QfeSet = Service.ExecQuery("Select * From Win32_Process Where Caption='"& ProcessName &"'")
 
    intProcID = 0
 
    For Each Qfe in QfeSet
        intProcID = Qfe.ProcessId
        Exit For
    Next
 
    GetProcID = intProcID <> 0
End Function

でもこれだと最小化は解除されませんでした。
どうすると最小化してあるIEが最前面表示されますか？

補足情報（FW/ツールのバージョンなど）

VBScript

Comments

[ozwind918]

objWshShell.SendKeys"%"
objWshShell.SendKeys"R"
上記で最小化が解除されるというのはどこを調べて見つけたのでしょうか。
altとRキーをそれぞれ送るのではないかと思いますが。。。

[ozwind918]

スペースを見落としているのではないかと思いましたので、回答に記載しました。

Answer 1

AppActivateの戻り値を確認するとわかりますが、0（偽）になっていると思います。
つまり、ウィンドウが最小化された状態では、AppActivateは失敗しますので、その後にSendKeysすることもできません。

なので、全体として、この方法では無理です。
少なくともWin32APIを呼べばできますが、C等でのプログラミングが必要。
「Win32 ウィンドウ 復元」などで検索してみてください。

Answer 2

objWshShell.SendKeys"% "
objWshShell.SendKeys"R"

に変更してみてどうでしょうか。Alt+Space Rで元のサイズに戻すのではないかと思います。

Comments

[ozwind918]

私の環境ではAlt+Space Rがグレーアウトしていましたので、以下のようにやってみました。
'最大化
objWshShell.SendKeys"% "
objWshShell.SendKeys"X"
'元のサイズに戻す
objWshShell.SendKeys"% "
objWshShell.SendKeys"R"

[otn]

ほんとだ、AppActivateが失敗していてもSendKeysできますね。
ただ、このあとの処理があるのなら、本当に該当ウィンドウがない場合との区別が付かないので、ウィンドウ復元後にもういちどAppActivateしてみて成功するかどうかの判断が必要です。

[ozwind918]

そうですね。AppActivate、失敗していたのですね。
SendKeysで普通にIEのメニューが開けていたので大丈夫だと思ってました。
該当ウィンドウがあるかどうかはおっしゃる通りですね。