NSDProcess メンバ

コンピュータのプロセスを取得します。


●コンストラクタ

名前 説明
NSDProcess NSDProcessを初期化します。
NSDProcess.NSDProcessInfo NSDProcessInfoを初期化します。

●メソッドの一覧

名前 引数 戻り値 説明
GetRunApplicationList なし NSDProcessInfo()型 起動しているアプリケーションのリストを取得します。
GetProcessList ( [String] ) Process()型 プロセスのリストを取得します。
EndProcess ( Process , [Boolean] ) Boolean型 プロセスを終了します。
KillProcess ( Process ) Boolean型 プロセスを強制終了します。

●NSDProcessコンストラクタの説明

構文:Public Sub New()

使用法:Dim Cls_Process As New NSDWinEnd.NSDProcess

引数:なし。

使用例:

Public Class Form1
    Dim Cls_Process As New NSDWinEnd.NSDProcess
        :
End Class

●NSDProcessメソッドの説明

名前:GetRunApplicationList

構文:Public Function GetRunApplicationList() As NSDProcessInfo()

機能:起動しているアプリケーションのリストを取得します。

引数:なし。

戻り値:NSDProcessInfo()

戻り値の説明:

プロセスの情報を返します。

使用例:

Public Class Form1
     :

    ' 起動しているアプリケーションの表示.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                             ) Handles Button1.Click
        Try
            Dim Cls_Process As New NSDWinEnd.NSDProcess
            ' 起動しているアプリケーションのリストを取得します.
            Dim Cls_AppInfo() As NSDWinEnd.NSDProcess.NSDProcessInfo = _
                    Cls_Process.GetRunApplicationList()
            Dim Str_Msg As String = Nothing
            For Int_Loop As Integer = 0 To Cls_AppInfo.Length - 1
                Str_Msg = "ウィンドウテキスト : " & Cls_AppInfo(Int_Loop).WindowText & vbCrLf
                Str_Msg &= "モジュールパス : " & Cls_AppInfo(Int_Loop).Path & vbCrLf
                Str_Msg &= "プロセスID : " & Cls_AppInfo(Int_Loop).ProcessID.ToString

                MsgBox(Str_Msg)
            Next
        Finally
        End Try
    End Sub
End Class

 

名前:GetProcessList

構文:Public Function GetProcessList( [ComputerName] ) As System.Diagnostics.Process()

機能:プロセスのリストを取得します。

引数:

 

名前 引数渡しの方法 説明
[ComputerName] String 値渡し(ByVal) プロセスのリストを取得するコンピュータ名を渡します。
※引数が渡されない場合またはNothingの場合はローカルコンピュータのプロセスリストを返します。

戻り値:System.Diagnostics.Process()

戻り値の説明:

プロセスのリストを返します。

使用例:

Public Class Form1
     :

    ' プロセスリストの取得.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                             ) Handles Button1.Click
        Try
            Dim Cls_Process As New NSDWinEnd.NSDProcess
            ' プロセスのリストを取得します.
            Dim Cls_ProcessName() As System.Diagnostics.Process = _
                    Cls_Process.GetProcessList()
                :
        Finally
        End Try
    End Sub
End Class

 

名前:EndProcess

構文:Public Function EndProcess( Process, [Kill] ) As Boolean

機能:プロセスを終了します。

引数:

 

名前 引数渡しの方法 説明
Process System.Diagnostics.Process 参照渡し(ByRef) 終了するプロセスを渡します。
Kill Boolean 参照渡し(ByRef) True :クローズするメッセージ送信に失敗した場合に強制終了します。
False:プロセスの強制終了はしません。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗、エラー発生

使用例:

Public Class Form1
     :

    ' プロセスの終了.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                             ) Handles Button1.Click
        Try
            Dim Cls_Process As New NSDWinEnd.NSDProcess
            ' プロセスのリストを取得します.
            Dim Cls_ProcessName() As System.Diagnostics.Process = _
                    Cls_Process.GetProcessList(ClsPub_ComputerName)
            For Int_Loop As Integer = 0 To Cls_ProcessName.Length - 1
                Cls_Process.EndProcess(Cls_ProcessName(Int_Loop))
            Next
        Finally
        End Try
    End Sub
End Class

 

名前:KillProcess

構文:Public Function KillProcess( Process ) As Boolean

機能:プロセスを強制終了します。

引数:

 

名前 引数渡しの方法 説明
Process System.Diagnostics.Process 参照渡し(ByRef) 強制終了するプロセスを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗、エラー発生

使用例:

Public Class Form1
     :

    ' プロセスの強制終了.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                             ) Handles Button1.Click
        Try
            Dim Cls_Process As New NSDWinEnd.NSDProcess
            ' プロセスのリストを取得します.
            Dim Cls_ProcessName() As System.Diagnostics.Process = _
                    Cls_Process.GetProcessList(ClsPub_ComputerName)
            For Int_Loop As Integer = 0 To Cls_ProcessName.Length - 1
                Cls_Process.KillProcess(Cls_ProcessName(Int_Loop))
            Next
        Finally
        End Try
    End Sub
End Class

Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.