IT Nothotline, allgemeine Verbesserungen

Dokumentation/App.config

@@ -1,5 +1,12 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
+    <configSections>
+    </configSections>
+    <connectionStrings>
+        <add name="Dokumentation.My.MySettings.DokuConnectionString"
+            connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True"
+            providerName="System.Data.SqlClient" />
+    </connectionStrings>
     <startup>
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
     </startup>

Dokumentation/Classes/Class1.vb

@@ -62,7 +62,7 @@ Public Class Class1
             Class1.DBConString = DBDokuTest '"Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
         Else
-            Class1.DBConString = DBDoku '"Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.DBConString = DBDoku '"Server=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
         End If
     End Function
@@ -722,7 +722,7 @@ Public Class Class1
 
             '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
             ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
-            txtbox.AutoCompleteCustomSource = tmp
+
 
             For Each dr As DataRow In ds.Tables(0).Rows
                 Try
@@ -733,6 +733,47 @@ Public Class Class1
                 'Items.Add(dr.Item(0))
             Next
 
+            txtbox.AutoCompleteCustomSource = tmp
+
+            con.Close()
+        Catch ex As Exception
+            MsgBox("Fehler Autocomplete: " & ex.Message)
+            con.Close()
+        End Try
+        con.Close()
+    End Function
+
+    Public Shared Function AutocompleteCombo(ByRef Combo As ComboBox, spalte As String, Tabelle As String, Optional ByVal ItemNr As Integer = 0)
+        Dim tmp As New AutoCompleteStringCollection
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        Try
+            con.Open()
+
+            Dim ds As New DataSet()
+            Dim dt As New DataTable()
+            Dim dataadapter As New SqlDataAdapter("SELECT Distinct " & spalte & " from " & Tabelle & "", con)
+            dataadapter.Fill(ds)
+
+            '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            Combo.AutoCompleteCustomSource = tmp
+
+            For Each dr As DataRow In ds.Tables(0).Rows
+                Try
+                    tmp.Add(dr.Item(ItemNr))
+                Catch
+                End Try
+
+                'Items.Add(dr.Item(0))
+            Next
+            Combo.DataSource = tmp
+            Combo.AutoCompleteMode = AutoCompleteMode.Suggest
+            Combo.AutoCompleteCustomSource = tmp
+
             con.Close()
         Catch ex As Exception
             MsgBox("Fehler Autocomplete: " & ex.Message)

Dokumentation/Classes/cPascom.vb

@@ -1,5 +1,7 @@
 Imports System.Reflection
 Imports Chilkat
+Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
+
 Public Class cPascom
 
     Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
@@ -95,29 +97,142 @@ Public Class cPascom
 
     End Function
 
-    'Public Function GetTelArbeitsplatz4Host() As Boolean
+    Public Function Weiterleitung(fromNr As String, toNr As String, Optional ByRef Target As String = "")
-    '    Try
+        Try
-    '        Dim lines = IO.File.ReadAllLines("\\dc01.verag.ost.dmn\NETLOGON\Telefonarbeitsplaetze.ini")
-    '        Dim colCount = lines.First.Split(";"c).Length
 
-    '        For Each line In lines
+            cChilkat_Helper.UnlockCilkat()
-    '            Dim objFields = From field In line.Split(";"c)
+            Dim API_STRING = "pbx3.flashnet.at"
+
+            Dim rest As New Chilkat.Rest
+            Dim success As Boolean
+
+            Dim bTls As Boolean = True
+            Dim port As Integer = 443
+            Dim bAutoReconnect As Boolean = True
 
 
-    '            If String.Compare(cRes.LocalUser.Hostname, objFields(0).ToString, True) = 0 Then
+            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
-    '                Arbeitsplatz = objFields(1).ToString
+            If (success <> True) Then
-    '                '_ConString = objFields(2).ToString
+                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
-    '                Return True
+                Debug.WriteLine(rest.LastErrorText)
-    '                Exit Function
+
-    '            End If
+                Return False
+            End If
+
+            rest.AddHeader("Content-Type", "application/json")
+            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+
+
+            Dim json As New Chilkat.JsonObject
+
+            Dim successJsonLoad As Boolean = json.Load(" 
+                        {""target"":""" & toNr & """}}")
+
+            If (successJsonLoad <> True) Then
+                MsgBox(json.LastErrorText)
+                Return False
+            End If
+
+
+            Dim sbRequestBody As New Chilkat.StringBuilder
+            json.EmitSb(sbRequestBody)
+
+            '   MsgBox(sbRequestBody.ToString)
+            Dim sbResponseBody As New Chilkat.StringBuilder
+            success = rest.FullRequestSb("POST", "/verag/services/redirect/" & fromNr, sbRequestBody, sbResponseBody)
+            If (success <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Return False
+            End If
+            Dim respStatusCode As Integer = rest.ResponseStatusCode
+
+            If (respStatusCode <> 200) Then
+
+                '   MsgBox(sbResponseBody.GetAsString())
+
+                Return False
+            End If
+
+
+            Dim jsonResp = New Chilkat.JsonObject()
+            jsonResp.LoadSb(sbResponseBody)
+
+            Dim gatewayId = jsonResp.StringOf("gatewayId")
+            Dim Resp_error = jsonResp.StringOf("error")
+            Dim Resp_errorCode = jsonResp.StringOf("errorCode")
+            Target = jsonResp.StringOf("target")
+
+            '   MsgBox("Hier!!!")
+
+
+            Return True
+
+
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return False
+        End Try
+        Return True
+
+    End Function
+
+    Function getredirect(ByRef target As String) As String
+        Try
+
+            cChilkat_Helper.UnlockCilkat()
+            Dim API_STRING = "pbx3.flashnet.at"
+
+            Dim rest As New Chilkat.Rest
+            Dim success As Boolean
+
+            Dim bTls As Boolean = True
+            Dim port As Integer = 443
+            Dim bAutoReconnect As Boolean = True
+
+
+            success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
+            If (success <> True) Then
+                Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
+                Debug.WriteLine(rest.LastErrorText)
+
+                Return False
+            End If
+
+            rest.AddHeader("Content-Type", "application/json")
+            rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
+
+
+            Dim json As New Chilkat.JsonObject
+
+
+            Dim sbRequestBody As New Chilkat.StringBuilder
+            json.EmitSb(sbRequestBody)
+
+            '   MsgBox(sbRequestBody.ToString)
+            Dim sbResponseBody As New Chilkat.StringBuilder
+            success = rest.FullRequestNoBodySb("GET", "/verag/services/redirect/", sbResponseBody)
+            If (success <> True) Then
+                Debug.WriteLine(rest.LastErrorText)
+                Return False
+            End If
+            Dim respStatusCode As Integer = rest.ResponseStatusCode
+
+            If (respStatusCode <> 200) Then
+                Return False
+            End If
+
+            Return sbResponseBody.GetAfterBetween(target, ":", ",")
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return False
+        End Try
+        Return True
+    End Function
+
 
-    '            ' End Select
-    '        Next
-    '        Return False
-    '    Catch ex As Exception
-    '        '  MsgBox("Fehler beim Lesen TSAnmeldung.ini: " & vbCrLf & ex.Message)
-    '    End Try
-    'End Function
 
 
 End Class

Dokumentation/DokuDataSet.xsc

@@ -0,0 +1 @@
+

Dokumentation/DokuDataSet.xsd

@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xs:schema id="DokuDataSet" targetNamespace="http://tempuri.org/DokuDataSet.xsd" xmlns:mstns="http://tempuri.org/DokuDataSet.xsd" xmlns="http://tempuri.org/DokuDataSet.xsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:msprop="urn:schemas-microsoft-com:xml-msprop" attributeFormDefault="qualified" elementFormDefault="qualified">
+  <xs:annotation>
+    <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
+      <DataSource DefaultConnectionIndex="0" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+        <Connections>
+          <Connection AppSettingsObjectName="MySettings" AppSettingsPropertyName="DokuConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="DokuConnectionString (MySettings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.Dokumentation.My.MySettings.GlobalReference.Default.DokuConnectionString" Provider="System.Data.SqlClient" />
+        </Connections>
+        <Tables>
+          <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TbL_NotfallKontakteTableAdapter" GeneratorDataComponentClassName="TbL_NotfallKontakteTableAdapter" Name="TbL_NotfallKontakte" UserDataComponentName="TbL_NotfallKontakteTableAdapter">
+            <MainSource>
+              <DbSource ConnectionRef="DokuConnectionString (MySettings)" DbObjectName="Doku.dbo.TbL_NotfallKontakte" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
+                <SelectCommand>
+                  <DbCommand CommandType="Text" ModifiedByUser="false">
+                    <CommandText>SELECT Name FROM dbo.TbL_NotfallKontakte</CommandText>
+                    <Parameters />
+                  </DbCommand>
+                </SelectCommand>
+              </DbSource>
+            </MainSource>
+            <Mappings>
+              <Mapping SourceColumn="Name" DataSetColumn="Name" />
+            </Mappings>
+            <Sources />
+          </TableAdapter>
+        </Tables>
+        <Sources />
+      </DataSource>
+    </xs:appinfo>
+  </xs:annotation>
+  <xs:element name="DokuDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_UserDSName="DokuDataSet" msprop:Generator_DataSetName="DokuDataSet">
+    <xs:complexType>
+      <xs:choice minOccurs="0" maxOccurs="unbounded">
+        <xs:element name="TbL_NotfallKontakte" msprop:Generator_RowEvHandlerName="TbL_NotfallKontakteRowChangeEventHandler" msprop:Generator_RowDeletedName="TbL_NotfallKontakteRowDeleted" msprop:Generator_RowDeletingName="TbL_NotfallKontakteRowDeleting" msprop:Generator_RowEvArgName="TbL_NotfallKontakteRowChangeEvent" msprop:Generator_TablePropName="TbL_NotfallKontakte" msprop:Generator_RowChangedName="TbL_NotfallKontakteRowChanged" msprop:Generator_RowChangingName="TbL_NotfallKontakteRowChanging" msprop:Generator_TableClassName="TbL_NotfallKontakteDataTable" msprop:Generator_RowClassName="TbL_NotfallKontakteRow" msprop:Generator_TableVarName="tableTbL_NotfallKontakte" msprop:Generator_UserTableName="TbL_NotfallKontakte">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="Name" msprop:Generator_ColumnPropNameInRow="Name" msprop:Generator_ColumnPropNameInTable="NameColumn" msprop:Generator_ColumnVarNameInTable="columnName" msprop:Generator_UserColumnName="Name">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="50" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+      </xs:choice>
+    </xs:complexType>
+  </xs:element>
+</xs:schema>

Dokumentation/DokuDataSet.xss

@@ -0,0 +1 @@
+

Dokumentation/Dokumentation.vbproj

@@ -258,6 +258,11 @@
     <Compile Include="Classes\cNetzwerk.vb" />
     <Compile Include="Classes\cTSUser.vb" />
     <Compile Include="Classes\cPascom.vb" />
+    <Compile Include="DokuDataSet.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </Compile>
     <Compile Include="Drucken\frmColumnsPrint.Designer.vb">
       <DependentUpon>frmColumnsPrint.vb</DependentUpon>
     </Compile>
@@ -318,6 +323,12 @@
     <Compile Include="uscntr_MessageUser.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="uscntr_Notruf.Designer.vb">
+      <DependentUpon>uscntr_Notruf.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_Notruf.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="uscntr_TSSitzungen.Designer.vb">
       <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
     </Compile>
@@ -532,6 +543,9 @@
     <EmbeddedResource Include="uscntr_MessageUser.resx">
       <DependentUpon>uscntr_MessageUser.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_Notruf.resx">
+      <DependentUpon>uscntr_Notruf.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="uscntr_TSSitzungen.resx">
       <DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
     </EmbeddedResource>
@@ -609,6 +623,17 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="DokuDataSet.xsc">
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </None>
+    <None Include="DokuDataSet.xsd">
+      <Generator>MSDataSetGenerator</Generator>
+      <LastGenOutput>DokuDataSet.Designer.vb</LastGenOutput>
+      <SubType>Designer</SubType>
+    </None>
+    <None Include="DokuDataSet.xss">
+      <DependentUpon>DokuDataSet.xsd</DependentUpon>
+    </None>
     <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>

Dokumentation/Main.Designer.vb

@@ -95,6 +95,7 @@ Partial Class Main
         Me.IPAdresseInZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.TeamviewerVerbindenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.RDPToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RDPFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.ObjektLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
@@ -116,7 +117,6 @@ Partial Class Main
         Me.panTSSitzungen = New System.Windows.Forms.Panel()
         Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
-        Me.RDPFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -216,13 +216,13 @@ Partial Class Main
         Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.excel20
+        Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.del
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.Location = New System.Drawing.Point(161, 5)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(151, 28)
         Me.Button1.TabIndex = 43
-        Me.Button1.Text = "Telefonliste"
+        Me.Button1.Text = "IT Notruf"
         Me.Button1.UseVisualStyleBackColor = False
         '
         'ContextMenuStrip1
@@ -257,7 +257,7 @@ Partial Class Main
         Me.LblDEBUGMODE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.LblDEBUGMODE.Location = New System.Drawing.Point(7, 33)
         Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
-        Me.LblDEBUGMODE.Size = New System.Drawing.Size(113, 16)
+        Me.LblDEBUGMODE.Size = New System.Drawing.Size(115, 16)
         Me.LblDEBUGMODE.TabIndex = 13
         Me.LblDEBUGMODE.Text = "LblDebugmode"
         Me.LblDEBUGMODE.Visible = False
@@ -797,7 +797,7 @@ Partial Class Main
         '
         Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
         Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(230, 280)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
         '
         'DgvMainContextMenuItemHost
         '
@@ -841,6 +841,12 @@ Partial Class Main
         Me.RDPToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
         Me.RDPToolStripMenuItem.Text = "RDP Vollbild"
         '
+        'RDPFensterToolStripMenuItem
+        '
+        Me.RDPFensterToolStripMenuItem.Name = "RDPFensterToolStripMenuItem"
+        Me.RDPFensterToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.RDPFensterToolStripMenuItem.Text = "RDP Fenster"
+        '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
@@ -991,12 +997,6 @@ Partial Class Main
         'Timer1
         '
         '
-        'RDPFensterToolStripMenuItem
-        '
-        Me.RDPFensterToolStripMenuItem.Name = "RDPFensterToolStripMenuItem"
-        Me.RDPFensterToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
-        Me.RDPFensterToolStripMenuItem.Text = "RDP Fenster"
-        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Dokumentation/Main.resx

@@ -304,9 +304,6 @@
   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1067, 17</value>
   </metadata>
-  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>48</value>
-  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA

Dokumentation/Main.vb

@@ -3,6 +3,7 @@ Imports System.IO
 Imports System.Threading
 Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
+Imports System.Web.UI.WebControls
 
 Public Class Main
     Public con As New SqlConnection
@@ -653,18 +654,8 @@ Public Class Main
         DeleteGastWLANUser("ABABAB")
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim i As Integer = 0
+        Dim pascom As New cPascom
-        Dim c As String
+        pascom.Weiterleitung("555", "199")
-        ' For meh As Integer = 0 To 1
-        Dim a, b As String
-            a = UsernamePasswordGenerator("u")
-            b = UsernamePasswordGenerator("p")
-            c &= a & " - " & b & vbCrLf
-            AddGastWLANUser(a, b)
-        'Next
-
-        WriteToFile(Application.StartupPath & "\WLAN.txt", c)
-        'MsgBox(a & vbCrLf & b)
     End Sub
 
     Public Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
@@ -1510,9 +1501,18 @@ exit"
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
+        Dim frm As New frmLeer
-        'MsgBox(DS.da_id)
+        frm.Text = "Notruf"
-        DS.OPEN_SINGLE()
+        Dim usrcntrl As New uscntr_Notruf
+
+
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
     End Sub
 
     Public Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click

Dokumentation/My Project/Resources.Designer.vb

@@ -289,7 +289,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.83 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.84 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My Project/Resources.resx

@@ -155,7 +155,7 @@
     <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>0.0.1.83</value>
+    <value>0.0.1.84</value>
   </data>
   <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

Dokumentation/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -53,6 +53,17 @@ Namespace My
                 Return defaultInstance
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=Tru"& _ 
+            "e")>  _
+        Public ReadOnly Property DokuConnectionString() As String
+            Get
+                Return CType(Me("DokuConnectionString"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

Dokumentation/My Project/Settings.settings

@@ -1,7 +1,14 @@
 <?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
-  <Profiles>
+  <Profiles />
-    <Profile Name="(Default)" />
+  <Settings>
-  </Profiles>
+    <Setting Name="DokuConnectionString" Type="(Connection string)" Scope="Application">
-  <Settings />
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
+  &lt;ConnectionString&gt;Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True&lt;/ConnectionString&gt;
+  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True</Value>
+    </Setting>
+  </Settings>
 </SettingsFile>

Dokumentation/frmHostBearbeiten.Designer.vb

@@ -60,6 +60,7 @@ Partial Class frmHostBearbeiten
         Me.TxtLink = New System.Windows.Forms.TextBox()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.MitHTTPFüllenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MitHTTPSFuellen = New System.Windows.Forms.ToolStripMenuItem()
         Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FFPortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CmdIPUp = New System.Windows.Forms.Button()
@@ -91,7 +92,6 @@ Partial Class frmHostBearbeiten
         Me.PanFirewall = New System.Windows.Forms.Panel()
         Me.PanSlaves = New System.Windows.Forms.Panel()
         Me.PanNavTop = New System.Windows.Forms.Panel()
-        Me.MitHTTPSFuellen = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -423,24 +423,30 @@ Partial Class frmHostBearbeiten
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.MitHTTPSFuellen, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 114)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(163, 92)
         '
         'MitHTTPFüllenToolStripMenuItem
         '
         Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem"
-        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
         Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen"
         '
+        'MitHTTPSFuellen
+        '
+        Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
+        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(162, 22)
+        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
+        '
         'KopierenToolStripMenuItem
         '
         Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem"
-        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
         Me.KopierenToolStripMenuItem.Text = "Kopieren"
         '
         'FFPortToolStripMenuItem
         '
         Me.FFPortToolStripMenuItem.Name = "FFPortToolStripMenuItem"
-        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
         Me.FFPortToolStripMenuItem.Text = "FF Port"
         Me.FFPortToolStripMenuItem.Visible = False
         '
@@ -792,12 +798,6 @@ Partial Class frmHostBearbeiten
         Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
         Me.PanNavTop.TabIndex = 141
         '
-        'MitHTTPSFuellen
-        '
-        Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
-        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(180, 22)
-        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
-        '
         'frmHostBearbeiten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

Dokumentation/frmHostBearbeiten.vb

@@ -403,4 +403,6 @@
     Private Sub MitHTTPSFuellen_Click(sender As Object, e As EventArgs) Handles MitHTTPSFuellen.Click
         TxtLink.Text = "https://" & TxtIP.Text & "/"
     End Sub
+
+
 End Class

Dokumentation/uscntr_Notruf.Designer.vb

@@ -0,0 +1,187 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_Notruf
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.DokuDataSet = New Dokumentation.DokuDataSet()
+        Me.TbLNotfallKontakteBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TbL_NotfallKontakteTableAdapter = New Dokumentation.DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter()
+        Me.TbLNotfallKontakteBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Location = New System.Drawing.Point(172, 57)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton1.TabIndex = 9
+        Me.FlatButton1.Text = "Weiterleitung setzen"
+        Me.FlatButton1.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(77, 25)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(89, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Eingestelltes Ziel:"
+        '
+        'DokuDataSet
+        '
+        Me.DokuDataSet.DataSetName = "DokuDataSet"
+        Me.DokuDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TbLNotfallKontakteBindingSource
+        '
+        Me.TbLNotfallKontakteBindingSource.DataMember = "TbL_NotfallKontakte"
+        Me.TbLNotfallKontakteBindingSource.DataSource = Me.DokuDataSet
+        '
+        'TbL_NotfallKontakteTableAdapter
+        '
+        Me.TbL_NotfallKontakteTableAdapter.ClearBeforeFill = True
+        '
+        'TbLNotfallKontakteBindingSource1
+        '
+        Me.TbLNotfallKontakteBindingSource1.DataMember = "TbL_NotfallKontakte"
+        Me.TbLNotfallKontakteBindingSource1.DataSource = Me.DokuDataSet
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(35, 58)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
+        Me.ComboBox1.TabIndex = 10
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(172, 25)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(39, 13)
+        Me.Label3.TabIndex = 11
+        Me.Label3.Text = "Label3"
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Location = New System.Drawing.Point(172, 95)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton2.TabIndex = 12
+        Me.FlatButton2.Text = "Weiterleitung starten"
+        Me.FlatButton2.UseVisualStyleBackColor = False
+        '
+        'FlatButton3
+        '
+        Me.FlatButton3.allowBorder = False
+        Me.FlatButton3.BackColor = System.Drawing.SystemColors.AppWorkspace
+        Me.FlatButton3.FlatAppearance.BorderSize = 0
+        Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton3.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton3.Location = New System.Drawing.Point(172, 124)
+        Me.FlatButton3.Name = "FlatButton3"
+        Me.FlatButton3.Size = New System.Drawing.Size(127, 23)
+        Me.FlatButton3.TabIndex = 13
+        Me.FlatButton3.Text = "Weiterleitung beenden"
+        Me.FlatButton3.UseVisualStyleBackColor = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(172, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(39, 13)
+        Me.Label1.TabIndex = 15
+        Me.Label1.Text = "Label1"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(93, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(73, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Akutelles Ziel:"
+        '
+        'uscntr_Notruf
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.FlatButton3)
+        Me.Controls.Add(Me.FlatButton2)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.FlatButton1)
+        Me.Controls.Add(Me.Label2)
+        Me.MinimumSize = New System.Drawing.Size(320, 162)
+        Me.Name = "uscntr_Notruf"
+        Me.Size = New System.Drawing.Size(320, 162)
+        CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TbLNotfallKontakteBindingSource As BindingSource
+    Friend WithEvents DokuDataSet As DokuDataSet
+    Friend WithEvents TbL_NotfallKontakteTableAdapter As DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter
+    Friend WithEvents TbLNotfallKontakteBindingSource1 As BindingSource
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label4 As Label
+End Class

Dokumentation/uscntr_Notruf.resx

@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="DokuDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TbLNotfallKontakteBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>140, 17</value>
+  </metadata>
+  <metadata name="TbL_NotfallKontakteTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>375, 17</value>
+  </metadata>
+  <metadata name="TbLNotfallKontakteBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>610, 17</value>
+  </metadata>
+</root>

Dokumentation/uscntr_Notruf.vb

@@ -0,0 +1,55 @@
+Public Class uscntr_Notruf
+
+    Dim ds As New DataSet
+    Dim WeiterleitungsZiel As String = ""
+    Dim aktuellesWeiterleitungsziel As String = ""
+
+    Private Sub uscntr_Notruf_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        refreshDisplay() : refreshds()
+        Class1.AutocompleteCombo(ComboBox1, "Name", "TbL_NotfallKontakte")
+
+    End Sub
+
+    Function refreshds()
+        cSQL.SQL2DS("select name, Telefonnummer,notruf from TbL_NotfallKontakte", ds)
+    End Function
+
+    Function refreshDisplay()
+        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
+            Label3.Text = tmp.Tables(0).Rows(0).Item(0).ToString
+            WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
+        End If
+        Dim pascom As New cPascom
+        aktuellesWeiterleitungsziel = pascom.getredirect("555")
+        Label1.Text = aktuellesWeiterleitungsziel
+    End Function
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 0", "Notruf = 1")
+        cSQL.UpdateSQL("TbL_NotfallKontakte", "Notruf = 1", "name = " & "'" & ComboBox1.SelectedValue & "'")
+        refreshDisplay()
+        refreshds()
+
+
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
+        refreshDisplay()
+
+    End Sub
+
+    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
+        Dim pascom As New cPascom
+        pascom.Weiterleitung("555", "199", aktuellesWeiterleitungsziel)
+        refreshDisplay()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        refreshDisplay()
+
+    End Sub
+End Class