'
' Created by SharpDevelop.
' User: Benedikt
' Date: 04.01.2006
' Time: 14:21
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.IO
 
Namespace shmod1
 
Public Class Main
    Shared Sub Main()
 
 
 
 
       Dim ExterneAnwendung As New System.Diagnostics.Process()
    Dim ended As New System.Threading.ManualResetEvent(False)
    Dim timer As New System.Threading.Timer(New System.Threading.TimerCallback( _
      AddressOf TimerCallback), Nothing, 10000, 10000)
 
    Dim count As Integer
    Dim MGt As Boolean
        	Dim MGt2 As Boolean
 
 
    Public Sub TimerCallback(ByVal state As Object)
 
    	Console.WriteLine( _
      "---------------------------------------------------------")
        Console.WriteLine("Das BeneSoft-X-Systems Secure Programm leuft schon" & _
        "seit ")
          Console.WriteLine("mal 10")
         Console.WriteLine("Sekunden")
          Console.WriteLine( _
            "-------------------------------------------------------")
           Console.WriteLine("Secure abfrage:")
 
 
 
        Dim SReader1 As New StreamReader("C:\Test\Test.txt", _
          System.Text.Encoding.Default)
        Dim SReader2 As New StreamReader("C:\Test\Test2.txt", _
        System.Text.Encoding.Default)
 
 
        If SReader1.ReadToEnd() = SReader2.ReadToEnd() Then
 
 
 
            Console.WriteLine("Das System hat die Schülermonitore gesperrt /" & _
              "sind bereits gesperrt")
 
 
 
 
 
 
 
 
 
           Dim ExterneAnwendung As New System.Diagnostics.Process()
 
           If ExterneAnwendung.HasExited Then
  Console.WriteLine("Die gestartete Anwendung wurde beendet")
                  Console.WriteLine("Und wird nun neu gestartet")
                  Dim ExterneAnwendung2 As New System.Diagnostics.Process()
          ExterneAnwendung2.StartInfo.FileName = "module\Technik-Mon-Lok.exe"
ExterneAnwendung2.Start()
 
Else
  Console.WriteLine("Die gestartete Anwendung ist noch aktiv")
                  Dim count1 As Integer
                  if count1.ToString() < 2 Then
                  Console.WriteLine("Und werden durch das Secure-System" & _
                    "BetaE9834 nun auf anzahl 1 limitiert")
 
                  End If
 
End If
 
 
        Else
 
 
  Console.WriteLine("Das System hat die Schülermonitore freigegeben / sind" & _
    "bereits freigegeben")
 
 
   Dim ExterneAnwendung1 As New System.Diagnostics.Process()
     ExterneAnwendung1.StartInfo.FileName = "module\Technik-Mon-Lok.exe" 
 If ExterneAnwendung1.HasExited Then
  Console.WriteLine("Es wurde noch kein neuer antrag gestellt die monitore zu" & _
    "sperren")
  Console.WriteLine("No Exit Ei345")      
 
Else
  Console.WriteLine("Die Monitore werden freigegeben")
  Dim ExterneAnwendung As New System.Diagnostics.Process()
   ExterneAnwendung.StartInfo.FileName = "module\Technik-Mon-Lok.exe"
                  ExterneAnwendung.Kill()
 
                  Console.WriteLine("Die Monitore sind freigegeben")
 
                  End If
 
End If
 
 
 
 
 
        SReader1.Close()
        SReader2.Close()
 
 
 
         Dim count As Integer
 
        If count = 86400 Then
        	Dim timer As New System.Threading.Timer(New _
          System.Threading.TimerCallback(AddressOf TimerCallback), Nothing, _
          10000, 10000)
            timer.Dispose()
            Console.WriteLine("End reached")
            Dim ended As New System.Threading.ManualResetEvent(False)
            ended.Set()
        End If
    End Sub
 
    Sub Main()
 
 
 
    	Dim ended As New System.Threading.ManualResetEvent(False)
 
        Console.WriteLine("Starting The BeneSoft-X-Systems System")
        ended.WaitOne()
        Console.WriteLine("Timer ended. Press any key to end application.")
        Console.Read()
    End Sub
 
 
 
 
 
 
End Class
End Namespace