Imports System.IO
Public Class Form1
    Private _threadCheckTask As System.Threading.Thread
    Private _scanAbort As Boolean
    Private strProtokoll As String
    Public Event Event_ScanFileFound(ByVal fileName As String)
 
    Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btStart.Click
        _scanAbort = False
        _threadCheckTask = New System.Threading.Thread(AddressOf CheckTask)
        _threadCheckTask.Start()
    End Sub
 
    Public Sub CheckTask()
 
        If Process.GetProcessesByName("WDAPPSERVER").Length = 0 Then
            Process.Start("D:\WDSOFTWIN\Server\WDAPPSERVER.EXE")
            strProtokoll = System.DateTime.Now & "   WDAPPSERVER.EXE " & _
              "neugestartet"
            Call protoWrite()
        End If
 
        If Process.GetProcessesByName("WDIBSERVER").Length = 0 Then
            Process.Start("D:\WDSOFTWIN\Server\WDIBSERVER.EXE")
            strProtokoll = System.DateTime.Now & "   WDIBSERVER.EXE " & _
              "neugestartet"
            Call protoWrite()
        End If
 
        If cbAutomatik.Checked = True Then
            _scanAbort = False
            _threadCheckTask = New System.Threading.Thread(AddressOf CheckTask)
            _threadCheckTask.Start()
        End If
 
    End Sub
 
 
    Private Sub btStop_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btStop.Click
        _scanAbort = True
        cbAutomatik.Checked = False
    End Sub
 
    Private Sub protoWrite()
        'Protokoll schreiben
        Dim SWriter As New StreamWriter("protokoll.log", True)
        SWriter.WriteLine(strProtokoll)
        SWriter.Close()
        SWriter = Nothing
    End Sub
End Class