【VBS】ウィンドウを最前面に表示する
ちょっと息抜きにVBScriptについて質問されました。
VBScriptからIEを起動して処理を行っているが、ウィンドウが最前面に存在しないため、キー操作がうまくいかないとのこと。
それだけの問題であれば最前面に表示するだけではないのかと思いきや、そこまで単純ではないようです。
検索して最初の方に出てくるVBScriptのコードです。
1 2 3 4 5 6 7 8 9 10 11 | Dim objIE0Dim objWshShell' IEを開くSet objIE0 = CreateObject("InternetExplorer.Application")objIE0.Visible = TrueobjIE0.Navigate "https://www.google.co.jp"' 開いているIEをアクティブにするSet objWshShell = CreateObject("Wscript.Shell")objWshShell.AppActivate "Google" |
ドヤ顔でこのコードを書いたのですが、裏でアクティブ化されるだけなのでキー操作はやはり受け付けません。
もう少し調べてみると、この状態になっている方が結構いるようですね。
少し頭を捻って考えました。
すべてを最小化した後にIEを起動します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Dim objIE0Dim objWshShell' 画面をすべて最小化するDim WinSet Win = WScript.CreateObject("Shell.Application")Win.MinimizeAll' IEを開くSet objIE0 = CreateObject("InternetExplorer.Application")objIE0.Navigate "https://www.google.co.jp"objIE0.Visible = True' 開いているIEをアクティブにするSet objWshShell = CreateObject("Wscript.Shell")objWshShell.AppActivate "Google" |
コマンドから動かした場合にはうまく動いてくれました。
しかし、フォルダの中にあるVBSファイルをダブルクリックで起動した場合にはIEの起動と共にフォルダが最大化されてうまく動きませんでした。
今回、私が質問を受けたのはVBScriptからIEを起動していたため、別の方法で処理を行うようにしました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Dim objIE0Dim objWshShell' 画面をすべて最小化するDim WinSet Win = WScript.CreateObject("Shell.Application")Win.MinimizeAll' 最前面表示で開くWScript.Sleep 1000' 開いたIEを取得するSet objIE0 = CreateObject("InternetExplorer.Application")Set xShell = CreateObject("Shell.Application")For Each Window In xShell.Windows If TypeName(Window.Document) = "HTMLDocument" Then Set objIE0 = Window exit for end if end ifnext |
最初から最前面で表示すれば良いという話ですね。
API等を使用すれば最前面表示ができるようですが、ちょっと面倒でした。
No comments.