110,536
社区成员
发帖
与我相关
我的任务
分享
Dim name = "notepad" '进程的名称
Dim pid As Integer = -1
Dim pp As Process() = Process.GetProcessesByName(name)
For i As Integer = 0 To pp.Length - 1
If (pp(i).ProcessName = name) Then
pid = pp(i).Id
Console.WriteLine("记事本进程的ID :" & pid)
End If
Next
pp = Process.GetProcesses()
Dim ishave As Boolean = False
For i As Integer = 0 To pp.Length - 1
If (pp(i).Id = pid) Then
ishave = True
Console.WriteLine("进程的名称 :" & pp(i).ProcessName)
End If
Next
If ishave = False Then
Console.WriteLine("未到到pid进程")
Else
Console.WriteLine("存在pid进程")
End If
'更改PID
pid = 100
pp = Process.GetProcesses()
ishave = False
For i As Integer = 0 To pp.Length - 1
If pp(i).Id = pid Then
ishave = True
Console.WriteLine("进程的名称 :" & pp(i).ProcessName)
End If
Next
If ishave = False Then
Console.WriteLine("未到到pid进程")
Else
Console.WriteLine("存在pid进程")
End If