こんにちは！VBScriptの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩抜け出し、Windowsの裏側を自在に操る自動化の扉を開こうとしているあなたへ、最高にエキサイティングな技術をお伝えします。
業務自動化の現場で、こんな壁にぶつかったことはありませんか？
> 「`SendKeys` でキーボード操作を自動化したはいいものの、対象のアプリが裏に隠れていたり、最小化されていたりすると、全く関係ないチャット画面に文字が暴走して入力されてしまう……！」
VBScriptには、C言語やVBA（Windows API）のように `FindWindow` や `GetWindowRect` といった華麗なAPIを直接叩く機能はありません。「じゃあ諦めるしかないのか」と絶望するのはまだ早い。Windowsのシェル（デスクトップ環境そのもの）を司る `Shell.Application` オブジェクトを召喚すれば、ウィンドウの生殺与奪の権を握ることができるのです。
ここをクリアすれば、あなたのVBScriptスキルは「ただの文字送りツール」から「環境適応型のスマートな自動化システム」へと劇的に進化します。さあ、一緒に本質をマスターしていきましょう！
—
なぜ `SendKeys` は暴走するのか？（前提の共有）
VBScriptで最も手軽な入力自動化といえば `WScript.Shell` の `SendKeys` メソッドです。しかし、これには致命的な弱点があります。それは「今、画面のどこにフォーカスがあるか」に依存しているという点です。
‘ よくある危険なコード
Set ws = CreateObject(“WScript.Shell”)
ws.Run “notepad.exe”
WScript.Sleep 500
ws.SendKeys “Hello, World!” ‘ 運悪く別のウィンドウにフォーカスが移ると大惨事
これを防ぐためには、「ターゲットのアプリが確実に起動し、画面上のどこに存在し、アクティブ状態になっているか」をVBScript側で把握・制御しなければなりません。
—
秘儀：Shell.Application でウィンドウの魂を捉える
Windowsのシェルは、現在画面上で動いているすべてのウィンドウ（タスク）を管理しています。`Shell.Application` オブジェクトを経由して `Windows` コレクションや `ShellWindows` を覗き見ると、Internet Explorerやエクスプローラーなどのウィンドウ情報を取得できます。
しかし、メモ帳や独自の業務アプリなど、あらゆるウィンドウの座標（位置とサイズ）を純粋なVBScriptだけでスマートに取得するのは、実はメモリ管理やCOMの制約上、なかなかの荒業が必要です。
そこで今回は、「起動したプロセスのウィンドウを確実にアクティブにし、座標や状態を安全にハンドリングする実践的アプローチ」を解説します。
実用スクリプト：確実な起動・前面化・操作のコンボ
以下のコードは、メモ帳を起動し、ウィンドウが存在することを確認した上で、確実に手前に持ってくるまでの全手順です。そのままコピペして `window_control.vbs` として保存し、実行してみてください。
‘ =================================================================
ニッチで強力なVBScript実用サンプル
テーマ：ウィンドウの確実な捕捉とアクティブ化
=================================================================
Option Explicit
Sub Main()
Dim shellApp, wshShell
Dim targetPath, processName
Dim isActivated
‘ オブジェクトの生成
Set wshShell = CreateObject(“WScript.Shell”)
Set shellApp = CreateObject(“Shell.Application”)
targetPath = “notepad.exe”
processName = “notepad.exe”
WScript.Echo “【1】” & targetPath & ” を起動します。”
‘ アプリケーションの起動
wshShell.Run targetPath, 1, False ‘ 1: 通常ウィンドウ, False: 非同期実行
‘ 起動するまで少しウェイト（マシンのスペックに合わせて調整）
WScript.Sleep 1000
WScript.Echo “【2】アプリケーションのウィンドウをアクティブにします。”
‘ AppActivateメソッドは、タイトルバーの一部やプロセス名でウィンドウを前面に引き出します
‘ ここが SendKeys 暴走を防ぐための最重要防壁です！
isActivated = wshShell.AppActivate(“無題 – メモ帳”)
If isActivated = True Then
WScript.Echo “【成功】ウィンドウを捉えました。安全に文字を入力します。”
‘ 確実にフォーカスが当たった状態でキー送信
wshShell.SendKeys “Target window locked and loaded.”
wshShell.SendKeys “{ENTER}”
wshShell.SendKeys “VBScript is awesome!”
Else
WScript.Echo “【警告】指定されたウィンドウが見つかりませんでした。”
End If
‘ 適切にオブジェクトを解放（メモリリークの防止：プロの嗜み）
Set shellApp = Nothing
Set wshShell = Nothing
WScript.Echo “【3】すべての処理が完了しました。”
End Sub
‘ メイン処理の実行
Call Main()
—
踏み込みの知見：なぜ `AppActivate` が命綱なのか？
初心者の方がよくやりがちなミスが、`Run` メソッドの直後に `WScript.Sleep` すら挟まず、一目散に `SendKeys` を連打することです。WindowsのOSのスケジュールにおいて、アプリケーションの起動と描画（ウィンドウの生成）は、人間から見れば「一瞬」ですが、CPUのクロック単位で見れば「途方もない大仕事」です。
1. プロセスの生成 (`Run`)
2. メモリの割り当てとGUIスレッドの起動
3. ウィンドウハンドル（hWnd）の生成と描画
このステップが完了する前に `SendKeys` を撃つと、キーイベントが宙に浮き、最悪の場合は別のアプリケーション（裏で開いていたブラウザなど）にパスワードや機密データが入力されてしまいます。
ここで紹介した `wshShell.AppActivate(“ウィンドウのタイトル”)` は、OSに対して「指定したタイトルのウィンドウを探し出し、見つかったら最前面に持ってきてフォーカスを渡せ」と命令する強力なメソッドです。この戻り値（`True` / `False`）をチェックすることで、「ターゲットが確実に画面の主導権を握った」というお墨付きをもらってから次の処理に進むという、堅牢なロジックが組めるようになります。
—
さらに高みを目指すあなたへ：WMIによるウィンドウ監視
もし「ウィンドウのタイトル名が変わってしまう」「より厳密にプロセスID（PID）ベースでウィンドウを特定し、座標情報をいじりたい」という場合は、VBScript単体ではなく、WMI（Windows Management Instrumentation）や、VBA（Excel）をラッパーとして組み合わせる手法が実務ではよく使われます。
Excel VBAであれば、Windows API（`FindWindow`, `GetWindowRect`, `MoveWindow`）を直接宣言して、ウィンドウの座標をピクセル単位で自由自在に移動・変更できます。
‘ 【参考】VBA（Excel）からウィンドウ座標を完全制御する例
Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function GetWindowRect Lib “user32” (ByVal hwnd As LongPtr, lpRect As RECT) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
‘ これを使えば、アプリの正確な座標（X, Y, 幅, 高さ）が手に取るようにわかります。
VBScriptの限界を知り、「だからこそ、ここではWSHの機能（`AppActivate`や`Shell.Application`）をこう使ってカバーするんだ」という引き出しを持つこと。これが、本物の自動化エンジニアへのパスポートです。
—
まとめ
- `SendKeys` 単体での操作は暴走のリスクと隣り合わせ。
- `Shell.Application` や `WScript.Shell` を駆使して環境を整えるのが鉄則。
- `AppActivate` を用いて、ターゲットが確実に最前面にいることを確認してから入力せよ。
ここをクリアできれば、あなたのVBScriptはただのスクリプトから、現場の業務を確実に守る「信頼性の高いツール」へと生まれ変わります。ぜひ、日々の自動化タスクに応用してみてくださいね。それでは、次回の極限の知見でお会いしましょう！
