56 lines
1.8 KiB
VB.net
56 lines
1.8 KiB
VB.net
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
|
|
|
|
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
|