VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Список форумов
Общий форум

Процессы

RE: Процессы

Быстрый переход:
RE: Процессы17 января 2009 / 04:44
Алексей Немиро
Администратор
ку 65.2275660625+

вопросов: 8
советов: 13
ответов: 27
комментариев: 80


System.Diagnostics.Process
Process.GetProcesses()
MSDN:
В следующем примере извлекаются сведения о текущем процессе, о всех экземплярах программы "Блокнот", запущенных на локальном компьютере, о всех экземплярах программы "Блокнот", запущенных на заданном компьютере (с использованием псевдонима и IP-адреса), о всех процессах, выполняемых на локальном и удаленном компьютерах, о заданном процессе на локальном или удаленном компьютере (с использованием идентификатора процесса).

  1. Imports System
  2. Imports System.Diagnostics
  3. Imports System.ComponentModel
  4.  
  5. Namespace MyProcessSample
  6.     _
  7.    '/ <summary>
  8.    '/ Shell for the sample.
  9.    '/ </summary>
  10.    Class MyProcess
  11.  
  12.       Sub BindToRunningProcesses()
  13.          ' Get the current process.
  14.          Dim currentProcess As Process = Process.GetCurrentProcess()
  15.  
  16.          ' Get all instances of Notepad running on the local
  17.          ' computer.
  18.          Dim localByName As Process() = Process.GetProcessesByName("notepad")
  19.  
  20.          ' Get all instances of Notepad running on the specifiec
  21.          ' computer.
  22.          ' 1. Using the computer alias (do not precede with "\").
  23.          Dim remoteByName As Process() = Process.GetProcessesByName("notepad", "myComputer")
  24.  
  25.          ' 2. Using an IP address to specify the machineName parameter.
  26.          Dim ipByName As Process() = Process.GetProcessesByName("notepad", "169.0.0.0")
  27.  
  28.          ' Get all processes running on the local computer.
  29.          Dim localAll As Process() = Process.GetProcesses()
  30.  
  31.          ' Get all processes running on the remote computer.
  32.          Dim remoteAll As Process() = Process.GetProcesses("myComputer")
  33.  
  34.          ' Get a process on the local computer, using the process id.
  35.          Dim localById As Process = Process.GetProcessById(1234)
  36.  
  37.          ' Get a process on a remote computer, using the process id.
  38.          Dim remoteById As Process = Process.GetProcessById(2345, "myComputer")
  39.       End Sub 'BindToRunningProcesses
  40.  
  41.       Shared Sub Main()
  42.  
  43.          Dim myProcess As New MyProcess()
  44.  
  45.  
  46.          myProcess.BindToRunningProcesses()
  47.       End Sub 'Main
  48.    End Class 'MyProcess
  49. End Namespace 'MyProcessSample
Все сказанное админом – истина и обсуждению не подлежит, даже если истина таковой не является.
Кнопки VBNet.Su  ·  Утилиты  ·  Home Page  ·  Kbyte.Ru
--
Не забываем ставить фастаны (быстрые ответы) ;-)

..и было сказано:
Респект: Kolyasik
Это отдельная страница сообщения форума. Чтобы посмотреть всю ветку, нажмите на эту ссылку.