123

Dokumentation/Administration/NWEdit.vb

@@ -104,6 +104,7 @@ Public Class NWEdit
     End Sub
 
     Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
+        Me.Cursor = Cursors.WaitCursor
         NWAddressGenerieren()
         If Neu = False Then
             Try
@@ -128,6 +129,7 @@ Public Class NWEdit
             MsgBox(ex.Message)
         End Try
         con.Close()
+        Me.Cursor = Cursors.Default
     End Sub
 
 

Dokumentation/Classes/Class1.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports System.Reflection
 
 Public Class Class1
 
@@ -11,7 +12,12 @@ Public Class Class1
     Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
     Public Shared Absender As String = "Absender Standard"
 
-
+    Public Shared Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
+        Dim dgvType As Type = dgv.[GetType]()
+        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
+                                                     BindingFlags.Instance Or BindingFlags.NonPublic)
+        pi.SetValue(dgv, True, Nothing)
+    End Sub
 
 
 
@@ -166,6 +172,16 @@ Public Class Class1
         End Try
     End Function
 
+    Public Shared Function ip2ipnet(ip As String)
+        Dim lastbutnotleast As String = "."
+
+        Do
+            ip = ip.Remove((ip.Length - 1), 1)
+        Loop Until ip.EndsWith(".")
+
+        Return ip
+    End Function
+
     Public Shared Function netmaskseperator(nm As String, ByRef a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As Integer, ByRef nwbits As Integer, ByRef hostbits As Integer)
         Dim bitstring As String
         Try
@@ -319,6 +335,18 @@ Public Class Class1
         IPShort = NWAddress
     End Function
 
+    Public Shared Function getStartEndHost(ByVal ip As String, ByRef starthost As Integer, ByRef endhost As Integer)
+        Dim Standort, Name, subnetmask As String
+        Dim nwbits As Integer
+        Dim nwad As String = IP2ShortNW(ip)
+        NetzwerkadresseInfo(nwad, Standort, Name, subnetmask)
+        mask2nwbit(subnetmask, nwbits)
+        Dim Hostbits As Integer = 32 - nwbits
+        Dim AnzahlHosts As Integer = (2 ^ Hostbits) - 2
+        starthost = IP2Host(nwad) + 1
+        endhost = starthost + (AnzahlHosts - 1)
+    End Function
+
     Public Shared Function Netzwerkfuellen(NWAdresse As String, NWBits As Integer, Netname As String, NWStandort As String)
         Dim con As New SqlConnection
         Dim cmd As New SqlCommand
@@ -598,8 +626,8 @@ Public Class Class1
             Dim dataadapter As New SqlDataAdapter("SELECT Distinct " & spalte & " from " & Tabelle & "", con)
             dataadapter.Fill(ds)
 
-            txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
-            txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
+            '  txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+            ' txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
             txtbox.AutoCompleteCustomSource = tmp
 
             For Each dr As DataRow In ds.Tables(0).Rows
@@ -665,4 +693,42 @@ Public Class Class1
 
     End Function
 
+    Public Shared Function IsLinked(ByVal IPAdresse As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        Dim reader As SqlDataReader
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+        Dim Linked As String
+
+
+        con.Open()
+        cmd.CommandText = "SELECT Linked FROM TbL_Netzwerkclients WHERE IPAdresse = '" & IPAdresse & "' "
+        reader = cmd.ExecuteReader()
+        Do While reader.Read
+            Linked = ReadNullAsEmptyString(reader, "Linked")
+            'Type = ReadNullAsEmptyString(reader, "Type")
+        Loop
+        con.Close()
+        Return Linked
+    End Function
+
+    Public Shared Function DBNull2emptyString(totest As Object)
+
+        If IsDBNull(totest) Then
+            Return ""
+        Else
+            Return totest
+        End If
+
+    End Function
+
+    Public Shared Function OrderDataTableby(dt As DataTable, orderby As String)
+        Dim dv As New DataView(dt)
+
+        dv.Sort = orderby
+        Dim returnTable As DataTable = dv.ToTable
+        'returnTable = dv.Table
+        Return returnTable
+    End Function
 End Class

Dokumentation/Classes/DHCP.vb

@@ -74,10 +74,16 @@ Public Class DHCP
     Public Shared Sub ListSubnetClients(DHCP_Server As String, Scope As String, ByRef DHCP_Clients() As DHCP_CLIENT_INFO)
 
         'Dim Client_Array As DHCP_CLIENT_INFO_ARRAY
-        'Dim DHCP_Clients() As DHCP_CLIENT_INFO
+        ' Dim DHCP_Clients() As DHCP_CLIENT_INFO
 
         ' Why would you use int16 for a loop counter and for a pointer offset ?
 
+        'If My.Computer.Network.Ping(DHCP_Server) Then
+        'Else
+        '    MsgBox("DHCP Server nicht erreichbar")
+        '    Exit Sub
+        'End If
+
         Dim i, j As Int16
 
 

Dokumentation/Classes/Ext_Programme.vb

@@ -0,0 +1,53 @@
+Public Class Ext_Programme
+
+    Public Shared Function startlink(URL As String)
+
+        Try
+            If URL.Contains("http") Or URL.Contains("https") Then
+                Process.Start(URL)
+            ElseIf URL = "" Then
+                Exit Function
+            Else
+                Dim mstsc As New Process
+                mstsc.StartInfo.FileName = "mstsc.exe"
+                mstsc.StartInfo.Arguments = " /v: " & URL
+                mstsc.Start()
+
+            End If
+
+            ' Process.Start("mstsc.exe", "/v: dc01")
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+
+        End Try
+
+    End Function
+
+
+    Public Shared Function startputty(IP As String)
+        Dim Benutzer, Passwort As String
+        Class1.GetUserPasswort(IP, Benutzer, Passwort)
+        Try
+            Dim putty As New Process
+            putty.StartInfo.FileName = "putty.exe"
+            If Benutzer = "" And Passwort = "" Then
+                putty.StartInfo.Arguments = IP
+            Else
+                putty.StartInfo.Arguments = IP & " -l " & Benutzer & " -pw " & Passwort
+            End If
+            putty.Start()
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+
+        End Try
+    End Function
+
+    Public Shared Function pingip(ip As String)
+        Dim ping As New Process
+        ping.StartInfo.FileName = "cmd.exe"
+        ping.StartInfo.Arguments = " /k ping " & ip
+        ping.Start()
+    End Function
+
+End Class

Dokumentation/Classes/FirewallEntry.vb

@@ -0,0 +1,102 @@
+Imports System.Data.SqlClient
+
+Public Class FirewallEntry
+    Property fwr_ID As String = ""
+    Property fwr_hostip As String = ""
+    Property fwr_in As String = ""
+    Property fwr_out As String = ""
+    Property fwr_portsin As String = ""
+    Property fwr_portsout As String = ""
+    Property fwr_dienste As String = ""
+    Property fwr_FQDN As String = ""
+    Property fwr_info As String = ""
+    Property fwr_direct As Boolean = False
+
+
+
+    Function getparameterlist() As List(Of SQLVariable)
+        Dim list As New List(Of SQLVariable)
+        list.Add(New SQLVariable("fwr_ID", fwr_ID))
+        list.Add(New SQLVariable("fwr_hostip", fwr_hostip))
+        list.Add(New SQLVariable("fwr_in", fwr_in))
+        list.Add(New SQLVariable("fwr_out", fwr_out))
+        list.Add(New SQLVariable("fwr_portsin", fwr_portsin))
+        list.Add(New SQLVariable("fwr_portsout", fwr_portsout))
+        list.Add(New SQLVariable("fwr_dienste", fwr_dienste))
+        list.Add(New SQLVariable("fwr_FQDN", fwr_FQDN))
+        list.Add(New SQLVariable("fwr_info", fwr_info))
+        list.Add(New SQLVariable("fwr_direct", fwr_direct))
+        Return list
+
+    End Function
+
+
+    Public Shared Function getFirewallEntrys(ByRef ds As DataSet, ByVal HostIP As String)
+        Dim selector As String = "Select 
+        [fwr_ID]      
+        ,[fwr_in]
+        ,[fwr_out]
+        ,[fwr_portsin]
+        ,[fwr_portsout]
+                ,[fwr_dienste]
+        ,[fwr_FQDN]
+        ,[fwr_info]
+        , case when [fwr_direct] is null then '0'
+        else [fwr_direct] end as [fwr_direct]
+  From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
+ORDER BY [fwr_in]"
+
+        SQL.SQL2DS(selector, ds)
+
+    End Function
+
+    Public Function getUpdateCmd(ByRef update As String, ByRef where As String)
+
+        Dim list As List(Of SQLVariable) = getparameterlist()
+        'Dim str As String
+
+        For Each i In list
+            If Not i.SQLText = "fwr_ID" Then
+                update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
+            Else
+                where &= "fwr_ID = '" & i.SQLValue & "'"
+            End If
+        Next
+        update = update.Substring(0, update.Length - 1) 'wg. ','
+        ' Return str
+
+    End Function
+
+    Public Function getInsertCmd(ByRef insert As String)
+
+        Dim list As List(Of SQLVariable) = getparameterlist()
+        Dim text, value As String
+
+        For Each i In list
+            text &= i.SQLText & ", "
+            value &= "'" & i.SQLValue & "', "
+        Next
+        text = text.Substring(0, text.Length - 2)
+        value = value.Substring(0, value.Length - 2)
+
+        insert = "(" & text & ") VALUES (" & value & ")"
+
+    End Function
+
+    Public Function insertFirewallEntry(ByRef entry As FirewallEntry)
+        Dim insert As String
+        getInsertCmd(insert)
+        SQL.InsertSQL("TbL_FirewallRules", insert)
+    End Function
+
+    Public Function updateFirewallEntry(ByRef entry As FirewallEntry)
+        Dim update, where As String
+        getUpdateCmd(update, where)
+        SQL.UpdateSQL("TbL_FirewallRules", update, where)
+        'MsgBox(update & where)
+
+    End Function
+
+
+
+End Class

Dokumentation/Classes/Host.vb

@@ -0,0 +1,310 @@
+Imports System.Reflection
+
+Public Class Host
+    Property FQDN As String = ""
+    Property QINFO As String = ""
+    Property IPAdresse As String = ""
+    Property NETNAME As String = ""
+    Property Seriennummer As String = ""
+    Property MAC As String = ""
+    Property Benutzer As String = ""
+    Property Passwort As String = ""
+    Property LINK As String = ""
+    Property INFO As String = ""
+    Property TYPE As String = ""
+    Property HOST As Object = Nothing
+    Property NWSTANDORT As String = ""
+    Property Modell As String = ""
+    Property Linked As Object = Nothing
+    Property LinkedWith As String = ""
+    Property AddIP As String = ""
+    Property Standort As String = ""
+    Property DHCP As String = ""
+    Property Netzwerk As String = ""
+    Property Firewall As Boolean = False
+
+
+
+
+    Function getparameterlistMaster() As List(Of SQLVariable)
+        Dim list As New List(Of SQLVariable)
+        list.Add(New SQLVariable("FQDN", FQDN))
+        list.Add(New SQLVariable("QINFO", QINFO))
+        list.Add(New SQLVariable("IPAdresse", IPAdresse))
+        list.Add(New SQLVariable("NETNAME", NETNAME))
+        list.Add(New SQLVariable("Seriennummer", Seriennummer))
+        list.Add(New SQLVariable("MAC", MAC))
+        list.Add(New SQLVariable("Benutzer", Benutzer))
+        list.Add(New SQLVariable("Passwort", Passwort))
+        list.Add(New SQLVariable("Link", LINK))
+        list.Add(New SQLVariable("INFO", INFO))
+        list.Add(New SQLVariable("TYPE", TYPE))
+        list.Add(New SQLVariable("HOST", HOST))
+        list.Add(New SQLVariable("NWSTANDORT", NWSTANDORT))
+        list.Add(New SQLVariable("Modell", Modell))
+        list.Add(New SQLVariable("Linked", Linked))
+        list.Add(New SQLVariable("LinkedWith", LinkedWith))
+        list.Add(New SQLVariable("AddIP", AddIP))
+        list.Add(New SQLVariable("Standort", Standort))
+        list.Add(New SQLVariable("DHCP", DHCP))
+        list.Add(New SQLVariable("Netzwerk", Netzwerk))
+        list.Add(New SQLVariable("Firewall", Firewall))
+        Return list
+
+    End Function
+
+    Function getparameterlistSlave() As List(Of SQLVariable)
+        Dim list As New List(Of SQLVariable)
+        list.Add(New SQLVariable("FQDN", FQDN))
+        list.Add(New SQLVariable("QINFO", QINFO))
+        list.Add(New SQLVariable("IPAdresse", IPAdresse))
+        'list.Add(New SQLVariable("NETNAME", NETNAME))
+        list.Add(New SQLVariable("Seriennummer", Seriennummer))
+        list.Add(New SQLVariable("MAC", MAC))
+        list.Add(New SQLVariable("Benutzer", Benutzer))
+        list.Add(New SQLVariable("Passwort", Passwort))
+        list.Add(New SQLVariable("Link", LINK))
+        list.Add(New SQLVariable("INFO", INFO))
+        list.Add(New SQLVariable("TYPE", TYPE))
+        'list.Add(New SQLVariable("HOST", HOST))
+        'list.Add(New SQLVariable("NWSTANDORT", NWSTANDORT))
+        list.Add(New SQLVariable("Modell", Modell))
+        'list.Add(New SQLVariable("Linked", Linked))
+        list.Add(New SQLVariable("LinkedWith", LinkedWith))
+        list.Add(New SQLVariable("AddIP", AddIP))
+        list.Add(New SQLVariable("Standort", Standort))
+        list.Add(New SQLVariable("DHCP", DHCP))
+        'list.Add(New SQLVariable("Netzwerk", Netzwerk))
+        list.Add(New SQLVariable("Firewall", Firewall))
+        Return list
+
+    End Function
+
+    Function clear()
+        Me.FQDN = ""
+        Me.QINFO = ""
+        Me.IPAdresse = ""
+        Me.NETNAME = ""
+        Me.Seriennummer = ""
+        Me.MAC = ""
+        Me.Benutzer = ""
+        Me.Passwort = ""
+        Me.LINK = ""
+        Me.INFO = ""
+        Me.TYPE = ""
+        Me.HOST = Nothing
+        Me.NWSTANDORT = ""
+        Me.Modell = ""
+        Me.Linked = Nothing
+        Me.LinkedWith = ""
+        Me.AddIP = ""
+        Me.Standort = ""
+        Me.DHCP = ""
+        Me.Netzwerk = ""
+        Me.Firewall = False
+    End Function
+
+    Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
+        Dim selector As String = "Select 
+        [fwr_ID]      
+        ,[fwr_in]
+        ,[fwr_out]
+        ,[fwr_portsin]
+        ,[fwr_portsout]
+                ,[fwr_dienste]
+        ,[fwr_FQDN]
+        ,[fwr_info]
+        , case when [fwr_direct] is null then '0'
+        else [fwr_direct] end as [fwr_direct]
+  From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
+ORDER BY [fwr_in]"
+
+        SQL.SQL2DS(selector, ds)
+
+    End Function
+
+    Public Function gethost(ip As String)
+        Dim ds As New DataSet
+        Dim test As String = ""
+        SQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
+        For Each c As DataColumn In ds.Tables(0).Columns
+            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
+            If propInfo IsNot Nothing Then
+                If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
+                    propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
+                End If
+            End If
+        Next
+        '   MsgBox("hier")
+    End Function
+
+    Public Function getUpdateCmd(ByRef update As String, ByRef where As String, Optional ByRef slaveupdate As String = "", Optional ByRef slavewhere As String = "", Optional ByVal Linked As Boolean = False, Optional ByVal newhost As Host = Nothing)
+        If newhost Is Nothing Then
+            slavewhere = ""
+            Dim list As List(Of SQLVariable) = getparameterlistMaster()
+            Dim slavelist As List(Of SQLVariable) = getparameterlistSlave()
+
+            For Each i In list  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dieser Host
+                If Not i.SQLText = "IPAdresse" Then
+                    update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
+                Else
+                    where &= "IPAdresse = '" & i.SQLValue & "'"
+                End If
+            Next
+            update = update.Substring(0, update.Length - 1) 'wg. ','
+
+            For Each i In slavelist ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''alle Hosts, bei denen dieser Host als LinkedWith eingetragen ist
+                If Not i.SQLText = "IPAdresse" And Not i.SQLText = "LinkedWith" Then
+                    slaveupdate &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
+                ElseIf i.SQLText = "IPAdresse" Then
+                    slavewhere &= "(Linked = 'True' AND (LinkedWith = '" & i.SQLValue & "'"
+                End If
+            Next
+            slaveupdate = slaveupdate.Substring(0, slaveupdate.Length - 1)
+
+            If Linked = True Then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
+
+                For Each i In slavelist '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Masterhost
+                    If i.SQLText = "LinkedWith" Then
+                        slavewhere &= "OR LinkedWith = '" & i.SQLValue & "') OR IPAdresse = '" & i.SQLValue & "')"
+                    End If
+                Next
+            ElseIf Linked = False Then
+                slavewhere &= "))"
+            End If
+
+        Else
+
+            Dim list As List(Of SQLVariable) = newhost.getparameterlistMaster()
+
+            For Each i In list  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dieser Host
+                If Not i.SQLText = "IPAdresse" Then
+                    update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
+                Else
+                    where &= "IPAdresse = '" & i.SQLValue & "'"
+                End If
+            Next
+            update = update.Substring(0, update.Length - 1) 'wg. ','
+
+        End If
+
+
+    End Function
+
+    Public Function updateHostEntry(ByRef entry As Host)
+        Dim update, where, slaveupdate, slavewhere As String
+        getUpdateCmd(update, where, slaveupdate, slavewhere, Me.Linked)
+        SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
+        SQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
+        'MsgBox(update & where)
+
+    End Function
+
+    Function checkIfIPExist(ByVal ip As String)
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+
+    Public Function DeleteHost(Optional ByVal supress As Boolean = False)
+        If supress = False Then
+            If MessageBox.Show("Eintrag " & Me.FQDN & " wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
+                Dim ds As New DataSet
+                Dim Slaves As String = ""
+                SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
+
+                If ds.Tables(0).Rows.Count > 0 Then
+                    For Each r As DataRow In ds.Tables(0).Rows
+                        Slaves &= r.Item("IPAdresse").ToString & vbCrLf
+                    Next
+
+                    If MessageBox.Show("
+Achtung! " & vbCrLf & "Der Eintrag " & Me.FQDN & " ist ein MasterEintrag für die IP Adressen " & vbCrLf & Slaves & "
+Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
+                        SQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
+                    ElseIf DialogResult.Cancel Then
+                        Exit Function
+                    End If
+                End If
+                SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
+                Class1.RefillNW(Me.Netzwerk)
+            ElseIf DialogResult.Cancel Then
+                Exit Function
+            End If
+        Else
+            SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
+            Class1.RefillNW(Me.Netzwerk)
+        End If
+
+    End Function
+
+    Public Function MoveHost(newip As String)
+        If checkIfIPExist(newip) = False Then MsgBox("Die Adresse kann nicht verwendet werden. Bitte überprüfen.") : Return Me : Exit Function
+
+        Dim oldip As String = Me.IPAdresse
+        Dim newhost As New Host
+        newhost.gethost(newip)
+
+        'Get Slaves of LinkedMaster 
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
+
+        'Ziel prüfen und gegebenenfalls anzeigen
+        If (
+                newhost.FQDN = "" And
+                newhost.Modell = "" And
+                newhost.TYPE = "") Then
+        Else
+            If MsgBox("Ziel ist bereits belegt. Anzeigen?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+                Me.gethost(newip)
+            Else
+                Me.gethost(oldip)
+            End If
+            Exit Function
+        End If
+
+        'If Host = LinkedMaster then Update Slaves
+        If ds.Tables(0).Rows.Count > 0 Then
+            SQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
+        End If
+
+        newhost.FQDN = Me.FQDN
+        newhost.QINFO = Me.QINFO
+        newhost.Seriennummer = Me.Seriennummer
+        newhost.MAC = Me.MAC
+        newhost.Benutzer = Me.Benutzer
+        newhost.Passwort = Me.Passwort
+        newhost.LINK = Me.LINK
+        newhost.INFO = Me.INFO
+        newhost.TYPE = Me.TYPE
+        newhost.Modell = Me.Modell
+        newhost.Linked = Me.Linked
+        newhost.LinkedWith = Me.LinkedWith
+        newhost.AddIP = Me.AddIP
+        newhost.Standort = Me.Standort
+        newhost.DHCP = Me.DHCP
+        newhost.Firewall = Me.Firewall
+
+        Dim update, where As String
+        getUpdateCmd(update, where, "", "", newhost.Linked, newhost)
+        SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
+
+        cFolder.FolderMove(Me.NWSTANDORT & "_" & Me.NETNAME, Me.HOST, newhost.NWSTANDORT & "_" & newhost.NETNAME, newhost.HOST)
+
+        Me.DeleteHost(True)
+        Return newhost
+
+    End Function
+
+    Public Shared Function getSlaves(ByVal ip As String, ByRef ds As DataSet)
+
+        SQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' +  NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
+
+    End Function
+
+
+End Class

Dokumentation/Classes/SQL.vb

@@ -0,0 +1,79 @@
+Imports System.Data.SqlClient
+
+Public Class SQL
+
+    Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        Dim dataadapter As New SqlDataAdapter(selector, con)
+        con.Open()
+        dataadapter.Fill(ds)
+        con.Close()
+    End Sub
+
+    Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "UPDATE " & table & " SET " & values & " WHERE " & where & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+    Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "INSERT INTO " & table & " " & insert & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+    Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String)
+        Dim con As New SqlConnection
+        Dim cmd As New SqlCommand
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+
+        con.Open()
+        cmd.CommandText = "DELETE FROM " & table & " WHERE " & where & ""
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Sub
+
+
+End Class
+
+Public Class SQLVariable
+    Private Text, Value As String
+    Private prim As Boolean
+
+    Public Sub New(ByVal btext As String, ByVal bvalue As String, Optional bprim As Boolean = False)
+        Me.value = bvalue
+        Me.Text = btext
+
+    End Sub
+
+    Public ReadOnly Property SQLText() As String
+        Get
+            Return Text
+        End Get
+    End Property
+
+    Public ReadOnly Property SQLValue() As Object
+        Get
+            Return value
+        End Get
+    End Property
+
+End Class
+

Dokumentation/Classes/cFolder.vb

@@ -1,4 +1,5 @@
-Public Class Folder
+Public Class cFolder
+
     Public Shared Function FolderMove(oldID As String, oldHost As String, newID As String, NewHost As String)
         Dim PathOld As String
         Dim PathNew As String
@@ -13,11 +14,31 @@
         If IO.Directory.Exists(Class1.FilePath & "\" & newID) Then
         Else
             IO.Directory.CreateDirectory(Class1.FilePath & "\" & newID)
-        End if
+        End If
 
         If IO.Directory.Exists(PathOld) Then
             IO.Directory.Move(PathOld, PathNew)
         End If
 
     End Function
+
+    Public Shared Function explorerstarten(ip As String)
+        Dim Path, nwstandort, netname As String
+        Dim host As New Host
+        host.gethost(ip)
+        If host.Linked = True Then
+            host.gethost(host.LinkedWith)
+        End If
+        Class1.ip2netname(host.IPAdresse, nwstandort, netname)
+
+        Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
+
+        If IO.Directory.Exists(Path) Then
+            Process.Start(Path)
+        Else
+            IO.Directory.CreateDirectory(Path)
+            Process.Start(Path)
+        End If
+        'MsgBox(path)
+    End Function
 End Class

Dokumentation/Dokumentation.vbproj

@@ -87,11 +87,31 @@
     <TargetZone>LocalIntranet</TargetZone>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="Accessibility" />
+    <Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Design.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Export.Image.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
+    <Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
+    <Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
     <Reference Include="System" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Data.OracleClient" />
     <Reference Include="System.Deployment" />
+    <Reference Include="System.Design" />
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.Drawing.Design" />
+    <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
+    <Reference Include="System.Security" />
+    <Reference Include="System.Web" />
+    <Reference Include="System.Web.Extensions" />
+    <Reference Include="System.Web.Services" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
@@ -139,17 +159,57 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Classes\DHCP.vb" />
-    <Compile Include="Classes\Folder.vb" />
+    <Compile Include="Classes\Ext_Programme.vb" />
+    <Compile Include="Classes\FirewallEntry.vb" />
+    <Compile Include="Classes\cFolder.vb" />
+    <Compile Include="Classes\Host.vb" />
+    <Compile Include="Classes\SQL.vb" />
+    <Compile Include="Drucken\frmPrint.Designer.vb">
+      <DependentUpon>frmPrint.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Drucken\frmPrint.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Drucken\rptHostCheckListe.Designer.vb">
+      <DependentUpon>rptHostCheckListe.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Drucken\rptHostCheckListe.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Drucken\rptHostListe.Designer.vb">
+      <DependentUpon>rptHostListe.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Drucken\rptHostListe.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Drucken\rptHostListeMitZugangsdaten.Designer.vb">
+      <DependentUpon>rptHostListeMitZugangsdaten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Drucken\rptHostListeMitZugangsdaten.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="EintragBearbeiten.Designer.vb">
       <DependentUpon>EintragBearbeiten.vb</DependentUpon>
     </Compile>
     <Compile Include="EintragBearbeiten.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="HostBearbeiten.Designer.vb">
-      <DependentUpon>HostBearbeiten.vb</DependentUpon>
+    <Compile Include="frmHostBearbeiten.Designer.vb">
+      <DependentUpon>frmHostBearbeiten.vb</DependentUpon>
     </Compile>
-    <Compile Include="HostBearbeiten.vb">
+    <Compile Include="frmHostBearbeiten.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Drucken\frmPrintActiveReports.Designer.vb">
+      <DependentUpon>frmPrintActiveReports.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Drucken\frmPrintActiveReports.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="HostBearbeiten_OLD.Designer.vb">
+      <DependentUpon>HostBearbeiten_OLD.vb</DependentUpon>
+    </Compile>
+    <Compile Include="HostBearbeiten_OLD.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="Login\Login.Designer.vb">
@@ -199,6 +259,18 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="PrintDGV.vb" />
+    <Compile Include="uscntr_Firewalleinstellungen.Designer.vb">
+      <DependentUpon>uscntr_Firewalleinstellungen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_Firewalleinstellungen.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="uscntr_Slaves.Designer.vb">
+      <DependentUpon>uscntr_Slaves.vb</DependentUpon>
+    </Compile>
+    <Compile Include="uscntr_Slaves.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="Administration\NetzwerkHinzu.resx">
@@ -213,11 +285,29 @@
     <EmbeddedResource Include="Administration\CSVImportieren.resx">
       <DependentUpon>CSVImportieren.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Drucken\frmPrint.resx">
+      <DependentUpon>frmPrint.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Drucken\rptHostCheckListe.resx">
+      <DependentUpon>rptHostCheckListe.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Drucken\rptHostListe.resx">
+      <DependentUpon>rptHostListe.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Drucken\rptHostListeMitZugangsdaten.resx">
+      <DependentUpon>rptHostListeMitZugangsdaten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="EintragBearbeiten.resx">
       <DependentUpon>EintragBearbeiten.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="HostBearbeiten.resx">
-      <DependentUpon>HostBearbeiten.vb</DependentUpon>
+    <EmbeddedResource Include="frmHostBearbeiten.resx">
+      <DependentUpon>frmHostBearbeiten.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Drucken\frmPrintActiveReports.resx">
+      <DependentUpon>frmPrintActiveReports.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="HostBearbeiten_OLD.resx">
+      <DependentUpon>HostBearbeiten_OLD.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Login\Login.resx">
       <DependentUpon>Login.vb</DependentUpon>
@@ -228,6 +318,7 @@
     <EmbeddedResource Include="Main.resx">
       <DependentUpon>Main.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -240,6 +331,12 @@
     <EmbeddedResource Include="HostVerschieben.resx">
       <DependentUpon>HostVerschieben.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_Firewalleinstellungen.resx">
+      <DependentUpon>uscntr_Firewalleinstellungen.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="uscntr_Slaves.resx">
+      <DependentUpon>uscntr_Slaves.vb</DependentUpon>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\app.manifest" />
@@ -263,6 +360,9 @@
     <None Include="Resources\Folder20.bmp" />
     <None Include="Resources\Bearbeiten20.bmp" />
     <None Include="Resources\Netzwerk20.bmp" />
+    <Content Include="Resources\pdf512.png" />
+    <None Include="Resources\Print.png" />
+    <None Include="Resources\Print20x20.png" />
     <Content Include="rj45_ICO.ico" />
   </ItemGroup>
   <ItemGroup>

Dokumentation/Drucken/frmPrint.Designer.vb

@@ -0,0 +1,113 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmPrint
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrint))
+        Me.CmdPrint = New System.Windows.Forms.Button()
+        Me.ChkDHCPDrucken = New System.Windows.Forms.CheckBox()
+        Me.rdbHostListe = New System.Windows.Forms.RadioButton()
+        Me.rdbHostCheckListe = New System.Windows.Forms.RadioButton()
+        Me.lblZugangsdatenDruckWarnung = New System.Windows.Forms.Label()
+        Me.SuspendLayout()
+        '
+        'CmdPrint
+        '
+        Me.CmdPrint.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdPrint.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
+        Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.CmdPrint.Location = New System.Drawing.Point(169, 69)
+        Me.CmdPrint.Name = "CmdPrint"
+        Me.CmdPrint.Size = New System.Drawing.Size(151, 28)
+        Me.CmdPrint.TabIndex = 13
+        Me.CmdPrint.Text = "Drucken"
+        Me.CmdPrint.UseVisualStyleBackColor = False
+        '
+        'ChkDHCPDrucken
+        '
+        Me.ChkDHCPDrucken.AutoSize = True
+        Me.ChkDHCPDrucken.Location = New System.Drawing.Point(170, 12)
+        Me.ChkDHCPDrucken.Name = "ChkDHCPDrucken"
+        Me.ChkDHCPDrucken.Size = New System.Drawing.Size(150, 17)
+        Me.ChkDHCPDrucken.TabIndex = 15
+        Me.ChkDHCPDrucken.Text = "DHCP Clients andrucken?"
+        Me.ChkDHCPDrucken.UseVisualStyleBackColor = True
+        '
+        'rdbHostListe
+        '
+        Me.rdbHostListe.AutoSize = True
+        Me.rdbHostListe.Checked = True
+        Me.rdbHostListe.Location = New System.Drawing.Point(12, 12)
+        Me.rdbHostListe.Name = "rdbHostListe"
+        Me.rdbHostListe.Size = New System.Drawing.Size(116, 17)
+        Me.rdbHostListe.TabIndex = 16
+        Me.rdbHostListe.TabStop = True
+        Me.rdbHostListe.Text = "Hosts Detailansicht"
+        Me.rdbHostListe.UseVisualStyleBackColor = True
+        '
+        'rdbHostCheckListe
+        '
+        Me.rdbHostCheckListe.AutoSize = True
+        Me.rdbHostCheckListe.Location = New System.Drawing.Point(12, 35)
+        Me.rdbHostCheckListe.Name = "rdbHostCheckListe"
+        Me.rdbHostCheckListe.Size = New System.Drawing.Size(104, 17)
+        Me.rdbHostCheckListe.TabIndex = 17
+        Me.rdbHostCheckListe.Text = "Hosts Checkliste"
+        Me.rdbHostCheckListe.UseVisualStyleBackColor = True
+        '
+        'lblZugangsdatenDruckWarnung
+        '
+        Me.lblZugangsdatenDruckWarnung.AutoSize = True
+        Me.lblZugangsdatenDruckWarnung.Location = New System.Drawing.Point(166, 39)
+        Me.lblZugangsdatenDruckWarnung.Name = "lblZugangsdatenDruckWarnung"
+        Me.lblZugangsdatenDruckWarnung.Size = New System.Drawing.Size(162, 13)
+        Me.lblZugangsdatenDruckWarnung.TabIndex = 18
+        Me.lblZugangsdatenDruckWarnung.Text = "Zugangsdaten werden gedruckt!"
+        Me.lblZugangsdatenDruckWarnung.Visible = False
+        '
+        'frmPrint
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.ClientSize = New System.Drawing.Size(342, 114)
+        Me.Controls.Add(Me.lblZugangsdatenDruckWarnung)
+        Me.Controls.Add(Me.rdbHostCheckListe)
+        Me.Controls.Add(Me.rdbHostListe)
+        Me.Controls.Add(Me.ChkDHCPDrucken)
+        Me.Controls.Add(Me.CmdPrint)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmPrint"
+        Me.Text = "Printinator"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents CmdPrint As Button
+    Friend WithEvents ChkDHCPDrucken As CheckBox
+    Friend WithEvents rdbHostListe As RadioButton
+    Friend WithEvents rdbHostCheckListe As RadioButton
+    Friend WithEvents lblZugangsdatenDruckWarnung As Label
+End Class

Dokumentation/Drucken/frmPrint.vb

@@ -0,0 +1,47 @@
+Public Class frmPrint
+    Property ds As DataSet = Nothing
+    Property Druckart As String = "HostListe"
+    Property DruckeZugangsdaten As Boolean = False
+
+    Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click
+
+        If ChkDHCPDrucken.Checked = False Then deleteDHCPHostsFromDS(ds)
+        Dim dt As DataTable = Class1.OrderDataTableby(ds.Tables(0), "HOST ASC")
+
+        Dim PrintAR As New frmPrintActiveReports
+        PrintAR.DHCPAndrucken = ChkDHCPDrucken.Checked
+        PrintAR.dt = dt
+        PrintAR.DruckArt = Me.Druckart
+        PrintAR.Show()
+    End Sub
+
+    Private Sub deleteDHCPHostsFromDS(ds As DataSet)
+
+        For Each row As DataRow In ds.Tables(0).Select()
+            If Not row.Item("DHCP") = "0" Then
+                row.Delete()
+            End If
+        Next
+        ds.Tables(0).AcceptChanges()
+    End Sub
+
+    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles rdbHostCheckListe.CheckedChanged, rdbHostListe.CheckedChanged
+        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe"
+        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten"
+        'If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe"
+        rptSelectinator()
+    End Sub
+
+    Private Function rptSelectinator()
+        If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
+        If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
+        If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe" : lblZugangsdatenDruckWarnung.Visible = False
+
+    End Function
+
+    Private Sub frmPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
+        rptSelectinator()
+        'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True
+
+    End Sub
+End Class

Dokumentation/Drucken/frmPrintActiveReports.Designer.vb

@@ -0,0 +1,81 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPrintActiveReports
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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.Viewer1 = New GrapeCity.ActiveReports.Viewer.Win.Viewer()
+        Me.SuspendLayout()
+        '
+        'Viewer1
+        '
+        Me.Viewer1.CurrentPage = 0
+        Me.Viewer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Viewer1.Location = New System.Drawing.Point(0, 0)
+        Me.Viewer1.Name = "Viewer1"
+        Me.Viewer1.PreviewPages = 0
+        '
+        '
+        '
+        '
+        '
+        '
+        Me.Viewer1.Sidebar.ParametersPanel.ContextMenu = Nothing
+        Me.Viewer1.Sidebar.ParametersPanel.Text = "Parameters"
+        Me.Viewer1.Sidebar.ParametersPanel.Width = 200
+        '
+        '
+        '
+        Me.Viewer1.Sidebar.SearchPanel.ContextMenu = Nothing
+        Me.Viewer1.Sidebar.SearchPanel.Text = "Search results"
+        Me.Viewer1.Sidebar.SearchPanel.Width = 200
+        '
+        '
+        '
+        Me.Viewer1.Sidebar.ThumbnailsPanel.ContextMenu = Nothing
+        Me.Viewer1.Sidebar.ThumbnailsPanel.Text = "Page thumbnails"
+        Me.Viewer1.Sidebar.ThumbnailsPanel.Width = 200
+        Me.Viewer1.Sidebar.ThumbnailsPanel.Zoom = 0.1R
+        '
+        '
+        '
+        Me.Viewer1.Sidebar.TocPanel.ContextMenu = Nothing
+        Me.Viewer1.Sidebar.TocPanel.Expanded = True
+        Me.Viewer1.Sidebar.TocPanel.Text = "Document map"
+        Me.Viewer1.Sidebar.TocPanel.Width = 200
+        Me.Viewer1.Sidebar.Width = 200
+        Me.Viewer1.Size = New System.Drawing.Size(1264, 921)
+        Me.Viewer1.TabIndex = 0
+        '
+        'frmPrintActiveReports
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1264, 921)
+        Me.Controls.Add(Me.Viewer1)
+        Me.Name = "frmPrintActiveReports"
+        Me.Text = "frmPrintActiveReports"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Viewer1 As GrapeCity.ActiveReports.Viewer.Win.Viewer
+End Class

Dokumentation/Drucken/frmPrintActiveReports.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

Dokumentation/Drucken/frmPrintActiveReports.vb

@@ -0,0 +1,49 @@
+Public Class frmPrintActiveReports
+
+    Property DruckArt As String = ""
+    Property DHCPAndrucken As Boolean = False
+    Public dt As DataTable
+
+    Private Sub tsbPDF_Click(sender As Object, e As EventArgs)
+        'Dim Dateiname As String
+        Dim savefiledialog As New SaveFileDialog
+        savefiledialog.Filter = "PDF files (*.pdf)|*.PDF"
+        savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
+        savefiledialog.ShowDialog()
+
+        Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+        If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
+
+        If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+    End Sub
+
+    Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim tsbPDF As New ToolStripButton("PDF")
+        tsbPDF.Image = My.Resources.pdf512
+        Viewer1.Toolbar.MainBar.Items.Insert(5, tsbPDF)
+
+        Print()
+    End Sub
+
+    Private Sub Print()
+
+        Select Case DruckArt
+            Case "HostListe"
+                Dim Report As New rptHostListe
+                Report.dt = Me.dt
+                Report.DHCPAndrucken = Me.DHCPAndrucken
+                Viewer1.LoadDocument(Report)
+            Case "HostCheckListe"
+                Dim Report As New rptHostCheckListe
+                Report.dt = Me.dt
+                Report.DHCPAndrucken = Me.DHCPAndrucken
+                Viewer1.LoadDocument(Report)
+            Case "HostListeMitZugangsdaten"
+                Dim Report As New rptHostListeMitZugangsdaten
+                Report.dt = Me.dt
+                Report.DHCPAndrucken = Me.DHCPAndrucken
+                Viewer1.LoadDocument(Report)
+        End Select
+
+    End Sub
+End Class

Dokumentation/Drucken/rptHostCheckListe.Designer.vb

@@ -0,0 +1,350 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptHostCheckListe
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostCheckListe))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtStandort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.Shape3 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
+        Me.PageHeader.Height = 0.3333333!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 0!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
+        Me.TextBox8.Text = "Hosts Checkliste"
+        Me.TextBox8.Top = 0.05118111!
+        Me.TextBox8.Width = 10.90551!
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtStandort, Me.txtInfo, Me.Shape1, Me.Shape2, Me.Shape3, Me.Line1})
+        Me.Detail.Height = 0.4166667!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'txtFQDN
+        '
+        Me.txtFQDN.Height = 0.2!
+        Me.txtFQDN.Left = 0!
+        Me.txtFQDN.Name = "txtFQDN"
+        Me.txtFQDN.Style = "font-size: 9pt"
+        Me.txtFQDN.Text = "FQDN"
+        Me.txtFQDN.Top = 0!
+        Me.txtFQDN.Width = 1.574803!
+        '
+        'txtIPAdresse
+        '
+        Me.txtIPAdresse.Height = 0.2!
+        Me.txtIPAdresse.Left = 1.574803!
+        Me.txtIPAdresse.Name = "txtIPAdresse"
+        Me.txtIPAdresse.Style = "font-size: 9pt"
+        Me.txtIPAdresse.Text = "IP"
+        Me.txtIPAdresse.Top = 0!
+        Me.txtIPAdresse.Width = 1.082677!
+        '
+        'txtModell
+        '
+        Me.txtModell.Height = 0.2!
+        Me.txtModell.Left = 2.65748!
+        Me.txtModell.Name = "txtModell"
+        Me.txtModell.Style = "font-size: 9pt"
+        Me.txtModell.Text = "Modell"
+        Me.txtModell.Top = 0!
+        Me.txtModell.Width = 1.574803!
+        '
+        'txtStandort
+        '
+        Me.txtStandort.Height = 0.2!
+        Me.txtStandort.Left = 4.232284!
+        Me.txtStandort.Name = "txtStandort"
+        Me.txtStandort.Style = "font-size: 9pt"
+        Me.txtStandort.Text = "Standort"
+        Me.txtStandort.Top = 0!
+        Me.txtStandort.Width = 1.574803!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.Height = 0.3937008!
+        Me.txtInfo.Left = 6.974803!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Style = "font-size: 9pt"
+        Me.txtInfo.Text = "Info"
+        Me.txtInfo.Top = 0!
+        Me.txtInfo.Width = 3.93071!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
+        Me.PageFooter.Height = 0.2291667!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 9.905513!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "text-align: right"
+        Me.ReportInfo1.Top = 0!
+        Me.ReportInfo1.Width = 1.0!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox9, Me.TextBox10})
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox1.Text = "FQDN"
+        Me.TextBox1.Top = 0.025!
+        Me.TextBox1.Width = 1.574803!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 1.574803!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox2.Text = "IP"
+        Me.TextBox2.Top = 0.025!
+        Me.TextBox2.Width = 1.082677!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 2.65748!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox3.Text = "Modell"
+        Me.TextBox3.Top = 0.025!
+        Me.TextBox3.Width = 1.574803!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 4.232283!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox4.Text = "Standort"
+        Me.TextBox4.Top = 0.025!
+        Me.TextBox4.Width = 1.574803!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 5.807087!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
+    "er"
+        Me.TextBox5.Text = "1"
+        Me.TextBox5.Top = 0.025!
+        Me.TextBox5.Width = 0.3637797!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 6.974803!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox7.Text = "Info"
+        Me.TextBox7.Top = 0.025!
+        Me.TextBox7.Width = 3.930712!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'Shape1
+        '
+        Me.Shape1.Height = 0.1574803!
+        Me.Shape1.Left = 5.905512!
+        Me.Shape1.LineWeight = 3.0!
+        Me.Shape1.Name = "Shape1"
+        Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape1.Top = 0.01968504!
+        Me.Shape1.Width = 0.1574802!
+        '
+        'Shape2
+        '
+        Me.Shape2.Height = 0.1574803!
+        Me.Shape2.Left = 6.299212!
+        Me.Shape2.LineWeight = 3.0!
+        Me.Shape2.Name = "Shape2"
+        Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape2.Top = 0.01968504!
+        Me.Shape2.Width = 0.1574802!
+        '
+        'Shape3
+        '
+        Me.Shape3.Height = 0.1574803!
+        Me.Shape3.Left = 6.692914!
+        Me.Shape3.LineWeight = 3.0!
+        Me.Shape3.Name = "Shape3"
+        Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape3.Top = 0.01968504!
+        Me.Shape3.Width = 0.1574802!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Height = 0.2!
+        Me.TextBox9.Left = 6.170866!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
+    "er"
+        Me.TextBox9.Text = "2"
+        Me.TextBox9.Top = 0.02519685!
+        Me.TextBox9.Width = 0.4334646!
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Height = 0.2!
+        Me.TextBox10.Left = 6.604331!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
+    "er"
+        Me.TextBox10.Text = "3"
+        Me.TextBox10.Top = 0.02480315!
+        Me.TextBox10.Width = 0.3704726!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.3937008!
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0.3937008!
+        Me.Line1.Width = 10.11811!
+        Me.Line1.X1 = 0.3937008!
+        Me.Line1.X2 = 10.51181!
+        Me.Line1.Y1 = 0.3937008!
+        Me.Line1.Y2 = 0.3937008!
+        '
+        'rptHostCheckListe
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 10.90551!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtStandort As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents Shape3 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Dokumentation/Drucken/rptHostCheckListe.resx

@@ -0,0 +1,126 @@
+<?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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

Dokumentation/Drucken/rptHostCheckListe.vb

@@ -0,0 +1,33 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptHostCheckListe
+
+    Public dt As DataTable
+    Property DHCPAndrucken As Boolean = Nothing
+    Public counter As Integer = 0
+    Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
+        txtIPAdresse.Text = Fields.Item("IPAdresse").Value
+        txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
+        txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
+        txtInfo.Text = ""
+        '  If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
+
+        counter = counter + 1
+
+        If counter Mod 2 = 0 Then
+            Detail.BackColor = Color.Transparent
+        Else
+            Detail.BackColor = AltColor
+        End If
+
+    End Sub
+
+    Private Sub rptHostCheckListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = dt
+    End Sub
+End Class

Dokumentation/Drucken/rptHostListe.Designer.vb

@@ -0,0 +1,311 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptHostListe
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostListe))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtStandort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtType = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtQInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtType, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
+        Me.PageHeader.Height = 0.3333333!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtStandort, Me.txtType, Me.txtQInfo, Me.txtInfo})
+        Me.Detail.Height = 0.2396326!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'txtFQDN
+        '
+        Me.txtFQDN.Height = 0.2!
+        Me.txtFQDN.Left = 0!
+        Me.txtFQDN.Name = "txtFQDN"
+        Me.txtFQDN.Style = "font-size: 9pt"
+        Me.txtFQDN.Text = "FQDN"
+        Me.txtFQDN.Top = 0!
+        Me.txtFQDN.Width = 1.574803!
+        '
+        'txtIPAdresse
+        '
+        Me.txtIPAdresse.Height = 0.2!
+        Me.txtIPAdresse.Left = 1.574803!
+        Me.txtIPAdresse.Name = "txtIPAdresse"
+        Me.txtIPAdresse.Style = "font-size: 9pt"
+        Me.txtIPAdresse.Text = "IP"
+        Me.txtIPAdresse.Top = 0!
+        Me.txtIPAdresse.Width = 1.082677!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
+        Me.PageFooter.Height = 0.2291667!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'txtModell
+        '
+        Me.txtModell.Height = 0.2!
+        Me.txtModell.Left = 2.65748!
+        Me.txtModell.Name = "txtModell"
+        Me.txtModell.Style = "font-size: 9pt"
+        Me.txtModell.Text = "Modell"
+        Me.txtModell.Top = 0!
+        Me.txtModell.Width = 1.574803!
+        '
+        'txtStandort
+        '
+        Me.txtStandort.Height = 0.2!
+        Me.txtStandort.Left = 4.232284!
+        Me.txtStandort.Name = "txtStandort"
+        Me.txtStandort.Style = "font-size: 9pt"
+        Me.txtStandort.Text = "Standort"
+        Me.txtStandort.Top = 0!
+        Me.txtStandort.Width = 1.574803!
+        '
+        'txtType
+        '
+        Me.txtType.Height = 0.2!
+        Me.txtType.Left = 5.807087!
+        Me.txtType.Name = "txtType"
+        Me.txtType.Style = "font-size: 9pt; text-align: left"
+        Me.txtType.Text = "Type"
+        Me.txtType.Top = 0!
+        Me.txtType.Width = 1.082677!
+        '
+        'txtQInfo
+        '
+        Me.txtQInfo.Height = 0.2!
+        Me.txtQInfo.Left = 6.889764!
+        Me.txtQInfo.Name = "txtQInfo"
+        Me.txtQInfo.Style = "font-size: 9pt"
+        Me.txtQInfo.Text = "QInfo"
+        Me.txtQInfo.Top = 0!
+        Me.txtQInfo.Width = 1.574803!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.Height = 0.2!
+        Me.txtInfo.Left = 8.464567!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Style = "font-size: 9pt"
+        Me.txtInfo.Text = "Info"
+        Me.txtInfo.Top = 0!
+        Me.txtInfo.Width = 2.440946!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7})
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox1.Text = "FQDN"
+        Me.TextBox1.Top = 0.025!
+        Me.TextBox1.Width = 1.574803!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 1.574803!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox2.Text = "IP"
+        Me.TextBox2.Top = 0.025!
+        Me.TextBox2.Width = 1.082677!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 2.65748!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox3.Text = "Modell"
+        Me.TextBox3.Top = 0.025!
+        Me.TextBox3.Width = 1.574803!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 4.232283!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox4.Text = "Standort"
+        Me.TextBox4.Top = 0.025!
+        Me.TextBox4.Width = 1.574803!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 5.807087!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: left" &
+    ""
+        Me.TextBox5.Text = "Type"
+        Me.TextBox5.Top = 0.025!
+        Me.TextBox5.Width = 1.082677!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 6.889764!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox6.Text = "QInfo"
+        Me.TextBox6.Top = 0.025!
+        Me.TextBox6.Width = 1.574803!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 8.46457!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox7.Text = "Info"
+        Me.TextBox7.Top = 0.025!
+        Me.TextBox7.Width = 2.440946!
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 0!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
+        Me.TextBox8.Text = "Hosts Detailansicht"
+        Me.TextBox8.Top = 0.05118111!
+        Me.TextBox8.Width = 10.90551!
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 9.905513!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "text-align: right"
+        Me.ReportInfo1.Top = 0!
+        Me.ReportInfo1.Width = 1.0!
+        '
+        'rptHostListe
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 10.90551!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtType, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtStandort As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtType As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtQInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+End Class

Dokumentation/Drucken/rptHostListe.resx

@@ -0,0 +1,126 @@
+<?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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

Dokumentation/Drucken/rptHostListe.vb

@@ -0,0 +1,35 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptHostListe
+
+    Public dt As DataTable
+    Property DHCPAndrucken As Boolean = Nothing
+    Public counter As Integer = 0
+    Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
+        txtIPAdresse.Text = Fields.Item("IPAdresse").Value
+        txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
+        txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
+        txtType.Text = Class1.DBNull2emptyString(Fields.Item("Type").Value)
+        txtQInfo.Text = Class1.DBNull2emptyString(Fields.Item("QINFO").Value)
+        txtInfo.Text = Class1.DBNull2emptyString(Fields.Item("Info").Value)
+        '  If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
+
+        counter = counter + 1
+
+        If counter Mod 2 = 0 Then
+            Detail.BackColor = Color.Transparent
+        Else
+            Detail.BackColor = AltColor
+        End If
+
+    End Sub
+
+    Private Sub rptHostListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = dt
+    End Sub
+End Class

Dokumentation/Drucken/rptHostListeMitZugangsdaten.Designer.vb

@@ -0,0 +1,339 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptHostListeMitZugangsdaten
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostListeMitZugangsdaten))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtType = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtQInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.txttxtUser = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtUser = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtKennwort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtType, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txttxtUser, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtUser, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtKennwort, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
+        Me.PageHeader.Height = 0.3333333!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 0!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
+        Me.TextBox8.Text = "Hosts Detailansicht"
+        Me.TextBox8.Top = 0.05118111!
+        Me.TextBox8.Width = 10.90551!
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtType, Me.txtQInfo, Me.txtInfo, Me.txtUser, Me.txtKennwort})
+        Me.Detail.Height = 0.3021818!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'txtFQDN
+        '
+        Me.txtFQDN.Height = 0.2!
+        Me.txtFQDN.Left = 0!
+        Me.txtFQDN.Name = "txtFQDN"
+        Me.txtFQDN.Style = "font-size: 9pt"
+        Me.txtFQDN.Text = "FQDN"
+        Me.txtFQDN.Top = 0!
+        Me.txtFQDN.Width = 1.574803!
+        '
+        'txtIPAdresse
+        '
+        Me.txtIPAdresse.Height = 0.2!
+        Me.txtIPAdresse.Left = 1.574803!
+        Me.txtIPAdresse.Name = "txtIPAdresse"
+        Me.txtIPAdresse.Style = "font-size: 9pt"
+        Me.txtIPAdresse.Text = "IP"
+        Me.txtIPAdresse.Top = 0!
+        Me.txtIPAdresse.Width = 1.082677!
+        '
+        'txtModell
+        '
+        Me.txtModell.Height = 0.2!
+        Me.txtModell.Left = 2.65748!
+        Me.txtModell.Name = "txtModell"
+        Me.txtModell.Style = "font-size: 9pt"
+        Me.txtModell.Text = "Modell"
+        Me.txtModell.Top = 0!
+        Me.txtModell.Width = 1.574803!
+        '
+        'txtType
+        '
+        Me.txtType.Height = 0.2!
+        Me.txtType.Left = 4.232284!
+        Me.txtType.Name = "txtType"
+        Me.txtType.Style = "font-size: 9pt; text-align: left"
+        Me.txtType.Text = "Type"
+        Me.txtType.Top = 0!
+        Me.txtType.Width = 1.082677!
+        '
+        'txtQInfo
+        '
+        Me.txtQInfo.Height = 0.2!
+        Me.txtQInfo.Left = 5.314961!
+        Me.txtQInfo.Name = "txtQInfo"
+        Me.txtQInfo.Style = "font-size: 9pt"
+        Me.txtQInfo.Text = "QInfo"
+        Me.txtQInfo.Top = 0!
+        Me.txtQInfo.Width = 1.574803!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.Height = 0.2!
+        Me.txtInfo.Left = 6.889764!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Style = "font-size: 9pt"
+        Me.txtInfo.Text = "Info"
+        Me.txtInfo.Top = 0!
+        Me.txtInfo.Width = 1.816142!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
+        Me.PageFooter.Height = 0.2291667!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 9.905513!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "text-align: right"
+        Me.ReportInfo1.Top = 0!
+        Me.ReportInfo1.Width = 1.0!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.txttxtUser, Me.TextBox4})
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox1.Text = "FQDN"
+        Me.TextBox1.Top = 0.025!
+        Me.TextBox1.Width = 1.574803!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 1.574803!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox2.Text = "IP"
+        Me.TextBox2.Top = 0.025!
+        Me.TextBox2.Width = 1.082677!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 2.65748!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox3.Text = "Modell"
+        Me.TextBox3.Top = 0.025!
+        Me.TextBox3.Width = 1.574803!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 4.232284!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: left" &
+    ""
+        Me.TextBox5.Text = "Type"
+        Me.TextBox5.Top = 0.02519685!
+        Me.TextBox5.Width = 1.082677!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 5.31496!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox6.Text = "QInfo"
+        Me.TextBox6.Top = 0.02519685!
+        Me.TextBox6.Width = 1.574803!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 6.889767!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox7.Text = "Info"
+        Me.TextBox7.Top = 0.02519685!
+        Me.TextBox7.Width = 1.816139!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'txttxtUser
+        '
+        Me.txttxtUser.Height = 0.2!
+        Me.txttxtUser.Left = 8.705906!
+        Me.txttxtUser.Name = "txttxtUser"
+        Me.txttxtUser.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.txttxtUser.Text = "Benutzer"
+        Me.txttxtUser.Top = 0.02519685!
+        Me.txttxtUser.Width = 0.9811034!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 9.687009!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
+        Me.TextBox4.Text = "Kennwort"
+        Me.TextBox4.Top = 0.02480315!
+        Me.TextBox4.Width = 1.218504!
+        '
+        'txtUser
+        '
+        Me.txtUser.Height = 0.2!
+        Me.txtUser.Left = 8.705906!
+        Me.txtUser.Name = "txtUser"
+        Me.txtUser.Style = "font-size: 9pt"
+        Me.txtUser.Text = "User"
+        Me.txtUser.Top = 0!
+        Me.txtUser.Width = 0.9811034!
+        '
+        'txtKennwort
+        '
+        Me.txtKennwort.Height = 0.2!
+        Me.txtKennwort.Left = 9.687009!
+        Me.txtKennwort.Name = "txtKennwort"
+        Me.txtKennwort.Style = "font-size: 9pt"
+        Me.txtKennwort.Text = "Kennwort"
+        Me.txtKennwort.Top = 0!
+        Me.txtKennwort.Width = 1.218504!
+        '
+        'rptHostListeMitZugangsdaten
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 10.90552!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtType, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txttxtUser, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtUser, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtKennwort, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtType As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtQInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Private WithEvents txtUser As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtKennwort As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txttxtUser As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Dokumentation/Drucken/rptHostListeMitZugangsdaten.resx

@@ -0,0 +1,126 @@
+<?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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

Dokumentation/Drucken/rptHostListeMitZugangsdaten.vb

@@ -0,0 +1,37 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptHostListeMitZugangsdaten
+
+    Public dt As DataTable
+    Property DHCPAndrucken As Boolean = Nothing
+    Public counter As Integer = 0
+    Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
+        txtIPAdresse.Text = Fields.Item("IPAdresse").Value
+        txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
+        ' txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
+        txtType.Text = Class1.DBNull2emptyString(Fields.Item("Type").Value)
+        txtQInfo.Text = Class1.DBNull2emptyString(Fields.Item("QINFO").Value)
+        txtInfo.Text = Class1.DBNull2emptyString(Fields.Item("Info").Value)
+        txtUser.Text = Class1.DBNull2emptyString(Fields.Item("Benutzer").Value)
+        txtKennwort.Text = Class1.DBNull2emptyString(Fields.Item("Passwort").Value)
+        '  If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
+
+        counter = counter + 1
+
+        If counter Mod 2 = 0 Then
+            Detail.BackColor = Color.Transparent
+        Else
+            Detail.BackColor = AltColor
+        End If
+
+    End Sub
+
+    Private Sub rptHostListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = dt
+    End Sub
+End Class

Dokumentation/EintragBearbeiten.vb

@@ -6,8 +6,10 @@ Public Class EintragBearbeiten
     Public cmd As New SqlCommand
     Public reader As SqlDataReader
 
-    Public Rubrik As String = Main.SenderRubrik
-    Public Titel As String = Main.SenderTitel
+    ' Public Rubrik As String = Main.SenderRubrik
+    'Public Titel As String = Main.SenderTitel
+    Property rubrik As String = ""
+    Property Titel As String = ""
     Public abfrage As String
     Public Linked As String
     Public LinkedWith As String
@@ -118,7 +120,7 @@ Public Class EintragBearbeiten
                 con.Close()
                 geaendert = False
                 If NameChanged = True Then
-                    Folder.FolderMove(Rubrik, Titel, TxtRubrik.Text, TxtTitel.Text)
+                    cFolder.FolderMove(Rubrik, Titel, TxtRubrik.Text, TxtTitel.Text)
                 End If
                 NameChanged = False
             End If
@@ -301,7 +303,7 @@ Public Class EintragBearbeiten
 
 
     Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
-        Main.startlink()
+        Ext_Programme.startlink(TxtLink.Text)
     End Sub
 
     Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged

Dokumentation/HostBearbeiten_OLD.Designer.vb

@@ -74,11 +74,13 @@ Partial Class HostBearbeiten
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.DebugToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.chkFirewall = New System.Windows.Forms.CheckBox()
         Me.CmdHostLink = New System.Windows.Forms.Button()
         Me.CmdBack = New System.Windows.Forms.Button()
         Me.CmdForward = New System.Windows.Forms.Button()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.TxtStandort = New System.Windows.Forms.TextBox()
+        Me.PanFirewall = New System.Windows.Forms.Panel()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.PanDebug.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
@@ -494,7 +496,7 @@ Partial Class HostBearbeiten
         Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExtrasToolStripMenuItem})
         Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip1.Name = "MenuStrip1"
-        Me.MenuStrip1.Size = New System.Drawing.Size(661, 24)
+        Me.MenuStrip1.Size = New System.Drawing.Size(1364, 24)
         Me.MenuStrip1.TabIndex = 88
         Me.MenuStrip1.Text = "MenuStrip1"
         '
@@ -530,6 +532,7 @@ Partial Class HostBearbeiten
         '
         'Panel2
         '
+        Me.Panel2.Controls.Add(Me.chkFirewall)
         Me.Panel2.Controls.Add(Me.CmdHostLink)
         Me.Panel2.Controls.Add(Me.CmdBack)
         Me.Panel2.Controls.Add(Me.CmdForward)
@@ -577,6 +580,16 @@ Partial Class HostBearbeiten
         Me.Panel2.Size = New System.Drawing.Size(651, 479)
         Me.Panel2.TabIndex = 89
         '
+        'chkFirewall
+        '
+        Me.chkFirewall.AutoSize = True
+        Me.chkFirewall.Location = New System.Drawing.Point(516, 379)
+        Me.chkFirewall.Name = "chkFirewall"
+        Me.chkFirewall.Size = New System.Drawing.Size(123, 17)
+        Me.chkFirewall.TabIndex = 93
+        Me.chkFirewall.Text = "Firewalleinstellungen"
+        Me.chkFirewall.UseVisualStyleBackColor = True
+        '
         'CmdHostLink
         '
         Me.CmdHostLink.BackColor = System.Drawing.SystemColors.ControlLightLight
@@ -631,6 +644,15 @@ Partial Class HostBearbeiten
         Me.TxtStandort.Size = New System.Drawing.Size(300, 20)
         Me.TxtStandort.TabIndex = 4
         '
+        'PanFirewall
+        '
+        Me.PanFirewall.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PanFirewall.Location = New System.Drawing.Point(658, 28)
+        Me.PanFirewall.Name = "PanFirewall"
+        Me.PanFirewall.Size = New System.Drawing.Size(694, 747)
+        Me.PanFirewall.TabIndex = 90
+        Me.PanFirewall.Visible = False
+        '
         'HostBearbeiten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -638,7 +660,8 @@ Partial Class HostBearbeiten
         Me.AutoSize = True
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
-        Me.ClientSize = New System.Drawing.Size(661, 800)
+        Me.ClientSize = New System.Drawing.Size(1364, 791)
+        Me.Controls.Add(Me.PanFirewall)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.PanDebug)
         Me.Controls.Add(Me.MenuStrip1)
@@ -713,4 +736,6 @@ Partial Class HostBearbeiten
     Friend WithEvents MitHTTPFüllenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents CmdHostLink As Button
     Friend WithEvents HostVerschiebenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents chkFirewall As CheckBox
+    Friend WithEvents PanFirewall As Panel
 End Class

Dokumentation/HostBearbeiten_OLD.vb

@@ -125,6 +125,7 @@ Public Class HostBearbeiten
         TxtSeriennummer.Text = ""
         TxtStandort.Text = ""
         Linked = "0"
+        chkFirewall.Checked = False
         Try
             reader = cmd.ExecuteReader()
             Do While reader.Read()
@@ -143,18 +144,25 @@ Public Class HostBearbeiten
                 TxtModell.Text = checknull("Modell")
                 TxtSeriennummer.Text = checknull("Seriennummer")
                 Linked = reader("Linked")
-                If Linked = "1" Then
+                '   If Linked = "1" Then
+                If Linked = True Then
                     ChkLinked.Checked = True
                     TxtLinkedWith.Text = reader("LinkedWith")
+                    '   uscntr_Firewalleinstellungen.Host = TxtLinkedWith.Text
                     '  importierelinked(TxtLinkedWith.Text)
                 Else
                     ChkLinked.Checked = False
+                    '  uscntr_Firewalleinstellungen.Host = TxtIP.Text
                 End If
+                chkFirewall.Checked = returnTrueFalse("Firewall")
+                ShowFirewallPanel(chkFirewall.Checked)
+
+
             Loop
             reader.Close()
         Catch ex As Exception
 
-            MsgBox("Hostbearbeiten.Ausgabe_Host reader.Read: " & ex.Message)
+            MsgBox("123Hostbearbeiten.Ausgabe_Host reader.Read: " & ex.Message)
             'LbLDebug.Text = ex.Message
         End Try
 
@@ -169,18 +177,28 @@ Public Class HostBearbeiten
 
     Private Function checknull(text As String)
         Try
-            ' If reader.Read() Then
             If reader.IsDBNull(0) Then
-                'MsgBox("Null")
                 Return String.Empty
             Else
                 Return reader(text).ToString
             End If
-            'End If
         Catch ex As Exception
             MsgBox("Checknull: " & ex.Message)
         End Try
+    End Function
 
+    Private Function returnTrueFalse(text As String)
+        Try
+            If reader.IsDBNull(0) Then
+                Return False
+            ElseIf reader(text).ToString = "" Then
+                Return False
+            Else
+                Return reader(text).ToString
+            End If
+        Catch ex As Exception
+            MsgBox("Checknull: " & ex.Message)
+        End Try
     End Function
 
     Private Function ausgabe_LinkedHost()
@@ -837,4 +855,37 @@ Public Class HostBearbeiten
     Private Sub NetzwerkÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostVerschiebenToolStripMenuItem.Click
         HostVerschieben.Show()
     End Sub
+
+    Private Sub chkFirewall_CheckedChanged(sender As Object, e As EventArgs) Handles chkFirewall.MouseClick
+        Dim hostip As String = TxtIP.Text
+        If TxtLinkedWith.Text <> "" Then hostip = TxtLinkedWith.Text
+
+        EnableDisableFirewallBoolean(hostip, chkFirewall.Checked)
+        ShowFirewallPanel(chkFirewall.Checked)
+    End Sub
+
+    Public Function EnableDisableFirewallBoolean(ByVal hostip As String, ByVal EnDisable As Boolean)
+        con.Open()
+        cmd.CommandText = "update TbL_Netzwerkclients set Firewall = '" & EnDisable & "' where ipadresse = '" & hostip & "'"
+        cmd.ExecuteNonQuery()
+        cmd.CommandText = "update TbL_Netzwerkclients set Firewall = '" & EnDisable & "' where linkedwith = '" & hostip & "'"
+        cmd.ExecuteNonQuery()
+        con.Close()
+    End Function
+
+    Public Function ShowFirewallPanel(ByVal EnDisable As Boolean)
+        If EnDisable = True Then
+            PanFirewall.Controls.Clear()
+            PanFirewall.Visible = True
+            Dim UserControl As New uscntr_Firewalleinstellungen
+            PanFirewall.Size = UserControl.Size
+            UserControl.SplitContainer1.Panel1Collapsed = True
+            PanFirewall.Controls.Add(UserControl)
+        Else
+            PanFirewall.Controls.Clear()
+            PanFirewall.Visible = False
+        End If
+    End Function
+
+
 End Class

Dokumentation/Login/Login.vb

@@ -9,7 +9,9 @@ Public Class Login
         Timer1.Enabled = False
         Try
             Dim Addresslistcounts As Integer = Resolve("verag.ost.dmn").AddressList.Count
+            'MsgBox(Environment.UserName)
             Abfrage(Environment.UserName)
+            'Main.Show()
             'MsgBox(Addresslistcounts)
         Catch
             MsgBox("Fehler beim Anmelden!")
@@ -29,7 +31,7 @@ Public Class Login
 
         For Each group As String In locGroups
             '    LblDebugInfo.Text &= group
-            If group = "CN=DokuGruppe" Then
+            If group = "CN=SG_Doku_User_FULL" Then
                 'MsgBox("Benutzer " & Environment.UserName & " in Gruppe " & group & " gefunden!")
                 gefunden = True
                 Main.Show()

Dokumentation/Main.Designer.vb

@@ -53,6 +53,7 @@ Partial Class Main
         Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.ChkDHCPClients = New System.Windows.Forms.CheckBox()
         Me.ChkFreieHosts = New System.Windows.Forms.CheckBox()
         Me.ChkKompAnsicht = New System.Windows.Forms.CheckBox()
         Me.PanNetzwerk = New System.Windows.Forms.Panel()
@@ -89,7 +90,6 @@ Partial Class Main
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
         Me.TimerUhrzeit = New System.Windows.Forms.Timer(Me.components)
         Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
-        Me.ChkDHCPClients = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.PanType.SuspendLayout()
@@ -327,42 +327,42 @@ Partial Class Main
         'NetzwerkeToolStripMenuItem
         '
         Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
-        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
         '
         'AnsichtDruckenToolStripMenuItem
         '
         Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
-        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
-        Me.AnsichtDruckenToolStripMenuItem.Text = "Ansicht drucken"
+        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
         '
         'ExportToolStripMenuItem
         '
         Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ExportToolStripMenuItem.Text = "Export"
         '
         'ImportToolStripMenuItem
         '
         Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ImportToolStripMenuItem.Text = "Import"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'ExitToolStripMenuItem
         '
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ExitToolStripMenuItem.Text = "Exit"
         '
         'Panel3
@@ -386,6 +386,18 @@ Partial Class Main
         Me.Panel3.Size = New System.Drawing.Size(200, 771)
         Me.Panel3.TabIndex = 2
         '
+        'ChkDHCPClients
+        '
+        Me.ChkDHCPClients.AutoSize = True
+        Me.ChkDHCPClients.Checked = True
+        Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 582)
+        Me.ChkDHCPClients.Name = "ChkDHCPClients"
+        Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17)
+        Me.ChkDHCPClients.TabIndex = 16
+        Me.ChkDHCPClients.Text = "DHCP Clients anzeigen"
+        Me.ChkDHCPClients.UseVisualStyleBackColor = True
+        '
         'ChkFreieHosts
         '
         Me.ChkFreieHosts.AutoSize = True
@@ -707,18 +719,6 @@ Partial Class Main
         Me.TimerUpdate.Enabled = True
         Me.TimerUpdate.Interval = 10000
         '
-        'ChkDHCPClients
-        '
-        Me.ChkDHCPClients.AutoSize = True
-        Me.ChkDHCPClients.Checked = True
-        Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 582)
-        Me.ChkDHCPClients.Name = "ChkDHCPClients"
-        Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17)
-        Me.ChkDHCPClients.TabIndex = 16
-        Me.ChkDHCPClients.Text = "DHCP Clients anzeigen"
-        Me.ChkDHCPClients.UseVisualStyleBackColor = True
-        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -760,7 +760,6 @@ Partial Class Main
     Friend WithEvents Panel3 As Panel
     Friend WithEvents LstStandort As ListBox
     Friend WithEvents LstNetzwerk As ListBox
-    Friend WithEvents DgVMain As DataGridView
     Friend WithEvents CmdTest As Button
     Friend WithEvents CMdTest2 As Button
     Friend WithEvents ChKZugangsdaten As CheckBox
@@ -822,4 +821,5 @@ Partial Class Main
     Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
     Friend WithEvents ChkFreieHosts As CheckBox
     Friend WithEvents ChkDHCPClients As CheckBox
+    Public WithEvents DgVMain As DataGridView
 End Class

Dokumentation/Main.vb

@@ -1,10 +1,4 @@
 Imports System.Data.SqlClient
-'Imports System.IO
-'Imports System.Runtime.InteropServices
-'Imports System.Text
-Imports System.Reflection
-
-
 
 Public Class Main
     Public con As New SqlConnection
@@ -22,18 +16,24 @@ Public Class Main
     Public Neu, geaendert As Boolean
     Public Debug As Boolean
     Public Suchbegriff As String
+    Public Shared SucheAktiv As Boolean = False
     Public Tabelle As String
+    Public DHCPRefresh As Boolean = True
 
     Public sAppPath As String = Application.StartupPath
     Public Updatequelle As String = "\\192.168.0.91\f\Programme\Doku\"
 
     Private Version As String = My.Resources.Version
 
+    Public Shared SelectedDGVIndex As Integer
+    Public Shared FirstDisplayedDGVEntry As Integer
 
+    Public printds As DataSet = Nothing
 
 
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Class1.EnableDoubleBuffered(DgVMain)
 
         Me.KeyPreview = True
         'MsgBox(sAppPath)
@@ -69,8 +69,6 @@ Public Class Main
             End With
         End If
 
-        EnableDoubleBuffered(DgVMain)
-
     End Sub
 
     ''LISTEN
@@ -164,17 +162,10 @@ Public Class Main
 
     Public Function LstStandortLoad()
         Dim ds As New DataSet()
-        Dim dt As New DataTable()
-        dbload()
-        Dim dataadapter As New SqlDataAdapter("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", con)
+
         LstStandort.Items.Clear()
-
+        SQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
         Try
-            con.Open()
-            dataadapter.Fill(ds)
-
-            'DgVMain.DataSource = ds.Tables(0)
-
             For Each dr As DataRow In ds.Tables(0).Rows
                 LstStandort.Items.Add(dr.Item(0))
             Next
@@ -182,29 +173,20 @@ Public Class Main
         Catch ex As Exception
             MsgBox("DataadapterFill LstStandOrtLoad(): " & ex.Message)
         End Try
-
-        con.Close()
-        'LstStandort.SelectedIndex = 0
         LstStandort.SelectedItem = "Verag_SUB"
 
         Dim dsa As New DataSet()
-        Dim da_allgemein As New SqlDataAdapter("select distinct Rubrik from tbl_allgemein", con)
+        SQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
         LstAllgemein.Items.Clear()
 
         Try
-            con.Open()
-            da_allgemein.Fill(dsa)
-
-            'DgVMain.DataSource = ds.Tables(0)
-
             For Each dr As DataRow In dsa.Tables(0).Rows
                 LstAllgemein.Items.Add(dr.Item(0))
             Next
+
         Catch ex As Exception
             MsgBox("DataadapterFill LstStandOrtLoad(): " & ex.Message)
         End Try
-
-        con.Close()
     End Function
 
     Public Function TypeFilter()
@@ -241,17 +223,12 @@ Public Class Main
 
     Public Function LstNetzwerkLoad()
         Dim ds As New DataSet()
-        Dim dt As New DataTable()
         Dim Standort As String = LstStandort.SelectedItem
-        dbload()
-        Dim dataadapter As New SqlDataAdapter("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", con)
+
+        SQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
+
         LstNetzwerk.Items.Clear()
         Try
-            con.Open()
-            dataadapter.Fill(ds)
-
-            'DgVMain.DataSource = ds.Tables(0)
-
             For Each dr As DataRow In ds.Tables(0).Rows
                 LstNetzwerk.Items.Add(dr.Item(0))
             Next
@@ -259,7 +236,6 @@ Public Class Main
         Catch ex As Exception
             'MsgBox("DataadapterFill LstNwerkload(): " & ex.Message)
         End Try
-        con.Close()
         LstNetzwerk.SelectedItem = "Intern"
         Try
             ' LstNetzwerk.SetSelected(0, True)
@@ -305,27 +281,22 @@ Public Class Main
 
     Public Function dgvload(tabelle As String)
         Dim ds As New DataSet()
-        Dim dt As New DataTable()
         Dim Standort As String = LstStandort.SelectedItem
         Dim Netzwerk As String = LstNetzwerk.SelectedItem
 
         Try
-            con.Open()
 
             If tabelle = "TbL_Netzwerkclients" Then
                 If ChkFreieHosts.Checked Then
-                    Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", con)
-                    dataadapter.Fill(ds)
+                    SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
                     dgvfill(ds, "Netzwerk")
                 Else
-                    Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "'  AND FQDN is not NUll order by host", con)
-                    dataadapter.Fill(ds)
+                    SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "'  AND FQDN is not NUll order by host", ds)
                     dgvfill(ds, "Netzwerk")
                 End If
 
             ElseIf tabelle = "TbL_Allgemein" Then
-                Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", con)
-                dataadapter.Fill(ds)
+                SQL.SQL2DS("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", ds)
                 dgvfill(ds, "Allgemein")
             End If
 
@@ -333,11 +304,10 @@ Public Class Main
             'MsgBox("DataadapterFill dgvload(): " & ex.Message)
         End Try
 
-        con.Close()
         NetzwerkInfoAnzeige()
     End Function
 
-    Public Function dgvload_filter(suchbegriff As String)
+    Public Function dgvload_filter(suchbegriff As String, Optional ByVal DHCPRefresh As Boolean = True)
         Dim starttime As Date = DateTime.Now
         Dim endtime As Date
         Dim ds As New DataSet()
@@ -355,11 +325,11 @@ Public Class Main
             '''SUCHPARAMETER DEFINIEREN'''
 
             If LstType.SelectedItem = "" Then
-                Suchparameter = "(Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "')"
+                Suchparameter = "(Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & " 'OR Standort LIKE'" & suchbegriff & "')"
             ElseIf LstType.SelectedItem = "ohne" Then
-                Suchparameter = "TYPE = '' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "')"
+                Suchparameter = "TYPE = '' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR Standort LIKE'" & suchbegriff & "')"
             Else
-                Suchparameter = "TYPE = '" & LstType.SelectedItem & "' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "')"
+                Suchparameter = "TYPE = '" & LstType.SelectedItem & "' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR Standort LIKE'" & suchbegriff & "')"
             End If
 
             If Not ChkFreieHosts.Checked Then
@@ -370,7 +340,7 @@ Public Class Main
             '''ABFRAGE DEFINIEREN'''
             '''
             'Dim SelSQL4DGV As String = "*"
-            Dim SelSQL4DGV As String = "FQDN, IPAdresse, Modell, Standort, Type, Seriennummer, QINFO, Info, DHCP, Host"
+            Dim SelSQL4DGV As String = "FQDN, IPAdresse, Modell, Standort, Type, Seriennummer, QINFO, Info, DHCP, Host, Link"
             If ChKZugangsdaten.Checked Then
                 SelSQL4DGV &= ", Benutzer, Passwort"
             End If
@@ -378,28 +348,21 @@ Public Class Main
             '''ABFRAGE RADIOBUTTONS + SUCHPARAMETER'''
 
             If RadGlobal.Checked Then
-                    Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", con)
-                    con.Open()
-                    dataadapter.Fill(ds)
-                ElseIf RadNurNetzwerk.Checked Then
-                    Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", con)
-                    con.Open()
-                    dataadapter.Fill(ds)
-                ElseIf RadStandort.Checked Then
-                    Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", con)
-                    con.Open()
-                    dataadapter.Fill(ds)
-                ElseIf suchbegriff = "" Then
-                    Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", con)
-                    con.Open()
-                    dataadapter.Fill(ds)
-                End If
-                con.Close()
+                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
+            ElseIf RadNurNetzwerk.Checked Then
+                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
+            ElseIf RadStandort.Checked Then
+                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
+            ElseIf suchbegriff = "" Then
+                SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
+            End If
 
-                Try
-                    endtime = DateTime.Now
-                    LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
-                    ''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients 
+
+            Try
+                endtime = DateTime.Now
+                LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
+                ''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients 
+                If DHCPRefresh = True And SucheAktiv = False Then
                     con.Open()
                     cmd.CommandText = "SELECT DHCPAbfragen FROM Tbl_Netzwerke WHERE NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "'"
                     reader = cmd.ExecuteReader()
@@ -416,19 +379,21 @@ Public Class Main
                         Else
                         End If
                     End If
+                    '    DHCPRefresh = False
+                End If
 
-                    ''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients 
-                    dgvfill(ds, "Netzwerk")
-                    Dim endtimedgvfill As Date = Date.Now
-                    LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
-                Catch ex As Exception
-                    MsgBox("dgvload_filter(): " & ex.Message)
-                End Try
+                ''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients 
+                dgvfill(ds, "Netzwerk")
+                Dim endtimedgvfill As Date = Date.Now
+                LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
+            Catch ex As Exception
+                MsgBox("dgvload_filter(): " & ex.Message)
+            End Try
 
-                con.Close()
-                NetzwerkInfoAnzeige()
-            Else
-                Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')"
+            con.Close()
+            NetzwerkInfoAnzeige()
+        Else
+            Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')"
             Dim dataadapter As New SqlDataAdapter("select * from TbL_Allgemein where  " & Suchparameter & "", con)
             con.Open()
             dataadapter.Fill(ds)
@@ -437,75 +402,91 @@ Public Class Main
             dgvfill(ds, "Allgemein")
             ' MsgBox("keine Wahl")
         End If
+        printds = ds
     End Function
 
     Public Function dgvfill(ds As DataSet, design As String)
         Dim starttime As Date = DateTime.Now
-        Dim endtime As Date
+        Dim endtime As New Date
         If design = "Netzwerk" Then
+            Try
+                With DgVMain
+                    .DataSource = ds.Tables(0)
+                    If ChkKompAnsicht.Checked Then
+                        .DefaultCellStyle.WrapMode = DataGridViewTriState.False
+                        .AutoSizeRowsMode = 0 'DataGridViewAutoSizeColumnsMode.ColumnHeader
+                        'MsgBox(DgVMain.AutoSizeRowsMode)
+                    Else
+                        .DefaultCellStyle.WrapMode = DataGridViewTriState.True
+                        .AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells
+                    End If
+                    If TxtSuche.Text = "" And LstType.SelectedItem = "" Then
+                        .RowsDefaultCellStyle.BackColor = Color.White
+                        SucheAktiv = False
+                    Else
+                        .RowsDefaultCellStyle.BackColor = Color.AntiqueWhite
+                        SucheAktiv = True
+                    End If
+                    '     MsgBox(SucheAktiv)
+                    .RowHeadersVisible = True
 
-            With DgVMain
-                .DataSource = ds.Tables(0)
-                If ChkKompAnsicht.Checked Then
-                    .DefaultCellStyle.WrapMode = DataGridViewTriState.False
-                    .AutoSizeRowsMode = 0 'DataGridViewAutoSizeColumnsMode.ColumnHeader
-                    'MsgBox(DgVMain.AutoSizeRowsMode)
-                Else
-                    .DefaultCellStyle.WrapMode = DataGridViewTriState.True
-                    .AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells
-                End If
-                If TxtSuche.Text = "" And LstType.SelectedItem = "" Then
-                    .RowsDefaultCellStyle.BackColor = Color.White
-                Else
-                    .RowsDefaultCellStyle.BackColor = Color.AntiqueWhite
-                End If
+                    .Columns("FQDN").DisplayIndex = 0
+                    .Columns("FQDN").HeaderText = "Name / FQDN"
 
-                .RowHeadersVisible = True
+                    .Columns("IPAdresse").DisplayIndex = 1
+                    .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+                    ' .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
 
-                .Columns("FQDN").DisplayIndex = 0
-                .Columns("FQDN").HeaderText = "Name / FQDN"
+                    .Columns("Modell").DisplayIndex = 2
 
-                .Columns("IPAdresse").DisplayIndex = 1
-                .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
+                    .Columns("Standort").DisplayIndex = 3
 
-                .Columns("Modell").DisplayIndex = 2
+                    .Columns("TYPE").DisplayIndex = 4
+                    .Columns("TYPE").HeaderText = "Gerätetype"
 
-                .Columns("Standort").DisplayIndex = 3
+                    .Columns("Seriennummer").DisplayIndex = 5
 
-                .Columns("TYPE").DisplayIndex = 4
-                .Columns("TYPE").HeaderText = "Gerätetype"
+                    .Columns("QINFO").HeaderText = "Quick-Info"
 
-                .Columns("Seriennummer").DisplayIndex = 5
+                    ' .Columns("NWSTANDORT").DisplayIndex = 8
 
-                .Columns("QINFO").HeaderText = "Quick-Info"
+                    'If ChKZugangsdaten.Checked = False Then
+                    '    .Columns("Benutzer").Visible = False
+                    '    .Columns("Passwort").Visible = False
+                    'ElseIf ChKZugangsdaten.Checked = True Then
+                    '    .Columns("Benutzer").Visible = True
+                    '    .Columns("Benutzer").DisplayIndex = 6
+                    '    .Columns("Passwort").Visible = True
+                    '    .Columns("Passwort").DisplayIndex = 7
+                    'End If
 
-                ' .Columns("NWSTANDORT").DisplayIndex = 8
+                    '' .Columns("NETNAME").Visible = False
+                    '.Columns("Netzwerk").Visible = False
+                    .Columns("DHCP").Visible = False
+                    '.Columns("MAC").Visible = False
+                    .Columns("LINK").Visible = False
+                    '.Columns("Linked").Visible = False
+                    '.Columns("Linked").DisplayIndex = 9
+                    '.Columns("LinkedWith").Visible = False
+                    '' .Columns("AddIp").Visible = False
+                    .Columns("HOST").Visible = False
+                    ''  .Columns("NWSTANDORT").Visible = False
+                    '.Columns("Info").Width = 250
 
-                'If ChKZugangsdaten.Checked = False Then
-                '    .Columns("Benutzer").Visible = False
-                '    .Columns("Passwort").Visible = False
-                'ElseIf ChKZugangsdaten.Checked = True Then
-                '    .Columns("Benutzer").Visible = True
-                '    .Columns("Benutzer").DisplayIndex = 6
-                '    .Columns("Passwort").Visible = True
-                '    .Columns("Passwort").DisplayIndex = 7
-                'End If
+                    '.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending)
+                End With
+            Catch ex As Exception
+                MsgBox("With DGV: " & ex.Message)
+            End Try
 
-                '' .Columns("NETNAME").Visible = False
-                '.Columns("Netzwerk").Visible = False
-                .Columns("DHCP").Visible = False
-                '.Columns("MAC").Visible = False
-                '.Columns("LINK").Visible = False
-                '.Columns("Linked").Visible = False
-                '.Columns("Linked").DisplayIndex = 9
-                '.Columns("LinkedWith").Visible = False
-                '' .Columns("AddIp").Visible = False
-                .Columns("HOST").Visible = False
-                ''  .Columns("NWSTANDORT").Visible = False
-                '.Columns("Info").Width = 250
 
-                '.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending)
-            End With
+            If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
+                DgVMain.ClearSelection()
+                DgVMain.Rows(SelectedDGVIndex).Selected = True
+                DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
+            Else
+                DgVMain.Rows(0).Selected = True
+            End If
 
 
             ''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
@@ -570,10 +551,12 @@ Public Class Main
             End With
 
         End If
+
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        dgvload_filter(Suchbegriff)
+        frmHostBearbeiten.IP = (DgVMain.CurrentRow.Cells("IPAdresse").Value)
+        frmHostBearbeiten.Show()
     End Sub
 
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
@@ -631,26 +614,26 @@ Public Class Main
         LblUhrzeit.Text = Date.Now
     End Sub
 
-    Private Sub DgVMain_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentDoubleClick
-        'MsgBox(DgVMain.CurrentRow.Cells("HOST").Value)
-        werbinich()
-        If Tabelle = "TbL_Netzwerkclients" Then
+    'Private Sub DgVMain_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentDoubleClick, DgVMain.CellDoubleClick
+    '    'MsgBox(DgVMain.CurrentRow.Cells("HOST").Value)
+    '    werbinich()
+    '    If Tabelle = "TbL_Netzwerkclients" Then
 
-            If LstStandort.SelectedItem = "" Then
-                LblUhrzeit.Text = "Kein Standort ausgewählt!"
-                Exit Sub
-            End If
-            If LstNetzwerk.SelectedItem = "" Then
-                LblUhrzeit.Text = "Kein Netzwerk ausgewählt!"
-                Exit Sub
-            End If
-            Class1.Absender = "Main"
-            HostBearbeiten.Show()
-        ElseIf Tabelle = "TbL_Allgemein" Then
-            EintragBearbeiten.Show()
-        End If
+    '        If LstStandort.SelectedItem = "" Then
+    '            LblUhrzeit.Text = "Kein Standort ausgewählt!"
+    '            Exit Sub
+    '        End If
+    '        If LstNetzwerk.SelectedItem = "" Then
+    '            LblUhrzeit.Text = "Kein Netzwerk ausgewählt!"
+    '            Exit Sub
+    '        End If
+    '        Class1.Absender = "Main"
+    '        HostBearbeiten.Show()
+    '    ElseIf Tabelle = "TbL_Allgemein" Then
+    '        EintragBearbeiten.Show()
+    '    End If
 
-    End Sub
+    'End Sub
 
     Private Sub CmdNetzwerkbearbeiten_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkbearbeiten.Click
         werbinich()
@@ -671,9 +654,12 @@ Public Class Main
     End Sub
 
     Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged, TxtSuche.MouseClick
-        If TxtSuche.TextLength < 1 Then
+        If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
             Suchbegriff = "%%"
             dgvload_filter(Suchbegriff)
+        ElseIf TxtSuche.TextLength < 1 And Not LstType.SelectedItem = "" Then
+            ChkDHCPClients.Checked = False
+            dgvload_filter(Suchbegriff)
         Else
             Suchbegriff = "%" & Class1.hochkomma(TxtSuche.Text) & "%"
             ChkDHCPClients.Checked = False
@@ -684,10 +670,25 @@ Public Class Main
         TypeFilter()
     End Sub
 
-    Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click
-        werbinich()
-        StartHostBearbeiten()
+    Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick, DgVMain.RowHeaderMouseDoubleClick
+        If Tabelle = "TbL_Netzwerkclients" Then
+            Try
+                frmHostBearbeiten.IP = (DgVMain.CurrentRow.Cells("IPAdresse").Value)
+            Catch
+                frmHostBearbeiten.IP = (DgVMain.Rows(0).Cells("IPAdresse").Value)
+            End Try
 
+            frmHostBearbeiten.Show()
+        ElseIf Tabelle = "TbL_Allgemein" Then
+            Dim Eintrag As New EintragBearbeiten
+            Eintrag.Titel = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Titel").Value))
+            If Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value)) = "" Then
+                Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
+            Else
+                Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value))
+            End If
+            Eintrag.Show()
+        End If
     End Sub
 
     Public Function StartHostBearbeiten()
@@ -730,59 +731,16 @@ Public Class Main
 
     Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs)
         werbinich()
-        startputty()
+        Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
     End Sub
 
     Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click
         werbinich()
-        startlink()
+        Ext_Programme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
     End Sub
-    Public Function startlink()
-        Dim URL As String
-        Try
-            URL = DgVMain.CurrentRow.Cells("Link").Value
-            If URL.Contains("http") Or URL.Contains("https") Then
-                Process.Start(DgVMain.CurrentRow.Cells("Link").Value)
-            ElseIf URL = "" Then
-                Exit Function
-            Else
-                Dim mstsc As New Process
-                mstsc.StartInfo.FileName = "mstsc.exe"
-                mstsc.StartInfo.Arguments = " /v: " & DgVMain.CurrentRow.Cells("Link").Value
-                mstsc.Start()
-
-            End If
-
-            ' Process.Start("mstsc.exe", "/v: dc01")
-        Catch ex As Exception
-            'MsgBox(ex.Message)
-
-        End Try
-
-    End Function
-
-    Public Function startputty()
-        Dim MainIP As String = Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
-        Dim Benutzer, Passwort As String
-        Class1.GetUserPasswort(MainIP, Benutzer, Passwort)
-        Try
-            Dim putty As New Process
-            putty.StartInfo.FileName = "putty.exe"
-            If Benutzer = "" And Passwort = "" Then
-                putty.StartInfo.Arguments = DgVMain.CurrentRow.Cells("IPAdresse").Value
-            Else
-                putty.StartInfo.Arguments = DgVMain.CurrentRow.Cells("IPAdresse").Value & " -l " & Benutzer & " -pw " & Passwort
-            End If
-            putty.Start()
-
-        Catch ex As Exception
-            MsgBox(ex.Message)
-
-        End Try
-    End Function
 
     Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
-        startputty()
+        Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
     End Sub
 
     Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -794,10 +752,7 @@ Public Class Main
     End Sub
 
     Private Sub CmdPing_Click(sender As Object, e As EventArgs) Handles CmdPing.Click, PingToolStripMenuItem.Click
-        Dim ping As New Process
-        ping.StartInfo.FileName = "cmd.exe"
-        ping.StartInfo.Arguments = " /k ping " & DgVMain.CurrentRow.Cells("IPAdresse").Value
-        ping.Start()
+        Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value)
     End Sub
 
     Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click
@@ -931,7 +886,11 @@ Public Class Main
 
 
     Private Sub AnsichtDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtDruckenToolStripMenuItem.Click
-        PrintDGV.Print_DataGridView(DgVMain)
+        ' PrintDGV.Print_DataGridView(DgVMain)
+        Dim Print As New frmPrint
+        Print.DruckeZugangsdaten = ChKZugangsdaten.Checked
+        Print.ds = printds
+        Print.Show()
     End Sub
 
     Public Function neuerEintrag()
@@ -949,10 +908,12 @@ Public Class Main
             Class1.Absender = "Main"
             HostBearbeiten.Show()
         ElseIf Tabelle = "TbL_Allgemein" Then
-            SenderTitel = ""
-            SenderRubrik = LstAllgemein.SelectedItem
+            'SenderTitel = ""
+            'SenderRubrik = LstAllgemein.SelectedItem
             Neu = True
-            EintragBearbeiten.Show()
+            Dim EintragNeu As New EintragBearbeiten
+            EintragNeu.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
+            EintragNeu.Show()
         End If
     End Function
 
@@ -1037,7 +998,7 @@ Public Class Main
             Else
                 LblInfo.Text = ""
                 If starter = "ImProgramm" Then
-                    MsgBox("Keine neuen Updates verfügbar.")
+                    If MsgBox("Keine neuen Updates verfügbar. Trotzdem ausführen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then StartUpdate()
                 Else
 
                 End If
@@ -1068,28 +1029,30 @@ Public Class Main
         CheckUpdate("Timer")
     End Sub
 
-    Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
 
-        Dim dgvType As Type = dgv.[GetType]()
-
-        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
-                                                     BindingFlags.Instance Or BindingFlags.NonPublic)
-
-        pi.SetValue(dgv, True, Nothing)
 
+    Private Sub DgVMain_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellClick
+        SelectedDGVIndex = DgVMain.CurrentRow.Index
+        FirstDisplayedDGVEntry = DgVMain.FirstDisplayedScrollingRowIndex
     End Sub
 
+
     Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
         If Tabelle = "TbL_Netzwerkclients" Then
             Dim ds As New DataSet
-            Dim IP As String = DgVMain.CurrentRow.Cells("IPAdresse").Value
-            Dim da As New SqlDataAdapter("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'", con)
             Dim linked As Boolean = False
+            Dim Standort, Netzwerkname As String
             Dim slavenetzwerke As String = ""
-            Dim NetzID As String = DgVMain.CurrentRow.Cells("NWStandort").Value & "_" & DgVMain.CurrentRow.Cells("NETNAME").Value
-            Dim Host As String = DgVMain.CurrentRow.Cells("Host").Value
-            Dim netzwerk As String = DgVMain.CurrentRow.Cells("Netzwerk").Value
+            Dim NetzID As String
 
+            Dim IP As String = DgVMain.CurrentRow.Cells("IPAdresse").Value
+            Dim Host As String = DgVMain.CurrentRow.Cells("Host").Value
+            Dim netzwerk As String = Class1.IP2ShortNW(IP)
+
+            Class1.ip2netname(IP, Standort, Netzwerkname)
+            NetzID = Standort & "_" & Netzwerkname
+
+            Dim da As New SqlDataAdapter("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'", con)
             da.Fill(ds)
             Dim i As Integer = 0
             For Each dr As DataRow In ds.Tables(0).Rows
@@ -1098,18 +1061,21 @@ Public Class Main
             Next
             con.Close()
 
-            If DgVMain.CurrentRow.Cells("Linked").Value = "1" Then
+            If Class1.IsLinked(IP) = "1" Then
                 linked = True
             End If
 
-            If MessageBox.Show("Eintrag >>" & Host & "<< wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
+            If MsgBox("Eintrag >>" & Host & "<< wirklich löschen?", MessageBoxButtons.OKCancel + MsgBoxStyle.DefaultButton2, "Hosteintrag löschen") = DialogResult.OK Then
+                Me.Cursor = Cursors.WaitCursor
                 Try
                     con.Open()
                     cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'"
                     cmd.ExecuteNonQuery()
                     reader = cmd.ExecuteReader()
                     If reader.Read Then
+                        Me.Cursor = Cursors.Default
                         If MsgBox("Dieser Eintrag ist ein Master-Eintrag (Linked). Es werden sämtliche Slave-Einträge" & vbCrLf & slavenetzwerke & " ebenfalls gelöscht. Fortfahren?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
+                            Me.Cursor = Cursors.WaitCursor
                             con.Close()
                             con.Open()
                             cmd.CommandText = "DELETE TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'"
@@ -1128,6 +1094,7 @@ Public Class Main
                 Catch ex As Exception
                     MsgBox(ex.Message)
                 End Try
+                Me.Cursor = Cursors.Default
                 con.Close()
             ElseIf DialogResult.Cancel Then
                 con.Close()
@@ -1135,6 +1102,7 @@ Public Class Main
             End If
             If linked = False Then
                 If MsgBox("Dazugehörigen Ordner im Dateisystem löschen?", MessageBoxButtons.YesNo + MsgBoxStyle.DefaultButton2, "Dateien löschen") = DialogResult.Yes Then
+                    Me.Cursor = Cursors.WaitCursor
                     Dim path As String = Class1.FilePath & "\" & NetzID & "\" & Host
                     Try
                         If IO.Directory.Exists(path) Then
@@ -1153,6 +1121,7 @@ Public Class Main
                 ElseIf DialogResult.No Then
                     Exit Sub
                 End If
+                Me.Cursor = Cursors.Default
             End If
 
             Class1.RefillNW(netzwerk)
@@ -1196,4 +1165,4 @@ Public Class Main
 
 End Class
 
-
+'1208

Dokumentation/My Project/Resources.Designer.vb

@@ -120,6 +120,36 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property pdf512() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("pdf512", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Print() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Print", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Print20x20() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Print20x20", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die DOKU ähnelt.
         '''</summary>
@@ -139,7 +169,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.22 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.29 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My Project/Resources.resx

@@ -131,7 +131,7 @@
     <value>..\Resources\Link.bmp;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.22</value>
+    <value>0.0.1.29</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>
@@ -142,7 +142,16 @@
   <data name="Programmcode" xml:space="preserve">
     <value>DOKU</value>
   </data>
+  <data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Dokumentation/My Project/licenses.licx

@@ -0,0 +1,2 @@
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

Dokumentation/frmHostBearbeiten.Designer.vb

@@ -0,0 +1,680 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmHostBearbeiten
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHostBearbeiten))
+        Me.chkFirewall = New System.Windows.Forms.CheckBox()
+        Me.CmdHostLink = New System.Windows.Forms.Button()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TxtStandort = New System.Windows.Forms.TextBox()
+        Me.TxtName = New System.Windows.Forms.TextBox()
+        Me.CmdCopy = New System.Windows.Forms.Button()
+        Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
+        Me.CmdIPChange = New System.Windows.Forms.Button()
+        Me.TxtIP = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.CmdLink = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.ChkLinked = New System.Windows.Forms.CheckBox()
+        Me.TxtMAC = New System.Windows.Forms.TextBox()
+        Me.TxtLinkedWith = New System.Windows.Forms.TextBox()
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.GeheZuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TxtType = New System.Windows.Forms.TextBox()
+        Me.TxtSeriennummer = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TxtInfo = New System.Windows.Forms.TextBox()
+        Me.TxtQuickInfo = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.CmdSave = New System.Windows.Forms.Button()
+        Me.TxtModell = New System.Windows.Forms.TextBox()
+        Me.CmdReset = New System.Windows.Forms.Button()
+        Me.CmdAbbrechen = New System.Windows.Forms.Button()
+        Me.LblLink = New System.Windows.Forms.Label()
+        Me.CmdIPDown = New System.Windows.Forms.Button()
+        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.CmdIPUp = New System.Windows.Forms.Button()
+        Me.CmdDateien = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.LbIPNetzwerkadresse = New System.Windows.Forms.Label()
+        Me.TxtKennwort = New System.Windows.Forms.TextBox()
+        Me.TxtHost = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.CmdDelete = New System.Windows.Forms.Button()
+        Me.TxtBenutzername = New System.Windows.Forms.TextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblSuchfilter = New System.Windows.Forms.Label()
+        Me.ChkShowSlaves = New System.Windows.Forms.CheckBox()
+        Me.PanFirewall = New System.Windows.Forms.Panel()
+        Me.PanSlaves = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.ContextMenuStrip2.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'chkFirewall
+        '
+        Me.chkFirewall.AutoSize = True
+        Me.chkFirewall.Location = New System.Drawing.Point(505, 485)
+        Me.chkFirewall.Name = "chkFirewall"
+        Me.chkFirewall.Size = New System.Drawing.Size(123, 17)
+        Me.chkFirewall.TabIndex = 136
+        Me.chkFirewall.Text = "Firewalleinstellungen"
+        Me.chkFirewall.UseVisualStyleBackColor = True
+        '
+        'CmdHostLink
+        '
+        Me.CmdHostLink.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdHostLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdHostLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdHostLink.Location = New System.Drawing.Point(328, 367)
+        Me.CmdHostLink.Name = "CmdHostLink"
+        Me.CmdHostLink.Size = New System.Drawing.Size(94, 23)
+        Me.CmdHostLink.TabIndex = 135
+        Me.CmdHostLink.Text = "Link"
+        Me.CmdHostLink.UseVisualStyleBackColor = False
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(0, 198)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(47, 13)
+        Me.Label11.TabIndex = 132
+        Me.Label11.Text = "Standort"
+        '
+        'TxtStandort
+        '
+        Me.TxtStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.TxtStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.TxtStandort.Location = New System.Drawing.Point(3, 214)
+        Me.TxtStandort.Name = "TxtStandort"
+        Me.TxtStandort.Size = New System.Drawing.Size(300, 20)
+        Me.TxtStandort.TabIndex = 97
+        '
+        'TxtName
+        '
+        Me.TxtName.Location = New System.Drawing.Point(3, 136)
+        Me.TxtName.Name = "TxtName"
+        Me.TxtName.Size = New System.Drawing.Size(300, 20)
+        Me.TxtName.TabIndex = 95
+        '
+        'CmdCopy
+        '
+        Me.CmdCopy.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdCopy.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdCopy.Location = New System.Drawing.Point(109, 57)
+        Me.CmdCopy.Name = "CmdCopy"
+        Me.CmdCopy.Size = New System.Drawing.Size(94, 23)
+        Me.CmdCopy.TabIndex = 131
+        Me.CmdCopy.Text = "Kopieren nach"
+        Me.CmdCopy.UseVisualStyleBackColor = False
+        '
+        'ChkKennwortAnzeigen
+        '
+        Me.ChkKennwortAnzeigen.AutoSize = True
+        Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(383, 275)
+        Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
+        Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
+        Me.ChkKennwortAnzeigen.TabIndex = 105
+        Me.ChkKennwortAnzeigen.Text = "Anzeigen"
+        Me.ChkKennwortAnzeigen.UseVisualStyleBackColor = True
+        '
+        'CmdIPChange
+        '
+        Me.CmdIPChange.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdIPChange.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdIPChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdIPChange.Location = New System.Drawing.Point(209, 57)
+        Me.CmdIPChange.Name = "CmdIPChange"
+        Me.CmdIPChange.Size = New System.Drawing.Size(94, 23)
+        Me.CmdIPChange.TabIndex = 130
+        Me.CmdIPChange.Text = "IP Ändern"
+        Me.CmdIPChange.UseVisualStyleBackColor = False
+        '
+        'TxtIP
+        '
+        Me.TxtIP.Enabled = False
+        Me.TxtIP.Location = New System.Drawing.Point(3, 97)
+        Me.TxtIP.Name = "TxtIP"
+        Me.TxtIP.Size = New System.Drawing.Size(219, 20)
+        Me.TxtIP.TabIndex = 113
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(0, 81)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(58, 13)
+        Me.Label1.TabIndex = 114
+        Me.Label1.Text = "IP Adresse"
+        '
+        'CmdLink
+        '
+        Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdLink.Enabled = False
+        Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdLink.Location = New System.Drawing.Point(534, 58)
+        Me.CmdLink.Name = "CmdLink"
+        Me.CmdLink.Size = New System.Drawing.Size(94, 23)
+        Me.CmdLink.TabIndex = 129
+        Me.CmdLink.Text = "Verknüpfen"
+        Me.CmdLink.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(0, 120)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(35, 13)
+        Me.Label2.TabIndex = 115
+        Me.Label2.Text = "Name"
+        '
+        'ChkLinked
+        '
+        Me.ChkLinked.AutoSize = True
+        Me.ChkLinked.Location = New System.Drawing.Point(328, 9)
+        Me.ChkLinked.Name = "ChkLinked"
+        Me.ChkLinked.Size = New System.Drawing.Size(134, 17)
+        Me.ChkLinked.TabIndex = 101
+        Me.ChkLinked.Text = "zusätzliche IP für Host:"
+        Me.ChkLinked.UseVisualStyleBackColor = True
+        '
+        'TxtMAC
+        '
+        Me.TxtMAC.Location = New System.Drawing.Point(328, 97)
+        Me.TxtMAC.Name = "TxtMAC"
+        Me.TxtMAC.Size = New System.Drawing.Size(300, 20)
+        Me.TxtMAC.TabIndex = 102
+        '
+        'TxtLinkedWith
+        '
+        Me.TxtLinkedWith.ContextMenuStrip = Me.ContextMenuStrip2
+        Me.TxtLinkedWith.Enabled = False
+        Me.TxtLinkedWith.Location = New System.Drawing.Point(328, 32)
+        Me.TxtLinkedWith.Name = "TxtLinkedWith"
+        Me.TxtLinkedWith.Size = New System.Drawing.Size(300, 20)
+        Me.TxtLinkedWith.TabIndex = 128
+        '
+        'ContextMenuStrip2
+        '
+        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GeheZuToolStripMenuItem})
+        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(126, 26)
+        '
+        'GeheZuToolStripMenuItem
+        '
+        Me.GeheZuToolStripMenuItem.Name = "GeheZuToolStripMenuItem"
+        Me.GeheZuToolStripMenuItem.Size = New System.Drawing.Size(125, 22)
+        Me.GeheZuToolStripMenuItem.Text = "Gehe zu..."
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(325, 81)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(30, 13)
+        Me.Label3.TabIndex = 116
+        Me.Label3.Text = "MAC"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(0, 354)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(74, 13)
+        Me.Label10.TabIndex = 127
+        Me.Label10.Text = "Seriennummer"
+        '
+        'TxtType
+        '
+        Me.TxtType.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.TxtType.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.TxtType.Location = New System.Drawing.Point(3, 331)
+        Me.TxtType.Name = "TxtType"
+        Me.TxtType.Size = New System.Drawing.Size(300, 20)
+        Me.TxtType.TabIndex = 99
+        '
+        'TxtSeriennummer
+        '
+        Me.TxtSeriennummer.Location = New System.Drawing.Point(3, 370)
+        Me.TxtSeriennummer.Name = "TxtSeriennummer"
+        Me.TxtSeriennummer.Size = New System.Drawing.Size(300, 20)
+        Me.TxtSeriennummer.TabIndex = 100
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(0, 315)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 13)
+        Me.Label4.TabIndex = 117
+        Me.Label4.Text = "Type"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(-2, 237)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(53, 13)
+        Me.Label9.TabIndex = 126
+        Me.Label9.Text = "QuickInfo"
+        '
+        'TxtInfo
+        '
+        Me.TxtInfo.Location = New System.Drawing.Point(328, 136)
+        Me.TxtInfo.Multiline = True
+        Me.TxtInfo.Name = "TxtInfo"
+        Me.TxtInfo.Size = New System.Drawing.Size(300, 98)
+        Me.TxtInfo.TabIndex = 103
+        '
+        'TxtQuickInfo
+        '
+        Me.TxtQuickInfo.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.TxtQuickInfo.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.TxtQuickInfo.Location = New System.Drawing.Point(1, 255)
+        Me.TxtQuickInfo.Multiline = True
+        Me.TxtQuickInfo.Name = "TxtQuickInfo"
+        Me.TxtQuickInfo.Size = New System.Drawing.Size(300, 57)
+        Me.TxtQuickInfo.TabIndex = 98
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(325, 120)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(25, 13)
+        Me.Label5.TabIndex = 118
+        Me.Label5.Text = "Info"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(0, 159)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(38, 13)
+        Me.Label8.TabIndex = 125
+        Me.Label8.Text = "Modell"
+        '
+        'CmdSave
+        '
+        Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdSave.Location = New System.Drawing.Point(534, 396)
+        Me.CmdSave.Name = "CmdSave"
+        Me.CmdSave.Size = New System.Drawing.Size(94, 23)
+        Me.CmdSave.TabIndex = 108
+        Me.CmdSave.Text = "&Speichern"
+        Me.CmdSave.UseVisualStyleBackColor = False
+        '
+        'TxtModell
+        '
+        Me.TxtModell.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.TxtModell.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.TxtModell.Location = New System.Drawing.Point(3, 175)
+        Me.TxtModell.Name = "TxtModell"
+        Me.TxtModell.Size = New System.Drawing.Size(300, 20)
+        Me.TxtModell.TabIndex = 96
+        '
+        'CmdReset
+        '
+        Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdReset.Location = New System.Drawing.Point(328, 425)
+        Me.CmdReset.Name = "CmdReset"
+        Me.CmdReset.Size = New System.Drawing.Size(94, 23)
+        Me.CmdReset.TabIndex = 111
+        Me.CmdReset.Text = "Reset"
+        Me.CmdReset.UseVisualStyleBackColor = False
+        '
+        'CmdAbbrechen
+        '
+        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdAbbrechen.Location = New System.Drawing.Point(534, 425)
+        Me.CmdAbbrechen.Name = "CmdAbbrechen"
+        Me.CmdAbbrechen.Size = New System.Drawing.Size(94, 23)
+        Me.CmdAbbrechen.TabIndex = 109
+        Me.CmdAbbrechen.Text = "Schließen"
+        Me.CmdAbbrechen.UseVisualStyleBackColor = False
+        '
+        'LblLink
+        '
+        Me.LblLink.AutoSize = True
+        Me.LblLink.Location = New System.Drawing.Point(325, 315)
+        Me.LblLink.Name = "LblLink"
+        Me.LblLink.Size = New System.Drawing.Size(78, 13)
+        Me.LblLink.TabIndex = 124
+        Me.LblLink.Text = "Link zum Gerät"
+        '
+        'CmdIPDown
+        '
+        Me.CmdIPDown.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdIPDown.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdIPDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdIPDown.Location = New System.Drawing.Point(3, 9)
+        Me.CmdIPDown.Name = "CmdIPDown"
+        Me.CmdIPDown.Size = New System.Drawing.Size(75, 23)
+        Me.CmdIPDown.TabIndex = 119
+        Me.CmdIPDown.Text = "-"
+        Me.CmdIPDown.UseVisualStyleBackColor = False
+        '
+        'TxtLink
+        '
+        Me.TxtLink.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.TxtLink.Location = New System.Drawing.Point(328, 331)
+        Me.TxtLink.Name = "TxtLink"
+        Me.TxtLink.Size = New System.Drawing.Size(300, 20)
+        Me.TxtLink.TabIndex = 107
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(159, 26)
+        '
+        'MitHTTPFüllenToolStripMenuItem
+        '
+        Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem"
+        Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
+        Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen"
+        '
+        'CmdIPUp
+        '
+        Me.CmdIPUp.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdIPUp.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdIPUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdIPUp.Location = New System.Drawing.Point(228, 9)
+        Me.CmdIPUp.Name = "CmdIPUp"
+        Me.CmdIPUp.Size = New System.Drawing.Size(75, 23)
+        Me.CmdIPUp.TabIndex = 120
+        Me.CmdIPUp.Text = "+"
+        Me.CmdIPUp.UseVisualStyleBackColor = False
+        '
+        'CmdDateien
+        '
+        Me.CmdDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdDateien.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdDateien.Location = New System.Drawing.Point(328, 396)
+        Me.CmdDateien.Name = "CmdDateien"
+        Me.CmdDateien.Size = New System.Drawing.Size(94, 23)
+        Me.CmdDateien.TabIndex = 110
+        Me.CmdDateien.Text = "Dateien"
+        Me.CmdDateien.UseVisualStyleBackColor = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(325, 276)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(52, 13)
+        Me.Label6.TabIndex = 123
+        Me.Label6.Text = "Kennwort"
+        '
+        'LbIPNetzwerkadresse
+        '
+        Me.LbIPNetzwerkadresse.AutoSize = True
+        Me.LbIPNetzwerkadresse.Location = New System.Drawing.Point(225, 81)
+        Me.LbIPNetzwerkadresse.Name = "LbIPNetzwerkadresse"
+        Me.LbIPNetzwerkadresse.Size = New System.Drawing.Size(43, 13)
+        Me.LbIPNetzwerkadresse.TabIndex = 121
+        Me.LbIPNetzwerkadresse.Text = "HostNr."
+        '
+        'TxtKennwort
+        '
+        Me.TxtKennwort.Location = New System.Drawing.Point(328, 292)
+        Me.TxtKennwort.Name = "TxtKennwort"
+        Me.TxtKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.TxtKennwort.Size = New System.Drawing.Size(300, 20)
+        Me.TxtKennwort.TabIndex = 106
+        '
+        'TxtHost
+        '
+        Me.TxtHost.Location = New System.Drawing.Point(228, 97)
+        Me.TxtHost.Name = "TxtHost"
+        Me.TxtHost.Size = New System.Drawing.Size(75, 20)
+        Me.TxtHost.TabIndex = 94
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(325, 237)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(75, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Benutzername"
+        '
+        'CmdDelete
+        '
+        Me.CmdDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdDelete.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdDelete.Location = New System.Drawing.Point(1, 425)
+        Me.CmdDelete.Name = "CmdDelete"
+        Me.CmdDelete.Size = New System.Drawing.Size(94, 23)
+        Me.CmdDelete.TabIndex = 112
+        Me.CmdDelete.Text = "Löschen"
+        Me.CmdDelete.UseVisualStyleBackColor = False
+        '
+        'TxtBenutzername
+        '
+        Me.TxtBenutzername.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.TxtBenutzername.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.TxtBenutzername.Location = New System.Drawing.Point(328, 253)
+        Me.TxtBenutzername.Name = "TxtBenutzername"
+        Me.TxtBenutzername.Size = New System.Drawing.Size(300, 20)
+        Me.TxtBenutzername.TabIndex = 104
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.lblSuchfilter)
+        Me.Panel1.Controls.Add(Me.ChkShowSlaves)
+        Me.Panel1.Controls.Add(Me.chkFirewall)
+        Me.Panel1.Controls.Add(Me.TxtBenutzername)
+        Me.Panel1.Controls.Add(Me.CmdHostLink)
+        Me.Panel1.Controls.Add(Me.CmdDelete)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Controls.Add(Me.TxtHost)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.TxtKennwort)
+        Me.Panel1.Controls.Add(Me.TxtStandort)
+        Me.Panel1.Controls.Add(Me.LbIPNetzwerkadresse)
+        Me.Panel1.Controls.Add(Me.TxtName)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.CmdCopy)
+        Me.Panel1.Controls.Add(Me.CmdDateien)
+        Me.Panel1.Controls.Add(Me.ChkKennwortAnzeigen)
+        Me.Panel1.Controls.Add(Me.CmdIPUp)
+        Me.Panel1.Controls.Add(Me.CmdIPChange)
+        Me.Panel1.Controls.Add(Me.TxtLink)
+        Me.Panel1.Controls.Add(Me.TxtIP)
+        Me.Panel1.Controls.Add(Me.CmdIPDown)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.LblLink)
+        Me.Panel1.Controls.Add(Me.CmdLink)
+        Me.Panel1.Controls.Add(Me.CmdAbbrechen)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.CmdReset)
+        Me.Panel1.Controls.Add(Me.ChkLinked)
+        Me.Panel1.Controls.Add(Me.TxtModell)
+        Me.Panel1.Controls.Add(Me.TxtMAC)
+        Me.Panel1.Controls.Add(Me.CmdSave)
+        Me.Panel1.Controls.Add(Me.TxtLinkedWith)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Controls.Add(Me.TxtQuickInfo)
+        Me.Panel1.Controls.Add(Me.TxtType)
+        Me.Panel1.Controls.Add(Me.TxtInfo)
+        Me.Panel1.Controls.Add(Me.TxtSeriennummer)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Location = New System.Drawing.Point(12, 12)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(643, 518)
+        Me.Panel1.TabIndex = 137
+        '
+        'lblSuchfilter
+        '
+        Me.lblSuchfilter.AutoSize = True
+        Me.lblSuchfilter.BackColor = System.Drawing.Color.IndianRed
+        Me.lblSuchfilter.Location = New System.Drawing.Point(96, 14)
+        Me.lblSuchfilter.Name = "lblSuchfilter"
+        Me.lblSuchfilter.Size = New System.Drawing.Size(107, 13)
+        Me.lblSuchfilter.TabIndex = 138
+        Me.lblSuchfilter.Text = "Suchfilter ist aktiviert!"
+        Me.lblSuchfilter.Visible = False
+        '
+        'ChkShowSlaves
+        '
+        Me.ChkShowSlaves.AutoSize = True
+        Me.ChkShowSlaves.Location = New System.Drawing.Point(383, 485)
+        Me.ChkShowSlaves.Name = "ChkShowSlaves"
+        Me.ChkShowSlaves.Size = New System.Drawing.Size(104, 17)
+        Me.ChkShowSlaves.TabIndex = 137
+        Me.ChkShowSlaves.Text = "Slaves anzeigen"
+        Me.ChkShowSlaves.UseVisualStyleBackColor = True
+        Me.ChkShowSlaves.Visible = False
+        '
+        'PanFirewall
+        '
+        Me.PanFirewall.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PanFirewall.Location = New System.Drawing.Point(909, 12)
+        Me.PanFirewall.Name = "PanFirewall"
+        Me.PanFirewall.Size = New System.Drawing.Size(507, 518)
+        Me.PanFirewall.TabIndex = 138
+        Me.PanFirewall.Visible = False
+        '
+        'PanSlaves
+        '
+        Me.PanSlaves.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.PanSlaves.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PanSlaves.Location = New System.Drawing.Point(661, 12)
+        Me.PanSlaves.MinimumSize = New System.Drawing.Size(50, 50)
+        Me.PanSlaves.Name = "PanSlaves"
+        Me.PanSlaves.Size = New System.Drawing.Size(242, 518)
+        Me.PanSlaves.TabIndex = 139
+        Me.PanSlaves.Visible = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.InitialImage = Global.Dokumentation.My.Resources.Resources.pdf512
+        Me.PictureBox1.Location = New System.Drawing.Point(507, 626)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
+        Me.PictureBox1.TabIndex = 140
+        Me.PictureBox1.TabStop = False
+        '
+        'frmHostBearbeiten
+        '
+        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.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.ClientSize = New System.Drawing.Size(1608, 815)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.PanSlaves)
+        Me.Controls.Add(Me.PanFirewall)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.Name = "frmHostBearbeiten"
+        Me.Text = " Host bearbeiten"
+        Me.ContextMenuStrip2.ResumeLayout(False)
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents chkFirewall As CheckBox
+    Friend WithEvents CmdHostLink As Button
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TxtStandort As TextBox
+    Friend WithEvents TxtName As TextBox
+    Friend WithEvents CmdCopy As Button
+    Friend WithEvents ChkKennwortAnzeigen As CheckBox
+    Friend WithEvents CmdIPChange As Button
+    Friend WithEvents TxtIP As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents CmdLink As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ChkLinked As CheckBox
+    Friend WithEvents TxtMAC As TextBox
+    Friend WithEvents TxtLinkedWith As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TxtType As TextBox
+    Friend WithEvents TxtSeriennummer As TextBox
+    Friend WithEvents Label4 As Label
+    Private WithEvents Label9 As Label
+    Friend WithEvents TxtInfo As TextBox
+    Friend WithEvents TxtQuickInfo As TextBox
+    Private WithEvents Label5 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents CmdSave As Button
+    Friend WithEvents TxtModell As TextBox
+    Friend WithEvents CmdReset As Button
+    Friend WithEvents CmdAbbrechen As Button
+    Friend WithEvents LblLink As Label
+    Friend WithEvents CmdIPDown As Button
+    Friend WithEvents TxtLink As TextBox
+    Friend WithEvents CmdIPUp As Button
+    Friend WithEvents CmdDateien As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents LbIPNetzwerkadresse As Label
+    Friend WithEvents TxtKennwort As TextBox
+    Friend WithEvents TxtHost As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents CmdDelete As Button
+    Friend WithEvents TxtBenutzername As TextBox
+    Friend WithEvents PanFirewall As Panel
+    Friend WithEvents ChkShowSlaves As CheckBox
+    Friend WithEvents PanSlaves As Panel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents MitHTTPFüllenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+    Friend WithEvents GeheZuToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblSuchfilter As Label
+    Friend WithEvents PictureBox1 As PictureBox
+End Class

Dokumentation/frmHostBearbeiten.resx

@@ -0,0 +1,986 @@
+<?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="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>174, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA
+        AACIYDh5TSB6TSF2SRt3Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh12SRt6TSF5TSCIYDh6TSFqOAZqOQdmMwBoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNmMwBqOQdqOAZ6TSF5TB9pNwVqOQdo
+        NQNoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNQNqOQdpNwV5TB9uPQ1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBuPQ1tPAtmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBt
+        PAtxQhNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBxQhN3SRxnNAFoNQNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNQNnNAF3SRx4Sx5oNQNoNgRm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBoNgRoNQN4Sx53Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
+        MwBmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
+        MwBmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
+        MwBmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
+        MwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwB0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3
+        Sh13Sh1oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN3Sh14Sx5oNQNoNgRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBoNgRoNQN4Sx53SRxnNAFoNQNm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBoNQNnNAF3SRxxQhNmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBxQhNtPAtmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBt
+        PAtuPQ1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBuPQ15TB9pNwVqOQdoNQNoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRo
+        NgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNgRoNQNqOQdpNwV5TB96TSFqOAZqOQdm
+        MwBoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNoNQNo
+        NQNmMwBqOQdqOAZ6TSGIYDh5TSB6TSF2SRt3Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13
+        Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh13Sh12SRt6TSF5TSCIYDj/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARQUFB+fn6oqKjZ2dn/////
+        ///////////////////////////////////////////////////////Z2dmoqKh+fn5QUFAEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAR+fn6oqKjZ2dn///////////////////////////////////////8E
+        BAQEBAQEBAQEBAQEBATh4eH////////////////////////////////////////////////////////Z
+        2dkEBAQEBAQEBAQEBAQEBATZ2dn////////////////////////////////IyMicnJxqamoEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBARQUFB+fn6+vr7p6en/////////////////////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAR+fn7h4eH////////////////////////////////////////////h
+        4eF+fn4EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARqamrh4eH/
+        //////////////////////////////8EBAQEBAQEBAQEBAQEBARqamr/////////////////////////
+        //////////////////////////////9+fn4EBAQEBAQEBAQEBAR+fn7/////////////////////////
+        ///Z2dlQUFAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBASoqKj/
+        //////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATIyMj/////////
+        ///////////////////////////IyMgEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBATIyMj///////////////////////////8EBAQEBAQEBAQEBAQE
+        BAQEBAS+vr7////////////////////////////////////////////////Z2dkEBAQEBAQEBAQEBAQE
+        BATZ2dn////////////////////////IyMgEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBARqamrx8fH/////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT////////////////////////////////////////x8fHR0dGcnJwE
+        BAQEBAQEBAQEBAQEBAQEBATR0dH////////////////////////////Z2dkEBAQEBAQEBAQEBAQEBAQE
+        BAScnJzR0dHx8fH////////////////x8fHR0dGcnJwEBAQEBAQEBAQEBAQEBAQEBATZ2dn/////////
+        //////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBATp6en/////////////////////////////////
+        //////////9+fn4EBAQEBAQEBAQEBAR+fn7////////////////////////h4eEEBAQEBAQEBAQEBAQE
+        BAQEBASoqKjR0dHh4eH////////////p6enZ2dm+vr5QUFAEBAQEBAQEBAQEBAQEBAScnJz/////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        ///////////////////////////////p6elqamoEBAQEBAQEBAQEBARQUFD/////////////////////
+        //////9QUFAEBAQEBAQEBAQEBARqamrh4eH////////////////////////////////////////h4eFq
+        amoEBAQEBAQEBAQEBARQUFD///////////////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBASOjo7/
+        ///////////////////////////////////////h4eEEBAQEBAQEBAQEBAQEBATIyMj/////////////
+        //////////9QUFAEBAQEBAQEBAQEBARqamrh4eH///////////////////////////////////////+c
+        nJwEBAQEBAQEBAQEBAQEBATZ2dn///////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT////////////////////////////////////////////////////////x8fEEBAQEBAQE
+        BAQEBAQEBATIyMj////////////////////R0dEEBAQEBAQEBAQEBAQEBATx8fH/////////////////
+        ///////////////////////////////x8fEEBAQEBAQEBAQEBAQEBATIyMj///////////////////8E
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBATR0dH///////////////////////////////////+cnJwEBAQE
+        BAQEBAQEBARQUFD////////////////////////R0dEEBAQEBAQEBAQEBAQEBATh4eH/////////////
+        //////////////////////////////////+Ojo4EBAQEBAQEBAQEBASOjo7/////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////+0tLQEBAQEBAQEBAQEBAScnJz///////////////////+cnJwEBAQEBAQE
+        BAQEBAS0tLT///////////////////////////////////////////////////////+0tLQEBAQEBAQE
+        BAQEBAScnJz///////////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATx8fH/////////
+        ///////////////////p6ekEBAQEBAQEBAQEBAQEBATIyMj///////////////////////+cnJwEBAQE
+        BAQEBAQEBAScnJz////////////////////////////////////////////////////h4eEEBAQEBAQE
+        BAQEBAQEBATx8fH///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        ///////////////////////////////////////////////////////h4eEEBAQEBAQEBAQEBARqamr/
+        //////////////////9+fn4EBAQEBAQEBAQEBATh4eH/////////////////////////////////////
+        ///////////////////h4eEEBAQEBAQEBAQEBAR+fn7///////////////////8EBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBASoqKj///////////////////////////+cnJwEBAQEBAQEBAQEBARQUFD/////
+        //////////////////////9qamoEBAQEBAQEBAQEBATIyMj/////////////////////////////////
+        //////////////////////9QUFAEBAQEBAQEBAQEBATZ2dn/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////
+        //////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATZ2dn////////////////////p
+        6ekEBAQEBAQEBAQEBAQEBATIyMj///////////////////////////8EBAQEBAQEBAQEBAQEBATZ2dn/
+        //////////////////////////////////////////////////////9+fn4EBAQEBAQEBAQEBATIyMj/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////
+        //8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAR+fn4EBAQEBAQE
+        BAQEBARqamr///////////////////+cnJwEBAQEBAQEBAQEBARQUFD/////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBATh4eH/////////////////////////////////////////////////
+        //////9+fn4EBAQEBAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////////8EBAQE
+        BAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8E
+        BAQEBAQEBAQEBAQEBATp6ekEBAQEBAQEBAQEBAQEBAS0tLT////////////p6ekEBAQEBAQEBAQEBAQE
+        BATIyMj///////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQE
+        BAQEBAT///////////////////////////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT///+0tLQEBAQEBAQEBAQEBAQEBATp
+        6en///////+cnJwEBAQEBAQEBAQEBARQUFD///////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////9+fn4EBAQE
+        BAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/
+        //////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQE
+        BAT///////9qamoEBAQEBAQEBAQEBAR+fn7////p6ekEBAQEBAQEBAQEBAQEBATIyMj/////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////
+        //////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////8EBAQEBAQEBAQEBAQEBAT////////h4eEEBAQEBAQEBAQEBAQEBATIyMicnJwEBAQE
+        BAQEBAQEBAQEBATx8fH///////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////
+        //8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT///////////+o
+        qKgEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////9+fn4EBAQEBAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////////8EBAQE
+        BAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8E
+        BAQEBAQEBAQEBAQEBAT////////////x8fFQUFAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATx8fH/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQE
+        BAQEBAT///////////////////////////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT////////////////Z2dkEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAS0tLT///////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////9+fn4EBAQE
+        BAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/
+        //////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQE
+        BAT///////////////////+Ojo4EBAQEBAQEBAQEBAQEBAQEBAQEBATx8fH/////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////
+        //////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////8EBAQEBAQEBAQEBAQEBAT////////////////////x8fEEBAQEBAQEBAQEBAQEBAQE
+        BAS0tLT///////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////
+        //8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////
+        //////////++vr4EBAQEBAQEBAQEBAQEBATR0dH/////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////9+fn4EBAQEBAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////////8EBAQE
+        BAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8E
+        BAQEBAQEBAQEBAQEBAT///////////////////////////9+fn4EBAQEBAQEBAQEBARqamr/////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQE
+        BAQEBAT///////////////////////////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT////////////////////////////p
+        6ekEBAQEBAQEBAQEBAQEBAS+vr7///////////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////9+fn4EBAQE
+        BAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/
+        //////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQE
+        BAT///////////////////////////////+0tLQEBAQEBAQEBAQEBAQEBATp6en/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////
+        //////////////////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////8EBAQEBAQEBAQEBAQEBAT///////////////////////////////////9QUFAEBAQE
+        BAQEBAQEBASOjo7///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////
+        //8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////
+        ///////////////////////Z2dkEBAQEBAQEBAQEBAQEBATR0dH/////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////9+fn4EBAQEBAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT////////////////////////////////////////////////////////////h4eEEBAQE
+        BAQEBAQEBARqamr///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT///////////////////8E
+        BAQEBAQEBAQEBAQEBAT///////////////////////////////////////+oqKgEBAQEBAQEBAQEBARQ
+        UFDx8fH///////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////+0tLQEBAQEBAQEBAQEBAScnJz///////////////////9+fn4EBAQEBAQE
+        BAQEBATh4eH////////////////////////////////////////////////////////h4eEEBAQEBAQE
+        BAQEBAR+fn7///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////
+        ///////////x8fEEBAQEBAQEBAQEBAQEBASoqKj///////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////9+fn4EBAQE
+        BAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        ///////////////////////////////////////////////////x8fEEBAQEBAQEBAQEBAQEBATIyMj/
+        //////////////////+cnJwEBAQEBAQEBAQEBAS0tLT/////////////////////////////////////
+        //////////////////+0tLQEBAQEBAQEBAQEBAScnJz///////////////////8EBAQEBAQEBAQEBAQE
+        BAT////////////////////////////////////////////R0dEEBAQEBAQEBAQEBAQEBATh4eH/////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT////////////////////////////////////////////////////p
+        6elqamoEBAQEBAQEBAQEBARQUFD////////////////////////R0dEEBAQEBAQEBAQEBAQEBATx8fH/
+        ///////////////////////////////////////////////x8fEEBAQEBAQEBAQEBAQEBATR0dH/////
+        //////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////
+        //9+fn4EBAQEBAQEBAQEBARqamr///////////////////////////8EBAQEBAQEBAQEBAQEBAT/////
+        //////////////////////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/
+        //////////////////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        ///////////////////x8fHR0dGcnJwEBAQEBAQEBAQEBAQEBAQEBATZ2dn/////////////////////
+        //////9QUFAEBAQEBAQEBAQEBARqamrh4eH////////////////////////////////////////h4eFq
+        amoEBAQEBAQEBAQEBARQUFD///////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////
+        ///////////////////////////////////p6ekEBAQEBAQEBAQEBAQEBAS+vr7/////////////////
+        //////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////////////////////
+        //////9+fn4EBAQEBAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BATIyMj////////////////////////////////Z2dkEBAQEBAQEBAQEBAQEBAQEBAScnJzR0dHx8fH/
+        ///////////////x8fHR0dGcnJwEBAQEBAQEBAQEBAQEBAQEBATZ2dn///////////////////////8E
+        BAQEBAQEBAQEBAQEBAT///////////////////////////////////////////////////++vr4EBAQE
+        BAQEBAQEBAQEBATx8fH///////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////
+        //////////////////////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////
+        //////////////////////8EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAR+fn7h4eH////////////////////////////////////////IyMgE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBATI
+        yMj///////////////////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////
+        //////////////////////////9qamoEBAQEBAQEBAQEBASOjo7///////////////////8EBAQEBAQE
+        BAQEBAQEBAT///////////////////////////////////////////////////////////9+fn4EBAQE
+        BAQEBAQEBAS0tLT///////////////////////////////////////8EBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARQUFB+fn6oqKjh4eH/////////////////////
+        ///////////////////////////////h4eF+fn4EBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQE
+        BAQEBAQEBAQEBAQEBAQEBAR+fn7h4eH///////////////////////////////8EBAQEBAQEBAQEBAQE
+        BAT////////////////////////////////////////////////////////h4eEEBAQEBAQEBAQEBAQE
+        BATZ2dn///////////////8EBAQEBAQEBAQEBAQEBAT/////////////////////////////////////
+        //////////////////////9+fn4EBAQEBAQEBAQEBAS0tLT/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////h4eGoqKh+
+        fn5QUFAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAR+fn6oqKjZ2dn/////////////////////////
+        //////////////+0tLS0tLS0tLS0tLS0tLT/////////////////////////////////////////////
+        ///////////////R0dG0tLS0tLS0tLS0tLS+vr7///////////////+0tLS0tLS0tLS0tLS0tLT/////
+        ///////////////////////////////////////////////////////IyMi0tLS0tLS0tLS0tLTZ2dn/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

Dokumentation/frmHostBearbeiten.vb

@@ -0,0 +1,306 @@
+Public Class frmHostBearbeiten
+
+    Public Shared IP As String = ""
+    Public host As New Host
+
+    Private Sub frmHostBearbeiten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        lblSuchfilter.Visible = Main.SucheAktiv
+        host = New Host
+        host.gethost(IP)
+        fillform(host)
+    End Sub
+
+    Public Function fillform(host As Host, Optional ByVal Linked As Boolean = False)
+        If Linked = False Then ''''''''''''''''''
+            TxtIP.Text = host.IPAdresse
+            TxtHost.Text = host.HOST
+
+            ChkLinked.Checked = host.Linked
+            TxtLinkedWith.Text = host.LinkedWith
+        ElseIf Linked = True Then
+            If host.Linked Then TxtLinkedWith.Text = host.LinkedWith
+        End If
+
+        TxtName.Text = host.FQDN
+        TxtModell.Text = host.Modell
+        TxtStandort.Text = host.Standort
+        TxtQuickInfo.Text = host.QINFO
+        TxtType.Text = host.TYPE
+        TxtSeriennummer.Text = host.Seriennummer
+
+        TxtMAC.Text = host.MAC
+        TxtInfo.Text = host.INFO
+        TxtBenutzername.Text = host.Benutzer
+        TxtKennwort.Text = host.Passwort
+        TxtLink.Text = host.LINK
+
+        Dim ds As New DataSet
+        Host.getSlaves(host.IPAdresse, ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            ShowSlavesPanel(True, ds)
+        Else
+            ShowSlavesPanel(False)
+        End If
+
+        chkFirewall.Checked = host.Firewall
+        ShowFirewallPanel(chkFirewall.Checked)
+
+        CmdIPChange.Enabled = Not ChkLinked.Checked
+    End Function
+
+    Public Function LoadFromExternal(IPtoLoad As String)
+        Dim host As New Host
+        host.gethost(IPtoLoad)
+        fillform(host)
+    End Function
+
+    Function fillHost()
+        With host
+            .IPAdresse = TxtIP.Text
+            .FQDN = TxtName.Text
+            .HOST = TxtHost.Text
+            .Modell = TxtModell.Text
+            .Standort = TxtStandort.Text
+            .QINFO = TxtQuickInfo.Text
+            .TYPE = TxtType.Text
+            .Seriennummer = TxtSeriennummer.Text
+
+            .Linked = ChkLinked.Checked
+            .LinkedWith = TxtLinkedWith.Text
+
+            .MAC = TxtMAC.Text
+            .INFO = TxtInfo.Text
+            .Benutzer = TxtBenutzername.Text
+            .Passwort = TxtKennwort.Text
+            .LINK = TxtLink.Text
+
+            .Firewall = chkFirewall.Checked
+        End With
+    End Function
+
+    Private Sub CmdIPUp_Click(sender As Object, e As EventArgs) Handles CmdIPUp.Click, CmdIPDown.Click
+        Dim starthost, endhost As Integer
+        Class1.getStartEndHost(host.IPAdresse, starthost, endhost)
+        Dim newip As String = ""
+        Dim newhost As String = ""
+        ' Dim meh As String = Main.DgVMain.Rows(0).Cells("IPAdresse").Value
+
+
+        If Main.SucheAktiv = False Then
+
+            '''
+            If sender.name = "CmdIPUp" Then
+                If host.HOST + 1 > endhost Then
+                    newhost = endhost
+                Else
+                    newhost = host.HOST + 1
+                    Main.SelectedDGVIndex = Main.SelectedDGVIndex + 1
+                    If Main.FirstDisplayedDGVEntry + 1 <= endhost Then Main.FirstDisplayedDGVEntry = Main.FirstDisplayedDGVEntry + 1
+                End If
+                newip = Class1.ip2ipnet(host.IPAdresse) & newhost
+
+            End If
+
+            If sender.name = "CmdIPDown" Then
+                If host.HOST - 1 <= starthost Then
+                    newhost = starthost
+                Else
+                    newhost = host.HOST - 1
+                    Main.SelectedDGVIndex = Main.SelectedDGVIndex - 1
+                    If Main.FirstDisplayedDGVEntry - 1 >= starthost Then
+                        Main.FirstDisplayedDGVEntry = Main.FirstDisplayedDGVEntry - 1
+                    Else
+                        Main.FirstDisplayedDGVEntry = 0
+                    End If
+                End If
+                newip = Class1.ip2ipnet(host.IPAdresse) & newhost
+
+            End If
+
+            ''' newhost = meh.Rows(Main.SelectedDGVIndex).Cells("IPAdresse").Value
+        ElseIf Main.SucheAktiv = True Then
+            Dim meh As DataGridView = Main.DgVMain
+
+            If sender.name = "CmdIPUp" Then
+
+                If Main.SelectedDGVIndex + 1 < (meh.Rows.Count - 1) Then Main.SelectedDGVIndex = Main.SelectedDGVIndex + 1
+                newip = meh.Rows(Main.SelectedDGVIndex).Cells("IPAdresse").Value
+                    If Main.FirstDisplayedDGVEntry + 1 <= endhost Then Main.FirstDisplayedDGVEntry = Main.FirstDisplayedDGVEntry + 1
+
+            End If
+
+            If sender.name = "CmdIPDown" Then
+
+                If Main.SelectedDGVIndex - 1 >= 0 Then Main.SelectedDGVIndex = Main.SelectedDGVIndex - 1
+                newip = meh.Rows(Main.SelectedDGVIndex).Cells("IPAdresse").Value
+                If Main.FirstDisplayedDGVEntry - 1 >= 1 Then Main.FirstDisplayedDGVEntry = Main.FirstDisplayedDGVEntry - 1
+
+            End If
+
+        End If
+
+        host = New Host
+        host.gethost(newip)
+        fillform(host)
+    End Sub
+
+    Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
+        fillHost()
+        host.updateHostEntry(host)
+        fillform(host)
+    End Sub
+
+    Private Sub ChkLinked_CheckedChanged(sender As Object, e As EventArgs) Handles ChkLinked.CheckedChanged
+        TxtLinkedWith.Enabled = ChkLinked.Checked
+        CmdLink.Enabled = ChkLinked.Checked
+        If Not ChkLinked.Checked Then TxtLinkedWith.Text = ""
+    End Sub
+
+    Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
+        Dim NETNAME As String = host.NETNAME
+        Dim Netzwerk As String = host.Netzwerk
+        host.gethost(TxtLinkedWith.Text)
+        host.NETNAME = NETNAME
+        host.Netzwerk = Netzwerk
+        fillform(host, True)
+    End Sub
+
+    Private Sub Hostbearbeiten_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+        'abfrage_aenderungenspeichern()
+        Main.dgvload_filter(Main.Suchbegriff)
+    End Sub
+
+    Private Sub CmdAbbrechen_Click(sender As Object, e As EventArgs) Handles CmdAbbrechen.Click
+        'abfrage_aenderungenspeichern()
+        ' Main.dgvload_filter(Main.Suchbegriff, False)
+        Close()
+    End Sub
+
+    Private Sub chkFirewall_CheckedChanged(sender As Object, e As EventArgs) Handles chkFirewall.MouseClick
+        Dim hostip As String = TxtIP.Text
+        If TxtLinkedWith.Text <> "" Then hostip = TxtLinkedWith.Text
+
+        EnableDisableFirewallBoolean(hostip, chkFirewall.Checked)
+        ShowFirewallPanel(chkFirewall.Checked)
+    End Sub
+    Public Function EnableDisableFirewallBoolean(ByVal hostip As String, ByVal EnDisable As Boolean)
+        SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "ipadresse = '" & hostip & "'")
+        SQL.UpdateSQL("TbL_Netzwerkclients", "Firewall = '" & EnDisable & "'", "linkedwith = '" & hostip & "'")
+    End Function
+
+    Public Function ShowFirewallPanel(ByVal EnDisable As Boolean)
+        If EnDisable = True Then
+            PanFirewall.Controls.Clear()
+            PanFirewall.Visible = True
+            Dim UserControl As New uscntr_Firewalleinstellungen
+            PanFirewall.Size = UserControl.Size
+            UserControl.SplitContainer1.Panel1Collapsed = True
+            If host.Linked = False Then UserControl.Host = host.IPAdresse
+            If host.Linked = True Then UserControl.Host = host.LinkedWith
+            PanFirewall.Controls.Add(UserControl)
+            If PanSlaves.Visible = False Then PanFirewall.Location = PanSlaves.Location
+            If PanSlaves.Visible = True Then PanFirewall.Location = New Point(PanSlaves.Location.X + PanSlaves.Width + 6, PanSlaves.Location.Y)
+        Else
+            PanFirewall.Controls.Clear()
+            PanFirewall.Visible = False
+        End If
+    End Function
+
+    Public Function ShowSlavesPanel(ByVal EnDisable As Boolean, Optional ByVal ds As DataSet = Nothing)
+        If EnDisable = True Then
+            PanSlaves.Controls.Clear()
+            PanSlaves.Visible = True
+            Dim UserControl As New uscntr_Slaves
+            PanSlaves.Size = UserControl.Size
+            UserControl.ds = ds
+            PanSlaves.Controls.Add(UserControl)
+        Else
+            PanSlaves.Controls.Clear()
+            PanSlaves.Visible = False
+        End If
+    End Function
+
+    Private Sub TxtHost_KeyUp_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtHost.KeyUp ', TxtHost.TextChanged
+        Try
+            If e.KeyValue = Keys.Enter Then
+                Dim Netz As String = Class1.ip2ipnet(TxtIP.Text)
+                Dim NewHost As String = TxtHost.Text
+                host = New Host
+                host.gethost(Netz & NewHost)
+                fillform(host)
+            End If
+        Catch
+        End Try
+    End Sub
+
+    Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged
+        If ChkKennwortAnzeigen.Checked Then
+            TxtKennwort.PasswordChar = ""
+        Else
+            TxtKennwort.PasswordChar = "*"
+        End If
+    End Sub
+
+    Private Sub CmdHostLink_Click(sender As Object, e As EventArgs) Handles CmdHostLink.Click
+        Ext_Programme.startlink(TxtLink.Text)
+    End Sub
+
+    Private Sub CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click
+        cFolder.explorerstarten(TxtIP.Text)
+    End Sub
+
+    Private Sub CmdReset_Click(sender As Object, e As EventArgs) Handles CmdReset.Click
+        host = New Host
+        host.gethost(TxtIP.Text)
+        fillform(host)
+    End Sub
+
+    Private Sub CmdCopy_Click(sender As Object, e As EventArgs) Handles CmdCopy.Click
+        Dim ZielHost As New Host
+        ZielHost = host
+        Dim ip As String
+        Class1.Host2IP(TxtHost.Text, host.NWSTANDORT, host.NETNAME, ip)
+        ZielHost.IPAdresse = ip
+        ZielHost.HOST = TxtHost.Text
+        ZielHost.updateHostEntry(ZielHost)
+        MsgBox("Host kopiert")
+        fillform(ZielHost)
+    End Sub
+
+    Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.Click
+        fillHost()
+        host.DeleteHost()
+        host = New Host
+        host.gethost(TxtIP.Text)
+        fillform(host)
+    End Sub
+
+    Private Sub CmdIPChange_Click(sender As Object, e As EventArgs) Handles CmdIPChange.Click
+        Dim newip As String = InputBox("neue IP Adresse eingeben:")
+        host = host.MoveHost(newip)
+        fillform(host)
+    End Sub
+
+    Private Sub TxtType_TextChanged(sender As Object, e As EventArgs) Handles TxtType.Enter, TxtStandort.Enter, TxtModell.Enter, TxtBenutzername.Enter
+        If sender.name = "TxtType" Then Class1.Autocomplete(TxtType, "Type", "Tbl_Netzwerkclients")
+        If sender.name = "TxtStandort" Then Class1.Autocomplete(TxtStandort, "Standort", "Tbl_Netzwerkclients")
+        If sender.name = "TxtModell" Then Class1.Autocomplete(TxtModell, "Modell", "Tbl_Netzwerkclients")
+        If sender.name = "TxtBenutzername" Then Class1.Autocomplete(TxtBenutzername, "Benutzer", "Tbl_Netzwerkclients")
+    End Sub
+
+    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
+        If e.KeyCode = Keys.Escape Then
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub MitHTTPFüllenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitHTTPFüllenToolStripMenuItem.Click
+        TxtLink.Text = "http://" & TxtIP.Text & "/"
+    End Sub
+
+    Private Sub GeheZuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GeheZuToolStripMenuItem.Click
+        Dim host As New Host
+        host.gethost(TxtLinkedWith.Text)
+        fillform(host)
+    End Sub
+End Class

Dokumentation/uscntr_Firewalleinstellungen.Designer.vb

@@ -0,0 +1,365 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_Firewalleinstellungen
+    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.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.btnLoeschen = New System.Windows.Forms.Button()
+        Me.CmdSpeichern = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtFQDN = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TxtInfo = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TxtDienste = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TxtPortsOut = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TxtPortsIn = New System.Windows.Forms.TextBox()
+        Me.chkDirekt = New System.Windows.Forms.CheckBox()
+        Me.TxtIpOut = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TxtIpIn = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.dgvFirewallEinstellungen = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cmdRefresh = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.CmdBearbeiten = New System.Windows.Forms.Button()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        CType(Me.dgvFirewallEinstellungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnNeu)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnLoeschen)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.CmdSpeichern)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label7)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtFQDN)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label6)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtInfo)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label4)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtDienste)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label3)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtPortsOut)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtPortsIn)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.chkDirekt)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtIpOut)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TxtIpIn)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label1)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.SplitContainer1.Panel2.Controls.Add(Me.dgvFirewallEinstellungen)
+        Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
+        Me.SplitContainer1.Size = New System.Drawing.Size(814, 600)
+        Me.SplitContainer1.SplitterDistance = 211
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnNeu.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Location = New System.Drawing.Point(598, 57)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(102, 70)
+        Me.btnNeu.TabIndex = 58
+        Me.btnNeu.Text = "&Neu"
+        Me.btnNeu.UseVisualStyleBackColor = False
+        '
+        'btnLoeschen
+        '
+        Me.btnLoeschen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnLoeschen.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.btnLoeschen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.btnLoeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLoeschen.Location = New System.Drawing.Point(709, 133)
+        Me.btnLoeschen.Name = "btnLoeschen"
+        Me.btnLoeschen.Size = New System.Drawing.Size(102, 70)
+        Me.btnLoeschen.TabIndex = 57
+        Me.btnLoeschen.Text = "&Löschen"
+        Me.btnLoeschen.UseVisualStyleBackColor = False
+        '
+        'CmdSpeichern
+        '
+        Me.CmdSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CmdSpeichern.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdSpeichern.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdSpeichern.Location = New System.Drawing.Point(598, 133)
+        Me.CmdSpeichern.Name = "CmdSpeichern"
+        Me.CmdSpeichern.Size = New System.Drawing.Size(102, 70)
+        Me.CmdSpeichern.TabIndex = 56
+        Me.CmdSpeichern.Text = "&Speichern"
+        Me.CmdSpeichern.UseVisualStyleBackColor = False
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(228, 78)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(108, 13)
+        Me.Label7.TabIndex = 106
+        Me.Label7.Text = "Gerät oder Hostname"
+        '
+        'txtFQDN
+        '
+        Me.txtFQDN.Location = New System.Drawing.Point(231, 94)
+        Me.txtFQDN.Name = "txtFQDN"
+        Me.txtFQDN.Size = New System.Drawing.Size(219, 20)
+        Me.txtFQDN.TabIndex = 54
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 117)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(25, 13)
+        Me.Label6.TabIndex = 104
+        Me.Label6.Text = "Info"
+        '
+        'TxtInfo
+        '
+        Me.TxtInfo.Location = New System.Drawing.Point(3, 133)
+        Me.TxtInfo.Multiline = True
+        Me.TxtInfo.Name = "TxtInfo"
+        Me.TxtInfo.Size = New System.Drawing.Size(447, 70)
+        Me.TxtInfo.TabIndex = 55
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 78)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 100
+        Me.Label4.Text = "Dienst(e)"
+        '
+        'TxtDienste
+        '
+        Me.TxtDienste.Location = New System.Drawing.Point(6, 94)
+        Me.TxtDienste.Name = "TxtDienste"
+        Me.TxtDienste.Size = New System.Drawing.Size(219, 20)
+        Me.TxtDienste.TabIndex = 53
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(228, 39)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(94, 13)
+        Me.Label3.TabIndex = 98
+        Me.Label3.Text = "Ausgehende Ports"
+        '
+        'TxtPortsOut
+        '
+        Me.TxtPortsOut.Location = New System.Drawing.Point(231, 55)
+        Me.TxtPortsOut.Name = "TxtPortsOut"
+        Me.TxtPortsOut.Size = New System.Drawing.Size(219, 20)
+        Me.TxtPortsOut.TabIndex = 51
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(3, 39)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(91, 13)
+        Me.Label8.TabIndex = 96
+        Me.Label8.Text = "Eingehende Ports"
+        '
+        'TxtPortsIn
+        '
+        Me.TxtPortsIn.Location = New System.Drawing.Point(6, 55)
+        Me.TxtPortsIn.Name = "TxtPortsIn"
+        Me.TxtPortsIn.Size = New System.Drawing.Size(219, 20)
+        Me.TxtPortsIn.TabIndex = 50
+        '
+        'chkDirekt
+        '
+        Me.chkDirekt.AutoSize = True
+        Me.chkDirekt.Location = New System.Drawing.Point(456, 58)
+        Me.chkDirekt.Name = "chkDirekt"
+        Me.chkDirekt.Size = New System.Drawing.Size(41, 17)
+        Me.chkDirekt.TabIndex = 52
+        Me.chkDirekt.Text = "1:1"
+        Me.chkDirekt.UseVisualStyleBackColor = True
+        '
+        'TxtIpOut
+        '
+        Me.TxtIpOut.Location = New System.Drawing.Point(231, 15)
+        Me.TxtIpOut.Name = "TxtIpOut"
+        Me.TxtIpOut.Size = New System.Drawing.Size(219, 20)
+        Me.TxtIpOut.TabIndex = 49
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(228, -1)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(121, 13)
+        Me.Label2.TabIndex = 51
+        Me.Label2.Text = "Ausgehende IP Adresse"
+        '
+        'TxtIpIn
+        '
+        Me.TxtIpIn.Location = New System.Drawing.Point(6, 16)
+        Me.TxtIpIn.Name = "TxtIpIn"
+        Me.TxtIpIn.Size = New System.Drawing.Size(219, 20)
+        Me.TxtIpIn.TabIndex = 48
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(118, 13)
+        Me.Label1.TabIndex = 49
+        Me.Label1.Text = "Eingehende IP Adresse"
+        '
+        'dgvFirewallEinstellungen
+        '
+        Me.dgvFirewallEinstellungen.AllowUserToAddRows = False
+        Me.dgvFirewallEinstellungen.AllowUserToDeleteRows = False
+        Me.dgvFirewallEinstellungen.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvFirewallEinstellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvFirewallEinstellungen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvFirewallEinstellungen.Location = New System.Drawing.Point(0, 30)
+        Me.dgvFirewallEinstellungen.Name = "dgvFirewallEinstellungen"
+        Me.dgvFirewallEinstellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvFirewallEinstellungen.Size = New System.Drawing.Size(814, 355)
+        Me.dgvFirewallEinstellungen.TabIndex = 17
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Panel1.Controls.Add(Me.cmdRefresh)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.CmdBearbeiten)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(814, 30)
+        Me.Panel1.TabIndex = 18
+        '
+        'cmdRefresh
+        '
+        Me.cmdRefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cmdRefresh.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdRefresh.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdRefresh.Location = New System.Drawing.Point(568, 3)
+        Me.cmdRefresh.Name = "cmdRefresh"
+        Me.cmdRefresh.Size = New System.Drawing.Size(24, 23)
+        Me.cmdRefresh.TabIndex = 18
+        Me.cmdRefresh.Text = "R"
+        Me.cmdRefresh.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.Label5.Location = New System.Drawing.Point(202, 6)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(194, 15)
+        Me.Label5.TabIndex = 17
+        Me.Label5.Text = "Firewall Portforwarding / NAT"
+        '
+        'CmdBearbeiten
+        '
+        Me.CmdBearbeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CmdBearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdBearbeiten.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdBearbeiten.Location = New System.Drawing.Point(598, 3)
+        Me.CmdBearbeiten.Name = "CmdBearbeiten"
+        Me.CmdBearbeiten.Size = New System.Drawing.Size(213, 23)
+        Me.CmdBearbeiten.TabIndex = 16
+        Me.CmdBearbeiten.Text = "&Bearbeiten"
+        Me.CmdBearbeiten.UseVisualStyleBackColor = False
+        '
+        'uscntr_Firewalleinstellungen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.Controls.Add(Me.SplitContainer1)
+        Me.MinimumSize = New System.Drawing.Size(620, 600)
+        Me.Name = "uscntr_Firewalleinstellungen"
+        Me.Size = New System.Drawing.Size(814, 600)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.dgvFirewallEinstellungen, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents CmdBearbeiten As Button
+    Friend WithEvents TxtIpIn As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TxtIpOut As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents chkDirekt As CheckBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TxtInfo As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TxtDienste As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TxtPortsOut As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TxtPortsIn As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents txtFQDN As TextBox
+    Friend WithEvents CmdSpeichern As Button
+    Friend WithEvents dgvFirewallEinstellungen As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents btnLoeschen As Button
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cmdRefresh As Button
+End Class

Dokumentation/uscntr_Firewalleinstellungen.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

Dokumentation/uscntr_Firewalleinstellungen.vb

@@ -0,0 +1,155 @@
+Public Class uscntr_Firewalleinstellungen
+    Property Host As String = ""
+    Public ds As New DataSet
+    Public fwr_ID As String
+    Public Neu As Boolean = False
+
+    Private Sub uscntr_Firewalleinstellungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Neu = True
+        fwr_ID = Host & Now.ToString("yyyyMMddhhmmss")
+        Class1.EnableDoubleBuffered(dgvFirewallEinstellungen)
+        Laden()
+        '        MsgBox(ds.Tables(0).Rows(0).Item("fwr_info").ToString)
+    End Sub
+
+    Public Function Laden()
+        ds.Clear()
+        FirewallEntry.getFirewallEntrys(ds, Host)
+        FillDGV(ds)
+    End Function
+
+    Private Sub CmdBearbeiten_Click(sender As Object, e As EventArgs) Handles CmdBearbeiten.Click
+        SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed
+
+        If SplitContainer1.Panel1Collapsed = True Then
+            CmdBearbeiten.Text = "Bearbeiten"
+        Else
+            CmdBearbeiten.Text = "Ausblenden"
+        End If
+
+    End Sub
+
+
+    Public Function FillDGV(ds As DataSet)
+        With dgvFirewallEinstellungen
+            ' .DefaultCellStyle.BackColor = Color.Olive
+            .DataSource = ds.Tables(0)
+            .AutoSize = False
+            '.AutoSizeRowsMode = 0
+
+            .Columns("fwr_in").DisplayIndex = 0
+            .Columns("fwr_in").HeaderText = "IP In"
+
+            .Columns("fwr_out").DisplayIndex = 1
+            .Columns("fwr_out").HeaderText = "IP Out"
+
+            .Columns("fwr_portsin").DisplayIndex = 2
+            .Columns("fwr_portsin").HeaderText = "Ports In"
+
+            .Columns("fwr_portsout").DisplayIndex = 3
+            .Columns("fwr_portsout").HeaderText = "Ports Out"
+
+            .Columns("fwr_dienste").DisplayIndex = 4
+            .Columns("fwr_dienste").HeaderText = "Dienste"
+
+            .Columns("fwr_FQDN").DisplayIndex = 5
+            .Columns("fwr_FQDN").HeaderText = "FQDN"
+
+            .Columns("fwr_info").DisplayIndex = 6
+            .Columns("fwr_info").HeaderText = "Info"
+            '.Columns("fwr_info").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+
+            '.Columns("fwr_allowdeny").Visible = False
+            .Columns("fwr_direct").Visible = False
+            .Columns("fwr_ID").Visible = False
+
+        End With
+
+    End Function
+
+    Private Sub chkDirekt_CheckedChanged(sender As Object, e As EventArgs) Handles chkDirekt.CheckedChanged
+        If chkDirekt.Checked Then
+            TxtPortsIn.Text = "*"
+            TxtPortsOut.Text = "*"
+            TxtPortsIn.Enabled = False
+            TxtPortsOut.Enabled = False
+        Else
+            TxtPortsIn.Enabled = True
+            TxtPortsOut.Enabled = True
+        End If
+    End Sub
+
+    Private Sub dgvFirewallEinstellungen_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFirewallEinstellungen.CellClick
+        Neu = False
+        With dgvFirewallEinstellungen
+            If .CurrentRow.Cells("fwr_direct").Value = True Then
+                chkDirekt.Checked = True
+            Else
+                chkDirekt.Checked = False
+                TxtPortsIn.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_portsin").Value)
+                TxtPortsOut.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_portsout").Value)
+            End If
+
+            TxtIpIn.Text = .CurrentRow.Cells("fwr_in").Value
+            TxtIpOut.Text = .CurrentRow.Cells("fwr_out").Value
+            TxtDienste.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_dienste").Value)
+            TxtInfo.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_info").Value)
+            txtFQDN.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_FQDN").Value)
+            fwr_ID = .CurrentRow.Cells("fwr_ID").Value
+        End With
+
+        'MsgBox(dgvFirewallEinstellungen.CurrentRow.Cells("fwr_direct").Value)
+
+
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        Neu = True
+        clear()
+        fwr_ID = Host & Now.ToString("yyyyMMddhhmmss")
+        'MsgBox(fwr_ID)
+    End Sub
+
+    Private Sub CmdSpeichern_Click(sender As Object, e As EventArgs) Handles CmdSpeichern.Click
+        Dim eintrag As New FirewallEntry
+        eintrag.fwr_ID = fwr_ID
+        eintrag.fwr_hostip = Host
+        eintrag.fwr_in = TxtIpIn.Text.Replace("'", "")
+        eintrag.fwr_out = TxtIpOut.Text.Replace("'", "")
+        eintrag.fwr_portsin = TxtPortsIn.Text.Replace("'", "")
+        eintrag.fwr_portsout = TxtPortsOut.Text.Replace("'", "")
+        eintrag.fwr_FQDN = txtFQDN.Text.Replace("'", "")
+        eintrag.fwr_info = TxtInfo.Text.Replace("'", "")
+        eintrag.fwr_direct = chkDirekt.Checked
+        eintrag.fwr_dienste = TxtDienste.Text.Replace("'", "")
+
+        If Neu = False Then eintrag.updateFirewallEntry(eintrag)
+        If Neu = True Then eintrag.insertFirewallEntry(eintrag)
+        Neu = False
+        Laden()
+    End Sub
+
+    Private Sub btnLoeschen_Click(sender As Object, e As EventArgs) Handles btnLoeschen.Click
+        If MsgBox("Eintrag wirklich löschen?", MessageBoxButtons.OKCancel, "Löschen?") = MsgBoxResult.Ok Then SQL.DeleteSQL("TbL_FirewallRules", "fwr_ID = '" & fwr_ID & "'") : clear() : Laden()
+    End Sub
+
+    Private Function clear()
+        TxtIpIn.Text = ""
+        TxtIpOut.Text = ""
+        txtFQDN.Text = ""
+        TxtDienste.Text = ""
+        TxtInfo.Text = ""
+        chkDirekt.Checked = False
+        TxtPortsIn.Text = ""
+        TxtPortsOut.Text = ""
+    End Function
+
+    Private Sub cmdRefresh_Click(sender As Object, e As EventArgs) Handles cmdRefresh.Click
+        Laden()
+    End Sub
+
+    Private Sub dgvFirewallEinstellungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFirewallEinstellungen.CellContentDoubleClick
+        SplitContainer1.Panel1Collapsed = False
+        CmdBearbeiten.Text = "Ausblenden"
+    End Sub
+End Class

Dokumentation/uscntr_Slaves.Designer.vb

@@ -0,0 +1,109 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class uscntr_Slaves
+    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.dgvSlaves = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cmdRefresh = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        CType(Me.dgvSlaves, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'dgvSlaves
+        '
+        Me.dgvSlaves.AllowUserToAddRows = False
+        Me.dgvSlaves.AllowUserToDeleteRows = False
+        Me.dgvSlaves.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.dgvSlaves.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
+        Me.dgvSlaves.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvSlaves.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvSlaves.Location = New System.Drawing.Point(0, 30)
+        Me.dgvSlaves.MultiSelect = False
+        Me.dgvSlaves.Name = "dgvSlaves"
+        Me.dgvSlaves.ReadOnly = True
+        Me.dgvSlaves.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvSlaves.Size = New System.Drawing.Size(220, 570)
+        Me.dgvSlaves.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Panel1.Controls.Add(Me.cmdRefresh)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(220, 30)
+        Me.Panel1.TabIndex = 1
+        '
+        'cmdRefresh
+        '
+        Me.cmdRefresh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cmdRefresh.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdRefresh.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdRefresh.Location = New System.Drawing.Point(193, 3)
+        Me.cmdRefresh.Name = "cmdRefresh"
+        Me.cmdRefresh.Size = New System.Drawing.Size(24, 23)
+        Me.cmdRefresh.TabIndex = 19
+        Me.cmdRefresh.Text = "R"
+        Me.cmdRefresh.UseVisualStyleBackColor = False
+        Me.cmdRefresh.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.Location = New System.Drawing.Point(29, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(158, 15)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "verknüpfte IP-Adressen:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'uscntr_Slaves
+        '
+        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.dgvSlaves)
+        Me.Controls.Add(Me.Panel1)
+        Me.MinimumSize = New System.Drawing.Size(220, 600)
+        Me.Name = "uscntr_Slaves"
+        Me.Size = New System.Drawing.Size(220, 600)
+        CType(Me.dgvSlaves, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents dgvSlaves As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cmdRefresh As Button
+End Class

Dokumentation/uscntr_Slaves.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

Dokumentation/uscntr_Slaves.vb

@@ -0,0 +1,25 @@
+Public Class uscntr_Slaves
+
+    Property ds As New DataSet
+
+    Private Sub uscntr_Slaves_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Class1.EnableDoubleBuffered(dgvSlaves)
+        filldgv()
+    End Sub
+
+    Function filldgv()
+        With dgvSlaves
+            .DataSource = ds.Tables(0)
+            .ColumnHeadersVisible = False
+            .RowHeadersVisible = False
+            .AutoSize = True
+            .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+            .Columns("Netzwerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+        End With
+    End Function
+
+    Private Sub dgvSlaves_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSlaves.CellDoubleClick
+        frmHostBearbeiten.LoadFromExternal(dgvSlaves.CurrentRow.Cells("IPAdresse").Value)
+
+    End Sub
+End Class