원하는 프로세스가 실행 중일 때 레이블을 변경하는 방법

Question

프로세스가 실행 중인지 확인한 후 응용 프로그램 내에서 텍스트 형식으로 표시하려고합니다.

Dim p() As Process 

    Private Sub CheckIfRunning() 
     p = Process.GetProcessesByName("iw5sp") 
     If p.Count > 0 Then 
      ' Status: Game Not Found! 
     Else 
      ' Status: Game Found! 
     End If 
    End Sub 

: 프로세스가 발견되지 않는 경우이 경우, 표시 응용 프로그램, "프로세스가 실행"의 실행 ...

Example

여기 내 현재 코드 때 대 "프로세스를 찾을 수 없습니다"

Answer 1

끝이없는 검색 결과, 사람들은 거의 도움이되지 않으며 100 % 투표를하지 않으면 드디어 해결책을 제시합니다! VB.Net에서 작동합니다! 간단한 레이블 만들기,이 코드를 삽입하십시오. 팔. 모든 코드는 ReadWritingMemory.vb의 원본 코드입니다.

Public Class Form1 
Dim Timer1 As New Timer 

    Public Function IsProcessRunning(Notepad As String) As Boolean 
     For Each clsProcess As Process In Process.GetProcesses() 
      If clsProcess.ProcessName.StartsWith(Notepad) Then 
       Return True 
      Else 
      End If 
     Next 
     Return False 
    End Function 
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim Run As Integer 
     If Run = 0 Then 
      AddHandler Timer1.Tick, AddressOf Timer1_Tick 
      Timer1.Interval = 1 
      Timer1.Start() 

     Else 
      RemoveHandler Timer1.Tick, AddressOf Timer1_Tick 
      Timer1.Stop() 
     End If 
    End Sub 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) 
     Dim p() As Process 
     p = Process.GetProcessesByName("notepad") 
     If p.Count > 0 Then 
      Label1.Text = "Status: Notepad Running!" 
      Label1.Refresh() 
     Else 
      Label1.Text = "Status: Notepad Not Running!" 
      Label1.Refresh() 
     End If 
    End Sub 
End Class 

클래스에 ReadWritingMemory.vb가 추가되었는지 확인하십시오. 해당 코드는 here입니다.

비주얼 컨텍스트 :