VBeを続ける前にspeceficプログラムが起動するのを待つ

Question

下のコードでわかるように、簡単なtry文があります。 ツールを開くたびに、csgoという名前のプロセスが検索されます。プロセスがあれば、ツールを続行します。それ以外の場合は、MsgBoxを送信してツールを終了します。

しかし、csgoプロセスが実行されているかどうかを確認する必要があります。実行している場合は今のように続行する必要がありますが、csgo実行プロセスがない場合は、ツールスリープとループまで、csgoという名前のプロセスが見つかります。

Try 
     gameProcess = Process.GetProcessesByName("csgo")(0) 
     gameHandle = OpenProcess(PROCESS_ALL_ACCESS, False, csgoProcess.Id) 
    Catch ex As Exception 
     MsgBox("Please Start CS:GO before opening this tool") 
     Environment.Exit(0) 
    End Try 

私はこのようにしてみましたが、これはうまくいっています、これを行う良い方法はありますか？

Dim Found = 0 
    While Found = 0 
     Try 
      gameProcess = Process.GetProcessesByName("csgo")(0) 
      cgameHandle = OpenProcess(PROCESS_ALL_ACCESS, False, csgoProcess.Id) 
      Found = 1 
     Catch ex As Exception 
      MsgBox("Waiting for csgo to launch.") 
      Threading.Thread.Sleep(1000) 
     End Try 
    End While 

Answer 1

これはコンソールアプリケーションであると仮定して、あなたが持っているものをいくつか改善することができます。

' Use a boolean for binary logic. 
' This takes up 1 bit whereas your Int32 took up 32 bits 
Dim allDone = False 
While Not allDone 
    Try 
     Dim processes = Process.GetProcessesByName("csgo") 
     If processes.Count > 0 Then 
      csgoProcess = processes(0) 
      Dim handle = OpenProcess(PROCESS_ALL_ACCESS, False, csgoProcess.Id) 
      If handle IsNot Nothing Then 
       allDone = True 
      End If 
     Else 
      ' Use a Retry/Cancel MsgBox to allow the user to retry or cancel 
      ' Clicking Cancel will now exit the application 
      Select Case MsgBox("Waiting for csgo to launch.", 
           MsgBoxStyle.RetryCancel, "Confirm retry") 
       Case MsgBoxResult.Retry 
        Threading.Thread.Sleep(1000) 
       Case MsgBoxResult.Cancel 
        Environment.Exit(0) 
      End Select 
     End If 
    Catch ex As Exception 
     ' Something bad happened, but you don't know what exactly. 
     ' You should exit, else it might keep happening 
     MsgBox("Your application encountered the following error and will now close: " _ 
      & ex.Message) 
     Environment.Exit(0) 
    End Try 
End While 
' continue application