VBScriptを極める：User32.dll API連携によるウィンドウ制御の深淵
VBScriptを「過去の遺物」と切り捨てるのは簡単だ。しかし、この軽量でOSの深部にまで届くスクリプト言語は、Windows環境における自動化の「ラストリゾート」として、今なおその価値を失っていない。
多くの者が `SendKeys` の不安定さに絶望し、`WScript.Shell` の限定的な機能に限界を感じる。だが、真のエンジニアは、Windowsの心臓部である `User32.dll` を呼び出す術を知っている。今回は、外部ライブラリに頼らず、VBScript単体でウィンドウの挙動を掌握する技術的極致を解説する。
—
1. なぜ「外部ツール」を排除するのか
業務自動化において、外部DLL（DynamicWrapperXなど）のインストールは、セキュリティポリシーや保守性の観点から「負債」となることが多い。配布する `.vbs` ファイル単体で完結させることこそ、レガシー環境における最強のポータビリティである。
今回用いる手法は、PowerShellをホストとして呼び出し、メモリ空間を介してWin32 APIを直接叩くというアプローチだ。VBScriptから直接APIを呼べない制限を、OS標準搭載の強力なランタイムで橋渡しする。
—
2. 実装の核心：ShowWindow APIによる制御
ウィンドウの最小化、最大化、復元は `user32.dll` の `ShowWindow` 関数を軸に行う。
‘ ウィンドウ制御用モジュール
Option Explicit
‘ ターゲットとなるプロセスのタイトル（部分一致で取得）
Dim targetTitle: targetTitle = “メモ帳”
ControlWindow targetTitle, 3 ‘ 3 = 最大化, 6 = 最小化, 9 = 復元
Sub ControlWindow(title, cmdShow)
Dim psCmd, shell
‘ PowerShellを介してWin32 APIをロードし、ハンドルを特定してコマンドを送る
‘ C#のAdd-Typeで動的にアセンブリをコンパイルし、メモリ上で実行させる
psCmd = “powershell -Command “”$code = ‘[DllImport(“”user32.dll””)] public static extern bool ShowWindow(int hWnd, int nCmdShow); ” & _
“[DllImport(“”user32.dll””)] public static extern int FindWindow(string lpClassName, string lpWindowName);’; ” & _
“$type = Add-Type -MemberDefinition $code -Name ‘Win32API’ -Namespace ‘Win32’ -PassThru; ” & _
“$hWnd = $type::FindWindow($null, ‘” & title & “‘); ” & _
“if($hWnd -ne 0) { $type::ShowWindow($hWnd, ” & cmdShow & “); }”””
Set shell = CreateObject(“WScript.Shell”)
‘ ウィンドウ非表示で実行（0を指定）
shell.Run psCmd, 0, True
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set shell = Nothing
End Sub
—
3. シニアエンジニアが意識すべき「メモリとライフサイクル」
上記のコードで最も重要なのは、`Set shell = Nothing` の行ではない。「外部プロセス（PowerShell）の起動コスト」と「Win32 APIハンドルの揮発性」を理解することだ。
- コンパイルのオーバーヘッド: `Add-Type` を多用すれば、実行のたびにJITコンパイルが発生する。頻繁にウィンドウ操作を行う場合は、一度のスクリプト実行内で対象をリストアップし、一括処理する設計にすべきだ。
- ハンドル値の正当性: `FindWindow` はウィンドウタイトルに依存する。タイトルが動的に変わるアプリケーション（例：ブラウザ）の場合、`EnumWindows` を用いてプロセスIDからウィンドウハンドルを特定するアルゴリズムへ昇華させる必要がある。
—
4. 現場で活きる「位置制御」の応用
`ShowWindow` だけでは足りない場合、`SetWindowPos` を追加インポートする。これにより、X, Y座標の指定や、Zオーダー（手前・奥）の制御も可能になる。
// PowerShell側に渡す定義を拡張する
[DllImport(“user32.dll”)]
public static extern bool SetWindowPos(int hWnd, int hWndInsertAfter, int X, int Y, int cx, int cy, uint uFlags);
これを活用すれば、マルチモニター環境で特定のアプリを特定の座標に強制配置する、といった「デスクワークの自動化」がVBScriptだけで完結する。
—
5. 伝説のアーキテクトからの助言
VBScriptは、もはや「死んだ言語」ではない。「OSの皮を被ったコマンド実行環境」として再定義すべきだ。
1. エラーハンドリングを怠るな: `On Error Resume Next` を多用するなら、必ず `Err.Number` をチェックし、ログを吐き出せ。
2. 実行権限の壁: API操作には、対象アプリと同等以上の権限が必要だ。管理者権限が必要なアプリを操作する場合、スクリプト自体を管理者権限で実行するラッパーを用意せよ。
3. 可読性という名の礼儀: このような「魔術」を使うコードには、なぜこの実装が必要だったのか、APIの引数に何を渡したのかを、後任のために詳細なコメントとして残せ。
技術とは、最新のフレームワークを追うことだけではない。目の前にあるレガシーな環境を、最もエレガントに、かつ確実に支配下に置くこと。それこそが、現場を支える者の矜持だ。
健闘を祈る。
