Dim Sekunden As Long
Dim Minuten As Long
Dim Run As Boolean
Dim RenderServer As Double
 
Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
 
Private Declare Function WaitForSingleObject Lib _
  "kernel32" (ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
 
Private Const SYNCHRONIZE = &H100000
 
Const Datei = "K:\RenderServerStart.ini"
Const M = 1
Private Sub Form_Load()
    Me.Show
    Run = False
    Sekunden = 0
    Timer.Interval = 100
    Minuten = M
End Sub
 
Private Sub Timer_Timer()
    Me.Caption = Sekunden & " " & Run
    Sekunden = Sekunden + 1
    If Sekunden >= 60 * Minuten Then
        Sekunden = 0
        If Run = False Then
            If Dir(Datei) <> "" Then
                'Starten
                Open Datei For Input As #1
                    Dim Text As String, T As String
                    Do While Not EOF(1)
                        Line Input #1, T
                        Text = Text & vbCrLf & T
                    Loop
                Close #1
                If MsgBox(Text, vbYesNo) = vbYes Then
                    Run = True
                    Minuten = M
                    'RenderServer = Shell("D:\3dsmax42\ServerApp.exe", 
                    ' vbMinimizedNoFocus)
                    RenderServer = Shell("C:\WINNT\explorer.exe", _
                      vbMinimizedNoFocus)
                Else
                    Minuten = 2
                End If
            End If
        Else
            If Dir(Datei) = "" Then
                'stoppen
                Run = False
                Dim lHandle As Long
                lHandle = OpenProcess(SYNCHRONIZE, 0, RenderServer)
                Debug.Print CloseHandle(lHandle)
            End If
        End If
    End If
End Sub