Notfall Telefon Umleitungen, Service für automatische Umleitung, ...

DokuServices/Form1.vb

@@ -0,0 +1,55 @@
+Imports System.Reflection.Emit
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
+Imports Dokumentation
+
+Public Class Form1
+
+    Dim aktiv As Boolean = False
+    Dim WeiterleitungsZiel As String = ""
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Class1.CheckDebug()
+        If getNotrufservice() = True Then
+            getWeiterleitungsziel()
+
+            Dim i As Integer
+            For Each s As String In Environment.GetCommandLineArgs
+                ' If i > 0 Then
+                If s = "/d" Or s = "-d" Then
+                    Dim pascom As New cPascom
+                    pascom.Weiterleitung("555", "199")
+                    Label1.Text = "Rufumleitung deaktiviert"
+                ElseIf s = "/e" Or s = "-e" Then
+                    Dim pascom As New cPascom
+                    pascom.Weiterleitung("555", WeiterleitungsZiel)
+                    Label1.Text = "Rufumleitung aktiviert: " & WeiterleitungsZiel
+                Else
+
+                End If
+                ' End If
+                i += 1
+            Next
+        Else
+            Label1.Text = "Automatische Rufumleitung nicht gesetzt"
+        End If
+
+        Timer1.Enabled = True
+    End Sub
+
+    Private Function getWeiterleitungsziel()
+        Dim tmp As New DataSet
+        cSQL.SQL2DS("select name, Telefonnummer from TbL_NotfallKontakte where Notruf = 1", tmp)
+        If tmp.Tables(0).Rows.Count > 0 Then
+            WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
+        End If
+    End Function
+
+    Private Function getNotrufservice() As Boolean
+        Dim tmp2 As New DataSet
+        cSQL.SQL2DS("select Aktiv from TbL_Dienste where Name = 'IT_Notruf_Auto'", tmp2)
+        Return tmp2.Tables(0).Rows(0).Item(0)
+    End Function
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Me.Close()
+    End Sub
+End Class