#概要
「Hey, Scripting Guy!」の確認。
Scripting Guy さん、特定のタイトルが付いているコマンド ウィンドウを閉じる方法はありますか
Microsoft Word を使用した独自のタスク マネージャの構築 (うそでしょ。いいえ、本当です)
タイトルと完全一致しなくても、最初が一致していたら消せるようです。
.htaのテスト用簡易アプリ、Word文書で消せることを確認しています。
#コード
以下をテキストエディタにコピペし、"close_target.vbs"として保存する。
テスト用簡易アプリを起動した後に実行する。
.vbs実行後、3秒程度あとにプロセスが閉じられる。
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
If colTasks.Exists("消したいターゲット") Then
colTasks("消したいターゲット").Close
End If
objWord.Quit
colTasks("消したいターゲット").Visible = Falseにすると、そのままでウィンドウだけ見えない状態になります。
##テスト用簡易アプリ
以下をテキストエディタにコピペし、"target.hta"として保存し、実行する。
<html>
<head>
<title>消したいターゲットです。</title>
</head>
<body>
これを消します。
</body>
</html>
#備考
WMIやその他スクリプト関連オブジェクトにできないのに、なんでWordでできるようにしているのかよくわかりませんが・・・
Microsoft Word を使用した独自のタスク マネージャの構築 (うそでしょ。いいえ、本当です)
Microsoft Word の Application オブジェクトには、コンピュータで実行中のすべてのプロセスのコレクションを返す Tasks プロパティが含まれています。このプロパティと Win32_Process の違いは、Tasks コレクションが、実行可能ファイル名ではなく、プロセスのフレンドリ名を返すことです。これによって、次のような情報を取得できます。
#参考
Scripting Guy さん、特定のタイトルが付いているコマンド ウィンドウを閉じる方法はありますか
Microsoft Word を使用した独自のタスク マネージャの構築 (うそでしょ。いいえ、本当です)