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メソッドの説明
構文: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.