Imports System.Diagnostics
Module Module1
Sub Main()
Dim _p As Process = Process.Start("iexplore", "http://www.g.cn")
Dim _threads As ProcessThreadCollection = _p.Threads
Console.WriteLine("Process:{0}", _p.ProcessName)
For Each thread As ProcessThread In _threads
Console.WriteLine("ID:{0}", thread.Id)
Next
Dim i As Int16 = 0
i = Int16.Parse(Console.ReadLine())
If i = 1 Then
_p.Kill()
End If
Console.Read()
Console.Read()
End Sub
End Module
Imports System.Diagnostics
Module Module1
Sub Main()
'current process
Dim p As Process = Process.GetCurrentProcess()
Console.WriteLine(String.Format("PID:{0} Name{1} StartTime:{2}", p.Id, p.ProcessName, p.StartTime.ToString()))
'threads in process p
Dim _thread As ProcessThreadCollection = p.Threads
Dim thread As ProcessThread
For Each thread In _thread
Console.WriteLine(thread.Id)
Next
Console.ForegroundColor = ConsoleColor.Blue
Dim _p As Process = Process.Start("iexplore")
Console.WriteLine(_p.Id)
'all running process
'Dim _process() As Process = Process.GetProcesses()
'For Each p In _process
' Try
' Console.WriteLine(String.Format("PID:{0} Name{1} StartTime:{2}", p.Id, p.ProcessName, p.StartTime.ToString()))
' Catch ex As Exception
' Console.WriteLine(ex.Message)
' End Try
'Next
Console.Read()
End Sub
End Module