タスクの終了

ページ構成

Top

• Coding
  • .NET
  • CUDA
  • JavaScript
  • MSOffice
  • PHP
  • PowerShell
  • Python
  • Ruby
  • VBA
    • .NETFrameworkの使用
    • COMコンポーネントの使用
    • Closeメソッド
    • Excel
    • FileSystemObject
    • Framework
    • GitHubで公開されているコード一覧
    • IEの操作
    • INIファイルの読み書き
    • MACアドレスの取得
    • Outlook
    • PowerPoint
    • SelenuimVBA
    • SendKeys、SendInput
    • TemplateEngine
    • VBA7
    • Word
    • Word参考記事
    • ウィンドウをアクティブに
    • オートコレクト
    • クリップボードの操作
    • タスクの終了
    • ドキュメント自動生成
    • ハッシュを求める
    • ヒアドキュメントの実現
    • メールの作成
    • ユニットテスト
    • 一歩前へ
    • 開発者
    • 公開されているクラス一覧
    • 人に説明するとき用のメモ
    • 正規表現
  • misc
  • 画像処理
• Server
• memo
• misc
• カメラ
• 科学技術
• 記事
• 数値解析

最新の10件

Powered By

edit

概要 †

現在起動中のプロセスの終了方法についてまとめた

プロセスの終了方法 †

特定のプロセスを終了させるにあたり必要になる手順は以下の通り

• 現在起動中のプロセスの取得
• プロセスに終了命令を発行

実装方法１ †

Word.Tasksオブジェクトを用いると、現在起動中のプロセスを取得することができる。
また、プロセスを、ウィンドウのタイトル名に基づいて特定することができる。
詳しくは、下記記事参照のこと。

Office TANAKA - 実行中のタスク一覧(非API)
http://officetanaka.net/excel/vba/tips/tips61.htm

ただし、試してみたところ、
この方法では、うまくプロセスを拾えない場合があった。（＝動作が不安定）

実装方法２ †

WMIを用いる。WMIはWindows2000以降から実装された点に注意。
プロセスを、実行ファイル名に基づいて特定することができる。
以下に、サブルーチンの形にまとめたサンプルコードを示す。

Sub TaskTerminate(processName As String)
    Dim objSet
    Dim obj
    Dim Locator
    Dim Server
    
    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Server = Locator.ConnectServer
    Set objSet = Server.ExecQuery("Select * From Win32_Process")
    
    For Each obj In objSet
        If obj.Caption = processName Then
		obj.Terminate
        End If
    Next

    Set objSet = Nothing
    Set obj = Nothing
    Set Server = Nothing
    Set Locator = Nothing
End Function

上記サブルーチンの使い方は、以下の通り。

    TaskTerminate("notepad.exe") 'メモ帳(notepad.exe)を終了させる場合'

注意点 †

複数のプログラムを連続して終了させる場合、
Waitを入れないとプログラムを終了させられないことがある模様。