Функция возвращает истину

Question

Я пытаюсь сделать функцию, которая поиска процесса передается в параметре и если существует возвращает истину но она всегда возвращает ложь

Public Function ps_running(ByVal name As String) As Boolean 
    For Each Proc As Process In Process.GetProcesses 
     If Proc.ProcessName.StartsWith(name) AndAlso (name.Length <> 0) Then 
      Return True 
     End If 
    Next 
    Return False 
End Function 

уверен, что это то основное я не хватает, но я могу «т сказать, что Благодаря

Answer 1

Проверить это:

Sub Main() 
    For Each Proc As Process In Process.GetProcesses 
     Console.WriteLine(Proc.ProcessName) 
    Next 

    Console.WriteLine() 

    Dim b As Boolean = ps_running("dwm") 
    Console.WriteLine(b) 

    Console.ReadLine() 
End Sub 

Public Function ps_running(ByVal name As String) As Boolean 
    If (String.IsNullOrEmpty(name)) Then Return False 

    For Each Proc As Process In Process.GetProcesses 
     If Proc.ProcessName.ToUpper.StartsWith(name.ToUpper) Then 
      Return True 
     End If 
    Next 

    Return False 
End Function 

Отредактировано с полным испытанием