'
' Created by SharpDevelop.
' User: Benedikt
' Date: 07.01.2006
' Time: 11:50
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
 
Namespace uns2
 
	Module Main
    Dim ended As New System.Threading.ManualResetEvent(False)
    Dim timer As New System.Threading.Timer(New System.Threading.TimerCallback( _
      AddressOf TimerCallback), Nothing, 3000, 3000)
 
    Dim count As Integer
 
    Public Sub TimerCallback(ByVal state As Object)
        count += 1
 
        'script teil
 
 
     Dim SReader1 As New StreamReader("C:\Test\Test1.txt", _
       System.Text.Encoding.Default)
        Dim SReader2 As New StreamReader("C:\Test\Test2.txt", _
        System.Text.Encoding.Default)
Dim ExterneAnwendung As New System.Diagnostics.Process()
 
 
        If SReader1.ReadToEnd() = SReader2.ReadToEnd() Then
 
 
            ExterneAnwendung.StartInfo.FileName = "module\Technik-Mon-Lok.exe"
ExterneAnwendung.Start()
 
 
 
        Else
 
 
 
            ExterneAnwendung.StartInfo.FileName = "notepad.exe"
ExterneAnwendung.Start()
 
 
 
 
        End If
 
        SReader1.Close()
        SReader2.Close()
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
        'ende script teil
        If count = 10 Then
            timer.Dispose()
            Console.WriteLine("End reached")
            ended.Set()
        End If
    End Sub
 
    Sub Main()
        'Wird ausgeführt beim start der anwendung
 
        ended.WaitOne()
        'Wird ausgeführt wen die anwendung den timer beendet hat
        Console.WriteLine("Timer ended. Press any key to end application.")
        Console.Read()
    End Sub
End Module
End Namespace