16,554
社区成员
发帖
与我相关
我的任务
分享
textbox1.text = ""
Dim TmpProc As Process
Dim procs As Process() = Process.GetProcesses()
For Each TmpProc In procs
TextBox1.Text = TextBox1.Text & TmpProc.ProcessName.ToUpper & vbCrLf
Next
Dim i As Integer
For Each TmpProc In procs
For i = 0 To 42
If Not TmpProc.ProcessName.ToUpper = ProcArray(i) Then
TmpProc.Kill()
End If
Next
Next