edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Start 2

Browse Source
This commit is contained in:
ms
2018-11-22 16:52:25 +01:00
parent 85727a8e2f
commit 106f90ba07
70 changed files with 21133 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Doku.sln
View File

@@ -3,9 +3,9 @@ Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28010.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation", "..\..\..\Documents\Visual Studio 2017\Sebastian Spielwiese\Dokumentation\Dokumentation\Dokumentation.vbproj", "{AAC83634-C001-43FC-8E9D-07A263ED0600}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation", "Dokumentation\Dokumentation.vbproj", "{AAC83634-C001-43FC-8E9D-07A263ED0600}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation_Updater", "..\..\..\Documents\Visual Studio 2017\Sebastian Spielwiese\Dokumentation\Dokumentation_Updater\Dokumentation_Updater.vbproj", "{5C2A947D-17F3-4975-8781-3B662FC72EAB}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation_Updater", "Dokumentation_Updater\Dokumentation_Updater.vbproj", "{5C2A947D-17F3-4975-8781-3B662FC72EAB}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution

159
Dokumentation/Administration/CSVImportieren.Designer.vb generated Normal file
View File

@@ -0,0 +1,159 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class CSVImportieren
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.LblQuelle = New System.Windows.Forms.Label()
Me.CmdQuelle = New System.Windows.Forms.Button()
Me.dgvImport = New System.Windows.Forms.DataGridView()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.LblInfo = New System.Windows.Forms.Label()
Me.CmdImport = New System.Windows.Forms.Button()
Me.ChkSkip = New System.Windows.Forms.CheckBox()
Me.CmdTest = New System.Windows.Forms.Button()
Me.LstAllgemein = New System.Windows.Forms.ListBox()
CType(Me.dgvImport, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'LblQuelle
'
Me.LblQuelle.AutoSize = True
Me.LblQuelle.Location = New System.Drawing.Point(93, 49)
Me.LblQuelle.Name = "LblQuelle"
Me.LblQuelle.Size = New System.Drawing.Size(97, 13)
Me.LblQuelle.TabIndex = 5
Me.LblQuelle.Text = "bitte Quelle wählen"
'
'CmdQuelle
'
Me.CmdQuelle.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdQuelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdQuelle.Location = New System.Drawing.Point(12, 44)
Me.CmdQuelle.Name = "CmdQuelle"
Me.CmdQuelle.Size = New System.Drawing.Size(75, 23)
Me.CmdQuelle.TabIndex = 4
Me.CmdQuelle.Text = "Quelle"
Me.CmdQuelle.UseVisualStyleBackColor = False
'
'dgvImport
'
Me.dgvImport.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvImport.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvImport.Location = New System.Drawing.Point(211, 0)
Me.dgvImport.Name = "dgvImport"
Me.dgvImport.Size = New System.Drawing.Size(964, 676)
Me.dgvImport.TabIndex = 6
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel1.Controls.Add(Me.LblInfo)
Me.Panel1.Controls.Add(Me.CmdImport)
Me.Panel1.Controls.Add(Me.ChkSkip)
Me.Panel1.Controls.Add(Me.CmdTest)
Me.Panel1.Controls.Add(Me.LstAllgemein)
Me.Panel1.Controls.Add(Me.CmdQuelle)
Me.Panel1.Controls.Add(Me.LblQuelle)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(211, 676)
Me.Panel1.TabIndex = 7
'
'LblInfo
'
Me.LblInfo.AutoSize = True
Me.LblInfo.Location = New System.Drawing.Point(12, 130)
Me.LblInfo.Name = "LblInfo"
Me.LblInfo.Size = New System.Drawing.Size(25, 13)
Me.LblInfo.TabIndex = 16
Me.LblInfo.Text = "Info"
'
'CmdImport
'
Me.CmdImport.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdImport.Location = New System.Drawing.Point(115, 96)
Me.CmdImport.Name = "CmdImport"
Me.CmdImport.Size = New System.Drawing.Size(75, 23)
Me.CmdImport.TabIndex = 15
Me.CmdImport.Text = "Importieren"
Me.CmdImport.UseVisualStyleBackColor = False
'
'ChkSkip
'
Me.ChkSkip.AutoSize = True
Me.ChkSkip.Location = New System.Drawing.Point(12, 73)
Me.ChkSkip.Name = "ChkSkip"
Me.ChkSkip.Size = New System.Drawing.Size(147, 17)
Me.ChkSkip.TabIndex = 14
Me.ChkSkip.Text = "vorhandene überspringen"
Me.ChkSkip.UseVisualStyleBackColor = True
'
'CmdTest
'
Me.CmdTest.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdTest.Location = New System.Drawing.Point(21, 528)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 23)
Me.CmdTest.TabIndex = 13
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = False
Me.CmdTest.Visible = False
'
'LstAllgemein
'
Me.LstAllgemein.FormattingEnabled = True
Me.LstAllgemein.Location = New System.Drawing.Point(21, 557)
Me.LstAllgemein.Name = "LstAllgemein"
Me.LstAllgemein.Size = New System.Drawing.Size(151, 95)
Me.LstAllgemein.TabIndex = 12
Me.LstAllgemein.Visible = False
'
'CSVImportieren
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1175, 676)
Me.Controls.Add(Me.dgvImport)
Me.Controls.Add(Me.Panel1)
Me.Name = "CSVImportieren"
Me.Text = "CSVImportieren"
CType(Me.dgvImport, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents LblQuelle As Label
Friend WithEvents CmdQuelle As Button
Friend WithEvents dgvImport As DataGridView
Friend WithEvents Panel1 As Panel
Friend WithEvents LstAllgemein As ListBox
Friend WithEvents CmdTest As Button
Friend WithEvents ChkSkip As CheckBox
Friend WithEvents CmdImport As Button
Friend WithEvents LblInfo As Label
End Class

120
Dokumentation/Administration/CSVImportieren.resx Normal file
View File

@@ -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>

267
Dokumentation/Administration/CSVImportieren.vb Normal file
View File

@@ -0,0 +1,267 @@
Imports System.IO
Imports System.Data.SqlClient
Public Class CSVImportieren
Public cmd As New SqlCommand
Public reader As SqlDataReader
Public importdatei As String
Public con As New SqlConnection
Public Senderstandort As String
Public SenderNetzwerk As String
Public SenderAllgemein As String
Private Sub CSVImportieren_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dbload()
lblinfo_standard()
End Sub
Public Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Sub CmdQuelle_Click(sender As Object, e As EventArgs) Handles CmdQuelle.Click
Dim openfiledialog As New OpenFileDialog
openfiledialog.InitialDirectory = "C:\Verag"
openfiledialog.DefaultExt = ".csv"
openfiledialog.Filter = "CSV files (*.csv)|*.CSV"
openfiledialog.ShowDialog()
importdatei = openfiledialog.FileName
LblQuelle.Text = importdatei
loadcsv()
End Sub
Private Function lblinfo_standard()
LblInfo.Text = "FQDN" & vbCrLf &
"QINFO" & vbCrLf &
"IPAdresse" & vbCrLf &
"NETNAME" & vbCrLf &
"Seriennummer" & vbCrLf &
"MAC" & vbCrLf &
"Benutzer" & vbCrLf &
"Passwort" & vbCrLf &
"LINK" & vbCrLf &
"INFO" & vbCrLf &
"TYPE" & vbCrLf &
"HOST" & vbCrLf &
"NWSTANDORT" & vbCrLf &
"Modell" & vbCrLf &
"Linked" & vbCrLf &
"LinkedWith" & vbCrLf &
"AddIP"
End Function
Private Function loadcsv()
Try
Dim testsr As New StreamReader(importdatei)
Catch
MsgBox("Keine Datei angegben!")
Exit Function
End Try
Dim sr As New StreamReader(importdatei)
Dim dt As New DataTable
dt.CaseSensitive = False
Dim newline() As String = sr.ReadLine.Split(";")
Dim itemarraystring As Object = ""
Dim zeile As String
Dim zeilevbcrlf As String
Dim felder() As String
Dim i As Integer
Try
i = 0
While sr.EndOfStream = False
dt.Columns.AddRange({New DataColumn(newline(i))})
i = i + 1
End While
'Do While i <= (Num.Value - 1)
' dt.Columns.AddRange({New DataColumn(newline(i))})
' i = i + 1
'Loop
Catch exkopfzeile As Exception
'MsgBox("Kopfzeile: " & i & vbCrLf & exkopfzeile.Message)
End Try
Try
While (Not sr.EndOfStream)
zeile = sr.ReadLine
zeilevbcrlf = Replace(zeile, "##vbCrLf##", vbCrLf)
felder = zeilevbcrlf.Split(";")
Dim dr As DataRow = dt.NewRow
dr.ItemArray = felder
dt.Rows.Add(dr)
End While
Catch exInhalt As Exception
'MsgBox("Inhalt: " & exInhalt.Message)
End Try
dgvImport.DataSource = dt
sr.Close()
FileClose()
End Function
Public Function IPbereitsvorhanden(Ip As String)
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE IPAdresse='" & Ip & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read Then
con.Close()
Return (True)
'MsgBox(Ip & " bereits vorhanden")
Else
con.Close()
Return (False)
'MsgBox(Ip & " noch nicht vorhanden")
End If
con.Close()
End Function
Public Function Import()
Dim FQDN As String = ""
Dim QINFO As String = ""
Dim IPAdresse As String = ""
Dim NETNAME As String = ""
Dim Seriennummer As String = ""
Dim MAC As String = ""
Dim Benutzer As String = ""
Dim Passwort As String = ""
Dim LINK As String = ""
Dim INFO As String = ""
Dim TYPE As String = ""
Dim HOST As Integer
Dim NWSTANDORT As String = ""
Dim Modell As String = ""
Dim Linked As Integer
Dim LinkedWith As String = ""
Dim AddIP As String = ""
Dim Standort As String = ""
Try
For r As Integer = 0 To dgvImport.Rows.Count - 2
FQDN = dgvImport.Rows(r).Cells("FQDN").Value.ToString
' MsgBox(Count(FQDN))
If Count(FQDN) > 40 Then
FQDN = FQDN.Substring(0, 40)
End If
QINFO = dgvImport.Rows(r).Cells("QINFO").Value.ToString
IPAdresse = dgvImport.Rows(r).Cells("IPAdresse").Value.ToString
NETNAME = dgvImport.Rows(r).Cells("NETNAME").Value.ToString
Seriennummer = dgvImport.Rows(r).Cells("Seriennummer").Value.ToString
MAC = dgvImport.Rows(r).Cells("MAC").Value.ToString
'Benutzer = dgvImport.Rows(r).Cells("Benutzer").Value.ToString
'Passwort = dgvImport.Rows(r).Cells("Passwort").Value.ToString
'LINK = dgvImport.Rows(r).Cells("LINK").Value.ToString
'INFO = dgvImport.Rows(r).Cells("INFO").Value.ToString
' TYPE = dgvImport.Rows(r).Cells("TYPE").Value.ToString
NWSTANDORT = dgvImport.Rows(r).Cells("NWSTANDORT").Value.ToString
' Modell = dgvImport.Rows(r).Cells("Modell").Value.ToString
'LinkedWith = dgvImport.Rows(r).Cells("LinkedWith").Value.ToString
'AddIP = dgvImport.Rows(r).Cells("AddIP").Value.ToString
HOST = dgvImport.Rows(r).Cells("HOST").Value
'Linked = dgvImport.Rows(r).Cells("Linked").Value
Try
Standort = dgvImport.Rows(r).Cells("Standort").Value.ToString
If Count(Standort) > 40 Then
Standort = Standort.Substring(0, 40)
End If
Catch ex As Exception
Standort = ""
End Try
Try
' Dim SQLUpdate As String = "FQDN = '" & FQDN & "', QINFO = '" & QINFO & "', NETNAME = '" & NETNAME & "', STANDORT = '" & Standort & "', Seriennummer = '" & Seriennummer & "', MAC = '" & MAC & "', Benutzer = '" & Benutzer & "', Passwort = '" & Passwort & "', LINK = '" & LINK & "', INFO = '" & INFO & "', TYPE = '" & TYPE & "', HOST = '" & HOST & "', NWSTANDORT = '" & NWSTANDORT & "', Modell = '" & Modell & "', Linked = '" & Linked & "', LinkedWith = '" & LinkedWith & "', AddIP = '" & AddIP & "' WHERE IPAdresse = '" & IPAdresse & "'"
Dim SQLUpdate As String = "FQDN = '" & FQDN & "', QINFO = '" & QINFO & "', NETNAME = '" & NETNAME & "', STANDORT = '" & Standort & "', Seriennummer = '" & Seriennummer & "', MAC = '" & MAC & "', HOST = '" & HOST & "', NWSTANDORT = '" & NWSTANDORT & "' WHERE IPAdresse = '" & IPAdresse & "'"
If ChkSkip.Checked = False Then
If IPbereitsvorhanden(IPAdresse) = True Then
con.Open()
cmd.CommandText = "Update Tbl_Netzwerkclients SET " & SQLUpdate & ""
cmd.ExecuteNonQuery()
con.Close()
ElseIf IPbereitsvorhanden(IPAdresse) = False Then
con.Open()
cmd.CommandText = "INSERT INTO Tbl_Netzwerkclients (IPAdresse, Host, Info, Linked) VALUES ('" & IPAdresse & "', '" & HOST & "', 'Importiert aus CSV', '0')"
cmd.ExecuteNonQuery()
'cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET QINFO = 'Test' WHERE IPAdresse = '" & IPAdresse & "'"
cmd.CommandText = "Update Tbl_Netzwerkclients SET " & SQLUpdate & ""
cmd.ExecuteNonQuery()
con.Close()
End If
ElseIf ChkSkip.Checked = True Then
If IPbereitsvorhanden(IPAdresse) = True Then
ElseIf IPbereitsvorhanden(IPAdresse) = False Then
con.Open()
cmd.CommandText = "INSERT INTO Tbl_Netzwerkclients (IPAdresse, Host) VALUES ('" & IPAdresse & "', '" & HOST & "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "Update Tbl_Netzwerkclients SET " & SQLUpdate & ""
cmd.ExecuteNonQuery()
con.Close()
End If
End If
Catch ex As Exception
MsgBox("Import: " & ex.Message)
con.Close()
End Try
Next
Catch ex As Exception
MsgBox("Import Variablen definieren: " & ex.Message)
con.Close()
End Try
con.Close()
Try
con.Open()
cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET STANDORT='' WHERE STANDORT IS NULL"
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET MODELL='' WHERE MODELL IS NULL"
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET TYPE='' WHERE TYPE IS NULL"
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
End Try
End Function
Private Function Count(Strrrring As String)
Dim co As Integer = 0
For Each ch As Char In Strrrring
co = co + 1
Next
Return co
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
End Sub
Private Sub CmdImport_Click(sender As Object, e As EventArgs) Handles CmdImport.Click
If ChkSkip.Checked = True Then
If MsgBox("Importieren?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Import()
Else
Exit Sub
End If
ElseIf ChkSkip.Checked = False Then
If MsgBox("Importieren? Bestehende Datensätze werden mit Importdatei überschrieben!" & vbCrLf & "Wenn dies nicht gewünscht ist, bitte Häkchen setzen...", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Import()
Else
Exit Sub
End If
End If
End Sub
End Class

475
Dokumentation/Administration/NWEdit.Designer.vb generated Normal file
View File

@@ -0,0 +1,475 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class NWEdit
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(NWEdit))
Me.PanDebug = New System.Windows.Forms.Panel()
Me.CmdTest = New System.Windows.Forms.Button()
Me.LblTest = New System.Windows.Forms.Label()
Me.LblInfo = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.TxtHostbereich = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.TxtNWBits = New System.Windows.Forms.TextBox()
Me.ChkDHCPAnzeigen = New System.Windows.Forms.CheckBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.TxtDHCPBereichEnde = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.TxtInfo = New System.Windows.Forms.TextBox()
Me.TxtDNSServer = New System.Windows.Forms.TextBox()
Me.TxtNetzwerk = New System.Windows.Forms.TextBox()
Me.LblNetzwerk = New System.Windows.Forms.Label()
Me.CmdReset = New System.Windows.Forms.Button()
Me.TxtSubnet = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TxtVLAN = New System.Windows.Forms.TextBox()
Me.TxtGateway = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TxtDHCPServer = New System.Windows.Forms.TextBox()
Me.LblVLANName = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.CmdSave = New System.Windows.Forms.Button()
Me.TxtDHCPBereichStart = New System.Windows.Forms.TextBox()
Me.CmdAbbrechen = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DebugToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
Me.PanDebug.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'PanDebug
'
Me.PanDebug.Controls.Add(Me.CmdTest)
Me.PanDebug.Controls.Add(Me.LblTest)
Me.PanDebug.Location = New System.Drawing.Point(12, 583)
Me.PanDebug.Name = "PanDebug"
Me.PanDebug.Size = New System.Drawing.Size(353, 155)
Me.PanDebug.TabIndex = 39
Me.PanDebug.Visible = False
'
'CmdTest
'
Me.CmdTest.Location = New System.Drawing.Point(29, 31)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 23)
Me.CmdTest.TabIndex = 34
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = True
'
'LblTest
'
Me.LblTest.AutoSize = True
Me.LblTest.Location = New System.Drawing.Point(26, 57)
Me.LblTest.Name = "LblTest"
Me.LblTest.Size = New System.Drawing.Size(39, 13)
Me.LblTest.TabIndex = 35
Me.LblTest.Text = "Label7"
'
'LblInfo
'
Me.LblInfo.AutoSize = True
Me.LblInfo.Location = New System.Drawing.Point(26, 427)
Me.LblInfo.Name = "LblInfo"
Me.LblInfo.Size = New System.Drawing.Size(87, 13)
Me.LblInfo.TabIndex = 36
Me.LblInfo.Text = "Netzwerkbereich"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.TxtHostbereich)
Me.Panel1.Controls.Add(Me.LblInfo)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.TxtNWBits)
Me.Panel1.Controls.Add(Me.ChkDHCPAnzeigen)
Me.Panel1.Controls.Add(Me.Label9)
Me.Panel1.Controls.Add(Me.TxtDHCPBereichEnde)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.TxtInfo)
Me.Panel1.Controls.Add(Me.TxtDNSServer)
Me.Panel1.Controls.Add(Me.TxtNetzwerk)
Me.Panel1.Controls.Add(Me.LblNetzwerk)
Me.Panel1.Controls.Add(Me.CmdReset)
Me.Panel1.Controls.Add(Me.TxtSubnet)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.TxtVLAN)
Me.Panel1.Controls.Add(Me.TxtGateway)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.TxtDHCPServer)
Me.Panel1.Controls.Add(Me.LblVLANName)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.CmdSave)
Me.Panel1.Controls.Add(Me.TxtDHCPBereichStart)
Me.Panel1.Controls.Add(Me.CmdAbbrechen)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Location = New System.Drawing.Point(12, 27)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(311, 452)
Me.Panel1.TabIndex = 40
'
'TxtHostbereich
'
Me.TxtHostbereich.Enabled = False
Me.TxtHostbereich.Location = New System.Drawing.Point(91, 106)
Me.TxtHostbereich.Name = "TxtHostbereich"
Me.TxtHostbereich.Size = New System.Drawing.Size(186, 20)
Me.TxtHostbereich.TabIndex = 4
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(18, 109)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(67, 13)
Me.Label10.TabIndex = 42
Me.Label10.Text = "Hostbereich:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(231, 57)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(12, 13)
Me.Label7.TabIndex = 41
Me.Label7.Text = "/"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtNWBits
'
Me.TxtNWBits.Location = New System.Drawing.Point(244, 54)
Me.TxtNWBits.Name = "TxtNWBits"
Me.TxtNWBits.Size = New System.Drawing.Size(33, 20)
Me.TxtNWBits.TabIndex = 2
'
'ChkDHCPAnzeigen
'
Me.ChkDHCPAnzeigen.AutoSize = True
Me.ChkDHCPAnzeigen.Location = New System.Drawing.Point(206, 187)
Me.ChkDHCPAnzeigen.Name = "ChkDHCPAnzeigen"
Me.ChkDHCPAnzeigen.Size = New System.Drawing.Size(76, 17)
Me.ChkDHCPAnzeigen.TabIndex = 9
Me.ChkDHCPAnzeigen.Text = "Anzeigen?"
Me.ChkDHCPAnzeigen.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(134, 187)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(24, 13)
Me.Label9.TabIndex = 38
Me.Label9.Text = "Bis:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtDHCPBereichEnde
'
Me.TxtDHCPBereichEnde.Location = New System.Drawing.Point(160, 184)
Me.TxtDHCPBereichEnde.MaxLength = 3
Me.TxtDHCPBereichEnde.Name = "TxtDHCPBereichEnde"
Me.TxtDHCPBereichEnde.Size = New System.Drawing.Size(42, 20)
Me.TxtDHCPBereichEnde.TabIndex = 8
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(57, 265)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(28, 13)
Me.Label8.TabIndex = 32
Me.Label8.Text = "Info:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtInfo
'
Me.TxtInfo.Location = New System.Drawing.Point(91, 262)
Me.TxtInfo.Multiline = True
Me.TxtInfo.Name = "TxtInfo"
Me.TxtInfo.Size = New System.Drawing.Size(186, 65)
Me.TxtInfo.TabIndex = 12
'
'TxtDNSServer
'
Me.TxtDNSServer.Location = New System.Drawing.Point(91, 210)
Me.TxtDNSServer.Name = "TxtDNSServer"
Me.TxtDNSServer.Size = New System.Drawing.Size(186, 20)
Me.TxtDNSServer.TabIndex = 10
'
'TxtNetzwerk
'
Me.TxtNetzwerk.Location = New System.Drawing.Point(91, 54)
Me.TxtNetzwerk.Name = "TxtNetzwerk"
Me.TxtNetzwerk.Size = New System.Drawing.Size(138, 20)
Me.TxtNetzwerk.TabIndex = 1
'
'LblNetzwerk
'
Me.LblNetzwerk.AutoSize = True
Me.LblNetzwerk.Location = New System.Drawing.Point(30, 57)
Me.LblNetzwerk.Name = "LblNetzwerk"
Me.LblNetzwerk.Size = New System.Drawing.Size(55, 13)
Me.LblNetzwerk.TabIndex = 15
Me.LblNetzwerk.Text = "Netzwerk:"
Me.LblNetzwerk.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'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(202, 348)
Me.CmdReset.Name = "CmdReset"
Me.CmdReset.Size = New System.Drawing.Size(75, 23)
Me.CmdReset.TabIndex = 29
Me.CmdReset.Text = "Reset"
Me.CmdReset.UseVisualStyleBackColor = False
'
'TxtSubnet
'
Me.TxtSubnet.Location = New System.Drawing.Point(91, 80)
Me.TxtSubnet.Name = "TxtSubnet"
Me.TxtSubnet.Size = New System.Drawing.Size(186, 20)
Me.TxtSubnet.TabIndex = 3
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(47, 239)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(38, 13)
Me.Label6.TabIndex = 28
Me.Label6.Text = "VLAN:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(41, 83)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(44, 13)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Subnet:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtVLAN
'
Me.TxtVLAN.Location = New System.Drawing.Point(91, 236)
Me.TxtVLAN.Name = "TxtVLAN"
Me.TxtVLAN.Size = New System.Drawing.Size(186, 20)
Me.TxtVLAN.TabIndex = 11
'
'TxtGateway
'
Me.TxtGateway.Location = New System.Drawing.Point(91, 132)
Me.TxtGateway.Name = "TxtGateway"
Me.TxtGateway.Size = New System.Drawing.Size(186, 20)
Me.TxtGateway.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(18, 213)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(67, 13)
Me.Label1.TabIndex = 26
Me.Label1.Text = "DNS Server:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(33, 135)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(52, 13)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Gateway:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TxtDHCPServer
'
Me.TxtDHCPServer.Location = New System.Drawing.Point(91, 158)
Me.TxtDHCPServer.Name = "TxtDHCPServer"
Me.TxtDHCPServer.Size = New System.Drawing.Size(186, 20)
Me.TxtDHCPServer.TabIndex = 6
'
'LblVLANName
'
Me.LblVLANName.AutoSize = True
Me.LblVLANName.Location = New System.Drawing.Point(55, 24)
Me.LblVLANName.Name = "LblVLANName"
Me.LblVLANName.Size = New System.Drawing.Size(78, 13)
Me.LblVLANName.TabIndex = 24
Me.LblVLANName.Text = "Netzwerkname"
Me.LblVLANName.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(11, 161)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(74, 13)
Me.Label4.TabIndex = 22
Me.Label4.Text = "DHCP Server:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'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(91, 348)
Me.CmdSave.Name = "CmdSave"
Me.CmdSave.Size = New System.Drawing.Size(75, 23)
Me.CmdSave.TabIndex = 19
Me.CmdSave.Text = "Speichern"
Me.CmdSave.UseVisualStyleBackColor = False
'
'TxtDHCPBereichStart
'
Me.TxtDHCPBereichStart.Location = New System.Drawing.Point(91, 184)
Me.TxtDHCPBereichStart.MaxLength = 3
Me.TxtDHCPBereichStart.Name = "TxtDHCPBereichStart"
Me.TxtDHCPBereichStart.Size = New System.Drawing.Size(42, 20)
Me.TxtDHCPBereichStart.TabIndex = 7
'
'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(202, 377)
Me.CmdAbbrechen.Name = "CmdAbbrechen"
Me.CmdAbbrechen.Size = New System.Drawing.Size(75, 23)
Me.CmdAbbrechen.TabIndex = 10
Me.CmdAbbrechen.Text = "Schließen"
Me.CmdAbbrechen.UseVisualStyleBackColor = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 187)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 23
Me.Label5.Text = "DHCP Bereich:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
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(475, 24)
Me.MenuStrip1.TabIndex = 41
Me.MenuStrip1.Text = "MenuStrip1"
'
'ExtrasToolStripMenuItem
'
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DebugToolStripMenuItem})
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
Me.ExtrasToolStripMenuItem.Text = "Extras"
'
'DebugToolStripMenuItem
'
Me.DebugToolStripMenuItem.Name = "DebugToolStripMenuItem"
Me.DebugToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
Me.DebugToolStripMenuItem.Text = "Debug"
'
'Timer3
'
Me.Timer3.Interval = 3000
'
'NWEdit
'
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(475, 814)
Me.Controls.Add(Me.PanDebug)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "NWEdit"
Me.Text = "NWEdit"
Me.PanDebug.ResumeLayout(False)
Me.PanDebug.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PanDebug As Panel
Friend WithEvents CmdTest As Button
Friend WithEvents LblTest As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Label8 As Label
Friend WithEvents TxtInfo As TextBox
Friend WithEvents TxtDNSServer As TextBox
Friend WithEvents TxtNetzwerk As TextBox
Friend WithEvents LblNetzwerk As Label
Friend WithEvents CmdReset As Button
Friend WithEvents TxtSubnet As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents Label2 As Label
Friend WithEvents TxtVLAN As TextBox
Friend WithEvents TxtGateway As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label3 As Label
Friend WithEvents TxtDHCPServer As TextBox
Friend WithEvents LblVLANName As Label
Friend WithEvents Label4 As Label
Friend WithEvents CmdSave As Button
Friend WithEvents TxtDHCPBereichStart As TextBox
Friend WithEvents CmdAbbrechen As Button
Friend WithEvents Label5 As Label
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ExtrasToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DebugToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TxtDHCPBereichEnde As TextBox
Friend WithEvents ChkDHCPAnzeigen As CheckBox
Friend WithEvents Label9 As Label
Friend WithEvents LblInfo As Label
Friend WithEvents Label7 As Label
Friend WithEvents TxtNWBits As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents TxtHostbereich As TextBox
Friend WithEvents Timer3 As Timer
End Class

1259
Dokumentation/Administration/NWEdit.resx Normal file
View File

File diff suppressed because it is too large Load Diff

259
Dokumentation/Administration/NWEdit.vb Normal file
View File

@@ -0,0 +1,259 @@
Imports System.Data.SqlClient
Public Class NWEdit
Private con As New SqlConnection
Private cmd As New SqlCommand
Private reader As SqlDataReader
Public Netzwerkname As String
Public NWStandort As String
Public NWName As String
Public NWAddress As String
Public Neu As Boolean = False
Private Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Sub NetzwerkBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dbload()
LblInfo.Text = ""
If Main.Debug = True Then
PanDebug.Visible = True
End If
If Class1.Absender = "Main" Then
NWStandort = Main.SenderStandort
NWName = Main.SenderNetzwerk
Netzwerkname = Main.SenderStandort & "_" & Main.SenderNetzwerk
ElseIf Class1.Absender = "Standorthinzu" Then
Netzwerkname = Standorthinzu.NeuerStandortNameIntern
NWStandort = Standorthinzu.NeuerStandortName
NWName = "Intern"
ElseIf Class1.Absender = "Netzwerkhinzu" Then
Netzwerkname = NetzwerkHinzu.NeuerNetzwerkNameIntern
NWStandort = NetzwerkAdmin.LstStandort.SelectedItem
NWName = NetzwerkHinzu.TxtName.Text
Else
MsgBox("Keine Daten")
End If
import()
SubnetMask2NWBits()
LblVLANName.Text = "Standort: " & NWStandort & " Name: " & NWName & " ändern:"
LblTest.Text = Netzwerkname
' PanDebug.Visible = False
End Sub
''---------------------------------------------------------------------------LADEN---------------------------------------------------------------------------''
Private Function import()
Try
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & Netzwerkname & "'"
ausgabe_Netzwerk()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
If TxtNetzwerk.Text = "" Then
Neu = True
Else
Neu = False
End If
End Function
Private Function ausgabe_Netzwerk()
Try
reader = cmd.ExecuteReader()
Do While reader.Read()
TxtNetzwerk.Text = reader("Netzwerk")
TxtSubnet.Text = reader("Subnetz")
TxtGateway.Text = reader("Gateway")
TxtDHCPBereichStart.Text = reader("DHCPStart")
TxtDHCPBereichEnde.Text = reader("DHCPEnd")
TxtDHCPServer.Text = reader("DHCPServer")
TxtDNSServer.Text = reader("DNSServer")
TxtVLAN.Text = reader("VLAN")
TxtInfo.Text = reader("Info")
ChkDHCPAnzeigen.Checked = Class1.ReadNullAs0(reader, "DHCPAbfragen")
Loop
reader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
''---------------------------------------------------------------------------BUTTONS---------------------------------------------------------------------------''
Private Sub CmdReset_Click(sender As Object, e As EventArgs) Handles CmdReset.Click
import()
End Sub
Private Sub CmdAbbrechen_Click(sender As Object, e As EventArgs) Handles CmdAbbrechen.Click
Main.allesladen()
' NetzwerkAdmin.LstStandortLoad()
' NetzwerkAdmin.LstNetzwerkLoad()
Close()
End Sub
Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
NWAddressGenerieren()
If Neu = False Then
Try
con.Open()
cmd.CommandText = "UPDATE TBL_Netzwerke SET Netzwerk = '" & TxtNetzwerk.Text & "', Subnetz='" & TxtSubnet.Text & "', Gateway='" & TxtGateway.Text & "',DHCPAbfragen = '" & ChkDHCPAnzeigen.Checked & "', DHCPStart='" & TxtDHCPBereichStart.Text & "', DHCPEnd='" & TxtDHCPBereichEnde.Text & "', dhcpserver='" & TxtDHCPServer.Text & "', dnsserver='" & TxtDNSServer.Text & "', VLAN='" & TxtVLAN.Text & "', Info='" & TxtInfo.Text & "', NWAddress='" & NWAddress & "' WHERE Netzwerkname='" & Netzwerkname & "'"
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
End Try
ElseIf Neu = True Then
con.Open()
cmd.CommandText = "Insert into TBL_Netzwerke (Netzwerkname, Netzwerk, Subnetz, Gateway, DHCPStart, DHCPEnd, DHCPServer, DNSServer, VLAN, Info, NWAddress) values ('" & Main.SenderNetzwerk & "', '" & TxtNetzwerk.Text & "', '" & TxtSubnet.Text & "','" & TxtGateway.Text & "', '" & TxtDHCPBereichStart.Text & "', '" & TxtDHCPBereichEnde.Text & "', '" & TxtDHCPServer.Text & "', '" & TxtDNSServer.Text & "', '" & TxtVLAN.Text & "', '" & TxtInfo.Text & "', '" & NWAddress & "')"
cmd.ExecuteNonQuery()
con.Close()
End If
Try
Class1.Netzwerkfuellen(TxtNetzwerk.Text, TxtNWBits.Text, NWName, NWStandort)
DHCPFill(TxtDHCPBereichStart.Text, TxtDHCPBereichEnde.Text, TxtNetzwerk.Text)
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Sub
Private Sub TxtNWBits_KeyUp_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNWBits.KeyUp ', TxtHost.TextChanged
Try
If e.KeyValue = Keys.Enter Then
Dim subnetmask As String
Class1.bit2mask(TxtNWBits.Text, subnetmask)
TxtSubnet.Text = subnetmask
End If
Catch
End Try
End Sub
Private Sub TxtSubnet_KeyUp_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtSubnet.KeyUp ', TxtHost.TextChanged
Try
If e.KeyValue = Keys.Enter Then
SubnetMask2NWBits()
End If
Catch
End Try
End Sub
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
''---------------------------------------------------------------------------FUNCTIONS---------------------------------------------------------------------------''
Public Function NWAddressGenerieren()
NWAddress = TxtNetzwerk.Text
Try
Do
NWAddress = NWAddress.Remove(NWAddress.Length - 1)
Loop Until NWAddress.Last() = "."
Catch ex As Exception
MsgBox("Fehler beim Konvertieren der Netzwerkadresse.")
End Try
End Function
Private Function SubnetMask2NWBits()
Dim a, b, c, d, nwbits, hostbits As Integer
Class1.netmaskseperator(TxtSubnet.Text, a, b, c, d, nwbits, hostbits)
TxtNWBits.Text = nwbits
Dim host As Integer = Class1.IP2Host(TxtNetzwerk.Text)
NWAddressGenerieren()
TxtHostbereich.Text = NWAddress & host + 1 & " bis " & NWAddress & host + (2 ^ hostbits) - 2
End Function
Private Sub Netzwerkbearbeiten_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Main.allesladen()
End Sub
Private Sub DebugToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.Click
PanDebug.Visible = Not PanDebug.Visible
End Sub
Public Function DHCPFill(dhcpstart As String, dhcpend As String, nw As String)
Try
dhcpstart = Convert.ToInt32(dhcpstart)
dhcpend = Convert.ToInt32(dhcpend)
Catch ex As Exception
LblInfo.Text = "DHCP nicht anwendbar"
dhcpstart = 0
dhcpend = 0
' Exit Function
End Try
If dhcpstart < 1 Or dhcpend > 254 Then
' MsgBox("der DHCP Bereich kann nicht stimmen...")
'Exit Function
End If
con.Open()
cmd.CommandText = "select IPadresse, DHCP from TbL_Netzwerkclients Where NETNAME = (select NETNAME from TbL_Netzwerke Where Netzwerk = '" & nw & "') AND NWSTANDORT = (select NWSTANDORT from TbL_Netzwerke Where Netzwerk = '" & nw & "') ORDER BY HOST"
reader = cmd.ExecuteReader()
Do While reader.Read()
Dim IPAdresse As String = reader("IPAdresse")
Dim Host As Integer = Class1.IP2Host(IPAdresse)
If Host = dhcpstart Then
DHCPUpdate("Start", IPAdresse)
ElseIf Host = dhcpend Then
DHCPUpdate("Ende", IPAdresse)
ElseIf Host > dhcpstart And Host < dhcpend Then
DHCPUpdate("1", IPAdresse)
Else
DHCPUpdate("0", IPAdresse)
End If
Loop
reader.Close()
con.Close()
LblInfo.Text = "Gespeichert."
Timer3.Enabled = True
End Function
Public Function DHCPUpdate(Wert As String, IPAdresse As String)
Dim dhcpcon As New SqlConnection
Dim dhcpcmd As New SqlCommand
dhcpcon.ConnectionString = Class1.DBConString
dhcpcmd.Connection = dhcpcon
dhcpcon.Open()
dhcpcmd.CommandText = "UPDATE TbL_Netzwerkclients SET DHCP = '" & Wert & "' WHERE IPAdresse = '" & IPAdresse & "'"
dhcpcmd.ExecuteNonQuery()
dhcpcon.Close()
End Function
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
LblInfo.Text = ""
Timer3.Enabled = False
End Sub
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
''---------------------------------------------------------------------------Test---------------------------------------------------------------------------''
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
LblTest.Text = TxtNetzwerk.Text & " " & TxtNWBits.Text & vbCrLf
'LblTest.Text &= Class1.Netzwerkfuellen(TxtNetzwerk.Text, TxtNWBits.Text) & vbCrLf
End Sub
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
''----------------------------------------------------------------------------------------------------------------------------------------------------------''
End Class

135
Dokumentation/Administration/NetzwerkAdmin.Designer.vb generated Normal file
View File

@@ -0,0 +1,135 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class NetzwerkAdmin
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(NetzwerkAdmin))
Me.CmdStandortAdd = New System.Windows.Forms.Button()
Me.CmdNetzwerkAdd = New System.Windows.Forms.Button()
Me.LstNetzwerk = New System.Windows.Forms.ListBox()
Me.LstStandort = New System.Windows.Forms.ListBox()
Me.ChkDelete = New System.Windows.Forms.CheckBox()
Me.CmdNetWDelete = New System.Windows.Forms.Button()
Me.CmdStandortDelete = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'CmdStandortAdd
'
Me.CmdStandortAdd.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdStandortAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdStandortAdd.Location = New System.Drawing.Point(185, 12)
Me.CmdStandortAdd.Name = "CmdStandortAdd"
Me.CmdStandortAdd.Size = New System.Drawing.Size(174, 33)
Me.CmdStandortAdd.TabIndex = 0
Me.CmdStandortAdd.Text = "Standort hinzufügen"
Me.CmdStandortAdd.UseVisualStyleBackColor = False
'
'CmdNetzwerkAdd
'
Me.CmdNetzwerkAdd.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdNetzwerkAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNetzwerkAdd.Location = New System.Drawing.Point(185, 113)
Me.CmdNetzwerkAdd.Name = "CmdNetzwerkAdd"
Me.CmdNetzwerkAdd.Size = New System.Drawing.Size(174, 33)
Me.CmdNetzwerkAdd.TabIndex = 1
Me.CmdNetzwerkAdd.Text = "Netzwerk hinzufügen"
Me.CmdNetzwerkAdd.UseVisualStyleBackColor = False
'
'LstNetzwerk
'
Me.LstNetzwerk.FormattingEnabled = True
Me.LstNetzwerk.Location = New System.Drawing.Point(12, 113)
Me.LstNetzwerk.Name = "LstNetzwerk"
Me.LstNetzwerk.Size = New System.Drawing.Size(151, 95)
Me.LstNetzwerk.TabIndex = 3
'
'LstStandort
'
Me.LstStandort.FormattingEnabled = True
Me.LstStandort.Location = New System.Drawing.Point(12, 12)
Me.LstStandort.Name = "LstStandort"
Me.LstStandort.Size = New System.Drawing.Size(151, 95)
Me.LstStandort.TabIndex = 2
'
'ChkDelete
'
Me.ChkDelete.AutoSize = True
Me.ChkDelete.Location = New System.Drawing.Point(12, 214)
Me.ChkDelete.Name = "ChkDelete"
Me.ChkDelete.Size = New System.Drawing.Size(116, 17)
Me.ChkDelete.TabIndex = 4
Me.ChkDelete.Text = "Löschen aktivieren"
Me.ChkDelete.UseVisualStyleBackColor = True
'
'CmdNetWDelete
'
Me.CmdNetWDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdNetWDelete.Enabled = False
Me.CmdNetWDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNetWDelete.Location = New System.Drawing.Point(185, 152)
Me.CmdNetWDelete.Name = "CmdNetWDelete"
Me.CmdNetWDelete.Size = New System.Drawing.Size(174, 33)
Me.CmdNetWDelete.TabIndex = 6
Me.CmdNetWDelete.Text = "Netzwerk löschen"
Me.CmdNetWDelete.UseVisualStyleBackColor = False
'
'CmdStandortDelete
'
Me.CmdStandortDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdStandortDelete.Enabled = False
Me.CmdStandortDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdStandortDelete.Location = New System.Drawing.Point(185, 51)
Me.CmdStandortDelete.Name = "CmdStandortDelete"
Me.CmdStandortDelete.Size = New System.Drawing.Size(174, 33)
Me.CmdStandortDelete.TabIndex = 5
Me.CmdStandortDelete.Text = "Standort löschen"
Me.CmdStandortDelete.UseVisualStyleBackColor = False
'
'NetzwerkAdmin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(377, 251)
Me.Controls.Add(Me.CmdNetWDelete)
Me.Controls.Add(Me.CmdStandortDelete)
Me.Controls.Add(Me.ChkDelete)
Me.Controls.Add(Me.LstNetzwerk)
Me.Controls.Add(Me.LstStandort)
Me.Controls.Add(Me.CmdNetzwerkAdd)
Me.Controls.Add(Me.CmdStandortAdd)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "NetzwerkAdmin"
Me.Text = "NetzwerkAdmin"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CmdStandortAdd As Button
Friend WithEvents CmdNetzwerkAdd As Button
Friend WithEvents LstNetzwerk As ListBox
Friend WithEvents LstStandort As ListBox
Friend WithEvents ChkDelete As CheckBox
Friend WithEvents CmdNetWDelete As Button
Friend WithEvents CmdStandortDelete As Button
End Class

1253
Dokumentation/Administration/NetzwerkAdmin.resx Normal file
View File

File diff suppressed because it is too large Load Diff

179
Dokumentation/Administration/NetzwerkAdmin.vb Normal file
View File

@@ -0,0 +1,179 @@
Imports System.Data.SqlClient
Public Class NetzwerkAdmin
Private con As New SqlConnection
Private cmd As New SqlCommand
Private Sub NetzwerkAdmin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LstStandortLoad()
LstNetzwerkLoad()
End Sub
Public Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Public Function LstStandortLoad()
Dim ds As New DataSet()
Dim dt As New DataTable()
Main.dbload()
Dim dataadapter As New SqlDataAdapter("SELECT NWSTANDORT from TbL_Netzwerke where main='True'", Main.con)
LstStandort.Items.Clear()
Try
Main.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
Catch ex As Exception
MsgBox("DataadapterFill LstStandOrtLoad(): " & ex.Message)
End Try
Main.con.Close()
End Function
Public Function LstNetzwerkLoad()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim Standort As String = LstStandort.SelectedItem
Main.dbload()
Dim dataadapter As New SqlDataAdapter("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "'", Main.con)
LstNetzwerk.Items.Clear()
Try
Main.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
Catch ex As Exception
MsgBox("DataadapterFill LstNwerkload(): " & ex.Message)
End Try
Main.con.Close()
Try
LstNetzwerk.SetSelected(0, True)
Catch ex As Exception
' MsgBox("LstNetzwerkLoad SetSelected: " & ex.Message)
End Try
End Function
Public Function NWDelete()
Dim ds As New DataSet()
Dim dt As New DataTable()
dbload()
Dim netzwerkname As String = LstStandort.SelectedItem & "_" & LstNetzwerk.SelectedItem
If LstNetzwerk.SelectedItem = "Intern" Then
MsgBox("Standardnetzwerk 'Intern' kann nicht gelöscht werden.")
Else
If MsgBox("Netzwerk " & netzwerkname & " wirklich löschen?", vbOKCancel) = MsgBoxResult.Cancel Then
Exit Function
Else
con.Open()
Dim result As Integer = MsgBox("NetzwerkHosts ebenfalls aus Datenbank löschen?", vbYesNoCancel)
If result = MsgBoxResult.Cancel Then
Exit Function
ElseIf result = MsgBoxResult.Yes Then
Try
cmd.CommandText = "DELETE FROM tbl_netzwerkclients WHERE NETNAME = '" & LstNetzwerk.SelectedItem & "' AND NWSTANDORT = '" & LstStandort.SelectedItem & "'"
cmd.ExecuteNonQuery()
cmd.CommandText = "DELETE FROM tbl_netzwerke WHERE Netzwerkname = '" & netzwerkname & "'"
cmd.ExecuteNonQuery()
'MsgBox("Yes")
Catch ex As Exception
MsgBox(ex.Message)
End Try
ElseIf result = MsgBoxResult.No Then
Try
cmd.CommandText = "DELETE FROM tbl_netzwerke WHERE Netzwerkname = '" & netzwerkname & "'"
cmd.ExecuteNonQuery()
'MsgBox("Yes")
Catch ex As Exception
MsgBox(ex.Message)
End Try
'MsgBox("No")
End If
End If
con.Close()
End If
LstStandortLoad()
LstNetzwerkLoad()
End Function
Public Function StandOrtDelete()
Dim ds As New DataSet()
Dim dt As New DataTable()
dbload()
Dim netzwerkname As String = LstStandort.SelectedItem & "_" & LstNetzwerk.SelectedItem
If MsgBox("Den kompletten Standort " & LstStandort.SelectedItem & " wirklich löschen?", vbOKCancel) = MsgBoxResult.Cancel Then
Exit Function
Else
con.Open()
Dim result As Integer = MsgBox("Wirklich zu 100% Ernte???", vbYesNoCancel)
If result = MsgBoxResult.Cancel Then
Exit Function
ElseIf result = MsgBoxResult.Yes Then
Try
cmd.CommandText = "DELETE FROM tbl_netzwerkclients WHERE NWSTANDORT = '" & LstStandort.SelectedItem & "'"
cmd.ExecuteNonQuery()
cmd.CommandText = "DELETE FROM tbl_netzwerke WHERE NWStandort = '" & LstStandort.SelectedItem & "'"
cmd.ExecuteNonQuery()
'MsgBox("Yes")
Catch ex As Exception
MsgBox(ex.Message)
End Try
ElseIf result = MsgBoxResult.No Then
Exit Function
End If
End If
con.Close()
LstStandortLoad()
LstNetzwerkLoad()
End Function
Private Sub LstStandort_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LstStandort.SelectedIndexChanged
LstNetzwerkLoad()
End Sub
Private Sub LstNetzwerk_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LstNetzwerk.SelectedIndexChanged
End Sub
Private Sub CmdStandortAdd_Click(sender As Object, e As EventArgs) Handles CmdStandortAdd.Click
Standorthinzu.Show()
End Sub
Private Sub ChkDelete_CheckedChanged(sender As Object, e As EventArgs) Handles ChkDelete.CheckedChanged
If ChkDelete.Checked Then
CmdNetWDelete.Enabled = True
CmdStandortDelete.Enabled = True
Else
CmdNetWDelete.Enabled = False
CmdStandortDelete.Enabled = False
End If
End Sub
Private Sub CmdNetWDelete_Click(sender As Object, e As EventArgs) Handles CmdNetWDelete.Click
NWDelete()
End Sub
Private Sub CmdStandortDelete_Click(sender As Object, e As EventArgs) Handles CmdStandortDelete.Click
StandOrtDelete()
End Sub
Private Sub CmdNetzwerkAdd_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkAdd.Click
NetzwerkHinzu.Show()
End Sub
Private Sub Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Main.LstStandortLoad()
Main.allesladen()
End Sub
End Class

112
Dokumentation/Administration/NetzwerkHinzu.Designer.vb generated Normal file
View File

@@ -0,0 +1,112 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class NetzwerkHinzu
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(NetzwerkHinzu))
Me.Label1 = New System.Windows.Forms.Label()
Me.TxtName = New System.Windows.Forms.TextBox()
Me.LblHeader = New System.Windows.Forms.Label()
Me.TxtIP = New System.Windows.Forms.TextBox()
Me.LblNW = New System.Windows.Forms.Label()
Me.CmdAdd = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 43)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Name:"
'
'TxtName
'
Me.TxtName.Location = New System.Drawing.Point(53, 40)
Me.TxtName.Name = "TxtName"
Me.TxtName.Size = New System.Drawing.Size(181, 20)
Me.TxtName.TabIndex = 1
'
'LblHeader
'
Me.LblHeader.AutoSize = True
Me.LblHeader.Location = New System.Drawing.Point(12, 9)
Me.LblHeader.Name = "LblHeader"
Me.LblHeader.Size = New System.Drawing.Size(39, 13)
Me.LblHeader.TabIndex = 2
Me.LblHeader.Text = "Label2"
'
'TxtIP
'
Me.TxtIP.Location = New System.Drawing.Point(53, 66)
Me.TxtIP.Name = "TxtIP"
Me.TxtIP.Size = New System.Drawing.Size(181, 20)
Me.TxtIP.TabIndex = 4
'
'LblNW
'
Me.LblNW.AutoSize = True
Me.LblNW.Location = New System.Drawing.Point(12, 69)
Me.LblNW.Name = "LblNW"
Me.LblNW.Size = New System.Drawing.Size(20, 13)
Me.LblNW.TabIndex = 3
Me.LblNW.Text = "IP:"
'
'CmdAdd
'
Me.CmdAdd.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdAdd.Location = New System.Drawing.Point(159, 92)
Me.CmdAdd.Name = "CmdAdd"
Me.CmdAdd.Size = New System.Drawing.Size(75, 23)
Me.CmdAdd.TabIndex = 5
Me.CmdAdd.Text = "Hinzufügen"
Me.CmdAdd.UseVisualStyleBackColor = False
'
'NetzwerkHinzu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(260, 147)
Me.Controls.Add(Me.CmdAdd)
Me.Controls.Add(Me.TxtIP)
Me.Controls.Add(Me.LblNW)
Me.Controls.Add(Me.LblHeader)
Me.Controls.Add(Me.TxtName)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "NetzwerkHinzu"
Me.Text = "NetzwerkHinzu"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents TxtName As TextBox
Friend WithEvents LblHeader As Label
Friend WithEvents TxtIP As TextBox
Friend WithEvents LblNW As Label
Friend WithEvents CmdAdd As Button
End Class

1253
Dokumentation/Administration/NetzwerkHinzu.resx Normal file
View File

File diff suppressed because it is too large Load Diff

69
Dokumentation/Administration/NetzwerkHinzu.vb Normal file
View File

@@ -0,0 +1,69 @@
Imports System.Data.SqlClient
Public Class NetzwerkHinzu
Private con As New SqlConnection
Private cmd As New SqlCommand
Private reader As SqlDataReader
Public NeuerNetzwerkname As String
Public NeuerNetzwerkNameIntern As String
Public Standortname As String = NetzwerkAdmin.LstStandort.SelectedItem
Private Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Sub CmdAdd_Click(sender As Object, e As EventArgs) Handles CmdAdd.Click
NetzwerkAdd()
NetzwerkAdmin.LstStandortLoad()
NetzwerkAdmin.LstNetzwerkLoad()
End Sub
Private Sub TxtIP_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtIP.KeyDown
If e.KeyCode = Keys.Enter Then
NEtzwerkAdd()
End If
End Sub
Private Function NetzwerkAdd()
Dim ds As New DataSet()
Dim dt As New DataTable()
dbload()
NeuerNetzwerkname = TxtName.Text
NeuerNetzwerkNameIntern = Standortname & "_" & NeuerNetzwerkname
Try
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & NeuerNetzwerkNameIntern & "'"
reader = cmd.ExecuteReader()
If reader.Read() Then
MsgBox("Netzwerk ist bereits vorhanden!")
reader.Close()
Else
MsgBox("Neues Netzwerk wird erstellt: " & NeuerNetzwerkNameIntern)
reader.Close()
cmd.CommandText = "INSERT INTO Tbl_Netzwerke (Netzwerkname, Netzwerk, NWSTANDORT, NETNAME, Subnetz) VALUES ('" & NeuerNetzwerkNameIntern & "', '" & TxtIP.Text & "', '" & Standortname & "', '" & NeuerNetzwerkname & "', '255.255.255.0')"
cmd.ExecuteNonQuery()
Class1.Absender = "Netzwerkhinzu"
NWEdit.Show()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
Me.Close()
End Function
Private Sub NetzwerkHinzu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Standortname = "" Then
MsgBox("Kein Standort ausgewählt")
Me.Close()
End If
LblHeader.Text = Standortname
End Sub
Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged
LblHeader.Text = "Netzwerk " & Standortname & "_" & TxtName.Text & " hinzufügen."
End Sub
End Class

98
Dokumentation/Administration/Standorthinzu.Designer.vb generated Normal file
View File

@@ -0,0 +1,98 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Standorthinzu
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.TxtStandort = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.CmdAdd = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.TxtNetzwerkintern = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'TxtStandort
'
Me.TxtStandort.Location = New System.Drawing.Point(103, 14)
Me.TxtStandort.Name = "TxtStandort"
Me.TxtStandort.Size = New System.Drawing.Size(181, 20)
Me.TxtStandort.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(76, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Standortname:"
'
'CmdAdd
'
Me.CmdAdd.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdAdd.Location = New System.Drawing.Point(209, 77)
Me.CmdAdd.Name = "CmdAdd"
Me.CmdAdd.Size = New System.Drawing.Size(75, 23)
Me.CmdAdd.TabIndex = 2
Me.CmdAdd.Text = "Hinzufügen"
Me.CmdAdd.UseVisualStyleBackColor = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(25, 43)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "NetzIP Intern:"
'
'TxtNetzwerkintern
'
Me.TxtNetzwerkintern.Location = New System.Drawing.Point(103, 40)
Me.TxtNetzwerkintern.Name = "TxtNetzwerkintern"
Me.TxtNetzwerkintern.Size = New System.Drawing.Size(181, 20)
Me.TxtNetzwerkintern.TabIndex = 1
'
'Standorthinzu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(299, 118)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.TxtNetzwerkintern)
Me.Controls.Add(Me.CmdAdd)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TxtStandort)
Me.Name = "Standorthinzu"
Me.Text = "Standorthinzu"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TxtStandort As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents CmdAdd As Button
Friend WithEvents Label2 As Label
Friend WithEvents TxtNetzwerkintern As TextBox
End Class

120
Dokumentation/Administration/Standorthinzu.resx Normal file
View File

@@ -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>

60
Dokumentation/Administration/Standorthinzu.vb Normal file
View File

@@ -0,0 +1,60 @@
Imports System.Data.SqlClient
Public Class Standorthinzu
Private con As New SqlConnection
Private cmd As New SqlCommand
Private reader As SqlDataReader
Public NeuerStandortName As String
Public NeuerStandortNameIntern As String
Private Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Sub CmdAdd_Click(sender As Object, e As EventArgs) Handles CmdAdd.Click
StandortAdd()
NetzwerkAdmin.LstStandortLoad()
NetzwerkAdmin.LstNetzwerkLoad()
End Sub
Private Sub TxtNetzwerkIntern_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNetzwerkintern.KeyDown
If e.KeyCode = Keys.Enter Then
StandortAdd()
End If
End Sub
Private Function StandortAdd()
Dim ds As New DataSet()
Dim dt As New DataTable()
dbload()
NeuerStandortName = TxtStandort.Text
NeuerStandortNameIntern = TxtStandort.Text & "_Intern"
Try
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & NeuerStandortNameIntern & "'"
reader = cmd.ExecuteReader()
If reader.Read() Then
MsgBox("Standort ist bereits vorhanden!")
reader.Close()
Else
MsgBox("Neuer Standort mit Standardnetzwerk 'Intern' wird erstellt: " & NeuerStandortNameIntern)
reader.Close()
cmd.CommandText = "INSERT INTO Tbl_Netzwerke (Netzwerkname, VLAN, Netzwerk, NWSTANDORT, NETNAME, MAIN, SUBNETZ) VALUES ('" & NeuerStandortNameIntern & "', '0', '" & TxtNetzwerkintern.Text & "', '" & NeuerStandortName & "', 'Intern', '1', '255.255.255.0')"
cmd.ExecuteNonQuery()
Class1.Absender = "Standorthinzu"
NWEdit.Show()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
Me.Close()
End Function
Private Sub TxtStandort_TextChanged(sender As Object, e As EventArgs) Handles TxtStandort.TextChanged
End Sub
End Class

6
Dokumentation/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
</configuration>

622
Dokumentation/Classes/Class1.vb Normal file
View File

@@ -0,0 +1,622 @@
Imports System.Data.SqlClient
Public Class Class1
Public sAppPath As String = Application.StartupPath
'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"
Public Shared DBConString As String
Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBADMINBuchhaltung As String = "Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
Public Shared Absender As String = "Absender Standard"
Public Shared Function SQLnQ(command As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConString
Try
con.Open()
cmd.Connection = con
cmd.CommandText = command
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
Public Shared Function dbload()
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = DBConString
cmd.Connection = con
End Function
Public Shared Function csvexport(quelldgv As DataGridView)
Dim savefiledialog As New SaveFileDialog
Dim firstin As String
Dim out As String
Dim in2 As String
Dim header As String
savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
savefiledialog.InitialDirectory = "C:\Verag"
savefiledialog.ShowDialog()
Try
For r As Integer = 0 To quelldgv.Rows.Count - 1
For c As Integer = 0 To quelldgv.Columns.Count
'test &= r & c & vbCrLf
Try
'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
firstin = quelldgv.Rows(r).Cells(c).Value.ToString
'in2 = """" & firstin & """" & ";"
in2 = firstin & ";"
out &= Replace(in2, vbCrLf, "##vbCrLf##")
Catch ex As Exception
out &= ""
End Try
Next
out &= "nZ"
Next
For c As Integer = 0 To quelldgv.Columns.Count - 1
header &= quelldgv.Columns(c).Name & ";"
Next
out = Replace(out, "nZ", vbCrLf)
'MsgBox(out)
Using sw As New IO.StreamWriter(savefiledialog.FileName)
sw.WriteLine(header)
sw.WriteLine(out)
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Shared Function hochkomma(textin As String)
Dim textout As String = textin.Replace("'", "''")
Return (textout)
End Function
Public Shared Function ip2netname(IP As String, ByRef NWStandort As String, ByRef netname As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
Dim NWAddress As String
Dim pointcounter As Integer = 0
Dim digcounter As Integer = 0
con.ConnectionString = DBConString
cmd.Connection = con
For Each c As Char In IP
If c = "." Then
pointcounter = pointcounter + 1
End If
digcounter = digcounter + 1
Next
If pointcounter < 3 Or digcounter < 7 Then
MsgBox("Das scheint keine gültige IP Adresse zu sein...")
Exit Function
End If
NWAddress = IP.Substring(0, IP.LastIndexOf(".")) & "."
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE NWAddress = '" & NWAddress & "' "
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
Do While reader.Read
NWStandort = reader("NWStandort")
netname = reader("Netname")
Loop
reader.Close()
con.Close()
End Function
Public Shared Function IPexist(IP As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = DBConString
cmd.Connection = con
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerkclients WHERE IPAdresse = '" & IP & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read Then
MsgBox("Die IP Adresse " & IP & " ist bereits belegt!")
Return True
con.Close()
Exit Function
End If
Return False
End Function
Public Shared Function IP2Host(IP As String)
Dim pointcounter As Integer = 0
Try
Do
If IP.StartsWith(".") Then
pointcounter = pointcounter + 1
End If
IP = IP.Remove(0, 1)
Loop Until pointcounter = 3 'IP.First() = "."
Return IP
Catch ex As Exception
MsgBox(ex.Message)
End Try
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
Do
a &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
b &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
c &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
d &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.Length = 0
Catch ex As Exception
MsgBox("netmaskseperator: " & ex.Message)
End Try
Dim ai As Integer = Convert.ToString(a, 2)
Dim bi As Integer = Convert.ToString(b, 2)
Dim ci As Integer = Convert.ToString(c, 2)
Dim di As Integer = Convert.ToString(d, 2)
bitstring = ai & bi & ci & di
nwbits = 0
hostbits = 32
For Each ch As Char In bitstring
If ch = "1" Then
nwbits = nwbits + 1
hostbits = hostbits - 1
End If
Next
End Function
Public Shared Function mask2nwbit(nm As String, ByRef nwbits As Integer)
Dim bitstring As String
Dim a, b, c, d, hostbits As Integer
Try
Do
a &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
b &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
c &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.First() = "."
nm = nm.Remove(0, 1)
Do
d &= nm.Substring(0, 1)
nm = nm.Remove(0, 1)
Loop Until nm.Length = 0
Catch ex As Exception
MsgBox("netmaskseperator: " & ex.Message)
End Try
Dim ai As Integer = Convert.ToString(a, 2)
Dim bi As Integer = Convert.ToString(b, 2)
Dim ci As Integer = Convert.ToString(c, 2)
Dim di As Integer = Convert.ToString(d, 2)
bitstring = ai & bi & ci & di
nwbits = 0
hostbits = 32
For Each ch As Char In bitstring
If ch = "1" Then
nwbits = nwbits + 1
hostbits = hostbits - 1
End If
Next
End Function
Public Shared Function bit2mask(bit As String, ByRef mask As String)
Dim a, b, c, d As String
If bit \ 8 >= 1 Then
a = "255"
bit = bit - 8
If bit \ 8 >= 1 Then
b = "255"
bit = bit - 8
If bit \ 8 >= 1 Then
c = "255"
bit = bit - 8
If bit \ 8 >= 1 Then
d = "255"
bit = bit - 8
Else
d = 256 - (2 ^ (8 - bit))
End If
Else
c = 256 - (2 ^ (8 - bit))
d = 0
End If
Else
b = 256 - (2 ^ (8 - bit))
c = 0
d = 0
End If
Else
a = 256 - (2 ^ (8 - bit))
b = 0
c = 0
d = 0
End If
mask = a & "." & b & "." & c & "." & d
Return mask
End Function
Private Shared Function checknull(text As String)
Dim Reader As SqlDataReader
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
Public Shared Function NWAddressGenerieren(NWAddress As String, ByRef IPShort As String)
Try
Do
NWAddress = NWAddress.Remove(NWAddress.Length - 1)
Loop Until NWAddress.Last() = "."
Catch ex As Exception
MsgBox("Fehler beim Konvertieren der Netzwerkadresse.")
End Try
IPShort = NWAddress
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
Dim reader As SqlDataReader
con.ConnectionString = DBConString
cmd.Connection = con
Dim AnzahlHosts As Integer
Dim Hostbits As Integer = 32 - NWBits
AnzahlHosts = (2 ^ Hostbits) - 2
Dim Starthost As Integer = IP2Host(NWAdresse) + 1
Dim IPShort As String
NWAddressGenerieren(NWAdresse, IPShort)
' Dim NWStandort, NetName As String
'ip2netname(NWAdresse, NWStandort, NetName)
For Host As Integer = Starthost To (Starthost + AnzahlHosts - 1)
Dim IP As String = IPShort & Host
con.Open()
cmd.CommandText = "Select FQDN, Modell FROM Tbl_Netzwerkclients WHERE IPAdresse = '" & IP & "' "
reader = cmd.ExecuteReader()
Try
reader.Read()
reader.IsDBNull(0)
'Label2.Text &= "Try" & IP & vbCrLf
Catch
'MsgBox("Catch")
con.Close()
con.Open()
cmd.CommandText = "INSERT INTO Tbl_Netzwerkclients (IPAdresse, HOST, Netname, NWStandort, Linked, Netzwerk, LinkedWith) VALUES ('" & IP & "', '" & Host & "','" & Netname & "','" & NWStandort & "', '0', '" & NWAdresse & "', '')"
cmd.ExecuteNonQuery()
con.Close()
'Label2.Text &= "Catch" & cmd.CommandText & IP & vbCrLf
End Try
con.Close()
con.Open()
cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET NETZWERK='" & NWAdresse & "' WHERE NETNAME = '" & Netname & "' AND NWStandort = '" & NWStandort & "'"
cmd.ExecuteNonQuery()
con.Close()
Next
End Function
Public Shared Function NetzwerkadresseInfo(Netzwerkadresse As String, ByRef Standort As String, ByRef Name As String, ByRef subnetmask As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = DBConString
cmd.Connection = con
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE NETZWERK = '" & Netzwerkadresse & "'"
reader = cmd.ExecuteReader()
Do While reader.Read
Standort = reader("NWSTANDORT")
Name = reader("NETNAME")
subnetmask = reader("Subnetz")
Loop
reader.Close()
con.Close()
End Function
Public Shared Function getDHCPstartend(Netzwerkadresse As String, ByRef DHCPStart As String, ByRef DHCPEnd As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = DBConString
cmd.Connection = con
Try
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE NETZWERK = '" & Netzwerkadresse & "'"
reader = cmd.ExecuteReader()
Do While reader.Read
DHCPStart = reader("DHCPStart")
DHCPEnd = reader("DHCPEnd")
'subnetmask = reader("Subnetz")
Loop
reader.Close()
con.Close()
Catch
DHCPStart = 0
DHCPEnd = 0
End Try
End Function
Public Shared Function DHCPFill(dhcpstart As String, dhcpend As String, nw As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = DBConString
cmd.Connection = con
Try
dhcpstart = Convert.ToInt32(dhcpstart)
dhcpend = Convert.ToInt32(dhcpend)
Catch ex As Exception
dhcpstart = 0
dhcpend = 0
'LblInfo.Text = "DHCP nicht anwendbar"
'Exit Function
End Try
If dhcpstart < 1 Or dhcpend > 254 Then
'MsgBox("der DHCP Bereich kann nicht stimmen...")
'Exit Function
End If
con.Open()
cmd.CommandText = "select IPadresse, DHCP from TbL_Netzwerkclients Where NETNAME = (select NETNAME from TbL_Netzwerke Where Netzwerk = '" & nw & "') AND NWSTANDORT = (select NWSTANDORT from TbL_Netzwerke Where Netzwerk = '" & nw & "') ORDER BY HOST"
reader = cmd.ExecuteReader()
Do While reader.Read()
Dim IPAdresse As String = reader("IPAdresse")
Dim Host As Integer = Class1.IP2Host(IPAdresse)
If Host = dhcpstart Then
DHCPUpdate("Start", IPAdresse)
ElseIf Host = dhcpend Then
DHCPUpdate("Ende", IPAdresse)
ElseIf Host > dhcpstart And Host < dhcpend Then
DHCPUpdate("1", IPAdresse)
Else
DHCPUpdate("0", IPAdresse)
End If
Loop
reader.Close()
con.Close()
' LblInfo.Text = "Gespeichert."
' Timer3.Enabled = True
End Function
Public Shared Function DHCPUpdate(Wert As String, IPAdresse As String)
Dim dhcpcon As New SqlConnection
Dim dhcpcmd As New SqlCommand
dhcpcon.ConnectionString = Class1.DBConString
dhcpcmd.Connection = dhcpcon
dhcpcon.Open()
dhcpcmd.CommandText = "UPDATE TbL_Netzwerkclients SET DHCP = '" & Wert & "' WHERE IPAdresse = '" & IPAdresse & "'"
dhcpcmd.ExecuteNonQuery()
dhcpcon.Close()
End Function
Public Shared Function RefillNW(netzwerk As String)
Dim NWStandort, NWName, Subnet, dhcpstart, dhcpend As String
Dim NWBits As Integer
Class1.NetzwerkadresseInfo(netzwerk, NWStandort, NWName, Subnet)
Class1.mask2nwbit(Subnet, NWBits)
Class1.Netzwerkfuellen(netzwerk, NWBits, NWName, NWStandort)
Class1.getDHCPstartend(netzwerk, dhcpstart, dhcpend)
Class1.DHCPFill(dhcpstart, dhcpend, netzwerk)
End Function
Public Shared Function GetFQDNandType(IPAdresse As String, ByRef FQDN As String, ByRef Type As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = Class1.DBConString
cmd.Connection = con
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE IPAdresse = '" & IPAdresse & "'"
reader = cmd.ExecuteReader()
Do While reader.Read
FQDN = ReadNullAsEmptyString(reader, "FQDN")
Type = ReadNullAsEmptyString(reader, "Type")
Loop
con.Close()
End Function
Public Shared Function ReadNullAsEmptyString(ByVal reader As IDataReader, ByVal Abfrage As String)
If IsDBNull(reader(Abfrage)) Then
Return ""
Else
Return reader(Abfrage)
End If
End Function
Public Shared Function ReadNullAs0(ByVal reader As IDataReader, ByVal Abfrage As String)
If IsDBNull(reader(Abfrage)) Then
Return "0"
Else
Return reader(Abfrage)
End If
End Function
Public Shared Function Host2IP(ByVal Host As String, ByVal nwstandort As String, ByVal netname As String, ByRef IP As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = Class1.DBConString
cmd.Connection = con
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE HOST = '" & Host & "' AND NWStandort = '" & nwstandort & "' AND NETNAME = '" & netname & "'"
reader = cmd.ExecuteReader()
Do While reader.Read
IP = ReadNullAsEmptyString(reader, "IPAdresse")
'Type = ReadNullAsEmptyString(reader, "Type")
Loop
con.Close()
End Function
Public Shared Function Name2Netzwerk(ByVal nwstandort As String, ByVal netname As String, ByRef Netzwerk As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = Class1.DBConString
cmd.Connection = con
con.Open()
cmd.CommandText = "SELECT Netzwerk FROM TbL_Netzwerke WHERE NWStandort = '" & nwstandort & "' AND NETNAME = '" & netname & "'"
reader = cmd.ExecuteReader()
Do While reader.Read
Netzwerk = ReadNullAsEmptyString(reader, "Netzwerk")
'Type = ReadNullAsEmptyString(reader, "Type")
Loop
con.Close()
End Function
Public Shared Function IP2ShortNW(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 Netzwerk As String
con.Open()
cmd.CommandText = "SELECT Netzwerk FROM TbL_Netzwerkclients WHERE IPAdresse = '" & IPAdresse & "' "
reader = cmd.ExecuteReader()
Do While reader.Read
Netzwerk = ReadNullAsEmptyString(reader, "Netzwerk")
'Type = ReadNullAsEmptyString(reader, "Type")
Loop
con.Close()
Return Netzwerk
End Function
Public Shared Function GetDHCPServer(ByVal Netzwerkadresse As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim reader As SqlDataReader
con.ConnectionString = Class1.DBConString
cmd.Connection = con
Dim DHCPServer As String
con.Open()
cmd.CommandText = "SELECT DHCPServer FROM TbL_Netzwerke WHERE Netzwerk = '" & Netzwerkadresse & "' "
reader = cmd.ExecuteReader()
Do While reader.Read
DHCPServer = ReadNullAsEmptyString(reader, "DHCPServer")
'Type = ReadNullAsEmptyString(reader, "Type")
Loop
con.Close()
Return DHCPServer
End Function
Public Shared Function Autocomplete(ByRef txtbox As TextBox, spalte As String, Tabelle As String)
Dim tmp As New AutoCompleteStringCollection()
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
cmd.Connection = con
Try
con.Open()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim dataadapter As New SqlDataAdapter("SELECT Distinct " & spalte & " from " & Tabelle & "", con)
dataadapter.Fill(ds)
txtbox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtbox.AutoCompleteSource = AutoCompleteSource.CustomSource
txtbox.AutoCompleteCustomSource = tmp
For Each dr As DataRow In ds.Tables(0).Rows
Try
tmp.Add(dr.Item(0))
Catch
End Try
'Items.Add(dr.Item(0))
Next
con.Close()
Catch ex As Exception
MsgBox("Fehler Autocomplete: " & ex.Message)
con.Close()
End Try
con.Close()
End Function
End Class

154
Dokumentation/Classes/DHCP.vb Normal file
View File

@@ -0,0 +1,154 @@
Imports System.Net
Imports System.Runtime.InteropServices
Public Class DHCP
<StructLayout(LayoutKind.Sequential)>
Public Structure DHCP_IP_ARRAY
Dim NumElements As Int32
Dim Elements As IntPtr
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure DHCP_CLIENT_INFO_ARRAY
Dim NumElements As Integer
Dim Clients As IntPtr
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure DHCP_CLIENT_INFO
Dim ClientIpAddress As Int32
Dim SubnetMask As Int32
Dim ClientHardwareAddress As DHCP_BINARY_DATA
<MarshalAs(UnmanagedType.LPWStr)>
Dim ClientName As String
<MarshalAs(UnmanagedType.LPWStr)>
Dim ClientComment As String
Dim ClientLeaseExpires As Date_Time
Dim OwnerHost As DHCP_HOST_INFO
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure DHCP_BINARY_DATA
Dim DataLength As Int32
Dim Data As IntPtr
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure Date_Time
<MarshalAs(UnmanagedType.U4)>
Dim dwLowDateTime As UInt32
<MarshalAs(UnmanagedType.U4)>
Dim dwHighDateTime As UInt32
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure DHCP_HOST_INFO
Dim IpAddress As Int32
<MarshalAs(UnmanagedType.LPWStr)>
Dim NetBiosName As String
<MarshalAs(UnmanagedType.LPWStr)>
Dim HostName As String
End Structure
Declare Function DhcpEnumServers Lib "dhcpsapi.dll" (TODO) As DHCP
Declare Unicode Function DhcpEnumSubnetClients Lib "Dhcpsapi" (ByVal ServerIpAddress As String, ByVal SubnetAddress As UInteger, ByRef ResumeHandle As Integer, ByVal PreferredMaximum As Integer, ByRef ClientInfo As IntPtr, ByRef ClientsRead As Integer, ByRef ClientsTotal As Integer) As Integer
Public Shared Client_Array As DHCP_CLIENT_INFO_ARRAY
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
' Why would you use int16 for a loop counter and for a pointer offset ?
Dim i, j As Int16
Dim pt As IntPtr
Dim Read_Clients, Total_Clients As Int32
Dim Error_Code As Int32
Dim Rem_Handle As IntPtr
Dim Scope_I As UInteger
Dim a, b, c, d As UInteger
Scope_I = StringIPAddressToUInt32(Scope)
Dim Scobe_C As UInteger
Scobe_C = StringIPAddressToUInt32("255.255.255.255")
StringNWAdressToUInt32(Scope, a, b, c, d)
d = a + b + c - 1
'Call dhcpsapi
Error_Code = DhcpEnumSubnetClients(DHCP_Server, Scope_I, Rem_Handle, 65537, pt, Read_Clients, Total_Clients)
Client_Array = Marshal.PtrToStructure(pt, GetType(DHCP_CLIENT_INFO_ARRAY))
ReDim DHCP_Clients(Client_Array.NumElements - 1)
For i = 0 To Client_Array.NumElements - 1
pt = Marshal.ReadIntPtr(Client_Array.Clients, j)
DHCP_Clients(i) = Marshal.PtrToStructure(pt, GetType(DHCP_CLIENT_INFO))
pt = IntPtr.Zero
j = j + 4
'Form1.Label1.Text &= DHCP_Clients(i).ClientName & " - " & DHCP_Clients(i).ClientIpAddress & " - " & Scobe_C - ((DHCP_Clients(i).ClientIpAddress * -1) + d) & vbCrLf
Next i
End Sub
Friend Shared Function StringIPAddressToUInt32(Address As String) As UInteger
Dim µAddress As IPAddress = System.Net.IPAddress.Parse(Address)
Dim µAddressBytes As Byte() = µAddress.GetAddressBytes()
Dim µReturnValue As UInteger = CUInt(µAddressBytes(0)) << 24
'Label1.Text &= µReturnValue & vbCrLf
µReturnValue += CUInt(µAddressBytes(1)) << 16
'Label1.Text &= µReturnValue & vbCrLf
µReturnValue += CUInt(µAddressBytes(2)) << 8
'Label1.Text &= µReturnValue & vbCrLf
µReturnValue += CUInt(µAddressBytes(3))
'Label1.Text &= µReturnValue & vbCrLf
Return µReturnValue
End Function
Friend Shared Function StringNWAdressToUInt32(Address As String, ByRef a As UInteger, ByRef b As UInteger, ByRef c As UInteger, ByRef d As UInteger) As UInteger
Dim µAddress As IPAddress = System.Net.IPAddress.Parse(Address)
Dim µAddressBytes As Byte() = µAddress.GetAddressBytes()
a = CUInt(µAddressBytes(0)) << 24
b = CUInt(µAddressBytes(1)) << 16
c = CUInt(µAddressBytes(2)) << 8
d = CUInt(µAddressBytes(3))
End Function
Friend Shared Function StringNWAdressToNWAdressSHORT(Address As String, ByRef NWAdressShort As String) As UInteger
'Dim NWAdressSHORT As String
Dim µAddress As IPAddress = System.Net.IPAddress.Parse(Address)
Dim µAddressBytes As Byte() = µAddress.GetAddressBytes()
NWAdressSHORT = µAddressBytes(0).ToString & "." & µAddressBytes(1).ToString & "." & µAddressBytes(2).ToString & "."
'Return NWAdressSHORT
End Function
End Class

23
Dokumentation/Classes/Folder.vb Normal file
View File

@@ -0,0 +1,23 @@
Public Class Folder
Public Shared Function FolderMove(oldID As String, oldHost As String, newID As String, NewHost As String)
Dim PathOld As String
Dim PathNew As String
PathOld = Class1.FilePath & "\" & oldID & "\" & oldHost
PathNew = Class1.FilePath & "\" & newID & "\" & NewHost
If IO.Directory.Exists(PathNew) Then
MsgBox("Zielordner existiert bereits! Abbruch.")
Return "Fehler"
End If
If IO.Directory.Exists(Class1.FilePath & "\" & newID) Then
Else
IO.Directory.CreateDirectory(Class1.FilePath & "\" & newID)
End if
If IO.Directory.Exists(PathOld) Then
IO.Directory.Move(PathOld, PathNew)
End If
End Function
End Class

279
Dokumentation/Dokumentation.vbproj Normal file
View File

@@ -0,0 +1,279 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{AAC83634-C001-43FC-8E9D-07A263ED0600}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Dokumentation.My.MyApplication</StartupObject>
<RootNamespace>Dokumentation</RootNamespace>
<AssemblyName>Dokumentation</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>\\192.168.0.91\f\Programme\Doku\</PublishUrl>
<Install>false</Install>
<InstallFrom>Unc</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<CreateWebPageOnPublish>true</CreateWebPageOnPublish>
<WebPage>publish.htm</WebPage>
<ApplicationRevision>2</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Dokumentation.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Dokumentation.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>doku_ico.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>690D101E98C8AB5F1F9745FBC138E2E27736F24D</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Dokumentation_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Administration\NetzwerkHinzu.Designer.vb">
<DependentUpon>NetzwerkHinzu.vb</DependentUpon>
</Compile>
<Compile Include="Administration\NetzwerkHinzu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\NWEdit.Designer.vb">
<DependentUpon>NWEdit.vb</DependentUpon>
</Compile>
<Compile Include="Administration\NWEdit.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\Standorthinzu.Designer.vb">
<DependentUpon>Standorthinzu.vb</DependentUpon>
</Compile>
<Compile Include="Administration\Standorthinzu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\Class1.vb" />
<Compile Include="Administration\CSVImportieren.Designer.vb">
<DependentUpon>CSVImportieren.vb</DependentUpon>
</Compile>
<Compile Include="Administration\CSVImportieren.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\DHCP.vb" />
<Compile Include="Classes\Folder.vb" />
<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>
<Compile Include="HostBearbeiten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Login\Login.Designer.vb">
<DependentUpon>Login.vb</DependentUpon>
</Compile>
<Compile Include="Login\Login.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Login\PasswortabfrageLogin.Designer.vb">
<DependentUpon>PasswortabfrageLogin.vb</DependentUpon>
</Compile>
<Compile Include="Login\PasswortabfrageLogin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Main.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Main.Designer.vb">
<DependentUpon>Main.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Administration\NetzwerkAdmin.Designer.vb">
<DependentUpon>NetzwerkAdmin.vb</DependentUpon>
</Compile>
<Compile Include="Administration\NetzwerkAdmin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="HostVerschieben.Designer.vb">
<DependentUpon>HostVerschieben.vb</DependentUpon>
</Compile>
<Compile Include="HostVerschieben.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="PrintDGV.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Administration\NetzwerkHinzu.resx">
<DependentUpon>NetzwerkHinzu.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\NWEdit.resx">
<DependentUpon>NWEdit.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\Standorthinzu.resx">
<DependentUpon>Standorthinzu.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\CSVImportieren.resx">
<DependentUpon>CSVImportieren.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="EintragBearbeiten.resx">
<DependentUpon>EintragBearbeiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="HostBearbeiten.resx">
<DependentUpon>HostBearbeiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Login\Login.resx">
<DependentUpon>Login.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Login\PasswortabfrageLogin.resx">
<DependentUpon>PasswortabfrageLogin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Main.resx">
<DependentUpon>Main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Administration\NetzwerkAdmin.resx">
<DependentUpon>NetzwerkAdmin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="HostVerschieben.resx">
<DependentUpon>HostVerschieben.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="Dokumentation_TemporaryKey.pfx" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<Content Include="dispo_ico.ico" />
<Content Include="doku_ico.ico" />
<None Include="Resources\Link.png" />
<None Include="Resources\Link.bmp" />
<None Include="Resources\Link20.bmp" />
<None Include="Resources\Folder20.bmp" />
<None Include="Resources\Bearbeiten20.bmp" />
<None Include="Resources\Netzwerk20.bmp" />
<Content Include="rj45_ICO.ico" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 und x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

383
Dokumentation/EintragBearbeiten.Designer.vb generated Normal file
View File

@@ -0,0 +1,383 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class EintragBearbeiten
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(EintragBearbeiten))
Me.TxtTitel = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.TxtRubrik = New System.Windows.Forms.TextBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DebugToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
Me.TxtInfo = New System.Windows.Forms.TextBox()
Me.TxtBenutzername = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.TxtKennwort = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.LblLink = New System.Windows.Forms.Label()
Me.TxtLink = New System.Windows.Forms.TextBox()
Me.CmdSave = New System.Windows.Forms.Button()
Me.CmdReset = New System.Windows.Forms.Button()
Me.CmdAbbrechen = New System.Windows.Forms.Button()
Me.CmdDelete = New System.Windows.Forms.Button()
Me.CmdDateien = New System.Windows.Forms.Button()
Me.CmdLink = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panelhinten = New System.Windows.Forms.Panel()
Me.CmdTest = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panelhinten.SuspendLayout()
Me.SuspendLayout()
'
'TxtTitel
'
Me.TxtTitel.Location = New System.Drawing.Point(11, 66)
Me.TxtTitel.Name = "TxtTitel"
Me.TxtTitel.Size = New System.Drawing.Size(618, 20)
Me.TxtTitel.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 88
Me.Label3.Text = "Titel:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 100
Me.Label1.Text = "Rubrik:"
'
'TxtRubrik
'
Me.TxtRubrik.Location = New System.Drawing.Point(11, 27)
Me.TxtRubrik.Name = "TxtRubrik"
Me.TxtRubrik.Size = New System.Drawing.Size(618, 20)
Me.TxtRubrik.TabIndex = 1
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
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(848, 24)
Me.MenuStrip1.TabIndex = 105
Me.MenuStrip1.Text = "MenuStrip1"
'
'ExtrasToolStripMenuItem
'
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DebugToolStripMenuItem})
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
Me.ExtrasToolStripMenuItem.Text = "Extras"
'
'DebugToolStripMenuItem
'
Me.DebugToolStripMenuItem.Name = "DebugToolStripMenuItem"
Me.DebugToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DebugToolStripMenuItem.Text = "Debug"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.TxtTitel)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.TxtRubrik)
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(848, 100)
Me.Panel1.TabIndex = 107
'
'ChkKennwortAnzeigen
'
Me.ChkKennwortAnzeigen.AutoSize = True
Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(559, 9)
Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
Me.ChkKennwortAnzeigen.TabIndex = 6
Me.ChkKennwortAnzeigen.Text = "Anzeigen"
Me.ChkKennwortAnzeigen.UseVisualStyleBackColor = True
'
'TxtInfo
'
Me.TxtInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.TxtInfo.Location = New System.Drawing.Point(0, 0)
Me.TxtInfo.Multiline = True
Me.TxtInfo.Name = "TxtInfo"
Me.TxtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TxtInfo.Size = New System.Drawing.Size(848, 438)
Me.TxtInfo.TabIndex = 3
'
'TxtBenutzername
'
Me.TxtBenutzername.Location = New System.Drawing.Point(11, 26)
Me.TxtBenutzername.Name = "TxtBenutzername"
Me.TxtBenutzername.Size = New System.Drawing.Size(300, 20)
Me.TxtBenutzername.TabIndex = 4
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(78, 13)
Me.Label7.TabIndex = 90
Me.Label7.Text = "Benutzername:"
'
'TxtKennwort
'
Me.TxtKennwort.Location = New System.Drawing.Point(329, 26)
Me.TxtKennwort.Name = "TxtKennwort"
Me.TxtKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtKennwort.Size = New System.Drawing.Size(300, 20)
Me.TxtKennwort.TabIndex = 5
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(326, 10)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(55, 13)
Me.Label6.TabIndex = 91
Me.Label6.Text = "Kennwort:"
'
'LblLink
'
Me.LblLink.AutoSize = True
Me.LblLink.Location = New System.Drawing.Point(8, 49)
Me.LblLink.Name = "LblLink"
Me.LblLink.Size = New System.Drawing.Size(85, 13)
Me.LblLink.TabIndex = 92
Me.LblLink.Text = "Link zum Dienst:"
'
'TxtLink
'
Me.TxtLink.Location = New System.Drawing.Point(11, 65)
Me.TxtLink.Name = "TxtLink"
Me.TxtLink.Size = New System.Drawing.Size(300, 20)
Me.TxtLink.TabIndex = 7
'
'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(535, 91)
Me.CmdSave.Name = "CmdSave"
Me.CmdSave.Size = New System.Drawing.Size(90, 23)
Me.CmdSave.TabIndex = 8
Me.CmdSave.Text = "Speichern"
Me.CmdSave.UseVisualStyleBackColor = False
'
'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(329, 91)
Me.CmdReset.Name = "CmdReset"
Me.CmdReset.Size = New System.Drawing.Size(90, 23)
Me.CmdReset.TabIndex = 94
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(435, 91)
Me.CmdAbbrechen.Name = "CmdAbbrechen"
Me.CmdAbbrechen.Size = New System.Drawing.Size(90, 23)
Me.CmdAbbrechen.TabIndex = 9
Me.CmdAbbrechen.Text = "Schließen"
Me.CmdAbbrechen.UseVisualStyleBackColor = False
'
'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(11, 91)
Me.CmdDelete.Name = "CmdDelete"
Me.CmdDelete.Size = New System.Drawing.Size(90, 23)
Me.CmdDelete.TabIndex = 97
Me.CmdDelete.Text = "Eintrag löschen"
Me.CmdDelete.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(221, 91)
Me.CmdDateien.Name = "CmdDateien"
Me.CmdDateien.Size = New System.Drawing.Size(90, 23)
Me.CmdDateien.TabIndex = 98
Me.CmdDateien.Text = "Dateien"
Me.CmdDateien.UseVisualStyleBackColor = False
'
'CmdLink
'
Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Location = New System.Drawing.Point(117, 91)
Me.CmdLink.Name = "CmdLink"
Me.CmdLink.Size = New System.Drawing.Size(90, 23)
Me.CmdLink.TabIndex = 102
Me.CmdLink.Text = "Link öffnen"
Me.CmdLink.UseVisualStyleBackColor = False
'
'Panel2
'
Me.Panel2.Controls.Add(Me.TxtInfo)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 100)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(848, 438)
Me.Panel2.TabIndex = 108
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.Label7)
Me.Panel3.Controls.Add(Me.ChkKennwortAnzeigen)
Me.Panel3.Controls.Add(Me.TxtBenutzername)
Me.Panel3.Controls.Add(Me.TxtKennwort)
Me.Panel3.Controls.Add(Me.Label6)
Me.Panel3.Controls.Add(Me.CmdLink)
Me.Panel3.Controls.Add(Me.LblLink)
Me.Panel3.Controls.Add(Me.CmdDateien)
Me.Panel3.Controls.Add(Me.TxtLink)
Me.Panel3.Controls.Add(Me.CmdDelete)
Me.Panel3.Controls.Add(Me.CmdSave)
Me.Panel3.Controls.Add(Me.CmdAbbrechen)
Me.Panel3.Controls.Add(Me.CmdReset)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 538)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(848, 152)
Me.Panel3.TabIndex = 109
'
'Panelhinten
'
Me.Panelhinten.Controls.Add(Me.Panel2)
Me.Panelhinten.Controls.Add(Me.Panel3)
Me.Panelhinten.Controls.Add(Me.Panel1)
Me.Panelhinten.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panelhinten.Location = New System.Drawing.Point(0, 24)
Me.Panelhinten.Name = "Panelhinten"
Me.Panelhinten.Size = New System.Drawing.Size(848, 690)
Me.Panelhinten.TabIndex = 107
'
'CmdTest
'
Me.CmdTest.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdTest.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdTest.Location = New System.Drawing.Point(779, 567)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(94, 23)
Me.CmdTest.TabIndex = 103
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = False
Me.CmdTest.Visible = False
'
'EintragBearbeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(848, 714)
Me.Controls.Add(Me.CmdTest)
Me.Controls.Add(Me.Panelhinten)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "EintragBearbeiten"
Me.Text = "Allgemein"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panelhinten.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TxtTitel As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents Label1 As Label
Friend WithEvents TxtRubrik As TextBox
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ExtrasToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DebugToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel1 As Panel
Friend WithEvents ChkKennwortAnzeigen As CheckBox
Private WithEvents TxtInfo As TextBox
Friend WithEvents TxtBenutzername As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TxtKennwort As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents LblLink As Label
Friend WithEvents TxtLink As TextBox
Friend WithEvents CmdSave As Button
Friend WithEvents CmdReset As Button
Friend WithEvents CmdAbbrechen As Button
Friend WithEvents CmdDelete As Button
Friend WithEvents CmdDateien As Button
Friend WithEvents CmdLink As Button
Friend WithEvents Panel2 As Panel
Friend WithEvents Panel3 As Panel
Friend WithEvents Panelhinten As Panel
Friend WithEvents CmdTest As Button
End Class

203
Dokumentation/EintragBearbeiten.resx Normal file
View File

@@ -0,0 +1,203 @@
<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 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>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPp3IAz6dyAM+n
cgDPp3IAz6dyAM+ncgDPp3IAz6dyAM+ncgDPp3IAz6ZyAM+ncgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANClcwDPp3IAz6dyAM+n
cgDPp3IAz6dyB8+nch7Pp3I1z6dyQs+nckLPp3I1z6dyHs+ncgfPp3IAz6dyAM+ncgDPp3IA06x0AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADPp3IAz6dyAM+n
cgDPp3IAz6dyJs+ncnLPp3K2z6dy3s+ncvDPp3L3z6dy98+ncvDPp3Lez6dyts+ncnLPp3Imz6dyAM+n
cgDPp3IAz6dyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz6dyAM+n
cgDPp3IAz6dyGs+ncoPPp3Lgz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cuDPp3KDz6dyGs+ncgDPp3IAz6dyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM+n
cgDPp3IAz6dyAM+ncj7Pp3LHz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3LHz6dyPs+ncgDPp3IAz6dyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADPp3IAz6dyAM+ncgDPp3JNz6dy4s+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy98+nctDPp3LLz6dyy8+n
ctDPp3L3z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Liz6dyTc+ncgDPp3IAz6dyAAAAAAAAAAAAAAAAAAAA
AAAAAAAA0qhuAM+ncgDPp3IAz6dyPs+ncuLPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Lcz6dyJ8+n
cg3Pp3IOz6dyJc+nctvPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Liz6dyPs+ncgDPp3IAz6VyAAAA
AAAAAAAAAAAAAAAAAADPp3IAz6dyAM+nchrPp3LHz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
ctrPp3IYz6dyAM+ncgDPp3IXz6dy2M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3LHz6dyGs+n
cgDPp3IAAAAAAAAAAAAAAAAAAAAAAM+ncgDPp3IAz6dyg8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy2s+nchnPp3IAz6dyAM+nchjPp3LYz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3KDz6dyAM+ncgAAAAAAAAAAAAAAAADPp3IAz6dyAM+ncibPp3Lgz6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3Laz6dyGc+ncgDPp3IAz6dyGM+nctjPp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncuDPp3Imz6dyAM+ncgAAAAAAAAAAAM+ncQDPp3IAz6dycs+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+nctrPp3IZz6dyAM+ncgDPp3IYz6dy2M+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncnLPp3IAz6dyAAAAAAAAAAAAz6dyAM+ncgfPp3K2z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy2s+nchnPp3IAz6dyAM+nchjPp3LYz6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dyts+ncgfPp3IAAAAAAAAAAADPp3IAz6dyHs+n
ct7Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Laz6dyGc+ncgDPp3IAz6dyGM+n
ctjPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Lez6dyHs+ncgAAAAAAAAAAAM+n
cgDPp3I1z6dy8M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+nctrPp3IZz6dyAM+n
cgDPp3IYz6dy2M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncvDPp3I1z6dyAAAA
AAAAAAAAz6dyAM+nckPPp3L3z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy2s+n
chnPp3IAz6dyAM+nchjPp3LYz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy98+n
ckLPp3IAAAAAAAAAAADPp3IAz6dyQ8+ncvfPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3Laz6dyGc+ncgDPp3IAz6dyGM+nctjPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L3z6dyQs+ncgAAAAAAAAAAAM+ncgDPp3I1z6dy8M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+nctrPp3IYz6dyAM+ncgDPp3IWz6dy2M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncvDPp3I1z6dyAAAAAAAAAAAAz6dyAM+nch7Pp3Lez6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy78+ncp7Pp3KTz6dyk8+ncp7Pp3Lvz6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy3s+nch7Pp3IAAAAAAAAAAADPp3IAz6dyB8+ncrbPp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3K2z6dyB8+ncgAAAAAAAAAAAM+ncgDPp3IAz6dycs+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Lnz6dynM+ncpvPp3Lkz6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncnLPp3IAz6dyAAAAAAAAAAAAz6dyAM+n
cgDPp3Inz6dy4M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy7M+nck3Pp3IAz6dyAM+n
ckjPp3Lrz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3Lgz6dyJs+ncgDPp3IAAAAAAAAA
AAAAAAAAz6dyAM+ncgDPp3KDz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3K3z6dyBc+n
cgDPp3IAz6dyBc+ncrjPp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncoPPp3IAz6dyAAAA
AAAAAAAAAAAAAAAAAADPp3IAz6dyAM+nchrPp3LIz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
csTPp3INz6dyAM+ncgDPp3IMz6dyxM+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3LIz6dyGs+n
cgDPp3IAAAAAAAAAAAAAAAAAAAAAAM+icQDPp3IAz6dyAM+ncj7Pp3Liz6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3L/z6dy+M+ncn7Pp3IZz6dyGM+ncnnPp3L3z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy4s+n
cj7Pp3IAz6dyAMymbwAAAAAAAAAAAAAAAAAAAAAAAAAAAM+ncgDPp3IAz6dyAM+nck3Pp3Liz6dy/8+n
cv/Pp3L/z6dy/8+ncv/Pp3L/z6dy+8+nctnPp3LYz6dy+s+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cuLPp3JNz6dyAM+ncgDPp3IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM+ncgDPp3IAz6dyAM+n
cj7Pp3LIz6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3LIz6dyPs+ncgDPp3IAz6dyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAM+n
cgDPp3IAz6dyAM+nchrPp3KDz6dy4M+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+ncv/Pp3L/z6dy/8+n
cv/Pp3Lhz6dyg8+nchrPp3IAz6dyAM+ncgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAM+ncgDPp3IAz6dyAM+ncgDPp3Imz6dycs+ncrbPp3Lez6dy8M+ncvfPp3L3z6dy8M+n
ct7Pp3K2z6dycs+ncifPp3IAz6dyAM+ncgDPp3IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAANKobgDPp3IAz6dyAM+ncgDPp3IAz6dyB8+nch7Pp3I1z6dyQ8+n
ckPPp3I1z6dyHs+ncgfPp3IAz6dyAM+ncgDPp3IAzqh0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAz6dyAM+ncgDPp3IAz6dyAM+n
cgDPp3IAz6dyAM+ncgDPp3IAz6dyAM+ncgDPp3IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA///////AA//+AAB//AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADwAAAA4AA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAcAAAAPAAAADwAAAA+AA
AAfwAAAP+AAAH/wAAD/+AAB//8AD//////8=
</value>
</data>
</root>

394
Dokumentation/EintragBearbeiten.vb Normal file
View File

@@ -0,0 +1,394 @@
Imports System.Data.SqlClient
Public Class EintragBearbeiten
Public con As New SqlConnection
Public cmd As New SqlCommand
Public reader As SqlDataReader
Public Rubrik As String = Main.SenderRubrik
Public Titel As String = Main.SenderTitel
Public abfrage As String
Public Linked As String
Public LinkedWith As String
Public neu As Boolean = Main.Neu
Public neurubrik As Boolean = False
Public geaendert As Boolean
Private Sub EintragBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dbload()
If Main.Debug = True Then
Panelhinten.Dock = DockStyle.Left
CmdTest.Visible = True
End If
If Neu = True Then
anzeigen()
Else
Me.Text = Titel
importieren(Rubrik, Titel)
End If
Class1.Autocomplete(TxtRubrik, "Rubrik", "Tbl_Allgemein")
End Sub
Public Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Public Function importieren(Rubrik As String, titel As String)
abfrage = "Rubrik='" & Rubrik & "' AND Titel='" & titel & "'"
'MsgBox(standort & netzwerk & Host)
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Allgemein WHERE " & abfrage & ""
Catch ex As Exception
MsgBox("Fehler Function Import: " & ex.Message)
End Try
anzeigen()
con.Close()
geaendert = False
End Function
Public Function anzeigen()
TxtInfo.Text = ""
TxtBenutzername.Text = ""
TxtKennwort.Text = ""
TxtLink.Text = ""
TxtTitel.Text = ""
TxtRubrik.Text = Rubrik
Try
reader = cmd.ExecuteReader()
Do While reader.Read()
TxtTitel.Text = reader("Titel")
TxtInfo.Text = reader("Info")
TxtBenutzername.Text = reader("Benutzer")
TxtKennwort.Text = reader("Passwort")
TxtLink.Text = reader("LINK")
'TxtRubrik.Text = reader("Rubrik")
Loop
reader.Close()
Catch ex As Exception
'MsgBox("Hostbearbeiten.Ausgabe_Host reader.Read: " & ex.Message)
End Try
End Function
Public Function speichern(wie As String)
Dim InfoSQL As String = Class1.hochkomma(TxtInfo.Text)
Dim NameChanged As Boolean = False
con.Close()
abfrage_neu_rubrik(TxtRubrik.Text)
If Rubrik = TxtRubrik.Text And Titel = TxtTitel.Text Then
NameChanged = False
Else
NameChanged = True
If abfrage_exist(TxtRubrik.Text, TxtTitel.Text) = True Then
MsgBox("Bitte eindeutigen Namen verwenden.")
con.Close()
Exit Function
Else
con.Close()
End If
End If
Try
If wie = "Insert" Then
Rubrik = TxtRubrik.Text
Titel = TxtTitel.Text
con.Open()
cmd.CommandText = "INSERT INTO TbL_Allgemein (Titel, Rubrik) VALUES ('" & Titel & "', '" & Rubrik & "')"
cmd.ExecuteNonQuery()
abfrage = "Rubrik='" & Rubrik & "' AND Titel='" & Titel & "'"
cmd.CommandText = "UPDATE TbL_Allgemein SET Rubrik = '" & TxtRubrik.Text & "', Titel = '" & TxtTitel.Text & "', Info = '" & InfoSQL & "', Benutzer = '" & TxtBenutzername.Text & "', Passwort = '" & TxtKennwort.Text & "', Link = '" & TxtLink.Text & "' WHERE " & abfrage & ""
cmd.ExecuteNonQuery()
con.Close()
geaendert = False
neu = False
Main.Neu = False
ElseIf wie = "Update" Then
con.Close()
con.Open()
cmd.CommandText = "UPDATE TbL_Allgemein SET Rubrik = '" & TxtRubrik.Text & "', Titel = '" & TxtTitel.Text & "', Info = '" & InfoSQL & "', Benutzer = '" & TxtBenutzername.Text & "', Passwort = '" & TxtKennwort.Text & "', Link = '" & TxtLink.Text & "' WHERE " & abfrage & ""
cmd.ExecuteNonQuery()
con.Close()
geaendert = False
If NameChanged = True Then
Folder.FolderMove(Rubrik, Titel, TxtRubrik.Text, TxtTitel.Text)
End If
NameChanged = False
End If
Catch ex As Exception
MsgBox("Speichern(wie) : " & ex.Message)
con.Close()
End Try
Rubrik = TxtRubrik.Text
Titel = TxtTitel.Text
End Function
Private Function abfrage_neu_rubrik(rubrik As String)
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Allgemein WHERE Rubrik='" & rubrik & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read() Then
neurubrik = False
'MsgBox("nicht neu")
Else
neurubrik = True
'MsgBox("Neu")
End If
con.Close()
End Function
Private Function abfrage_exist(rubrik As String, titel As String)
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Allgemein WHERE Rubrik='" & rubrik & "' AND Titel='" & titel & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read() Then
Return True
con.Close()
Else
Return False
con.Close()
End If
con.Close()
End Function
Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
If Neu = False Then
speichern("Update")
ElseIf Neu = True Then
speichern("Insert")
End If
End Sub
Private Function openfilepath()
Dim ds As New DataSet()
Dim islinked As Integer
Dim path As String
Try
dbload()
con.Open()
Dim sda As New SqlDataAdapter("SELECT * FROM TbL_Allgemein WHERE " & abfrage & "", con)
sda.Fill(ds)
con.Close()
Dim Info As String = ds.Tables(0).Rows(0).Item("Info")
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = "0"
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = ds.Tables(0).Rows(0).Item("Linked")
End If
If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = ""
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
End If
If islinked = "1" Then
Dim dslinked As New DataSet()
dbload()
con.Open()
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
da.Fill(dslinked)
con.Close()
path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
Else
'MsgBox("not linked")
path = Class1.FilePath & "\" & Rubrik & "\" & Titel '& "\" & SenderHost
End If
Catch ex As Exception
MsgBox("openfilepath() Tbl_Allgemein: " & ex.Message)
End Try
con.Close()
''Pfad öffnen:
Try
If IO.Directory.Exists(path) Then
Process.Start(path)
Else
IO.Directory.CreateDirectory(path)
Process.Start(path)
End If
Catch ex As Exception
End Try
End Function
Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.Click
Dim path As String
path = Class1.FilePath & "\" & Rubrik & "\" & Titel
If MsgBox("Eintrag wirklich löschen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
con.Open()
If MessageBox.Show("Dazugehörigen Ordner im Dateisystem löschen?", "Dateien löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then
deleteFiles(path, Rubrik)
ElseIf DialogResult.No Then
Exit Sub
End If
cmd.CommandText = "DELETE TbL_Allgemein WHERE " & abfrage & ""
cmd.ExecuteNonQuery()
con.Close()
Main.LstStandortLoad()
Me.Close()
Else
Exit Sub
End If
End Sub
Private Function deleteFiles(path As String, Rubrik As String)
Dim rubrikpath As String = Class1.FilePath & "\" & Rubrik
Try
If IO.Directory.Exists(path) Then
Dim files As String() = IO.Directory.GetFiles(path)
For Each file As String In files
IO.File.Delete(file)
Next
IO.Directory.Delete(path, True)
Else
'MsgBox("Kein Ordner zum Löschen gefunden: wird übersprungen.")
End If
Catch ex As Exception
MsgBox("Beim Löschen der Dateien: " & ex.Message)
End Try
''Überprüfen, ob letzter Eintrag der Rubrik bzw. ob Odner der Rubrik leer ist:
Try
If IO.Directory.Exists(rubrikpath) Then
Dim files As String() = IO.Directory.GetFiles(rubrikpath)
Dim folder As String() = IO.Directory.GetDirectories(rubrikpath)
Dim out As String = ""
For Each row As String In files
out &= row
Next
For Each row As String In folder
out &= row
Next
If out IsNot "" Then
Exit Function
Else
IO.Directory.Delete(rubrikpath, True)
End If
Else
'MsgBox("Kein Ordner zum Löschen gefunden: wird übersprungen.")
End If
Catch ex As Exception
MsgBox("Beim Löschen der Dateien: " & ex.Message)
End Try
End Function
Private Sub CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click
openfilepath()
End Sub
Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
Main.startlink()
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
Public Function abfrage_aenderungenspeichern()
If geaendert = False Then
Exit Function
ElseIf geaendert = True Then
Dim result As Integer = MsgBox("Änderungen speichern?", MsgBoxStyle.YesNo)
If result = MsgBoxResult.No Then
Exit Function
ElseIf result = MsgBoxResult.Yes Then
If neu = True Then
speichern("Insert")
Else
speichern("Update")
End If
End If
End If
geaendert = False
End Function
Private Sub TxtRubrik_TextChanged(sender As Object, e As EventArgs) Handles TxtRubrik.TextChanged, TxtTitel.TextChanged, TxtInfo.TextChanged, TxtBenutzername.TextChanged, TxtKennwort.TextChanged, TxtLink.TextChanged
geaendert = True
End Sub
Private Sub CmdReset_Click(sender As Object, e As EventArgs) Handles CmdReset.Click
If geaendert = True Then
If MsgBox("Änderungen verwerfen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
importieren(Rubrik, Titel)
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''DEBUG''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub DebugToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.Click
Panelhinten.Dock = DockStyle.Left
CmdTest.Visible = True
End Sub
Private Sub CmdTest_Clicki(sender As Object, e As EventArgs) Handles CmdTest.Click
MsgBox(Rubrik & Titel & TxtRubrik.Text & TxtTitel.Text)
End Sub
''SCHLIESSEN''
Private Sub CmdAbbrechen_Click(sender As Object, e As EventArgs) Handles CmdAbbrechen.Click
'Main.LstStandortLoad()
abfrage_aenderungenspeichern()
If neurubrik = True Then
Main.LstStandortLoad()
End If
Main.dgvload(Main.Tabelle)
neu = False
Main.LstAllgemein.SelectedItem = TxtRubrik
Main.Activate()
Me.Close()
End Sub
Private Sub Hostbearbeiten_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Main.LstStandortLoad()
abfrage_aenderungenspeichern()
If neurubrik = True Then
Main.LstStandortLoad()
End If
neu = False
Main.dgvload(Main.Tabelle)
Main.LstAllgemein.SelectedItem = TxtRubrik
Main.Activate()
End Sub
End Class

716
Dokumentation/HostBearbeiten.Designer.vb generated Normal file
View File

@@ -0,0 +1,716 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class HostBearbeiten
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(HostBearbeiten))
Me.LblLink = New System.Windows.Forms.Label()
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.CmdDateien = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.TxtKennwort = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.TxtBenutzername = New System.Windows.Forms.TextBox()
Me.CmdDelete = New System.Windows.Forms.Button()
Me.TxtHost = New System.Windows.Forms.TextBox()
Me.LbIPNetzwerkadresse = New System.Windows.Forms.Label()
Me.CmdIPUp = New System.Windows.Forms.Button()
Me.CmdIPDown = New System.Windows.Forms.Button()
Me.CmdAbbrechen = New System.Windows.Forms.Button()
Me.CmdReset = New System.Windows.Forms.Button()
Me.CmdSave = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.TxtInfo = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.TxtType = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TxtMAC = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TxtName = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TxtIP = New System.Windows.Forms.TextBox()
Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
Me.LblInfo = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.TxtModell = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.TxtQuickInfo = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.TxtSeriennummer = New System.Windows.Forms.TextBox()
Me.TxtLinkedWith = New System.Windows.Forms.TextBox()
Me.ChkLinked = New System.Windows.Forms.CheckBox()
Me.CmdLink = New System.Windows.Forms.Button()
Me.CmdTest = New System.Windows.Forms.Button()
Me.LbLDebug = New System.Windows.Forms.Label()
Me.PanDebug = New System.Windows.Forms.Panel()
Me.CmdIPChange = New System.Windows.Forms.Button()
Me.CmdCopy = New System.Windows.Forms.Button()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AutoCompleteFüllenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HostVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.DebugToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2 = New System.Windows.Forms.Panel()
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.ContextMenuStrip1.SuspendLayout()
Me.PanDebug.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'LblLink
'
Me.LblLink.AutoSize = True
Me.LblLink.Location = New System.Drawing.Point(336, 327)
Me.LblLink.Name = "LblLink"
Me.LblLink.Size = New System.Drawing.Size(78, 13)
Me.LblLink.TabIndex = 72
Me.LblLink.Text = "Link zum Gerät"
'
'TxtLink
'
Me.TxtLink.ContextMenuStrip = Me.ContextMenuStrip1
Me.TxtLink.Location = New System.Drawing.Point(339, 343)
Me.TxtLink.Name = "TxtLink"
Me.TxtLink.Size = New System.Drawing.Size(300, 20)
Me.TxtLink.TabIndex = 14
'
'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"
'
'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(339, 408)
Me.CmdDateien.Name = "CmdDateien"
Me.CmdDateien.Size = New System.Drawing.Size(94, 23)
Me.CmdDateien.TabIndex = 17
Me.CmdDateien.Text = "Dateien"
Me.CmdDateien.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(336, 288)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(52, 13)
Me.Label6.TabIndex = 68
Me.Label6.Text = "Kennwort"
'
'TxtKennwort
'
Me.TxtKennwort.Location = New System.Drawing.Point(339, 304)
Me.TxtKennwort.Name = "TxtKennwort"
Me.TxtKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtKennwort.Size = New System.Drawing.Size(300, 20)
Me.TxtKennwort.TabIndex = 13
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(336, 249)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(75, 13)
Me.Label7.TabIndex = 66
Me.Label7.Text = "Benutzername"
'
'TxtBenutzername
'
Me.TxtBenutzername.Location = New System.Drawing.Point(339, 265)
Me.TxtBenutzername.Name = "TxtBenutzername"
Me.TxtBenutzername.Size = New System.Drawing.Size(300, 20)
Me.TxtBenutzername.TabIndex = 11
'
'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(12, 437)
Me.CmdDelete.Name = "CmdDelete"
Me.CmdDelete.Size = New System.Drawing.Size(94, 23)
Me.CmdDelete.TabIndex = 19
Me.CmdDelete.Text = "Löschen"
Me.CmdDelete.UseVisualStyleBackColor = False
'
'TxtHost
'
Me.TxtHost.Location = New System.Drawing.Point(239, 109)
Me.TxtHost.Name = "TxtHost"
Me.TxtHost.Size = New System.Drawing.Size(75, 20)
Me.TxtHost.TabIndex = 1
'
'LbIPNetzwerkadresse
'
Me.LbIPNetzwerkadresse.AutoSize = True
Me.LbIPNetzwerkadresse.Location = New System.Drawing.Point(236, 93)
Me.LbIPNetzwerkadresse.Name = "LbIPNetzwerkadresse"
Me.LbIPNetzwerkadresse.Size = New System.Drawing.Size(43, 13)
Me.LbIPNetzwerkadresse.TabIndex = 62
Me.LbIPNetzwerkadresse.Text = "HostNr."
'
'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(239, 40)
Me.CmdIPUp.Name = "CmdIPUp"
Me.CmdIPUp.Size = New System.Drawing.Size(75, 23)
Me.CmdIPUp.TabIndex = 60
Me.CmdIPUp.Text = "+"
Me.CmdIPUp.UseVisualStyleBackColor = False
'
'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(14, 40)
Me.CmdIPDown.Name = "CmdIPDown"
Me.CmdIPDown.Size = New System.Drawing.Size(75, 23)
Me.CmdIPDown.TabIndex = 59
Me.CmdIPDown.Text = "-"
Me.CmdIPDown.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(545, 437)
Me.CmdAbbrechen.Name = "CmdAbbrechen"
Me.CmdAbbrechen.Size = New System.Drawing.Size(94, 23)
Me.CmdAbbrechen.TabIndex = 16
Me.CmdAbbrechen.Text = "Schließen"
Me.CmdAbbrechen.UseVisualStyleBackColor = False
'
'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(339, 437)
Me.CmdReset.Name = "CmdReset"
Me.CmdReset.Size = New System.Drawing.Size(94, 23)
Me.CmdReset.TabIndex = 18
Me.CmdReset.Text = "Reset"
Me.CmdReset.UseVisualStyleBackColor = False
'
'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(545, 408)
Me.CmdSave.Name = "CmdSave"
Me.CmdSave.Size = New System.Drawing.Size(94, 23)
Me.CmdSave.TabIndex = 15
Me.CmdSave.Text = "&Speichern"
Me.CmdSave.UseVisualStyleBackColor = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(336, 132)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(25, 13)
Me.Label5.TabIndex = 55
Me.Label5.Text = "Info"
'
'TxtInfo
'
Me.TxtInfo.Location = New System.Drawing.Point(339, 148)
Me.TxtInfo.Multiline = True
Me.TxtInfo.Name = "TxtInfo"
Me.TxtInfo.Size = New System.Drawing.Size(300, 98)
Me.TxtInfo.TabIndex = 10
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(11, 327)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(31, 13)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Type"
'
'TxtType
'
Me.TxtType.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.TxtType.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.TxtType.Location = New System.Drawing.Point(14, 343)
Me.TxtType.Name = "TxtType"
Me.TxtType.Size = New System.Drawing.Size(300, 20)
Me.TxtType.TabIndex = 6
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(336, 93)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 51
Me.Label3.Text = "MAC"
'
'TxtMAC
'
Me.TxtMAC.Location = New System.Drawing.Point(339, 109)
Me.TxtMAC.Name = "TxtMAC"
Me.TxtMAC.Size = New System.Drawing.Size(300, 20)
Me.TxtMAC.TabIndex = 9
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(11, 132)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(35, 13)
Me.Label2.TabIndex = 49
Me.Label2.Text = "Name"
'
'TxtName
'
Me.TxtName.Location = New System.Drawing.Point(14, 148)
Me.TxtName.Name = "TxtName"
Me.TxtName.Size = New System.Drawing.Size(300, 20)
Me.TxtName.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(11, 93)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(58, 13)
Me.Label1.TabIndex = 47
Me.Label1.Text = "IP Adresse"
'
'TxtIP
'
Me.TxtIP.Enabled = False
Me.TxtIP.Location = New System.Drawing.Point(14, 109)
Me.TxtIP.Name = "TxtIP"
Me.TxtIP.Size = New System.Drawing.Size(219, 20)
Me.TxtIP.TabIndex = 46
'
'ChkKennwortAnzeigen
'
Me.ChkKennwortAnzeigen.AutoSize = True
Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(394, 287)
Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
Me.ChkKennwortAnzeigen.TabIndex = 12
Me.ChkKennwortAnzeigen.Text = "Anzeigen"
Me.ChkKennwortAnzeigen.UseVisualStyleBackColor = True
'
'LblInfo
'
Me.LblInfo.AutoSize = True
Me.LblInfo.Location = New System.Drawing.Point(14, 11)
Me.LblInfo.Name = "LblInfo"
Me.LblInfo.Size = New System.Drawing.Size(39, 13)
Me.LblInfo.TabIndex = 73
Me.LblInfo.Text = "LblInfo"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(11, 171)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(38, 13)
Me.Label8.TabIndex = 75
Me.Label8.Text = "Modell"
'
'TxtModell
'
Me.TxtModell.Location = New System.Drawing.Point(14, 187)
Me.TxtModell.Name = "TxtModell"
Me.TxtModell.Size = New System.Drawing.Size(300, 20)
Me.TxtModell.TabIndex = 3
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(9, 249)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(53, 13)
Me.Label9.TabIndex = 77
Me.Label9.Text = "QuickInfo"
'
'TxtQuickInfo
'
Me.TxtQuickInfo.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.TxtQuickInfo.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.TxtQuickInfo.Location = New System.Drawing.Point(12, 267)
Me.TxtQuickInfo.Multiline = True
Me.TxtQuickInfo.Name = "TxtQuickInfo"
Me.TxtQuickInfo.Size = New System.Drawing.Size(300, 57)
Me.TxtQuickInfo.TabIndex = 5
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(11, 366)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(74, 13)
Me.Label10.TabIndex = 79
Me.Label10.Text = "Seriennummer"
'
'TxtSeriennummer
'
Me.TxtSeriennummer.Location = New System.Drawing.Point(14, 382)
Me.TxtSeriennummer.Name = "TxtSeriennummer"
Me.TxtSeriennummer.Size = New System.Drawing.Size(300, 20)
Me.TxtSeriennummer.TabIndex = 7
'
'TxtLinkedWith
'
Me.TxtLinkedWith.Enabled = False
Me.TxtLinkedWith.Location = New System.Drawing.Point(339, 44)
Me.TxtLinkedWith.Name = "TxtLinkedWith"
Me.TxtLinkedWith.Size = New System.Drawing.Size(300, 20)
Me.TxtLinkedWith.TabIndex = 80
'
'ChkLinked
'
Me.ChkLinked.AutoSize = True
Me.ChkLinked.Location = New System.Drawing.Point(339, 21)
Me.ChkLinked.Name = "ChkLinked"
Me.ChkLinked.Size = New System.Drawing.Size(134, 17)
Me.ChkLinked.TabIndex = 8
Me.ChkLinked.Text = "zusätzliche IP für Host:"
Me.ChkLinked.UseVisualStyleBackColor = True
'
'CmdLink
'
Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Location = New System.Drawing.Point(545, 70)
Me.CmdLink.Name = "CmdLink"
Me.CmdLink.Size = New System.Drawing.Size(94, 23)
Me.CmdLink.TabIndex = 82
Me.CmdLink.Text = "Verknüpfen"
Me.CmdLink.UseVisualStyleBackColor = False
Me.CmdLink.Visible = False
'
'CmdTest
'
Me.CmdTest.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdTest.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdTest.Location = New System.Drawing.Point(12, 47)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(94, 23)
Me.CmdTest.TabIndex = 83
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = False
'
'LbLDebug
'
Me.LbLDebug.AutoSize = True
Me.LbLDebug.Location = New System.Drawing.Point(14, 107)
Me.LbLDebug.Name = "LbLDebug"
Me.LbLDebug.Size = New System.Drawing.Size(39, 13)
Me.LbLDebug.TabIndex = 84
Me.LbLDebug.Text = "Debug"
'
'PanDebug
'
Me.PanDebug.Controls.Add(Me.LbLDebug)
Me.PanDebug.Controls.Add(Me.CmdTest)
Me.PanDebug.Controls.Add(Me.LblInfo)
Me.PanDebug.Location = New System.Drawing.Point(0, 512)
Me.PanDebug.Name = "PanDebug"
Me.PanDebug.Size = New System.Drawing.Size(651, 263)
Me.PanDebug.TabIndex = 85
Me.PanDebug.Visible = False
'
'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(220, 69)
Me.CmdIPChange.Name = "CmdIPChange"
Me.CmdIPChange.Size = New System.Drawing.Size(94, 23)
Me.CmdIPChange.TabIndex = 86
Me.CmdIPChange.Text = "IP Ändern"
Me.CmdIPChange.UseVisualStyleBackColor = False
'
'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(120, 69)
Me.CmdCopy.Name = "CmdCopy"
Me.CmdCopy.Size = New System.Drawing.Size(94, 23)
Me.CmdCopy.TabIndex = 87
Me.CmdCopy.Text = "Kopieren nach"
Me.CmdCopy.UseVisualStyleBackColor = False
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
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.TabIndex = 88
Me.MenuStrip1.Text = "MenuStrip1"
'
'ExtrasToolStripMenuItem
'
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AutoCompleteFüllenToolStripMenuItem, Me.HostVerschiebenToolStripMenuItem, Me.ToolStripSeparator1, Me.DebugToolStripMenuItem})
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
Me.ExtrasToolStripMenuItem.Text = "Extras"
'
'AutoCompleteFüllenToolStripMenuItem
'
Me.AutoCompleteFüllenToolStripMenuItem.Name = "AutoCompleteFüllenToolStripMenuItem"
Me.AutoCompleteFüllenToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.AutoCompleteFüllenToolStripMenuItem.Text = "AutoComplete füllen"
'
'HostVerschiebenToolStripMenuItem
'
Me.HostVerschiebenToolStripMenuItem.Name = "HostVerschiebenToolStripMenuItem"
Me.HostVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.HostVerschiebenToolStripMenuItem.Text = "Host verschieben"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(182, 6)
'
'DebugToolStripMenuItem
'
Me.DebugToolStripMenuItem.Name = "DebugToolStripMenuItem"
Me.DebugToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
Me.DebugToolStripMenuItem.Text = "Debug"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.CmdHostLink)
Me.Panel2.Controls.Add(Me.CmdBack)
Me.Panel2.Controls.Add(Me.CmdForward)
Me.Panel2.Controls.Add(Me.Label11)
Me.Panel2.Controls.Add(Me.TxtStandort)
Me.Panel2.Controls.Add(Me.TxtName)
Me.Panel2.Controls.Add(Me.CmdCopy)
Me.Panel2.Controls.Add(Me.ChkKennwortAnzeigen)
Me.Panel2.Controls.Add(Me.CmdIPChange)
Me.Panel2.Controls.Add(Me.TxtIP)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Controls.Add(Me.CmdLink)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.ChkLinked)
Me.Panel2.Controls.Add(Me.TxtMAC)
Me.Panel2.Controls.Add(Me.TxtLinkedWith)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Controls.Add(Me.Label10)
Me.Panel2.Controls.Add(Me.TxtType)
Me.Panel2.Controls.Add(Me.TxtSeriennummer)
Me.Panel2.Controls.Add(Me.Label4)
Me.Panel2.Controls.Add(Me.Label9)
Me.Panel2.Controls.Add(Me.TxtInfo)
Me.Panel2.Controls.Add(Me.TxtQuickInfo)
Me.Panel2.Controls.Add(Me.Label5)
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.CmdSave)
Me.Panel2.Controls.Add(Me.TxtModell)
Me.Panel2.Controls.Add(Me.CmdReset)
Me.Panel2.Controls.Add(Me.CmdAbbrechen)
Me.Panel2.Controls.Add(Me.LblLink)
Me.Panel2.Controls.Add(Me.CmdIPDown)
Me.Panel2.Controls.Add(Me.TxtLink)
Me.Panel2.Controls.Add(Me.CmdIPUp)
Me.Panel2.Controls.Add(Me.CmdDateien)
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Controls.Add(Me.LbIPNetzwerkadresse)
Me.Panel2.Controls.Add(Me.TxtKennwort)
Me.Panel2.Controls.Add(Me.TxtHost)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.CmdDelete)
Me.Panel2.Controls.Add(Me.TxtBenutzername)
Me.Panel2.Location = New System.Drawing.Point(0, 27)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(651, 479)
Me.Panel2.TabIndex = 89
'
'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(339, 379)
Me.CmdHostLink.Name = "CmdHostLink"
Me.CmdHostLink.Size = New System.Drawing.Size(94, 23)
Me.CmdHostLink.TabIndex = 92
Me.CmdHostLink.Text = "Link"
Me.CmdHostLink.UseVisualStyleBackColor = False
'
'CmdBack
'
Me.CmdBack.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdBack.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdBack.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdBack.Location = New System.Drawing.Point(14, 15)
Me.CmdBack.Name = "CmdBack"
Me.CmdBack.Size = New System.Drawing.Size(145, 23)
Me.CmdBack.TabIndex = 91
Me.CmdBack.Text = "<< &vorheriger Eintrag"
Me.CmdBack.UseVisualStyleBackColor = False
Me.CmdBack.Visible = False
'
'CmdForward
'
Me.CmdForward.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdForward.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.CmdForward.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdForward.Location = New System.Drawing.Point(169, 15)
Me.CmdForward.Name = "CmdForward"
Me.CmdForward.Size = New System.Drawing.Size(145, 23)
Me.CmdForward.TabIndex = 90
Me.CmdForward.Text = "&nächster Eintrag >>"
Me.CmdForward.UseVisualStyleBackColor = False
Me.CmdForward.Visible = False
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(11, 210)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(47, 13)
Me.Label11.TabIndex = 89
Me.Label11.Text = "Standort"
'
'TxtStandort
'
Me.TxtStandort.Location = New System.Drawing.Point(14, 226)
Me.TxtStandort.Name = "TxtStandort"
Me.TxtStandort.Size = New System.Drawing.Size(300, 20)
Me.TxtStandort.TabIndex = 4
'
'HostBearbeiten
'
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(661, 800)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.PanDebug)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "HostBearbeiten"
Me.Text = "HostBearbeiten"
Me.ContextMenuStrip1.ResumeLayout(False)
Me.PanDebug.ResumeLayout(False)
Me.PanDebug.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents LblLink As Label
Friend WithEvents TxtLink As TextBox
Friend WithEvents CmdDateien As Button
Friend WithEvents Label6 As Label
Friend WithEvents TxtKennwort As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TxtBenutzername As TextBox
Friend WithEvents CmdDelete As Button
Friend WithEvents TxtHost As TextBox
Friend WithEvents LbIPNetzwerkadresse As Label
Friend WithEvents CmdIPUp As Button
Friend WithEvents CmdIPDown As Button
Friend WithEvents CmdAbbrechen As Button
Friend WithEvents CmdReset As Button
Friend WithEvents CmdSave As Button
Private WithEvents Label5 As Label
Friend WithEvents TxtInfo As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents TxtType As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TxtMAC As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents TxtName As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents TxtIP As TextBox
Friend WithEvents ChkKennwortAnzeigen As CheckBox
Friend WithEvents LblInfo As Label
Friend WithEvents Label8 As Label
Friend WithEvents TxtModell As TextBox
Private WithEvents Label9 As Label
Friend WithEvents TxtQuickInfo As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents TxtSeriennummer As TextBox
Friend WithEvents TxtLinkedWith As TextBox
Friend WithEvents ChkLinked As CheckBox
Friend WithEvents CmdLink As Button
Friend WithEvents CmdTest As Button
Friend WithEvents LbLDebug As Label
Friend WithEvents PanDebug As Panel
Friend WithEvents CmdIPChange As Button
Friend WithEvents CmdCopy As Button
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ExtrasToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DebugToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel2 As Panel
Friend WithEvents Label11 As Label
Friend WithEvents TxtStandort As TextBox
Friend WithEvents CmdBack As Button
Friend WithEvents CmdForward As Button
Friend WithEvents AutoCompleteFüllenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents MitHTTPFüllenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents CmdHostLink As Button
Friend WithEvents HostVerschiebenToolStripMenuItem As ToolStripMenuItem
End Class

203
Dokumentation/HostBearbeiten.resx Normal file
View File

@@ -0,0 +1,203 @@
<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<metadata name="MenuStrip1.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>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAAMMOAADDDgAAAAAAAAAA
AAD/////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////+Hg4f93dnf/goGC/4GAgf+DgoP/hIOE/4SD
hP+Eg4T/hoWG/4eGh/+Hhof/hoWG/4mJif+JiIn/iYiJ/4qJiv+Mi4z/jIuM/4yLjP+Pjo//k5OT/5OS
k/+TkpP/mJeY/5eXl//BwcH/////////////////////////////////1NTU/6moqf/S0tL/0NDQ/87O
zv/Pz8//zs7O/8/Pz//Ozs7/z8/P/87Ozv/Ozs7/zc7N/87Ozv/Ozs7/zc7N/83Nzf/Nzc3/zc7N/8vL
y//IyMj/yMjI/8nJyf/Ew8T/x8fH/5qZmv//////////////////////////////////////dXR0/83N
zf+1tbX/w8PD/7Oys//BwcH/t7a3/8HAwf+2trb/vb29/7q6uv+9vb3/ubi5/7u7u/+8u7z/u7u7/7u7
u/+5uLn/v7+//7q5uv+/v7//tra2/8bGxv+2trb/srGy////////////////////////////////////
///Hx8f/q6ur/7q6uv/CwsL/t7e3/8PDw/+1tLX/wcHB/7i3uP/BwcH/uLi4/729vf+9vL3/vLu8/76+
vv+2trb/wsLC/7e2t//CwsL/s7Oz/8PDw/+5uLn/1NTU/3Fwcf//////0M/Q/2hnaP95eHn/enl6/3l5
ef95eXv/enl8/4GBgf9sa2z/09LT/7y7vP/BwcH/v7+//7+/v//Dw8P/vLu8/8PDw/+/v7//w8PD/8LC
wv/AwMD/xcXF/7+/v//ExMT/vr6+/8bGxv/CwcL/wsLC/8nJyf+amZn/0M/Q//////+JiYn/5OTk//Dw
8P/u7u7/7u/y/+/v8v/v7en/8vT5/8nJyf+Pjo//zMzM/83Mzf/Gxsb/xsbG/8fHx//Gxsb/ysrK/8TE
xP/Jycn/yMjI/8PDw//IyMj/xcTF/8fHx//CwsL/w8PD/8fHx//DwsL/z8/P/3x7fP///////////5GQ
kf/n5+f/5OTk/+Tk5v/k4+H/3p8R/9ydEf/k2sT/7/H0/56env+kpKT/jo2O/5ycnP+1tbX/rq2u/5mY
mf+TkpP/nJyc/5aWlv+ZmZn/nJuc/52dnf+DgoP/ra2t/6yrrP+srKz/pKSk/6qpqv95eHn/9PT0////
////////kZCR/+fn5//k5OT/5Ofu/+TFff/Jvqf/xMjU/+S3VP/o7fb/w8PD/7a1tv+Mi4z/oJ+g/8vL
y//MzMz/np2e/46Njv+gn6D/n56f/56env+enp7/oqKi/29ub//Q0ND/yMjI/8jIyP/JyMn/yMjI/8nJ
yf////////////////+RkJH/5+fn/+Tk5P/k5ur/5NKq/9SqTv/Ps3X/48R8/+7x+P+Af4D/ra2t/66z
uf+ttL7/qbC6/6mwuv+ttL7/r7a//621vv+ttb7/rbW+/621vv+ttb7/sbjC/6mwuv+psLr/qbC6/6it
sv+srKz/a2tr/////////////////5GQkf/n5+f/5OTk/+Tk5P/k6fT/48R//+O7Y//k6fP/7e3t/42L
jf/S2OD/wJ1s/7h8J/+4fy7/uH4u/7h9Lv+3fC3/t3wt/7d7LP+3eiz/t3or/7d6K/+3eSv/t3or/7d6
K/+2dyT/waB0/9LY3/+EhIT/////////////////kZCR/+fn5//k5OT/5OTk/+Tk5P/k5+7/5Ojw/+Tk
5P/t7e3/jI2Q/8nDtv/IUAD/61QA/+paAP/sYwD/7WoA/+5zAP/wegX/8oAK//KFDv/ziRH/84sT//SO
FP/0jRT/84sS//eJEP/IXwD/ysjC/4OEhv////////////////+RkJH/5+fn/+Tk5P/k5OT/5OTk/+Tk
5P/k5OT/5OTk/+3t7f+MjpP/xbab/9hUAP/rWgD/7GUA/+1tAP/vdwb/8X4N//KFE//zjBn/9JId//aW
If/2miX/95wn//edKP/3myb/+Jkk/914AP/Gt6X/g4aJ/////////////////5GQkf/n5+f/5OTk/+Tk
5P/k5OT/5OTk/+Tk5P/k5OT/7e3t/4yOk//Ft57/11QA/+xgAP/sagD/7nQE/+99DP/xhRL/84wZ//WU
H//2miX/96Eq//mkLf/6py//+qgw//qnL//8py//3oEF/8a4pv+Dhon/////////////////kZCR/+fn
5//k5OT/5OTk/+Tk5P/k5OT/5OTk/+Tk5P/t7e3/jI6T/8W3nv/YVgD/7WUA/+1vAP/veQn/8YMR//OL
GP/0lB7/9psm//mkLP/6qDD/+q01//uxOf/8szr//LM6//+0Ov/giAz/xrem/4OGif//////////////
//+SkZL/5+fn/+Tk5P/k5OT/5OTk/+Tk5P/k5OT/5OTk/+3t7f+MjpP/xbee/9lYAP/uaQD/7XQE//B+
Dv/yiBX/9JId//aaJf/5pC3/+qox//uxOf/8tjz//btA//6+Qv/+v0P//8FE/+GQEv/GtqX/g4aJ////
/////////////4KCgv/o6Oj/5OTk/+Tk5P/k5OT/5OTk/+Tk5P/k5OT/7e3t/4yOk//Ft57/2VsA/+9s
AP/veAj/8YMR//ONGf/1lyL/96Er//qoMP/7sjn//bg+//7ARP//xEn//8ZO///HUv//y1T/45ga/8W1
pP+Dhon/////////////////kI+Q/+fn5//m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/v7+//jY+U/8W3
nv/ZXAD/728A/+97C//yhhT/9JEd//abJ//6pS7/+683//24Pf//wUT//8ZN///JV///zF7//81i///S
Z//jnSj/xbSi/4OGif////////////////+RkJH/6+vr/7m6uf+lo6X/p6an/6emp/+npqf/p6an/6uq
q/+Ag4f/xrif/9peAP/wcgL/734N//OJFv/0lSD/96Eq//qqMv/8tTv//r5D///GTP//yln//85k///R
bP//03L//9h6/+OhM//FtKH/g4aJ/////////////////5GQkf/r6+v/vLy8/6imqP+qqar/qqmq/6qp
qv+qqar/rq2u/4GEh//GuJ//2l8A//BzBP/xgA//8owZ//WXIv/5oyz/+641//24Pv//xEj//8hV///O
Y///0m///9R6///Wgf//3Yz/46Q+/8WzoP+Dhon/////////////////kZCR/+fn5//p6en/6+vr/+vs
6//r7Ov/6+zr/+vs6//09PT/j5CV/8W2nv/aXwD/8HUE//GBEP/yjhn/9Zol//mlLv/8sTj//rxB///G
TP//y13//9Fs///Uev//2Ib//9yP///knf/jqEn/xbOe/4OGif////////////////+RkJH/6+vr/7q6
uv+mpab/qKeo/6inqP+op6j/qKeo/6yrrP+Ag4f/xrif/9pfAP/wdQT/8YEQ//SPG//1myX/+qcv//uz
Ov/+v0P//8dS///OY///03T//9aC///dkf//35r//+is/+OrVv/Fs53/g4aJ/////////////////5GQ
kf/r6+v/urq6/6Wkpf+npqf/p6an/6emp/+npqf/q6qr/4CDh//GuJ//2l4A//BzA//xgA//844a//ab
Jv/6qDD/+7Q7///BRf//yVX//89n///UeP//2or//96Y///ipv//7Lr/469f/8WynP+Dhon/////////
////////kZCR/+fn5//q6ur/7e3t/+3t7f/t7e3/7e3t/+3t7f/29vb/j5GW/8W2nv/ZXQD/8HIC//B/
Dv/yjRn/9Zkk//qnL//7tDv//8FF///JVf//0Gn//9V8///bj///4J///+Su///xx//jsmn/xbKb/4OG
if////////////////+RkJH/6+vr/7u7u/+npaf/qaip/6moqf+pqKn/qaip/62srf+Ag4f/xred/9pb
AP/vbgD/730M//OKF//1lyL/+aUt//yyOf/+v0P//8hU///Qaf//1X3//9yQ///hov//57T///TQ/+S2
c//FsZj/g4aJ/////////////////5GQkf/r6+v/urq6/6Wkpf+opqj/qKao/6imqP+opqj/rKqs/4CC
hf/Jv67/zlMA//VoAP/0eAX/94cS//qWHv/+piv//7Q3///DQ///z1X//9dr///egv//5pj//+uu///y
w////+j/1ZQ8/8i8rv+DhYf/////////////////kZCR/+bm5v/l5eX/5eXl/+Xl5f/l5eX/5eXl/+Xl
5f/u7u7/jo2O/9Tb5P++j03/uW0K/7lvD/+4cA7/uW8O/7luDf+5bAz/uWwM/7lrCv+5awr/uWsI/7lr
B/+5agb/uWoF/7lnAP++i0v/1Nvk/4WFhf////////////////+TkpP/09PT/+Xl5f/k5OT/5OTk/+Tk
5P/k5OT/5OTk/+7u7v99fH3/nZ2e/5+krP+cpK//l6Cr/5egq/+Xn6v/l5+r/5efq/+Xn6v/l5+r/5ef
q/+Xn6v/l5+q/5efqv+Xn6r/l5+q/5ecpP+ampr/YGBg/////////////////5GQkf/S0tL/ycnJ/8nJ
yf/Jycn/ycnJ/8nJyf/Jycn/y8vL/7e3t/+wsLD/lpWV/62srf/b29v/19bX/9fW1//X1tf/19bX/9fW
1//X1tf/19bX/9fW1//X1tf/19bX/9fW1//X1tf/19bX/9fW1//W1db/////////////////pKOk/5CP
kP+enZ7/nZyd/52cnf+dnJ3/nZyd/52cnf+dnJ3/n5+f/6Oio/9paGn/////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////09PT/83Mzf/Ozc7/zs3O/87Nzv/Ozc7/zs3O/87Nzv/Nzc3/ysrK//7+/v//////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

840
Dokumentation/HostBearbeiten.vb Normal file
View File

@@ -0,0 +1,840 @@
Imports System.Data.SqlClient
Public Class HostBearbeiten
Public con As New SqlConnection
Public cmd As New SqlCommand
Public reader As SqlDataReader
Public HostA As String = Main.SenderHost
Public NetA As String = Main.SenderNetzwerk
Public StandA As String = Main.SenderStandort
Public Netzwerk As String
Public LinkedHost As String
Public LinkedNet As String
Public LinkedStand As String
Public LinkedNetzwerk As String
Public SQLWhere As String = "WHERE NWSTANDORT='" & StandA & "' AND NETNAME='" & NetA & "'"
Public NetzID As String = StandA & "_" & NetA
Dim Linked As Integer = 0
Dim LinkedWith As String
Public geaendert As Boolean
''''LADEN''''
Private Sub HostBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dbload()
If Main.Debug = True Then
PanDebug.Visible = True
End If
FillAutocomplete()
'importiere(Main.SenderStandort, Main.SenderNetzwerk, Main.SenderHost)
'MsgBox(NetA & StandA & HostA)
importiere(StandA, NetA, HostA)
'laden(Main.SenderIP, Main.SenderHost)
LblInfo.Text = "" & Main.SenderStandort & "_" & Main.SenderNetzwerk & " " & TxtName.Text
End Sub
'''''''''''''''
Public Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Function laden(IP As String, Host As String)
FillAutocomplete()
Dim abfrage As String = "IPAdresse='" & IP & "'"
'MsgBox(standort & netzwerk & Host)
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE " & abfrage & ""
Catch ex As Exception
MsgBox("Fehler Function Import: " & ex.Message)
End Try
ausgabe_Host(Host)
con.Close()
geaendert = False
LbLDebug.Text = "nicht geändert"
'LblInfo.Text = "Netzwerk: " & Main.SenderStandort & "_" & Main.SenderNetzwerk & " " & TxtName.Text
Me.Text = Main.SenderStandort & "_" & Main.SenderNetzwerk & " " & TxtName.Text
End Function
Public Function importiere(standort As String, netzwerk As String, Host As String)
' FillAutocomplete()
Dim abfrage As String = "NWSTANDORT='" & standort & "' AND NETNAME='" & netzwerk & "' AND HOST='" & Host & "'"
'MsgBox(standort & netzwerk & Host)
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE " & abfrage & ""
Catch ex As Exception
MsgBox("Fehler Function Import: " & ex.Message)
End Try
ausgabe_Host(Host)
con.Close()
geaendert = False
LbLDebug.Text = "nicht geändert"
'LblInfo.Text = "Netzwerk: " & Main.SenderStandort & "_" & Main.SenderNetzwerk & " " & TxtName.Text
Me.Text = StandA & "_" & NetA & " " & TxtName.Text
End Function
Private Function importierelinked(ip As String)
Try
con.Close()
dbload()
Catch ex As Exception
MsgBox("dbload in importierelinked")
End Try
Dim abfrage As String = "IPAdresse= '" & ip & "'"
'MsgBox(standort & netzwerk & Host)
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE " & abfrage & ""
Catch ex As Exception
MsgBox("importierelinked(ip As String): " & ex.Message)
End Try
ausgabe_LinkedHost()
con.Close()
geaendert = False
LbLDebug.Text = "nicht geändert"
End Function
Private Function ausgabe_Host(Host As String)
TxtHost.BackColor = Color.White
TxtHost.Text = Host
TxtIP.Text = ""
TxtName.Text = ""
TxtMAC.Text = ""
TxtType.Text = ""
TxtInfo.Text = ""
TxtBenutzername.Text = ""
TxtKennwort.Text = ""
TxtLink.Text = ""
TxtQuickInfo.Text = ""
TxtModell.Text = ""
TxtSeriennummer.Text = ""
TxtStandort.Text = ""
Linked = "0"
Try
reader = cmd.ExecuteReader()
Do While reader.Read()
Netzwerk = reader("Netzwerk")
TxtBenutzername.Text = checknull("Benutzer")
TxtIP.Text = reader("IPAdresse")
TxtName.Text = checknull("FQDN")
TxtStandort.Text = checknull("Standort")
TxtMAC.Text = checknull("MAC")
TxtType.Text = checknull("TYPE")
TxtInfo.Text = checknull("Info")
TxtHost.Text = reader("Host")
TxtKennwort.Text = checknull("Passwort")
TxtLink.Text = checknull("LINK")
TxtQuickInfo.Text = checknull("QINFO")
TxtModell.Text = checknull("Modell")
TxtSeriennummer.Text = checknull("Seriennummer")
Linked = reader("Linked")
If Linked = "1" Then
ChkLinked.Checked = True
TxtLinkedWith.Text = reader("LinkedWith")
' importierelinked(TxtLinkedWith.Text)
Else
ChkLinked.Checked = False
End If
Loop
reader.Close()
Catch ex As Exception
MsgBox("Hostbearbeiten.Ausgabe_Host reader.Read: " & ex.Message)
'LbLDebug.Text = ex.Message
End Try
'MsgBox(Linked)
End Function
Private Sub AutoCompleteFüllenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AutoCompleteFüllenToolStripMenuItem.Click
FillAutocomplete()
End Sub
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 ausgabe_LinkedHost()
'TxtHost.Text = host
'TxtIP.Text = ""
TxtName.Text = ""
TxtMAC.Text = ""
TxtType.Text = ""
TxtInfo.Text = ""
TxtBenutzername.Text = ""
TxtKennwort.Text = ""
TxtLink.Text = ""
TxtQuickInfo.Text = ""
TxtModell.Text = ""
TxtStandort.Text = ""
TxtSeriennummer.Text = ""
Try
reader = cmd.ExecuteReader()
Do While reader.Read()
'TxtIP.Text = checknull("IPAdresse")
TxtName.Text = checknull("FQDN")
TxtMAC.Text = checknull("MAC")
TxtType.Text = checknull("TYPE")
TxtInfo.Text = checknull("Info")
'TxtHost.Text = checknull("Host")
TxtBenutzername.Text = checknull("Benutzer")
TxtKennwort.Text = checknull("Passwort")
TxtLink.Text = checknull("LINK")
TxtQuickInfo.Text = checknull("QINFO")
TxtModell.Text = checknull("Modell")
TxtSeriennummer.Text = checknull("Seriennummer")
TxtStandort.Text = checknull("Standort")
'Linked = checknull("Linked")
Loop
reader.Close()
Catch ex As Exception
MsgBox("Hostbearbeiten.Ausgabe_Host reader.Read: " & ex.Message)
End Try
End Function
Private Function deleteHost()
dbload()
Dim ds As New DataSet
Dim da As New SqlDataAdapter("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & TxtIP.Text & "'", con)
Dim slavenetzwerke As String = ""
da.Fill(ds)
Dim i As Integer = 0
For Each dr As DataRow In ds.Tables(0).Rows
slavenetzwerke &= ds.Tables(0).Rows(i).Item("NWStandort") & "_" & ds.Tables(0).Rows(i).Item("NetName") & ": " & ds.Tables(0).Rows(i).Item("IPAdresse") & vbCrLf
i = i + 1
Next
con.Close()
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & TxtIP.Text & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read Then
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
con.Close()
con.Open()
cmd.CommandText = "DELETE TbL_Netzwerkclients WHERE LinkedWith ='" & TxtIP.Text & "'"
cmd.ExecuteNonQuery()
cmd.CommandText = "DELETE TbL_Netzwerkclients WHERE IPAdresse ='" & TxtIP.Text & "'"
cmd.ExecuteNonQuery()
Else
con.Close()
Exit Function
End If
End If
con.Close()
con.Open()
cmd.CommandText = "DELETE TbL_Netzwerkclients WHERE IPAdresse ='" & TxtIP.Text & "'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Function
Private Function deleteFiles(host As String)
Dim path As String = Class1.FilePath & "\" & NetzID & "\" & host
Try
If IO.Directory.Exists(path) Then
Dim files As String() = IO.Directory.GetFiles(path)
For Each file As String In files
IO.File.Delete(file)
Next
IO.Directory.Delete(path, True)
'Else
' MsgBox("Kein Ordner zum Löschen gefunden: wird übersprungen.")
End If
Catch ex As Exception
MsgBox("Beim Löschen der Dateien: " & ex.Message)
End Try
End Function
Private Sub CmdReset_Click(sender As Object, e As EventArgs) Handles CmdReset.Click
importiere(StandA, NetA, HostA)
End Sub
Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
HostSpeichern("speichern")
LinkedMasterUpdate()
TxtHost.BackColor = Color.White
geaendert = False
End Sub
Public Function HostSpeichern(mach As String)
If mach = "machlink" Then
importierelinked(TxtLinkedWith.Text)
End If
dbload()
If TxtIP.Text = "" Then
HostErstellen()
ElseIf Linked = "1" Then
Try
''Linked Master speichern
con.Open()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set FQDN='" & TxtName.Text & "', MAC='" & TxtMAC.Text & "', Standort='" & TxtStandort.Text & "', type='" & TxtType.Text & "', info='" & TxtInfo.Text & "' , Benutzer='" & TxtBenutzername.Text & "', passwort='" & TxtKennwort.Text & "' , link='" & TxtLink.Text & "', Modell='" & TxtModell.Text & "', QINFO='" & TxtQuickInfo.Text & "', Seriennummer='" & TxtSeriennummer.Text & "' WHERE IPAdresse = '" & TxtLinkedWith.Text & "' "
'' Linked Slave speichern
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set IPAdresse = '" & TxtIP.Text & "', FQDN='" & TxtName.Text & "', Standort='" & TxtStandort.Text & "', Linked='" & Linked & "', LinkedWith='" & TxtLinkedWith.Text & "', MAC='" & TxtMAC.Text & "', type='" & TxtType.Text & "', info='" & TxtInfo.Text & "' , Benutzer='" & TxtBenutzername.Text & "', passwort='" & TxtKennwort.Text & "' , link='" & TxtLink.Text & "', Modell='" & TxtModell.Text & "', QINFO='" & TxtQuickInfo.Text & "', Seriennummer='" & TxtSeriennummer.Text & "' " & SQLWhere & " AND Host='" & HostA & "'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Linked HostSpeichern(): " & ex.Message)
End Try
con.Close()
Else
Try
con.Open()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set IPAdresse = '" & TxtIP.Text & "', FQDN='" & TxtName.Text & "', Standort='" & TxtStandort.Text & "', Linked='" & Linked & "', LinkedWith='" & TxtLinkedWith.Text & "', MAC='" & TxtMAC.Text & "', type='" & TxtType.Text & "', info='" & TxtInfo.Text & "' , Benutzer='" & TxtBenutzername.Text & "', passwort='" & TxtKennwort.Text & "' , link='" & TxtLink.Text & "', Modell='" & TxtModell.Text & "', QINFO='" & TxtQuickInfo.Text & "', Seriennummer='" & TxtSeriennummer.Text & "' " & SQLWhere & " AND Host='" & HostA & "'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Hostspeichern(): " & ex.Message)
End Try
con.Close()
End If
End Function
Private Sub CmdIPUp_Click(sender As Object, e As EventArgs) Handles CmdIPUp.Click
abfrage_aenderungenspeichern()
If HostA < 255 Then
HostA = HostA + 1
importiere(StandA, NetA, HostA)
Else HostA = 254
End If
End Sub
Private Sub CmdIPDown_Click(sender As Object, e As EventArgs) Handles CmdIPDown.Click
abfrage_aenderungenspeichern()
If HostA > 1 Then
HostA = HostA - 1
importiere(StandA, NetA, HostA)
Else HostA = 1
End If
End Sub
Private Sub CmdForward_Click(sender As Object, e As EventArgs) Handles CmdForward.Click
abfrage_aenderungenspeichern()
Try
con.Open()
Dim ds As New DataSet()
Dim dataadapter As New SqlDataAdapter("SELECT FQDN FROM Tbl_Netzwerkclients WHERE NWSTANDORT='" & StandA & "' AND NETNAME = '" & NetA & "' ORDER BY HOST", con)
dataadapter.Fill(ds)
Do Until HostA = 254
HostA = HostA + 1
For Each Row As DataRow In ds.Tables(0).Rows
'If HostA = Row.Item(0).ToString Then
If Row.Item(0) IsNot Nothing Then
LbLDebug.Text &= Row.Item(0).ToString & vbCrLf
HostA = Row.Item(0).ToString
LbLDebug.Text &= "Host A: " & HostA
con.Close()
importiere(StandA, NetA, HostA)
Exit Sub
End If
Next
Loop
con.Close()
Catch ex As Exception
MsgBox("Forward: " & ex.Message & vbCrLf & HostA)
con.Close()
End Try
End Sub
Private Sub CmdBack_Click(sender As Object, e As EventArgs) Handles CmdBack.Click
abfrage_aenderungenspeichern()
Try
con.Open()
Dim ds As New DataSet()
Dim dataadapter As New SqlDataAdapter("SELECT HOST FROM Tbl_Netzwerkclients WHERE NWSTANDORT='" & StandA & "' AND NETNAME = '" & NetA & "' ORDER BY HOST", con)
dataadapter.Fill(ds)
Do Until HostA = 1
HostA = HostA - 1
For Each Row As DataRow In ds.Tables(0).Rows
If HostA = Row.Item(0).ToString Then
LbLDebug.Text &= Row.Item(0).ToString & vbCrLf
HostA = Row.Item(0).ToString
LbLDebug.Text &= "Host A: " & HostA
con.Close()
importiere(StandA, NetA, HostA)
Exit Sub
End If
Next
Loop
con.Close()
Catch ex As Exception
MsgBox("Forward: " & ex.Message)
con.Close()
End Try
End Sub
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
HostA = TxtHost.Text
importiere(StandA, NetA, HostA)
End If
Catch
End Try
End Sub
Private Sub CmdIPErstellen_Click(sender As Object, e As EventArgs)
HostErstellen()
End Sub
Private Sub CmdCopy_Click(sender As Object, e As EventArgs) Handles CmdCopy.Click
Dim FQDN, Type, IP As String
Class1.GetFQDNandType(TxtIP.Text, FQDN, Type)
Class1.Host2IP(TxtHost.Text, StandA, NetA, IP)
If FQDN = "" And Type = "" Then
HostA = TxtHost.Text
Try
con.Open()
'cmd.CommandText = "INSERT INTO Tbl_Netzwerkclients (Host, IPAdresse, NWStandort, NetName) VALUES ('" & HostA & "', '" & TxtIP.Text & "','" & Main.SenderStandort & "', '" & Main.SenderNetzwerk & "') "
'cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set FQDN='" & TxtName.Text & "', Standort='" & TxtStandort.Text & "', Linked='" & Linked & "', LinkedWith='" & TxtLinkedWith.Text & "', MAC='" & TxtMAC.Text & "', type='" & TxtType.Text & "', info='" & TxtInfo.Text & "' , Benutzer='" & TxtBenutzername.Text & "', passwort='" & TxtKennwort.Text & "' , link='" & TxtLink.Text & "', Modell='" & TxtModell.Text & "', QINFO='" & TxtQuickInfo.Text & "', Seriennummer='" & TxtSeriennummer.Text & "' WHERE IPAdresse = '" & IP & "'"
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Hostspeichern(): " & ex.Message)
End Try
con.Close()
Else
MsgBox("Ziel ist bereits mit " & FQDN & " belegt")
End If
MsgBox("Host kopiert!")
HostA = TxtHost.Text
importiere(StandA, NetA, HostA)
End Sub
Private Function IPErstellen()
Dim nwaddress As String
Try
con.Open()
cmd.CommandText = "SELECT nwaddress FROM Tbl_Netzwerke where Netzwerkname ='" & NetzID & "'"
reader = cmd.ExecuteReader()
Do While reader.Read()
nwaddress = reader("nwaddress")
Loop
con.Close()
con.Open()
cmd.CommandText = "SELECT * FROM Tbl_Netzwerkclients WHERE IPAdresse = '" & nwaddress & TxtHost.Text & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read Then
MsgBox("Die IP Adresse " & nwaddress & TxtHost.Text & " ist bereits belegt!")
Return ("Fehler")
con.Close()
Exit Function
End If
con.Close()
TxtIP.Text = nwaddress & TxtHost.Text
Catch exgen As Exception
MsgBox("Fehler beim Generieren der IP Adresse: " & vbCrLf & exgen.Message)
End Try
con.Close()
End Function
Private Function HostErstellen()
IPErstellen()
Try
HostA = TxtHost.Text
con.Open()
cmd.CommandText = "INSERT INTO Tbl_Netzwerkclients (Host, IPAdresse, NWStandort, NetName) VALUES ('" & HostA & "', '" & TxtIP.Text & "','" & Main.SenderStandort & "', '" & Main.SenderNetzwerk & "') "
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set IPAdresse = '" & TxtIP.Text & "', FQDN='" & TxtName.Text & "', Standort='" & TxtStandort.Text & "', Linked='" & Linked & "', LinkedWith='" & LinkedWith & "', MAC='" & TxtMAC.Text & "', type='" & TxtType.Text & "', info='" & TxtInfo.Text & "' , Benutzer='" & TxtBenutzername.Text & "', passwort='" & TxtKennwort.Text & "' , link='" & TxtLink.Text & "', Modell='" & TxtModell.Text & "', QINFO='" & TxtQuickInfo.Text & "', Seriennummer='" & TxtSeriennummer.Text & "' " & SQLWhere & " AND Host='" & HostA & "'"
cmd.ExecuteNonQuery()
Catch exin As Exception
MsgBox("exin: " & exin.Message)
End Try
con.Close()
End Function
Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.Click
Dim linked As Boolean
linked = ChkLinked.Checked
If MessageBox.Show("Eintrag " & HostA & " wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
deleteHost()
importiere(StandA, NetA, HostA)
ElseIf DialogResult.Cancel Then
Exit Sub
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
'MsgBox("Er. Mayank Nainwal", MsgBoxStyle.YesNoCancel + MsgBoxStyle.DefaultButton2, "Default Button is NO ?")
deleteFiles(HostA)
ElseIf DialogResult.No Then
Exit Sub
End If
End If
Class1.RefillNW(Netzwerk)
importiere(Main.SenderStandort, Main.SenderNetzwerk, Main.SenderHost)
LblInfo.Text = "Netzwerk: " & Main.SenderStandort & "_" & Main.SenderNetzwerk & ""
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 CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click
explorerstarten()
End Sub
Private Function explorerstarten()
Main.werbinich()
Dim Path As String
If Linked = "1" Then
Dim ds As New DataSet()
Dim IPA As String = TxtLinkedWith.Text
dbload()
con.Open()
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & IPA & "'", con)
da.Fill(ds)
con.Close()
Path = Class1.FilePath & "\" & ds.Tables(0).Rows(0).Item("NWStandort") & "_" & ds.Tables(0).Rows(0).Item("NetName") & "\" & ds.Tables(0).Rows(0).Item("Host")
Else
Path = Class1.FilePath & "\" & NetzID & "\" & HostA
End If
If IO.Directory.Exists(path) Then
Process.Start(path)
Else
IO.Directory.CreateDirectory(path)
Process.Start(path)
End If
'MsgBox(path)
End Function
Private Sub LblLink_DOubleClick(sender As Object, e As EventArgs) Handles LblLink.DoubleClick
Dim URL As String
Try
URL = TxtLink.Text
If URL.Contains("http") Or URL.Contains("https") Then
Process.Start(URL)
ElseIf URL = "" Then
Exit Sub
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 Sub
Private Sub LblLink_Click(sender As Object, e As EventArgs) Handles LblLink.Click
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TxtQuickInfo.TextChanged
End Sub
Private Sub ChkMulti_CheckedChanged(sender As Object, e As EventArgs) Handles ChkLinked.CheckedChanged
If ChkLinked.Checked Then
TxtLinkedWith.Enabled = True
CmdLink.Visible = True
Linked = "1"
Else
TxtLinkedWith.Enabled = False
CmdLink.Visible = False
Linked = "0"
LinkedWith = ""
TxtLinkedWith.Text = ""
End If
End Sub
Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
LinkedWith = TxtLinkedWith.Text
' HostSpeichern()
''Linked is linked?
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE IPAdresse='" & LinkedWith & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
Do While reader.Read()
If checknull("Linked") = "1" Then
LinkedWith = checknull("LinkedWith")
TxtLinkedWith.Text = LinkedWith
End If
Loop
reader.Close()
con.Close()
''Link erstellen
con.Open()
cmd.CommandText = "UPDATE TbL_Netzwerkclients SET Linked='" & Linked & "', LinkedWith='" & LinkedWith & "' WHERE IPAdresse = '" & TxtIP.Text & "' "
cmd.ExecuteNonQuery()
con.Close()
HostSpeichern("machlink")
importiere(Main.SenderStandort, Main.SenderNetzwerk, TxtHost.Text)
HostSpeichern("speichern")
End Sub
Private Function LinkedMasterUpdate()
Dim slaveds As New DataSet()
Dim dt As New DataTable()
LbLDebug.Text = ""
Try
dbload()
con.Open()
Dim dataadapterslave As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE Linked='1'", con)
dataadapterslave.Fill(slaveds)
For Each dr As DataRow In slaveds.Tables(0).Rows
Dim LinkedWith As String = dr.Item("LinkedWith")
Dim masterds As New DataSet()
Dim dataadaptermaster As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
dataadaptermaster.Fill(masterds)
LbLDebug.Text &= "MasterFQDN: " & masterds.Tables(0).Rows(0).Item("FQDN") & " Slave Linkedwith: " & LinkedWith & " Slave IP: " & dr.Item("IpAdresse") & vbCrLf
'' Linked Slave speichern
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE TbL_Netzwerkclients Set FQDN='" & masterds.Tables(0).Rows(0).Item("FQDN") & "', Standort='" & masterds.Tables(0).Rows(0).Item("Standort") & "', MAC='" & masterds.Tables(0).Rows(0).Item("MAC") & "', type='" & masterds.Tables(0).Rows(0).Item("Type") & "', info='" & masterds.Tables(0).Rows(0).Item("Info") & "' , Benutzer='" & masterds.Tables(0).Rows(0).Item("Benutzer") & "', passwort='" & masterds.Tables(0).Rows(0).Item("Passwort") & "' , link='" & masterds.Tables(0).Rows(0).Item("Link") & "', Modell='" & masterds.Tables(0).Rows(0).Item("Modell") & "', QINFO='" & masterds.Tables(0).Rows(0).Item("QINFO") & "', Seriennummer='" & masterds.Tables(0).Rows(0).Item("Seriennummer") & "' WHERE IPAdresse = '" & dr.Item("IpAdresse") & "'"
cmd.ExecuteNonQuery()
Next
con.Close()
Catch ex As Exception
MsgBox("LinkedMasterUpdate(): " & ex.Message)
con.Close()
End Try
End Function
Private Sub CmdHostLink_Click(sender As Object, e As EventArgs) Handles CmdHostLink.Click
Dim URL As String
Try
URL = TxtLink.Text
If URL.Contains("http") Or URL.Contains("https") Then
Process.Start(TxtLink.Text)
ElseIf URL = "" Then
Exit Sub
Else
Dim mstsc As New Process
mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.Arguments = " /v: " & TxtLink.Text
mstsc.Start()
End If
' Process.Start("mstsc.exe", "/v: dc01")
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
Dim FQDN, Type As String
Class1.GetFQDNandType(TxtIP.Text, FQDN, Type)
LbLDebug.Text = "FQDN: " & FQDN & vbCrLf & "Type: " & Type
End Sub
Public Function IPChange()
Dim dspath As New DataSet()
Dim alteip As String = TxtIP.Text
Dim Path As String
Dim HostOld As String
Dim NewPath As String
NewPath = Class1.FilePath & "\" & NetzID & "\" & TxtHost.Text
If IPErstellen() = "Fehler" Then
con.Close()
Exit Function
ElseIf IO.Directory.Exists(NewPath) Then
If MsgBox("Zielordner existiert bereits. Löschen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
con.Close()
Exit Function
Else
deleteFiles(TxtHost.Text)
End If
Else
'else -> erstellen der IP ergab keinen Fehler, Zielordner ist nicht vorhanden -> alles paletti
End If
dbload()
con.Open()
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & alteip & "'", con)
da.Fill(dspath)
HostOld = dspath.Tables(0).Rows(0).Item("Host")
cmd.CommandText = "Update Tbl_Netzwerkclients SET IPAdresse = '" & TxtIP.Text & "', Host = '" & TxtHost.Text & "' WHERE IPAdresse = '" & alteip & "'"
cmd.ExecuteNonQuery()
Dim ds As New DataSet
Dim dt As New DataTable()
Dim dataadapter As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE LinkedWith='" & alteip & "'", con)
dataadapter.Fill(ds)
con.Close()
Dim i As Integer = 0
Dim slaveip As String
For Each dr As DataRow In ds.Tables(0).Rows
slaveip = ds.Tables(0).Rows(i).Item("IPAdresse")
con.Open()
cmd.CommandText = "Update Tbl_Netzwerkclients SET LinkedWith = '" & TxtIP.Text & "' WHERE IPAdresse = '" & slaveip & "'"
cmd.ExecuteNonQuery()
con.Close()
i = i + 1
Next
con.Close()
If Linked = "1" Then
'Dim IPA As String = TxtLinkedWith.Text
'Path = Class1.FilePath & "\" & ds.Tables(0).Rows(0).Item("NWStandort") & "_" & ds.Tables(0).Rows(0).Item("NetName") & "\" & ds.Tables(0).Rows(0).Item("Host")
Exit Function
Else
Path = Class1.FilePath & "\" & NetzID & "\" & HostOld
End If
If IO.Directory.Exists(path) Then
My.Computer.FileSystem.RenameDirectory(Path, TxtHost.Text)
End If
importiere(Main.SenderStandort, Main.SenderNetzwerk, TxtHost.Text)
End Function
Public Function abfrage_aenderungenspeichern()
If geaendert = False Then
Exit Function
ElseIf geaendert = True Then
Dim result As Integer = MsgBox("Änderungen speichern?", MsgBoxStyle.YesNo)
If result = MsgBoxResult.No Then
Exit Function
ElseIf result = MsgBoxResult.Yes Then
HostSpeichern("speichern")
LinkedMasterUpdate()
End If
End If
geaendert = False
End Function
Private Sub CmdIPChange_Click(sender As Object, e As EventArgs) Handles CmdIPChange.Click
IPChange()
End Sub
Private Sub TxtIP_TextChanged(sender As Object, e As EventArgs) Handles TxtStandort.TextChanged, TxtIP.TextChanged, TxtName.TextChanged, TxtModell.TextChanged, TxtQuickInfo.TextChanged, TxtType.TextChanged, TxtSeriennummer.TextChanged, TxtMAC.TextChanged, TxtInfo.TextChanged, TxtBenutzername.TextChanged, TxtKennwort.TextChanged, TxtLink.TextChanged
geaendert = True
LbLDebug.Text = "geändert"
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 Function FillAutocomplete()
Class1.Autocomplete(TxtType, "Type", "Tbl_Netzwerkclients")
Class1.Autocomplete(TxtStandort, "Standort", "Tbl_Netzwerkclients")
Class1.Autocomplete(TxtModell, "Modell", "Tbl_Netzwerkclients")
Class1.Autocomplete(TxtBenutzername, "Benutzer", "Tbl_Netzwerkclients")
End Function
Private Sub DebugToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DebugToolStripMenuItem.Click
PanDebug.Visible = Not PanDebug.Visible
End Sub
Private Sub TxtHost_TextChanged(sender As Object, e As EventArgs) Handles TxtHost.TextChanged
TxtIP.Text = ""
geaendert = True
'TxtHost.BackColor = Color.Red
End Sub
''SCHLIESSEN''
Private Sub Hostbearbeiten_Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
abfrage_aenderungenspeichern()
'Main.allesladen()
Main.dgvload_filter(Main.Suchbegriff)
End Sub
Private Sub CmdAbbrechen_Click(sender As Object, e As EventArgs) Handles CmdAbbrechen.Click
abfrage_aenderungenspeichern()
'Main.allesladen()
Main.dgvload_filter(Main.Suchbegriff)
Close()
End Sub
Private Sub NetzwerkÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostVerschiebenToolStripMenuItem.Click
HostVerschieben.Show()
End Sub
End Class

114
Dokumentation/HostVerschieben.Designer.vb generated Normal file
View File

@@ -0,0 +1,114 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class HostVerschieben
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(HostVerschieben))
Me.TxtIPAlt = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.TxtIPNeu = New System.Windows.Forms.TextBox()
Me.CmdSave = New System.Windows.Forms.Button()
Me.LblDebug = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'TxtIPAlt
'
Me.TxtIPAlt.Enabled = False
Me.TxtIPAlt.Location = New System.Drawing.Point(42, 55)
Me.TxtIPAlt.Name = "TxtIPAlt"
Me.TxtIPAlt.Size = New System.Drawing.Size(300, 20)
Me.TxtIPAlt.TabIndex = 76
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(39, 39)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(79, 13)
Me.Label2.TabIndex = 78
Me.Label2.Text = "Alte IP Adresse"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(39, 78)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(87, 13)
Me.Label8.TabIndex = 79
Me.Label8.Text = "Neue IP Adresse"
'
'TxtIPNeu
'
Me.TxtIPNeu.Location = New System.Drawing.Point(42, 94)
Me.TxtIPNeu.Name = "TxtIPNeu"
Me.TxtIPNeu.Size = New System.Drawing.Size(300, 20)
Me.TxtIPNeu.TabIndex = 77
'
'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(248, 135)
Me.CmdSave.Name = "CmdSave"
Me.CmdSave.Size = New System.Drawing.Size(94, 23)
Me.CmdSave.TabIndex = 80
Me.CmdSave.Text = "&Speichern"
Me.CmdSave.UseVisualStyleBackColor = False
'
'LblDebug
'
Me.LblDebug.AutoSize = True
Me.LblDebug.Location = New System.Drawing.Point(55, 234)
Me.LblDebug.Name = "LblDebug"
Me.LblDebug.Size = New System.Drawing.Size(39, 13)
Me.LblDebug.TabIndex = 81
Me.LblDebug.Text = "Label1"
'
'HostVerschieben
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(377, 194)
Me.Controls.Add(Me.LblDebug)
Me.Controls.Add(Me.CmdSave)
Me.Controls.Add(Me.TxtIPAlt)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.TxtIPNeu)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "HostVerschieben"
Me.Text = "Host verschieben"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TxtIPAlt As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label8 As Label
Friend WithEvents TxtIPNeu As TextBox
Friend WithEvents CmdSave As Button
Friend WithEvents LblDebug As Label
End Class

197
Dokumentation/HostVerschieben.resx Normal file
View File

@@ -0,0 +1,197 @@
<?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>
<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>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAAMMOAADDDgAAAAAAAAAA
AAD//////v7+//39/f/9/f3//f39///////29fX///////7+/v/+/v7//v7+//7+/v/+/v7//f39//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/+/v7//f39//39/f/9/f3//f39//39/f/9/f3//v7+//39
/f/+/v7//f39///////+/v7//v7+//39/f//////4+Dg/5SNk//l4uP///////7+/v/+/v7//v7+//39
/f/+/v7//f39//7+/v/+/v7//v7+//39/f/+/v7//f39//39/f/9/f3//v7+//39/f/9/f3//f39//7+
/v/9/f3//v7+//39/f/+/v7///////39/f///////////8C9wv+am6T/r621/6yorv/y8PD///////7+
/v/+/v7//v7+//7+/v/9/f3//f39//7+/v/+/v7//v7+//7+/v/9/f3//v7+//7+/v/+/v7//f39//7+
/v/+/v7//v7+//39/f/+/v7//f39//39/f////////////n5+P+noqn/mZqo/6Wnt/+ysL3/r6my/32A
h//5+Pf//////////////////v7+//7+/v/+/v7//f39///////9/f3//f39//7+/v/+/v7//f39//7+
/v/+/v7//f39//39/f/9/f3//f39//7+/v/8/Pz//f39///////j4N//k5Ka/6Cir/+trLb/t7S7/5CO
m/+spKf/e4ip/4B6fP/o6u3/1bSi/+rYzf///////v7+//7+/v/+/v7//f39///////+/v7//v7+//7+
/v///////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7/8/Py/5SNkP+sq7P/trC8/7et
s/+rssr/hZKu/4eKrP+upqr/eYai/4eFh/9yLQj/vlIN//39+v///////v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+/////////////v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+/v//////lI2R/6Ca
nP+uprT/x77J/5GRnv+Op9//caTK/5mYrv+yqrH/e4CL/21QRv+rSgz/2G4g//3///////////////7+
/v///////v7+//7+/v/+/v7//v7+//7+/v/+/v7///////7+/v/+/v7//v7+//7+/v/+/v7//v7+////
//+3s7T/oZyY/52Zmf+kmLT/z8bG/6Sbo/+HmMH/OHar/2Vhcf+YlJn/gWVa/4k0Av/fdib/0m4l//3/
/////////v7+//7+/v/+/v7///////7+/v/+/v7//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+////
///+/v7//////9nX2P+up6z/ioh+/7i3pv+Rgsr/taqs/7mvrv+ysbz/eFxM/3xMLf+ekI7/hjwP/993
Kf/YbSD/1oJF///////+/v7//v7+//7+/v/+/v7//v7+///////+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v///////////8HDyf+1r7X/goBv/6yvlf/WxMz/taSh/8u/uv92UT//gWRY/6Fj
Ov/niCr/3XQm/9pyK//UZhj/47iW///////+/v7//v7+//7+/v/+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+///////+/v7//////7rAyf9mX2L/6eXq/7CloP9yaWf/wq6m/2U9
Lv95UkT/0HYp/+lyD//bahP/3Xcm/9dyKf/OZx/////////////+/v7//v7+//7+/v/+/v7//v7+//7+
/v///////v7+//7+/v/+/v7//v7+//7+/v/9/f3///////7+/v/+/v7//////6issf+OjpP/rKqx/7CO
e/9tRjX/sZWL/1IhDP++aSX/1mER/7BABf/LXRD/3HYo/9BrI//ktpT///////7+/v/+/v7//v7+//7+
/v/+/v7//v7+//7+/v/+/v7//v7+//39/f/+/v7//f39/////////////f39//7+/v///////////4iK
kf+DgoX/wZ2I/3JENf+QcGH/YDsv/55NDf/ldh7/0FwO/7BAB//SZBP/1nIq/8xqI/////////////7+
/v/+/v7//v7+///////+/v7//v7+//////////////////7+/v/////////////////+/v7//f39//39
/f//////99Os/5JYJ/+oWiD/gmhh/2I4Jv9eMST/yWwc/+t/If/jcxr/vk4K/8ZYDP/Zbh3/zm0s/96x
kv///////v7+///////+/v7//v7+//////////////////7+/v/////////////////+/v7/////////
///9/f3//v7+///////9+PD/9Yga/+mDIP9CAAD/OAwG/6lkLP//jxr/5ncT/9xxIP/QYxj/12kS/+R0
E//Wcin/ymMc//3//////////v7+//7+/v/+/v7//v7+//7+/v///////v7+//7+/v/+/v7//v7+////
/////////v7+//39/f/9/f3//v7+///////269//6nUF/7VbFP/Pei3//5Mg/+t3Dv/Qah//yGUd/9xv
Fv/ndBL/63sV/990Gf/QYxn/4a6L/////////////v7+///////+/v7//v7+//7+/v/+/v7//v7+//7+
/v/+/v7//v7+///////+/v7//f39//7+/v/+/v7//v7+///////36+D/9IQU//aPJP/ieBj/yG0s/85u
Jf/mdhX/63oP/+t5Ev/rfBX/6Xwa/75TE/+/Tgv////////////+/v7//v7+//7+/v/+/v7//v7+//7+
/v///////v7+//7+/v/+/v7///////7+/v/+/v7//f39//39/f/+/v7////////////27N//4mwC/990
Gf/meBX/6nkS/+2AF//qexX/6XkX/+p+Gv/TZhb/0F8S/7NCBf/krYb///////7+/v/+/v7//v7+////
///+/v7//v7+///////+/v7//v7+//7+/v///////v7+////////////////////////////////////
///37+T/5nAD/+VtBP/pdhH/6HgT/+t+Hv/qehn/zF0O/+JuFP/cZw3/wFQV/7VCAP//////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////9////6bSC/+FqAv/lcQn/0V8K/9pnEP/neBf/0WMT/9plD//JVw3/vkUA////
/////////////////////////////////////////////////////////v7+////////////////////
/////////////////////////////////////////P///+qxgP/iawL/1VsA/9hkCv/qfBr/3GsU/+Jt
D//QXhH/4cO4//////////////////7+/v//////////////////////////////////////////////
///////////////////////////////////////////////////////////////////wv4//5XUP/99k
Af/reA//4W8T/8pqNf/BWSX/27mq////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////9dOw/++9jf/KYyX/yGgy/81rNf/AWiX/27ek////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////Dh1v/KYB//zmwz/85rMf/BWyT/3bek////////////////////
/////////v7+////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////Hh1v/LXx3/1G8y/81rNf/BWSL/4ryp////
////////////////////////////////////////////////////////////////////////////////
//////////////7+/v/+/v7//v7+//7+/v/+/v7//v7+///////+/v7///////Lh1//OYB3/0mww/8pq
N//CWSP/5cSy///////+/v7//v7+//7+/v//////////////////////////////////////////////
//////////////7+/v/////////////////////////////////+/v7//v7+//////////////////Pj
1//MYB7/0Gsx/8lrNv/BWCL/5NXQ////////////////////////////////////////////////////
///+/v7//////////////////////////////////v7+/////////////v7+//7+/v/+/v7/////////
//////////////Pi1//KYCD/0Gw1/8poM/+7WSb/6dzW////////////////////////////////////
//////////////7+/v///////////////////////////////////////v7+////////////////////
//////////////7+/v////////////Dj2v/KYiT/0Gwy/89sM/+9VyX/8Orm////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////Hi2P/MYx3/0XE4/81pM/++Wyr/+ff0////
///+/v7//f39//39/f/+/v7//v7+//39/f/+/v7///////7+/v/+/v7//v7+//7+/v//////////////
/////////////////////////////////////////////////////////////+/e0v/MYiX/0nQ9/8Zn
NP/EZDH//v/////////+/v7//f39//7+/v/9/f3//f39//7+/v/+/v7//v7+//7+/v/+/v7//v7+////
///////////////////////////////////////////////////+/v7//////////////////////+/e
0f/Oay//0nI6/8ZkMf/NeE3/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

90
Dokumentation/HostVerschieben.vb Normal file
View File

@@ -0,0 +1,90 @@
Imports System.Data.SqlClient
Public Class HostVerschieben
Dim AlteIP As String
Dim NeueIP As String
Public con As New SqlConnection
Public cmd As New SqlCommand
Public Linked As Boolean = False
Private Sub NetzwerkÄndern_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dbload()
AlteIP = HostBearbeiten.TxtIP.Text
Linked = HostBearbeiten.ChkLinked.Checked
TxtIPAlt.Text = AlteIP
End Sub
Public Function dbload()
con.ConnectionString = Class1.DBConString
cmd.Connection = con
End Function
Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
Dim ZielNWName As String
Dim ZielStandort As String
Dim QuellNWName As String
Dim QuellStandort As String
Dim QuellNW, ZielNW As String
NeueIP = TxtIPNeu.Text
Dim FQDN, Type As String
Class1.GetFQDNandType(NeueIP, FQDN, Type)
If FQDN = "" And Type = "" Then
If MsgBox("IP Adresse von " & AlteIP & " auf " & NeueIP & " ändern?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Class1.ip2netname(NeueIP, ZielStandort, ZielNWName)
Class1.ip2netname(AlteIP, QuellStandort, QuellNWName)
Class1.Name2Netzwerk(QuellStandort, QuellNWName, QuellNW)
Class1.Name2Netzwerk(ZielStandort, ZielNWName, ZielNW)
Dim NeuerHost As String = Class1.IP2Host(NeueIP)
Dim AlterHost As String = Class1.IP2Host(AlteIP)
If FolderMove(QuellStandort & "_" & QuellNWName, AlterHost, ZielStandort & "_" & ZielNWName, NeuerHost) = "Fehler" Then
Exit Sub
End If
con.Open()
cmd.CommandText = "DELETE Tbl_Netzwerkclients WHERE IPAdresse = '" & NeueIP & "'"
cmd.ExecuteNonQuery()
cmd.CommandText = "UPDATE Tbl_Netzwerkclients SET IPAdresse = '" & NeueIP & "', NWSTANDORT = '" & ZielStandort & "', NETNAME = '" & ZielNWName & "', HOST = '" & NeuerHost & "' WHERE IPAdresse = '" & AlteIP & "'"
cmd.ExecuteNonQuery()
con.Close()
Class1.RefillNW(QuellNW)
HostBearbeiten.importiere(ZielStandort, ZielNWName, NeuerHost)
HostBearbeiten.StandA = ZielStandort
HostBearbeiten.NetA = ZielNWName
HostBearbeiten.HostA = NeuerHost
Me.Close()
Else
Exit Sub
End If
Else
MsgBox("Eintrag " & FQDN & " an ZielIP bereits vorhanden.")
Exit Sub
End If
End Sub
Private Function FolderMove(oldID As String, oldHost As String, newID As String, NewHost As String)
Dim PathOld As String
Dim PathNew As String
'MsgBox(oldID & newID)
If Linked = True Then
Exit Function
Else
PathOld = Class1.FilePath & "\" & oldID & "\" & oldHost
PathNew = Class1.FilePath & "\" & newID & "\" & NewHost
If IO.Directory.Exists(PathNew) Then
MsgBox("Zielordner existiert bereits! Abbruch.")
Return "Fehler"
End If
If IO.Directory.Exists(PathNew) Then
IO.Directory.Move(PathOld, PathNew)
End If
End If
End Function
End Class

105
Dokumentation/Login/Login.Designer.vb generated Normal file
View File

@@ -0,0 +1,105 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Login
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(Login))
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.LblInfo = New System.Windows.Forms.Label()
Me.PanHilfe = New System.Windows.Forms.Panel()
Me.CmdVerstanden = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PanHilfe.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 10
'
'LblInfo
'
Me.LblInfo.AutoSize = True
Me.LblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblInfo.Location = New System.Drawing.Point(3, 106)
Me.LblInfo.Name = "LblInfo"
Me.LblInfo.Size = New System.Drawing.Size(51, 15)
Me.LblInfo.TabIndex = 0
Me.LblInfo.Text = "Label1"
'
'PanHilfe
'
Me.PanHilfe.Controls.Add(Me.CmdVerstanden)
Me.PanHilfe.Controls.Add(Me.PictureBox1)
Me.PanHilfe.Controls.Add(Me.LblInfo)
Me.PanHilfe.Location = New System.Drawing.Point(13, 13)
Me.PanHilfe.Name = "PanHilfe"
Me.PanHilfe.Size = New System.Drawing.Size(695, 377)
Me.PanHilfe.TabIndex = 1
Me.PanHilfe.Visible = False
'
'CmdVerstanden
'
Me.CmdVerstanden.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdVerstanden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdVerstanden.Location = New System.Drawing.Point(157, 351)
Me.CmdVerstanden.Name = "CmdVerstanden"
Me.CmdVerstanden.Size = New System.Drawing.Size(377, 23)
Me.CmdVerstanden.TabIndex = 2
Me.CmdVerstanden.Text = "Verstanden"
Me.CmdVerstanden.UseVisualStyleBackColor = False
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(359, 29)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(333, 269)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'Login
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(720, 402)
Me.Controls.Add(Me.PanHilfe)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Login"
Me.ShowInTaskbar = False
Me.Text = "Login"
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
Me.PanHilfe.ResumeLayout(False)
Me.PanHilfe.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Timer1 As Timer
Friend WithEvents LblInfo As Label
Friend WithEvents PanHilfe As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents CmdVerstanden As Button
End Class

1429
Dokumentation/Login/Login.resx Normal file
View File

File diff suppressed because it is too large Load Diff

85
Dokumentation/Login/Login.vb Normal file
View File

@@ -0,0 +1,85 @@
Imports System.Net.Dns
Public Class Login
Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Public Sub Login()
Timer1.Enabled = False
Try
Dim Addresslistcounts As Integer = Resolve("verag.ost.dmn").AddressList.Count
Abfrage(Environment.UserName)
'MsgBox(Addresslistcounts)
Catch
MsgBox("Fehler beim Anmelden!")
PasswortabfrageLogin.Show()
Catch ex As Exception
End Try
'Abfrage("ZollDE14")
End Sub
Public Function Abfrage(user As String)
Dim locGroups As List(Of String) = GetUserGroupMembership(user)
Dim gefunden As Boolean = False
For Each group As String In locGroups
' LblDebugInfo.Text &= group
If group = "CN=DokuGruppe" Then
'MsgBox("Benutzer " & Environment.UserName & " in Gruppe " & group & " gefunden!")
gefunden = True
Main.Show()
Me.Hide()
'Exit Function
End If
Next
If gefunden = True Then
Exit Function
Else
Me.WindowState = Me.WindowState.Normal
PanHilfe.Visible = True
LblInfo.Text = "Benutzer " & user & " hat keine Zugriffsrechte." & vbCrLf & vbCrLf &
"Temporäre Anmeldung mit privilegierten User mit " & vbCrLf &
">Rechtsklick< bei gedrückter >Shift<" & vbCrLf &
"Taste --> 'Als anderer Benutzer ausführen'" & vbCrLf & vbCrLf &
"Sonst bitte bei Sebastian melden..."
End If
End Function
Friend Function GetUserGroupMembership(ByVal locUsername As String) As List(Of String)
Dim locResult As New List(Of String)
Try
Dim locDirectoryEntry As New DirectoryServices.DirectoryEntry("LDAP://DC=VERAG,DC=OST,DC=DMN") ' ActiveDirectory-Pfad anpassen
Dim locDirectorySearcher As New DirectoryServices.DirectorySearcher(locDirectoryEntry, "sAMAccountName=" & locUsername)
Dim locSearchResult As DirectoryServices.SearchResult = locDirectorySearcher.FindOne
If locSearchResult IsNot Nothing Then
Dim locUserEntry As New DirectoryServices.DirectoryEntry(locSearchResult.Path)
Dim locGroups As Object = locUserEntry.Invoke("Groups")
For Each locGroupObj As Object In DirectCast(locGroups, IEnumerable)
Dim locGroupEntry As New DirectoryServices.DirectoryEntry(locGroupObj)
locResult.Add(locGroupEntry.Name)
Next
Else
Debug.WriteLine("User nicht gefunden!")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "GetUserGroupMembership", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return locResult
End Function
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Login()
' Timer1.Enabled = False
End Sub
Private Sub CmdVerstanden_Click(sender As Object, e As EventArgs) Handles CmdVerstanden.Click
Application.Exit()
End Sub
End Class

79
Dokumentation/Login/PasswortabfrageLogin.Designer.vb generated Normal file
View File

@@ -0,0 +1,79 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PasswortabfrageLogin
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(PasswortabfrageLogin))
Me.TxtPasswort = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.CmdLogin = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TxtPasswort
'
Me.TxtPasswort.Location = New System.Drawing.Point(12, 29)
Me.TxtPasswort.Name = "TxtPasswort"
Me.TxtPasswort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtPasswort.Size = New System.Drawing.Size(245, 20)
Me.TxtPasswort.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(112, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Administratorpasswort:"
'
'CmdLogin
'
Me.CmdLogin.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.CmdLogin.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLogin.Location = New System.Drawing.Point(182, 55)
Me.CmdLogin.Name = "CmdLogin"
Me.CmdLogin.Size = New System.Drawing.Size(75, 23)
Me.CmdLogin.TabIndex = 2
Me.CmdLogin.Text = "Login"
Me.CmdLogin.UseVisualStyleBackColor = False
'
'PasswortabfrageLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(272, 94)
Me.Controls.Add(Me.CmdLogin)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TxtPasswort)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "PasswortabfrageLogin"
Me.Text = "ByPass"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TxtPasswort As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents CmdLogin As Button
End Class

4597
Dokumentation/Login/PasswortabfrageLogin.resx Normal file
View File

File diff suppressed because it is too large Load Diff

11
Dokumentation/Login/PasswortabfrageLogin.vb Normal file
View File

@@ -0,0 +1,11 @@
Public Class PasswortabfrageLogin
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
If TxtPasswort.Text = "BmWr501956" Then
Main.Show()
Me.Close()
Else
MsgBox("Nein, das war falsch!")
Application.Exit()
End If
End Sub
End Class

825
Dokumentation/Main.Designer.vb generated Normal file
View File

@@ -0,0 +1,825 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Main
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(Main))
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.LblDEBUGMODE = New System.Windows.Forms.Label()
Me.LblVersion = New System.Windows.Forms.Label()
Me.LblInfo = New System.Windows.Forms.Label()
Me.CmdSucheReset = New System.Windows.Forms.Button()
Me.TxtSuche = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.PanType = New System.Windows.Forms.Panel()
Me.LstType = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PanSuche = New System.Windows.Forms.Panel()
Me.RadGlobal = New System.Windows.Forms.RadioButton()
Me.RadNurNetzwerk = New System.Windows.Forms.RadioButton()
Me.RadStandort = New System.Windows.Forms.RadioButton()
Me.LblUhrzeit = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.LblNetzwerkinfo = New System.Windows.Forms.Label()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.NetzwerkeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.ChkFreieHosts = New System.Windows.Forms.CheckBox()
Me.ChkKompAnsicht = New System.Windows.Forms.CheckBox()
Me.PanNetzwerk = New System.Windows.Forms.Panel()
Me.CmdNWDateien = New System.Windows.Forms.Button()
Me.CmdNetzwerkbearbeiten = New System.Windows.Forms.Button()
Me.CmDBearbeiten = New System.Windows.Forms.Button()
Me.CmdFiles = New System.Windows.Forms.Button()
Me.LstAllgemein = New System.Windows.Forms.ListBox()
Me.ChkTools = New System.Windows.Forms.CheckBox()
Me.CmdLink = New System.Windows.Forms.Button()
Me.ChKZugangsdaten = New System.Windows.Forms.CheckBox()
Me.LstNetzwerk = New System.Windows.Forms.ListBox()
Me.LstStandort = New System.Windows.Forms.ListBox()
Me.CMdTest2 = New System.Windows.Forms.Button()
Me.CmdTest = New System.Windows.Forms.Button()
Me.CmdPutty = New System.Windows.Forms.Button()
Me.DgVMain = New System.Windows.Forms.DataGridView()
Me.DGVMainContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DgvMainContextMenuItemHost = New System.Windows.Forms.ToolStripMenuItem()
Me.ErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DgvMainContextMenuItemLink = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ObjektLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.NetzwerkdateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PuttyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.PanTools = New System.Windows.Forms.Panel()
Me.LblDebugInfo = New System.Windows.Forms.Label()
Me.CmdPing = New System.Windows.Forms.Button()
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()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanSuche.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.PanNetzwerk.SuspendLayout()
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DGVMainContext.SuspendLayout()
Me.PanTools.SuspendLayout()
Me.SuspendLayout()
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.Panel2.Controls.Add(Me.Panel4)
Me.Panel2.Controls.Add(Me.Panel1)
Me.Panel2.Controls.Add(Me.MenuStrip1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1477, 130)
Me.Panel2.TabIndex = 1
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.LblDEBUGMODE)
Me.Panel4.Controls.Add(Me.LblVersion)
Me.Panel4.Controls.Add(Me.LblInfo)
Me.Panel4.Controls.Add(Me.CmdSucheReset)
Me.Panel4.Controls.Add(Me.TxtSuche)
Me.Panel4.Controls.Add(Me.Label1)
Me.Panel4.Controls.Add(Me.PanType)
Me.Panel4.Controls.Add(Me.PictureBox1)
Me.Panel4.Controls.Add(Me.PanSuche)
Me.Panel4.Controls.Add(Me.LblUhrzeit)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(272, 24)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1205, 106)
Me.Panel4.TabIndex = 14
'
'LblDEBUGMODE
'
Me.LblDEBUGMODE.AutoSize = True
Me.LblDEBUGMODE.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblDEBUGMODE.Location = New System.Drawing.Point(7, 33)
Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
Me.LblDEBUGMODE.Size = New System.Drawing.Size(114, 16)
Me.LblDEBUGMODE.TabIndex = 13
Me.LblDEBUGMODE.Text = "LblDebugmode"
Me.LblDEBUGMODE.Visible = False
'
'LblVersion
'
Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblVersion.AutoSize = True
Me.LblVersion.Location = New System.Drawing.Point(868, 81)
Me.LblVersion.Name = "LblVersion"
Me.LblVersion.Size = New System.Drawing.Size(42, 13)
Me.LblVersion.TabIndex = 17
Me.LblVersion.Text = "Version"
'
'LblInfo
'
Me.LblInfo.AutoSize = True
Me.LblInfo.Location = New System.Drawing.Point(7, 87)
Me.LblInfo.Name = "LblInfo"
Me.LblInfo.Size = New System.Drawing.Size(39, 13)
Me.LblInfo.TabIndex = 16
Me.LblInfo.Text = "LblInfo"
'
'CmdSucheReset
'
Me.CmdSucheReset.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdSucheReset.Location = New System.Drawing.Point(709, 71)
Me.CmdSucheReset.Name = "CmdSucheReset"
Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
Me.CmdSucheReset.TabIndex = 15
Me.CmdSucheReset.Text = "Reset"
Me.CmdSucheReset.UseVisualStyleBackColor = False
'
'TxtSuche
'
Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.TxtSuche.Location = New System.Drawing.Point(523, 23)
Me.TxtSuche.Name = "TxtSuche"
Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
Me.TxtSuche.TabIndex = 3
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(476, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Suche:"
'
'PanType
'
Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PanType.Controls.Add(Me.LstType)
Me.PanType.Controls.Add(Me.Label2)
Me.PanType.Location = New System.Drawing.Point(667, 5)
Me.PanType.Name = "PanType"
Me.PanType.Size = New System.Drawing.Size(183, 41)
Me.PanType.TabIndex = 12
'
'LstType
'
Me.LstType.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstType.FormattingEnabled = True
Me.LstType.Location = New System.Drawing.Point(42, 17)
Me.LstType.Name = "LstType"
Me.LstType.Size = New System.Drawing.Size(121, 21)
Me.LstType.TabIndex = 10
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(11, 21)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(34, 13)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Type:"
'
'PictureBox1
'
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(861, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'PanSuche
'
Me.PanSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PanSuche.Controls.Add(Me.RadGlobal)
Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
Me.PanSuche.Controls.Add(Me.RadStandort)
Me.PanSuche.Location = New System.Drawing.Point(523, 49)
Me.PanSuche.Name = "PanSuche"
Me.PanSuche.Size = New System.Drawing.Size(314, 31)
Me.PanSuche.TabIndex = 11
'
'RadGlobal
'
Me.RadGlobal.AutoSize = True
Me.RadGlobal.Location = New System.Drawing.Point(195, 3)
Me.RadGlobal.Name = "RadGlobal"
Me.RadGlobal.Size = New System.Drawing.Size(112, 17)
Me.RadGlobal.TabIndex = 8
Me.RadGlobal.Text = "Alles durchsuchen"
Me.RadGlobal.UseVisualStyleBackColor = True
'
'RadNurNetzwerk
'
Me.RadNurNetzwerk.AutoSize = True
Me.RadNurNetzwerk.Checked = True
Me.RadNurNetzwerk.Location = New System.Drawing.Point(3, 3)
Me.RadNurNetzwerk.Name = "RadNurNetzwerk"
Me.RadNurNetzwerk.Size = New System.Drawing.Size(90, 17)
Me.RadNurNetzwerk.TabIndex = 6
Me.RadNurNetzwerk.TabStop = True
Me.RadNurNetzwerk.Text = "Nur Netzwerk"
Me.RadNurNetzwerk.UseVisualStyleBackColor = True
'
'RadStandort
'
Me.RadStandort.AutoSize = True
Me.RadStandort.Location = New System.Drawing.Point(99, 3)
Me.RadStandort.Name = "RadStandort"
Me.RadStandort.Size = New System.Drawing.Size(90, 17)
Me.RadStandort.TabIndex = 7
Me.RadStandort.Text = "Ges. Standort"
Me.RadStandort.UseVisualStyleBackColor = True
'
'LblUhrzeit
'
Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblUhrzeit.AutoSize = True
Me.LblUhrzeit.Location = New System.Drawing.Point(1061, 83)
Me.LblUhrzeit.Name = "LblUhrzeit"
Me.LblUhrzeit.Size = New System.Drawing.Size(54, 13)
Me.LblUhrzeit.TabIndex = 7
Me.LblUhrzeit.Text = "LblUhrzeit"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel1.Controls.Add(Me.LblNetzwerkinfo)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 24)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(272, 106)
Me.Panel1.TabIndex = 13
'
'LblNetzwerkinfo
'
Me.LblNetzwerkinfo.AutoSize = True
Me.LblNetzwerkinfo.Location = New System.Drawing.Point(4, 5)
Me.LblNetzwerkinfo.Name = "LblNetzwerkinfo"
Me.LblNetzwerkinfo.Size = New System.Drawing.Size(69, 13)
Me.LblNetzwerkinfo.TabIndex = 0
Me.LblNetzwerkinfo.Text = "Netzwerkinfo"
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1477, 24)
Me.MenuStrip1.TabIndex = 2
Me.MenuStrip1.Text = "MenuStrip1"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(49, 20)
Me.ToolStripMenuItem1.Text = "Extras"
'
'NetzwerkeToolStripMenuItem
'
Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 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"
'
'ExportToolStripMenuItem
'
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExportToolStripMenuItem.Text = "Export"
'
'ImportToolStripMenuItem
'
Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ImportToolStripMenuItem.Text = "Import"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.ChkDHCPClients)
Me.Panel3.Controls.Add(Me.ChkFreieHosts)
Me.Panel3.Controls.Add(Me.ChkKompAnsicht)
Me.Panel3.Controls.Add(Me.PanNetzwerk)
Me.Panel3.Controls.Add(Me.CmDBearbeiten)
Me.Panel3.Controls.Add(Me.CmdFiles)
Me.Panel3.Controls.Add(Me.LstAllgemein)
Me.Panel3.Controls.Add(Me.ChkTools)
Me.Panel3.Controls.Add(Me.CmdLink)
Me.Panel3.Controls.Add(Me.ChKZugangsdaten)
Me.Panel3.Controls.Add(Me.LstNetzwerk)
Me.Panel3.Controls.Add(Me.LstStandort)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(0, 130)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(200, 771)
Me.Panel3.TabIndex = 2
'
'ChkFreieHosts
'
Me.ChkFreieHosts.AutoSize = True
Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 559)
Me.ChkFreieHosts.Name = "ChkFreieHosts"
Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17)
Me.ChkFreieHosts.TabIndex = 15
Me.ChkFreieHosts.Text = "freie Hosts anzeigen"
Me.ChkFreieHosts.UseVisualStyleBackColor = True
'
'ChkKompAnsicht
'
Me.ChkKompAnsicht.AutoSize = True
Me.ChkKompAnsicht.Checked = True
Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked
Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 536)
Me.ChkKompAnsicht.Name = "ChkKompAnsicht"
Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17)
Me.ChkKompAnsicht.TabIndex = 14
Me.ChkKompAnsicht.Text = "Komprimierte Ansicht"
Me.ChkKompAnsicht.UseVisualStyleBackColor = True
'
'PanNetzwerk
'
Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien)
Me.PanNetzwerk.Controls.Add(Me.CmdNetzwerkbearbeiten)
Me.PanNetzwerk.Location = New System.Drawing.Point(3, 445)
Me.PanNetzwerk.Name = "PanNetzwerk"
Me.PanNetzwerk.Size = New System.Drawing.Size(191, 85)
Me.PanNetzwerk.TabIndex = 13
'
'CmdNWDateien
'
Me.CmdNWDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdNWDateien.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20
Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11)
Me.CmdNWDateien.Name = "CmdNWDateien"
Me.CmdNWDateien.Size = New System.Drawing.Size(151, 28)
Me.CmdNWDateien.TabIndex = 15
Me.CmdNWDateien.Text = "Standort Dateien"
Me.CmdNWDateien.UseVisualStyleBackColor = False
'
'CmdNetzwerkbearbeiten
'
Me.CmdNetzwerkbearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdNetzwerkbearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45)
Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten"
Me.CmdNetzwerkbearbeiten.Size = New System.Drawing.Size(151, 28)
Me.CmdNetzwerkbearbeiten.TabIndex = 8
Me.CmdNetzwerkbearbeiten.Text = "Netzwerk bearbeiten"
Me.CmdNetzwerkbearbeiten.UseVisualStyleBackColor = False
'
'CmDBearbeiten
'
Me.CmDBearbeiten.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmDBearbeiten.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmDBearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 413)
Me.CmDBearbeiten.Name = "CmDBearbeiten"
Me.CmDBearbeiten.Size = New System.Drawing.Size(151, 28)
Me.CmDBearbeiten.TabIndex = 6
Me.CmDBearbeiten.Text = "Host Bearbeiten"
Me.CmDBearbeiten.UseVisualStyleBackColor = False
'
'CmdFiles
'
Me.CmdFiles.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdFiles.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdFiles.Image = Global.Dokumentation.My.Resources.Resources.Folder20
Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdFiles.Location = New System.Drawing.Point(25, 379)
Me.CmdFiles.Name = "CmdFiles"
Me.CmdFiles.Size = New System.Drawing.Size(151, 28)
Me.CmdFiles.TabIndex = 12
Me.CmdFiles.Text = "Host Dateien"
Me.CmdFiles.UseVisualStyleBackColor = False
'
'LstAllgemein
'
Me.LstAllgemein.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstAllgemein.FormattingEnabled = True
Me.LstAllgemein.Location = New System.Drawing.Point(25, 244)
Me.LstAllgemein.Name = "LstAllgemein"
Me.LstAllgemein.Size = New System.Drawing.Size(151, 95)
Me.LstAllgemein.TabIndex = 11
'
'ChkTools
'
Me.ChkTools.AutoSize = True
Me.ChkTools.Location = New System.Drawing.Point(25, 640)
Me.ChkTools.Name = "ChkTools"
Me.ChkTools.Size = New System.Drawing.Size(107, 17)
Me.ChkTools.TabIndex = 10
Me.ChkTools.Text = "Tools einblenden"
Me.ChkTools.UseVisualStyleBackColor = True
'
'CmdLink
'
Me.CmdLink.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdLink.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Image = Global.Dokumentation.My.Resources.Resources.Link20
Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdLink.Location = New System.Drawing.Point(25, 345)
Me.CmdLink.Name = "CmdLink"
Me.CmdLink.Size = New System.Drawing.Size(151, 28)
Me.CmdLink.TabIndex = 9
Me.CmdLink.Text = "Link öffnen"
Me.CmdLink.UseVisualStyleBackColor = False
'
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 618)
Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
Me.ChKZugangsdaten.TabIndex = 4
Me.ChKZugangsdaten.Text = "Zugangsdaten anzeigen"
Me.ChKZugangsdaten.UseVisualStyleBackColor = True
'
'LstNetzwerk
'
Me.LstNetzwerk.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstNetzwerk.FormattingEnabled = True
Me.LstNetzwerk.Location = New System.Drawing.Point(23, 107)
Me.LstNetzwerk.Name = "LstNetzwerk"
Me.LstNetzwerk.Size = New System.Drawing.Size(151, 95)
Me.LstNetzwerk.TabIndex = 1
'
'LstStandort
'
Me.LstStandort.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstStandort.FormattingEnabled = True
Me.LstStandort.Location = New System.Drawing.Point(23, 6)
Me.LstStandort.Name = "LstStandort"
Me.LstStandort.Size = New System.Drawing.Size(151, 95)
Me.LstStandort.TabIndex = 0
'
'CMdTest2
'
Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
Me.CMdTest2.Location = New System.Drawing.Point(1202, 0)
Me.CMdTest2.Name = "CMdTest2"
Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
Me.CMdTest2.TabIndex = 3
Me.CMdTest2.Text = "Test2"
Me.CMdTest2.UseVisualStyleBackColor = True
'
'CmdTest
'
Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
Me.CmdTest.Location = New System.Drawing.Point(1127, 0)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 100)
Me.CmdTest.TabIndex = 2
Me.CmdTest.Text = "Test"
Me.CmdTest.UseVisualStyleBackColor = True
'
'CmdPutty
'
Me.CmdPutty.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdPutty.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdPutty.Location = New System.Drawing.Point(26, 7)
Me.CmdPutty.Name = "CmdPutty"
Me.CmdPutty.Size = New System.Drawing.Size(151, 23)
Me.CmdPutty.TabIndex = 10
Me.CmdPutty.Text = "Link Putty"
Me.CmdPutty.UseVisualStyleBackColor = False
'
'DgVMain
'
Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.DgVMain.Location = New System.Drawing.Point(200, 130)
Me.DgVMain.Name = "DgVMain"
Me.DgVMain.ReadOnly = True
Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DgVMain.Size = New System.Drawing.Size(1277, 671)
Me.DgVMain.TabIndex = 3
'
'DGVMainContext
'
Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
Me.DGVMainContext.Name = "ContextMenuStrip2"
Me.DGVMainContext.Size = New System.Drawing.Size(165, 170)
'
'DgvMainContextMenuItemHost
'
Me.DgvMainContextMenuItemHost.Name = "DgvMainContextMenuItemHost"
Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(164, 22)
Me.DgvMainContextMenuItemHost.Text = "Bearbeiten"
'
'ErstellenToolStripMenuItem
'
Me.ErstellenToolStripMenuItem.Name = "ErstellenToolStripMenuItem"
Me.ErstellenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.ErstellenToolStripMenuItem.Text = "Erstellen"
'
'DateienToolStripMenuItem
'
Me.DateienToolStripMenuItem.Name = "DateienToolStripMenuItem"
Me.DateienToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.DateienToolStripMenuItem.Text = "Dateien"
'
'DgvMainContextMenuItemLink
'
Me.DgvMainContextMenuItemLink.Name = "DgvMainContextMenuItemLink"
Me.DgvMainContextMenuItemLink.Size = New System.Drawing.Size(164, 22)
Me.DgvMainContextMenuItemLink.Text = "Link öffnen"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(161, 6)
'
'ObjektLöschenToolStripMenuItem
'
Me.ObjektLöschenToolStripMenuItem.Name = "ObjektLöschenToolStripMenuItem"
Me.ObjektLöschenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.ObjektLöschenToolStripMenuItem.Text = "Objekt löschen"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(161, 6)
'
'NetzwerkdateienToolStripMenuItem
'
Me.NetzwerkdateienToolStripMenuItem.Name = "NetzwerkdateienToolStripMenuItem"
Me.NetzwerkdateienToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.NetzwerkdateienToolStripMenuItem.Text = "Standort-Dateien"
'
'ToolsToolStripMenuItem
'
Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PuttyToolStripMenuItem, Me.PingToolStripMenuItem, Me.ToolStripSeparator4})
Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.ToolsToolStripMenuItem.Text = "Tools"
'
'PuttyToolStripMenuItem
'
Me.PuttyToolStripMenuItem.Name = "PuttyToolStripMenuItem"
Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
Me.PuttyToolStripMenuItem.Text = "Putty"
'
'PingToolStripMenuItem
'
Me.PingToolStripMenuItem.Name = "PingToolStripMenuItem"
Me.PingToolStripMenuItem.Size = New System.Drawing.Size(102, 22)
Me.PingToolStripMenuItem.Text = "Ping"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(99, 6)
'
'PanTools
'
Me.PanTools.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.PanTools.Controls.Add(Me.LblDebugInfo)
Me.PanTools.Controls.Add(Me.CmdPing)
Me.PanTools.Controls.Add(Me.CmdPutty)
Me.PanTools.Controls.Add(Me.CmdTest)
Me.PanTools.Controls.Add(Me.CMdTest2)
Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanTools.Location = New System.Drawing.Point(200, 801)
Me.PanTools.Name = "PanTools"
Me.PanTools.Size = New System.Drawing.Size(1277, 100)
Me.PanTools.TabIndex = 4
Me.PanTools.Visible = False
'
'LblDebugInfo
'
Me.LblDebugInfo.AutoSize = True
Me.LblDebugInfo.Location = New System.Drawing.Point(208, 12)
Me.LblDebugInfo.Name = "LblDebugInfo"
Me.LblDebugInfo.Size = New System.Drawing.Size(53, 13)
Me.LblDebugInfo.TabIndex = 12
Me.LblDebugInfo.Text = "LblDebug"
'
'CmdPing
'
Me.CmdPing.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdPing.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdPing.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdPing.Location = New System.Drawing.Point(26, 36)
Me.CmdPing.Name = "CmdPing"
Me.CmdPing.Size = New System.Drawing.Size(151, 23)
Me.CmdPing.TabIndex = 11
Me.CmdPing.Text = "Ping"
Me.CmdPing.UseVisualStyleBackColor = False
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
'
'TimerUhrzeit
'
Me.TimerUhrzeit.Enabled = True
Me.TimerUhrzeit.Interval = 1000
'
'TimerUpdate
'
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!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1477, 901)
Me.Controls.Add(Me.DgVMain)
Me.Controls.Add(Me.PanTools)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.MinimumSize = New System.Drawing.Size(1024, 740)
Me.Name = "Main"
Me.Text = "Dokumentation"
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.PanType.ResumeLayout(False)
Me.PanType.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanSuche.ResumeLayout(False)
Me.PanSuche.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.PanNetzwerk.ResumeLayout(False)
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.DGVMainContext.ResumeLayout(False)
Me.PanTools.ResumeLayout(False)
Me.PanTools.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel2 As Panel
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
Friend WithEvents CmDBearbeiten As Button
Friend WithEvents LblUhrzeit As Label
Friend WithEvents LblNetzwerkinfo As Label
Friend WithEvents CmdNetzwerkbearbeiten As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents NetzwerkeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label1 As Label
Friend WithEvents TxtSuche As TextBox
Friend WithEvents RadGlobal As RadioButton
Friend WithEvents RadStandort As RadioButton
Friend WithEvents RadNurNetzwerk As RadioButton
Friend WithEvents LstType As ComboBox
Friend WithEvents Label2 As Label
Friend WithEvents DGVMainContext As ContextMenuStrip
Friend WithEvents DgvMainContextMenuItemHost As ToolStripMenuItem
Friend WithEvents CmdLink As Button
Friend WithEvents DgvMainContextMenuItemLink As ToolStripMenuItem
Friend WithEvents CmdPutty As Button
Friend WithEvents PanTools As Panel
Friend WithEvents ChkTools As CheckBox
Friend WithEvents CmdPing As Button
Friend WithEvents AnsichtDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LstAllgemein As ListBox
Friend WithEvents CmdFiles As Button
Friend WithEvents PanNetzwerk As Panel
Friend WithEvents PanSuche As Panel
Friend WithEvents PanType As Panel
Friend WithEvents ErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ChkKompAnsicht As CheckBox
Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ImportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ImageList1 As ImageList
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ExitToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LblDebugInfo As Label
Friend WithEvents Panel4 As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents UpdateToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateienToolStripMenuItem As ToolStripMenuItem
Friend WithEvents TimerUhrzeit As Timer
Friend WithEvents CmdSucheReset As Button
Friend WithEvents LblInfo As Label
Friend WithEvents TimerUpdate As Timer
Friend WithEvents LblVersion As Label
Friend WithEvents LblDEBUGMODE As Label
Friend WithEvents CmdNWDateien As Button
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents NetzwerkdateienToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents ToolsToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PingToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ObjektLöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents ChkFreieHosts As CheckBox
Friend WithEvents ChkDHCPClients As CheckBox
End Class

1151
Dokumentation/Main.resx Normal file
View File

File diff suppressed because it is too large Load Diff

1164
Dokumentation/Main.vb Normal file
View File

File diff suppressed because it is too large Load Diff

38
Dokumentation/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = false
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Dokumentation.Login
End Sub
End Class
End Namespace

10
Dokumentation/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Login</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>false</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
Dokumentation/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Dokumentation")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Dokumentation")>
<Assembly: AssemblyCopyright("Copyright © 2018")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("6a8b8b01-66de-43ca-89fe-14084b11dd6e")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

150
Dokumentation/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,150 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Dokumentation.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Bearbeiten20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Bearbeiten20", 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 Folder20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Folder20", 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 Link() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Link", 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 Link1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Link1", 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 Link20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Link20", 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 Netzwerk20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Netzwerk20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die DOKU ähnelt.
'''</summary>
Friend ReadOnly Property Programmcode() As String
Get
Return ResourceManager.GetString("Programmcode", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Dokumentation ähnelt.
'''</summary>
Friend ReadOnly Property Programmname() As String
Get
Return ResourceManager.GetString("Programmname", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.20 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get
Return ResourceManager.GetString("Version", resourceCulture)
End Get
End Property
End Module
End Namespace

148
Dokumentation/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,148 @@
<?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>
<data name="Programmname" xml:space="preserve">
<value>Dokumentation</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Link20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Bearbeiten20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<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.20</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>
</data>
<data name="Folder20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Folder20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Programmcode" xml:space="preserve">
<value>DOKU</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>
</root>

73
Dokumentation/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Dokumentation.My.MySettings
Get
Return Global.Dokumentation.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
Dokumentation/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

76
Dokumentation/My Project/app.manifest Normal file
View File

@@ -0,0 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC-Manifestoptionen
Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den
Knoten "requestedExecutionLevel" wie folgt.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert.
Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
für die Anwendung erforderlich ist.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel und müssen sich nicht
anmelden. Für Windows Forms-Anwendungen für .NET Framework 4.6, die sich für diese Einstellung anmelden, muss
auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der "app.config" auf "true" festgelegt werden. -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
</windowsSettings>
</application>
-->
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

292
Dokumentation/PrintDGV.vb Normal file
View File

@@ -0,0 +1,292 @@
Imports System.Collections.Generic
Imports Microsoft.VisualBasic.PowerPacks.Printing
Imports System.Data.Common
Public Class PrintDGV
Private Shared StrFormat As StringFormat ' Holds content of a TextBox Cell to write by DrawString
Private Shared StrFormatComboBox As StringFormat ' Holds content of a Boolean Cell to write by DrawImage
Private Shared CellButton As Button ' Holds the Contents of Button Cell
Private Shared CellCheckBox As CheckBox ' Holds the Contents of CheckBox Cell
Private Shared CellComboBox As ComboBox ' Holds the Contents of ComboBox Cell
Private Shared TotalWidth As Int16 ' Summation of Columns widths
Private Shared RowPos As Int16 ' Position of currently printing row
Private Shared NewPage As Boolean ' Indicates if a new page reached
Private Shared PageNo As Int16 ' Number of pages to print
Private Shared ColumnLefts As New ArrayList ' Left Coordinate of Columns
Private Shared ColumnWidths As New ArrayList ' Width of Columns
Private Shared ColumnTypes As New ArrayList ' DataType of Columns
Private Shared CellHeight As Int16 ' Height of DataGrid Cell
Private Shared RowsPerPage As Int16 ' Number of Rows per Page
Private Shared WithEvents PrintDoc As New System.Drawing.Printing.PrintDocument ' PrintDocumnet Object used for printing
Private Shared PrintTitle As String = "" ' Header of pages
Private Shared dgv As DataGridView ' Holds DataGrid Object to print its contents
Private Shared SelectedColumns As New List(Of String) ' The Columns Selected by user to print.
Private Shared AvailableColumns As New List(Of String) ' All Columns avaiable in DataGrid
Private Shared PrintAllRows As Boolean = True ' True = print all rows, False = print selected rows
Private Shared FitToPageWidth As Boolean = True ' True = Fits selected columns to page width , False = Print columns as showed
Private Shared HeaderHeight As Int16 = 0
Private Shared drawfont As New Font("Arial", 7) ''<-------------------------------------------------------------------8
Private Shared drawfont1 As New Font("Arial", 6, FontStyle.Bold)
Public Shared Sub Print_DataGridView(ByVal DataGridView1 As DataGridView)
Dim ppvw As PrintPreviewDialog
Try
' Getting DataGridView object to print
dgv = DataGridView1
' Getting all Coulmns Names in the DataGridView
AvailableColumns.Clear()
For Each c As DataGridViewColumn In dgv.Columns
If Not c.Visible Then Continue For
AvailableColumns.Add(c.HeaderText)
Next
' Showing the PrintOption Form
'Dim dlg As New PrintOptions(AvailableColumns)
'If dlg.ShowDialog() <> DialogResult.OK Then Exit Sub
' Saving some printing attributes
' PrintTitle = ReporTitleAsNeeded ' dlg.PrintTitle
PrintAllRows = True ' dlg.PrintAllRows
FitToPageWidth = True ' dlg.FitToPageWidth
SelectedColumns = AvailableColumns 'dlg.GetSelectedColumns
'RowsPerPage = 0
Dim psd As New PageSetupDialog()
psd.Document = PrintDoc
psd.PageSettings.Landscape = True
psd.ShowDialog()
PrintDoc.DefaultPageSettings = psd.PageSettings
PrintDoc.DefaultPageSettings.Landscape = True
ppvw = New PrintPreviewDialog
ppvw.Document = PrintDoc
' Showing the Print Preview Page
If ppvw.ShowDialog() <> DialogResult.OK Then Exit Sub
PrintDoc.Print()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
End Try
End Sub
Private Shared Sub PrintDoc_BeginPrint(ByVal sender As Object,
ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDoc.BeginPrint
Try
' Formatting the Content of Text Cells to print
StrFormat = New StringFormat
StrFormat.Alignment = StringAlignment.Near
StrFormat.LineAlignment = StringAlignment.Center
StrFormat.Trimming = StringTrimming.EllipsisCharacter
' Formatting the Content of Combo Cells to print
StrFormatComboBox = New StringFormat
StrFormatComboBox.LineAlignment = StringAlignment.Center
StrFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
StrFormatComboBox.Trimming = StringTrimming.EllipsisCharacter
ColumnLefts.Clear()
ColumnWidths.Clear()
ColumnTypes.Clear()
CellHeight = 0
RowsPerPage = 0
' For various column types
CellButton = New Button
CellCheckBox = New CheckBox
CellComboBox = New ComboBox
TotalWidth = 0
For Each GridCol As DataGridViewColumn In dgv.Columns
If Not GridCol.Visible Then Continue For
If Not SelectedColumns.Contains(GridCol.HeaderText) Then Continue For
TotalWidth += GridCol.Width
Next
PageNo = 1
NewPage = True
RowPos = 0
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
End Try
End Sub
Private Shared Sub PrintDoc_PrintPage(ByVal sender As Object,
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage
Dim tmpWidth As Int16, i As Int16
Dim tmpTop As Int16 = e.MarginBounds.Top
Dim tmpLeft As Int16 = e.MarginBounds.Left
Try
' Before starting first page, it saves Width & Height of Headers and ColumnType
If PageNo = 1 Then
For Each GridCol As DataGridViewColumn In dgv.Columns
If Not GridCol.Visible Then Continue For
If Not SelectedColumns.Contains(GridCol.HeaderText) Then
Continue For
End If
' Detemining whether the columns are fitted to page or not.
If FitToPageWidth Then
tmpWidth = CType(Math.Floor(GridCol.Width / TotalWidth *
TotalWidth * (e.MarginBounds.Width / TotalWidth)), Int16)
Else
tmpWidth = GridCol.Width
End If
HeaderHeight = e.Graphics.MeasureString(GridCol.HeaderText,
drawfont, tmpWidth).Height + 11
ColumnLefts.Add(tmpLeft)
ColumnWidths.Add(tmpWidth)
ColumnTypes.Add(GridCol.GetType)
tmpLeft += tmpWidth
Next
End If
' Printing Current Page, Row by Row
Do While RowPos <= dgv.Rows.Count - 1
Dim GridRow As DataGridViewRow = dgv.Rows(RowPos)
If GridRow.IsNewRow OrElse (Not PrintAllRows AndAlso Not GridRow.Selected) Then
RowPos += 1 : Continue Do
End If
CellHeight = GridRow.Height ' + 10
dgv.AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells
'CellHeight = 30
If tmpTop + CellHeight >= e.MarginBounds.Height + e.MarginBounds.Top Then
DrawFooter(e, RowsPerPage)
NewPage = True
PageNo += 1
e.HasMorePages = True
Exit Sub
Else
If NewPage Then
' Draw Header
e.Graphics.DrawString(PrintTitle, New Font(dgv.Font, FontStyle.Bold),
Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top -
e.Graphics.MeasureString(PrintTitle, New Font(dgv.Font, FontStyle.Bold), e.MarginBounds.Width).Height - 10) ''<-------------------------------------------------------------------13
Dim s As String = Now.ToLongDateString + " " + Now.ToShortTimeString
e.Graphics.DrawString(s, New Font(dgv.Font, FontStyle.Bold),
Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width -
e.Graphics.MeasureString(s, New Font(dgv.Font, FontStyle.Bold),
e.MarginBounds.Width).Width), e.MarginBounds.Top -
e.Graphics.MeasureString(PrintTitle,
New Font(New Font(dgv.Font, FontStyle.Bold), FontStyle.Bold),
e.MarginBounds.Width).Height - 13)
' Draw Columns
tmpTop = e.MarginBounds.Top
i = 0
For Each GridCol As DataGridViewColumn In dgv.Columns
If Not GridCol.Visible Then Continue For
If Not SelectedColumns.Contains(GridCol.HeaderText) Then
Continue For
End If
' Grey shading for Header Text Box
e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray),
New Rectangle(ColumnLefts(i), tmpTop, ColumnWidths(i), HeaderHeight))
'Draw Header Text Box
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(ColumnLefts(i),
tmpTop, ColumnWidths(i), HeaderHeight))
'Draw Header Text
e.Graphics.DrawString(GridCol.HeaderText, GridCol.InheritedStyle.Font,
New SolidBrush(GridCol.InheritedStyle.ForeColor),
New RectangleF(ColumnLefts(i), tmpTop, ColumnWidths(i),
HeaderHeight), StrFormat)
i += 1
Next
NewPage = False
tmpTop += HeaderHeight
End If
i = 0
For Each Cel As DataGridViewCell In GridRow.Cells
If Not Cel.OwningColumn.Visible Then Continue For
If Not SelectedColumns.Contains(Cel.OwningColumn.HeaderText) Then
Continue For
End If
' For the TextBox Column
If ColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse
ColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then
If Cel.OwningColumn.HeaderText = "A" Or Cel.OwningColumn.HeaderText = "FQDN" Then
e.Graphics.DrawString(Cel.Value.ToString, drawfont1,
New SolidBrush(Cel.InheritedStyle.ForeColor),
New RectangleF(ColumnLefts(i), tmpTop, ColumnWidths(i),
CellHeight), StrFormat)
Else
e.Graphics.DrawString(Cel.Value.ToString, drawfont,
New SolidBrush(Cel.InheritedStyle.ForeColor),
New RectangleF(ColumnLefts(i), tmpTop, ColumnWidths(i),
CellHeight), StrFormat)
End If
' For the Button Column
ElseIf ColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then
CellButton.Text = Cel.Value.ToString
CellButton.Size = New Size(ColumnWidths(i), CellHeight)
Dim bmp As New Bitmap(CellButton.Width, CellButton.Height)
CellButton.DrawToBitmap(bmp, New Rectangle(0, 0,
bmp.Width, bmp.Height))
e.Graphics.DrawImage(bmp, New Point(ColumnLefts(i), tmpTop))
' For the CheckBox Column
ElseIf ColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then
CellCheckBox.Size = New Size(14, 14)
CellCheckBox.Checked = CType(Cel.Value, Boolean)
Dim bmp As New Bitmap(ColumnWidths(i), CellHeight)
Dim tmpGraphics As Graphics = Graphics.FromImage(bmp)
tmpGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0,
bmp.Width, bmp.Height))
CellCheckBox.DrawToBitmap(bmp, New Rectangle(CType((bmp.Width -
CellCheckBox.Width) / 2, Int32), CType((bmp.Height -
CellCheckBox.Height) / 2, Int32), CellCheckBox.Width,
CellCheckBox.Height))
e.Graphics.DrawImage(bmp, New Point(ColumnLefts(i), tmpTop))
' For the ComboBox Column
ElseIf ColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then
CellComboBox.Size = New Size(ColumnWidths(i), CellHeight)
Dim bmp As New Bitmap(CellComboBox.Width, CellComboBox.Height)
CellComboBox.DrawToBitmap(bmp, New Rectangle(0, 0,
bmp.Width, bmp.Height))
e.Graphics.DrawImage(bmp, New Point(ColumnLefts(i), tmpTop))
e.Graphics.DrawString(Cel.Value.ToString, Cel.InheritedStyle.Font,
New SolidBrush(Cel.InheritedStyle.ForeColor),
New RectangleF(ColumnLefts(i) + 1, tmpTop, ColumnWidths(i) _
- 16, CellHeight), StrFormatComboBox)
' For the Image Column
ElseIf ColumnTypes(i) Is GetType(DataGridViewImageColumn) Then
Dim CelSize As Rectangle = New Rectangle(ColumnLefts(i),
tmpTop, ColumnWidths(i), CellHeight)
Dim ImgSize As Size = CType(Cel.FormattedValue, Image).Size
e.Graphics.DrawImage(Cel.FormattedValue, New Rectangle(ColumnLefts(i) _
+ CType(((CelSize.Width - ImgSize.Width) / 2), Int32),
tmpTop + CType(((CelSize.Height - ImgSize.Height) / 2),
Int32), CType(Cel.FormattedValue, Image).Width, CType(Cel.FormattedValue,
Image).Height))
End If
' Drawing Cells Borders
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(ColumnLefts(i),
tmpTop, ColumnWidths(i), CellHeight))
i += 1
Next
tmpTop += CellHeight
End If
RowPos += 1
' For the first page it calculates Rows per Page
If PageNo = 1 Then
RowsPerPage += 1
End If
Loop
If RowsPerPage = 0 Then Exit Sub
' Write Footer (Page Number)
DrawFooter(e, RowsPerPage)
e.HasMorePages = False
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
End Try
End Sub
Private Shared Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)
Dim cnt As Integer
' Detemining rows number to print
If PrintAllRows Then
If dgv.Rows(dgv.Rows.Count - 1).IsNewRow Then
' When the DataGridView doesn't allow adding rows
cnt = dgv.Rows.Count - 2
Else
' When the DataGridView allows adding rows
cnt = dgv.Rows.Count - 1
End If
Else
cnt = dgv.SelectedRows.Count
End If
' Writing the Page Number on the Bottom of Page
Dim PageNum As String = PageNo.ToString + " of " + Math.Ceiling(cnt / RowsPerPage).ToString
e.Graphics.DrawString(PageNum, drawfont, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width -
e.Graphics.MeasureString(PageNum, drawfont, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top +
e.MarginBounds.Height + 31)
End Sub
End Class

BIN
Dokumentation/Resources/Bearbeiten20.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
Dokumentation/Resources/Folder20.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
Dokumentation/Resources/Link.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

BIN
Dokumentation/Resources/Link.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.9 KiB

BIN
Dokumentation/Resources/Link20.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
Dokumentation/Resources/Netzwerk20.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
Dokumentation/dispo_ico.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Dokumentation/doku_ico.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Dokumentation/rj45_ICO.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

6
Dokumentation_Updater/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
</configuration>

129
Dokumentation_Updater/Dokumentation_Updater.vbproj Normal file
View File

@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{5C2A947D-17F3-4975-8781-3B662FC72EAB}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Dokumentation_Updater.My.MyApplication</StartupObject>
<RootNamespace>Dokumentation_Updater</RootNamespace>
<AssemblyName>Dokumentation_Updater</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\Dokumentation\bin\Debug\</OutputPath>
<DocumentationFile>Dokumentation_Updater.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Dokumentation_Updater.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>Update.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Update.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Update.Designer.vb">
<DependentUpon>Update.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Update.resx">
<DependentUpon>Update.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<Content Include="Update.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

38
Dokumentation_Updater/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Dokumentation_Updater.Update
End Sub
End Class
End Namespace

11
Dokumentation_Updater/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
Dokumentation_Updater/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Dokumentation_Updater")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Dokumentation_Updater")>
<Assembly: AssemblyCopyright("Copyright © 2018")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("3fa16542-d689-410e-a710-b2baba7f8ef4")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
Dokumentation_Updater/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Dokumentation_Updater.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
Dokumentation_Updater/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?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.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: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" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

73
Dokumentation_Updater/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Dokumentation_Updater.My.MySettings
Get
Return Global.Dokumentation_Updater.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
Dokumentation_Updater/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

80
Dokumentation_Updater/Update.Designer.vb generated Normal file
View File

@@ -0,0 +1,80 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Update
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(Update))
Me.CmdUpdate = New System.Windows.Forms.Button()
Me.ProgressBar = New System.Windows.Forms.ProgressBar()
Me.TxtInfo = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'CmdUpdate
'
Me.CmdUpdate.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdUpdate.Location = New System.Drawing.Point(12, 180)
Me.CmdUpdate.Name = "CmdUpdate"
Me.CmdUpdate.Size = New System.Drawing.Size(377, 23)
Me.CmdUpdate.TabIndex = 0
Me.CmdUpdate.Text = "Update ausführen"
Me.CmdUpdate.UseVisualStyleBackColor = False
'
'ProgressBar
'
Me.ProgressBar.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ProgressBar.Location = New System.Drawing.Point(13, 158)
Me.ProgressBar.Name = "ProgressBar"
Me.ProgressBar.Size = New System.Drawing.Size(376, 16)
Me.ProgressBar.TabIndex = 2
'
'TxtInfo
'
Me.TxtInfo.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.TxtInfo.Location = New System.Drawing.Point(12, 13)
Me.TxtInfo.Multiline = True
Me.TxtInfo.Name = "TxtInfo"
Me.TxtInfo.ReadOnly = True
Me.TxtInfo.Size = New System.Drawing.Size(377, 139)
Me.TxtInfo.TabIndex = 3
'
'Update
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ClientSize = New System.Drawing.Size(401, 216)
Me.Controls.Add(Me.TxtInfo)
Me.Controls.Add(Me.ProgressBar)
Me.Controls.Add(Me.CmdUpdate)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Update"
Me.Text = "Doku Update 1.0.1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CmdUpdate As Button
Friend WithEvents ProgressBar As ProgressBar
Friend WithEvents TxtInfo As TextBox
End Class

BIN
Dokumentation_Updater/Update.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

197
Dokumentation_Updater/Update.resx Normal file
View File

@@ -0,0 +1,197 @@
<?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>
<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>
AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABMLAAATCwAAAAAAAAAA
AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAREdkAERHIAAQE2gAAANwAAADbAAAA
3wAAAM8AAAC+AAAAxwAAAMIAAADYAAAAxzEAALNxAAC+pQAAybkAALy3AAC9jAAAvkwAAMsFAADcAAAA
zgAAALUAAADPAAAA2AAAAM0AAADPAAAAzQAAANYAHx/TAD8/7QD///8A////ABER2QAREcgABATaAAAA
3AAAANsAAADfAAAAzwAAAMAAAADOAAAAu1IAALnLAAC63QAAvsMAAMCuAAC1pAAAu7AAAL65AAC23AAA
ueMAAL2PAADVAQAAtwAAAM4AAADYAAAAzQAAAM8AAADNAAAA1gAfH9MAPz/tAP///wD///8AERHZABER
yAAEBNoAAADcAAAA2wAAAN8AAADRAAAAugEAALycAAC46QAAuqMAANIkAADYAAAA4gAAAIgAAAC0AAAA
5wAAAMcAAADKWQAAutAAALrzAACyQAAA1AAAANgAAADNAAAAzwAAAM0AAADWAB8f0wA/P+0A////AP//
/wAREdkAEBDGAAIC4AAAAOwAAADqAAAA6QAAAM0AAACz0gAAvtEAAMoRAADfAAAA0hMAAMt2AADDpAAA
sKkAALyuAAC+mAAAxD0AAN4AAADbAAAAup0AAL3/AADMVgAA2wAAAM8AAADRAAAAzQAAANMAHx/UAD8/
7QD///8A////ABER2QAUFNAACQnFAAAAqQAAAKoAAADJAAAAwrsAALHoAAC4BgAA3QAAAMGFAAC64gAA
v5cAAL5iAADGUQAAvlcAALWIAAC7xAAAwcEAAMgvAAC3AAAArH0AALj/AADINgAA0QAAANIAAADNAAIC
2wAfH9EAPz/tAP///wD///8AEBDZABgY2AASErAAAAB3AAAAewAAAKRiAADH/wAAsB8AAI4AAADWvgAA
r7sAAKUhAADPAAAAygAAAMAAAAC4AAAAuQAAAL0AAAC2eQAAxukAALxJAABzAAAArrcAAL7/AAC2AAAA
oQAAAMoABATxAB4ezQA/P+0A////AP///wAQENkAFRXLABkZ0wAAANIAAADeIAAA0P8AALdvAACoAAAA
z7kAANW7AADEAAMDpgAAANAAAgLPAAoKwAAEBNAAAADMAAAAvAAAAK8AAACqRAAAtf8AAN1HAADCAAAA
uP8AALijAACTAAAAzQADA/gAHh7NAD8/7QD///8A////ABAQ2QAUFMwAISHYABMTzQAAAKRIAACNnwAA
xQAAANIZAACisgAAqAA1NaYAEhLhAAAA6wADA9EAGhq/AAwM4AAAAOMACgrgAAgIyQACApoAAACNVQAA
w5wAANgAAAC8KgAAnZYAAKYFAgLxAAIC8QAgIM8AQkLwAP///wD///8AEBDeABQUzgsbG8pBGxrOMQMD
wwADA6IABATWIQEB4CkDA5IAISF8AF9fnwcPD+odAADlLwAAyjMUFL0WDw/aAQQE3CoJCd4gEBDvAAIC
8ScHB88ZGxtnABISsBMBAeoPCAisAAgIuAIEBPMfAQHnIRoayC86OukY////AP///wAWFtFXBAS06AIC
t9oEA7fwCQrLrgkJ6RkFBcTqDg7D5xQU0AArK8gALCzOGw8PwMILC77TCgq04gMDrvgXF9teGBjQhQkJ
ueEKCsSCDg660xMT5NMaGqMAHR2DVRIS1fgaGtlVGBjJAAoKtuYDA7f+Dw+70hISyoH///8A////AA0N
vcIAAKz/ICDPbBMTwpwHB6//BQXaPgkJu9oREbf/EhLTRRoayQIFBdIIBwez/wQEvtIVFdZNFhbA9Q8Q
q3UGB6uKCgm6/wkJvrkGBqr/CgrirQYGjgAFBXmgBQXM/xsbxFIWFsIABweu/gAAtP8NDdBNJyfTFv//
/wD///8ABgbFmQsLtuQ5OdZsHR3DogAAtvkEBOMoDQ2+yRcXuecODrrOCgq33hQU00QJCbflBATAvAYG
2DsHB9D4CQlzfhERmWEPD8/4EhLJWxAQu+oUFNlbBgZ0AAUFgKMLC9H/GhrJOwsL8wAPD8LHCwu5yg0N
tcsZGeY2////AP///wAGBsOwDAyz8Tc32XENDb3cAACx/wAA6DUAALbxICDA2h4ezJsAAKb/KSnSgBMT
w7wSEsGxCQnAnAAAtv8EBKidHh7QEBgYx9sREbnzCAi5/wcHuT4DA7UqEBCttA4Oxv8HB6uYCwvFKBIS
zdsNDb3YCwu1cRYWyjL///8A////ABISzHMFBbXeNDTIaRUVwYYLC7enBgbNGBwc0Y4fH762FxeqshQU
xo4UFdEnDg23rRYWyKEKCr7BEBCxrxMT2SsPD+cCEBC7tw8PvL8NDb6iHx/YAUJC02wUFLjGDAytrQ0N
tqohIc1nFhbLkAEBttkDA7bADQ3Ia////wD///8AHR3VAAwMxwA6OroAGRnQAAsL7woGBsA5FxfHABgY
ygIQEL9PFhbtABYXrgAYGKkAGxvaABERzgAfH74AGBjSABUV7QAMDL8AGhrCACcnzwAPD80XLS3FPRER
3gAKCsoTCQnRPyMj/QAlJd8ACQm/ABAQxAUFBdgA////AP///wAaGtMACwvGADw8wgAPD48AAACqHwAA
wO8AAMM1AADHAAAAzrYAAMpkBAS6AA4OxQAWFtQADw/IABkZvAATE84ADw/kAA4OwAAJCdoABgbmAgAA
vt4AAMJmAADbAAAA1NwAAJimAgJmABISmQANDdAADg7BAAcH1QD///8A////ABoa0wANDckANzfFAAoK
TgAAAEwAAACzlAAA2uAAAIsAAACXDgAAx98AAL6NAADjAAEByAABAbwAAgK8AAAAvQAAAMoAAQHEAAAA
2CkAAM/iAADJeAAA5QAAALSBAADF/wAAqhgAAGIAAACkAA4O1QAPD8AABwfVAP///wD///8AGhrTABUV
zQAWFqwAAQFwAAAAeAAAAIkHAADCpAAAp5wAALgAAADaEgAAvrMAAMS7AAC6fgAAvR4AAL0OAAC3GQAA
xEMAAL6MAAC+1wAAw3oAALMAAADYGwAAv/8AALVmAADvAAAA/wAAAO4ACwvEAA8PvwAHB9UA////AP//
/wAaGtMAFhbNABISqQAAAHIAAAB9AAAAfwAAALgPAADF6wAAxbAAAMgJAADTAAAAwFoAAL6wAAC6sAAA
ubkAALrVAAC+sAAAxnQAAMsdAADSAAAAxl8AAK3/AADGfgAA0gAAAN0AAADlAAAA3gAMDMcADw+/AAcH
1QD///8A////ABoa0wAVFc0AFBSrAAAAcQAAAHsAAACAAAAAvQAAANAjAACzvgAAvs0AAMVSAADPAAAA
2QAAALYAAADIEQAA4QkAANsAAADGAAAAyCAAAL2WAACy/QAAx4MAANAAAADPAAAA3QAAAOUAAADeAAwM
xwAPD78ABwfVAP///wD///8AGhrTABUVzQAUFKsAAABxAAAAewAAAIEAAAC7AAAA0gAAAMEAAADFagAA
udkAALrhAAC+rQAAx18AANNJAADOXAAAxJEAALa6AAC/zgAAuL8AAMI4AADWAAAAzgAAAM4AAADdAAAA
5QAAAN4ADAzHAA8PvwAHB9UA////AP///wAaGtMAFRXNABQUqwAAAHEAAAB7AAAAgQAAALsAAADQAAAA
wAAAAM0AAADNEAAAyGYAAL2lAAC9sQAAutUAALTbAAC7uAAAwYkAALUqAADLAAAAxwAAANEAAADOAAAA
zgAAAN0AAADlAAAA3gAMDMcADw+/AAcH1QD///8A////ABoa0wAVFc0AFBSrAAAAcQAAAHsAAACBAAAA
uwAAANAAAADAAAAAyAAAANEAAADYAAAAxgAAAMwjAADKTAAAwDwAANkOAADMAAAAsQAAAMoAAADFAAAA
0QAAAM4AAADOAAAA3QAAAOUAAADeAAwMxwAPD78ABwfVAP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A///////////////////////wD///wAP//wfh//8QGP/+IAR//Efif/if
8T/5P/kfxmASQYBgAiGAAAIhgAACIYAAAAGAAAAB+T/5O/if8T/8j+I//EAEf/4QCP//DmH//8AD///g
D////D////////////////////////////8=
</value>
</data>
</root>

59
Dokumentation_Updater/Update.vb Normal file
View File

@@ -0,0 +1,59 @@
Imports System.Data.SqlClient
Public Class Update
Public sAppPath As String = Application.StartupPath
Public Updatequelle As String = "\\192.168.0.91\f\Programme\Doku\"
Private Sub Update_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TxtInfo.Text = "Programmpfad: " & sAppPath & vbCrLf
End Sub
Private Function Test_Pfade(Source As String)
If Not System.IO.Directory.Exists(Source) Then
TxtInfo.Text &= "Updatequelle nicht verfügbar!" & vbCrLf
Else
TxtInfo.Text = ""
TxtInfo.Text &= "Updatequelle gefunden, starte Update..." & vbCrLf
Return True
End If
End Function
Private Sub CmdUpdate_Click(sender As Object, e As EventArgs) Handles CmdUpdate.Click
If CmdUpdate.Text = "Fertig" Then
Process.Start("Dokumentation.exe")
Me.Close()
End If
If Test_Pfade(Updatequelle) = True Then
CmdUpdate.Enabled = False
UpdateStart()
End If
End Sub
Private Function UpdateStart()
For Each p In System.Diagnostics.Process.GetProcessesByName("Dokumentation.exe")
p.Kill()
Next
Try
My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Dokumentation.exe")
Catch ex As Exception
MsgBox("Löschen fehlgeschlagen: " & ex.Message)
TxtInfo.Text &= ex.Message
End Try
Dim files As String() = IO.Directory.GetFiles(Updatequelle)
For Each file As String In files
Try
TxtInfo.Text &= "Kopiere " & System.IO.Path.GetFileName(file) & vbCrLf
My.Computer.FileSystem.CopyFile(file, sAppPath & "\" & System.IO.Path.GetFileName(file), True)
Catch ex As Exception
TxtInfo.Text &= "... Datei übersprungen:" & vbCrLf & ex.Message
End Try
Next
CmdUpdate.Enabled = True
CmdUpdate.Text = "Fertig"
End Function
End Class