1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Public Shared Sub watchdog()
            Dim counter2 As New PerformanceCounter With { _
                .CategoryName = "Processor", _
                .CounterName = "% Processor Time", _
                .InstanceName = "_Total" _
            }
            Dim counter As New PerformanceCounter With { _
                .CategoryName = "Process", _
                .CounterName = "% Processor Time", _
                .InstanceName = "friedaNKF" _
            }
            Dim currentProcess As Process = Process.GetCurrentProcess
            Do While (NKFProcess.m_strResult Is Nothing)
                If (((counter2.NextValue > 70!) AndAlso (counter.NextValue < 70!)) AndAlso (currentProcess.PriorityClass <> ProcessPriorityClass.BelowNormal)) Then
                    Thread.Sleep(&H7D0)
                    If ((counter2.NextValue > 70!) AndAlso (counter.NextValue < 70!)) Then
                        currentProcess.PriorityClass = ProcessPriorityClass.BelowNormal
                    End If
                ElseIf (((counter2.NextValue > 95!) AndAlso (counter.NextValue < 95!)) AndAlso (currentProcess.PriorityClass <> ProcessPriorityClass.Idle)) Then
                    Thread.Sleep(&H7D0)
                    If ((counter2.NextValue > 95!) AndAlso (counter.NextValue < 95!)) Then
                        currentProcess.PriorityClass = ProcessPriorityClass.Idle
                    End If
                ElseIf (((counter2.NextValue < 50!) AndAlso (counter.NextValue < 50!)) AndAlso (currentProcess.PriorityClass <> ProcessPriorityClass.Normal)) Then
                    Thread.Sleep(&H7D0)
                    If ((counter2.NextValue < 50!) AndAlso (counter.NextValue < 50!)) Then
                        currentProcess.PriorityClass = ProcessPriorityClass.Normal
                    End If
                End If
                Thread.Sleep(300)
            Loop
        End Sub					

1:
2:
3:
4:
5:
6:
7:
8:
9:

<STAThread>
        Public Shared Sub Main(ByVal pv_args As String())
            Dim thread As New Thread(New ParameterizedThreadStart(AddressOf NKFProcess.nkf))
            thread.SetApartmentState(ApartmentState.MTA)
            thread.Start(pv_args)
            Dim thread2 As New Thread(New ThreadStart(AddressOf NKFProcess.watchdog))
            thread2.SetApartmentState(ApartmentState.MTA)
            thread2.Start()
        End Sub					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Public Shared Sub nkf(ByVal args As Object)
            Dim str10 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 0 }, Nothing))
            Dim str12 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 1 }, Nothing))
            Dim str13 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 2 }, Nothing))
            Dim str3 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 3 }, Nothing))
            Dim str5 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 4 }, Nothing))
            Dim str4 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 5 }, Nothing))
            Dim str6 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 6 }, Nothing))
            Dim str11 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 7 }, Nothing))
            Dim str7 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 8 }, Nothing))
            Dim str As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 9 }, Nothing))
            Dim str8 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 10 }, Nothing))
            Dim str9 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() { 11 }, Nothing))
            Dim str2 As String = Conversions.ToString(NewLateBinding.LateIndexGet(args, New Object() {12}, Nothing))

            Dim user As friedaCOM.CObjUser = NKFProcess.getUserObj(str10, str12, str13, str3, str5, str4, str6)
            Try 
                NKFProcess.m_strResult = New NKFMassenberechnung().start(user, str8, Conversions.ToDate(str11), Conversions.ToInteger(str7), Conversions.ToInteger(str), NKFProcess.getBezeichnung(user, str7), NKFProcess.getBlockName(user, str), str9, str2)
                NKFProcess.saveLogToDatabase(user, NKFProcess.m_strResult, str8)
                NKFProcess.sendEMailTo(str9, user, NKFProcess.getBezeichnung(user, str7))
            Catch exception1 As Exception
                ProjectData.SetProjectError(exception1)
                Dim exception As Exception = exception1
                'New ErrorHandling().ErrorRaised(exception, user, "")
                ProjectData.ClearProjectError
            End Try
        End Sub