下面的樣本檢索的資訊涉及當前進程、本機電腦上啟動並執行“記事本”的所有執行個體、在使用電腦別名和 IP 位址的特定電腦上啟動並執行“記事本”的所有執行個體、本機電腦和遠端電腦上啟動並執行所有進程,以及本機電腦或遠端電腦上使用進程 ID 的特定進程。
Imports SystemImports System.DiagnosticsImports System.ComponentModelNamespace MyProcessSample _ '/ '/ Shell for the sample. '/ Class MyProcess Sub BindToRunningProcesses() ' Get the current process. Dim currentProcess As Process = Process.GetCurrentProcess() ' Get all instances of Notepad running on the local ' computer. Dim localByName As Process() = Process.GetProcessesByName("notepad") ' Get all instances of Notepad running on the specifiec ' computer. ' 1. Using the computer alias (do not precede with "//"). Dim remoteByName As Process() = Process.GetProcessesByName("notepad", "myComputer") ' 2. Using an IP address to specify the machineName parameter. Dim ipByName As Process() = Process.GetProcessesByName("notepad", "169.0.0.0") ' Get all processes running on the local computer. Dim localAll As Process() = Process.GetProcesses() ' Get all processes running on the remote computer. Dim remoteAll As Process() = Process.GetProcesses("myComputer") ' Get a process on the local computer, using the process id. Dim localById As Process = Process.GetProcessById(1234) ' Get a process on a remote computer, using the process id. Dim remoteById As Process = Process.GetProcessById(2345, "myComputer") End Sub 'BindToRunningProcesses Shared Sub Main() Dim myProcess As New MyProcess() myProcess.BindToRunningProcesses() End Sub 'Main End Class 'MyProcessEnd Namespace 'MyProcessSample