Kijken of process aan is

[Spy1]

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Process.GetProcessesByName(ProccessFile0).Length = 0 Then
            Process.Start(TextBox1.Text)
        End If
    End Sub

Deze code staat in een Timer sub, hij kijkt eerst of het process aan is, zo niet dan moet hij het process starten. De eerste keer gaat hij goed, dan start hij het programma, maar de 2e keer start hij het programma ook weer al is het programma uit, en steeds maar door.

Wie kan me helpen?

 

[thomasderoo]

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Process.GetProcessesByName(ProccessFile0).Length = 0 Then
            Process.Start(TextBox1.Text)
        End If
    End Sub

Deze code staat in een Timer sub, hij kijkt eerst of het process aan is, zo niet dan moet hij het process starten. De eerste keer gaat hij goed, dan start hij het programma, maar de 2e keer start hij het programma ook weer al is het programma uit, en steeds maar door.

Wie kan me helpen?

Zoiets als dit misschien:

        Dim processes() As Process
        Dim instance As Process
        Dim process As New Process()
        processes = process.GetProcesses
        For Each instance In processes
            If instance.ProcessName = TextBox1.Text Then
                'Wat je wilt doen als het process open is!
            Else
                'Wat je wilt doen als het process niet open is!
            End If
        Next

Of gewoon een kleine aanpassing:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Process.GetProcessesByName(ProccessFile0).Length = 0 Then
            Process.Start(TextBox1.Text)
            Timer1.Enabled = false
        End If
    End Sub