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