none
VB2008 如何依程序名稱找PID RRS feed

  • 問題

  •  Dim id As Process() = Process.GetProcessesByName("iexplore")
    
    If id.Count = 1 Then
          Shell("ntsd.exe /c", "-c q -pn iexplore.exe", AppWinStyle.Hide)
        Else
          MsgBox("123")
        End If
    
    我發現連ntsd都沒辦法偵測iexplore的名稱只有打PID才能關閉!
    所以希望能用程序名找到PID(用VB找非工作管理員)
    b27906910@yahoo.com.tw
    2010年12月3日 上午 11:18

解答

  •         Dim id As Process() = Process.GetProcessesByName("iexplore")
            If id.Length > 0 Then
                'Shell("ntsd.exe /c", "-c q -pn iexplore.exe", AppWinStyle.Hide)
                For i As Integer = 0 To id.Length - 1
                    Debug.Print(id(i).ToString)
                    Debug.Print(id(i).Id)
                    id(i).CloseMainWindow()
                    'id(i).Kill()
                Next
                MsgBox("ie")
            Else
                MsgBox("123")
            End If
    


    • 已標示為解答 b27906910 2010年12月3日 下午 12:41
    2010年12月3日 下午 12:32