'
' Created by SharpDevelop.
' User: Benedikt
' Date: 06.01.2006
' Time: 11:27
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace unsichtbar2
 
	Public Class Main
    Shared Sub Main()
                For i1 As Integer = 0 To 4
 
 
            Dim ExterneAnwendung As New System.Diagnostics.Process()
            Dim zaeler As Object
         ExterneAnwendung.StartInfo.FileName = "notepad.exe"
         ExterneAnwendung.Start()
 
 
 
         If ExterneAnwendung.HasExited Then
  'Nichtmehr AKTIV
  zaeler = 1
  ExterneAnwendung.Kill()
Else
  'NOCH AKTIV
 
  zaeler = 2
 
End If
  If zaeler = 1 Then 
  	  	ExterneAnwendung.Start()
  	  	ExterneAnwendung.Kill()
  End If       
 
 
        Next i1
 
    End Sub
End Class
 
End Namespace