[プログラムをアクティブにする]
実行したプログラムをアクティブ(前面)に表示します。
【ソースコード】
[tips0109.vbs]
Option Explicit
On Error Resume Next
Dim objWshShell
Dim strCmdLine
Dim objExecCmd
Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strCmdLine = "notepad.exe"
Set objExecCmd = objWshShell.Exec(strCmdLine)
If Err.Number = 0 Then
WScript.Echo strCmdLine & " を起動しました。"
WScript.Echo "他のウィンドウをアクティブにしてみてください。"
WScript.Sleep(5000)
objWshShell.AppActivate(objExecCmd.ProcessID)
WScript.Echo strCmdLine & " をアクティブにしました。"
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objExecCmd = Nothing
Set objWshShell = Nothing
【実行結果】
C:\> cscript //NoLogo tips0109.vbs
notepad.exe を起動しました。
他のウィンドウをアクティブにしてみてください。
notepad.exe をアクティブにしました。