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

Update VeragProgAllgemein; Feature: RDP direkt starten;

Browse Source
This commit is contained in:
ms
2022-11-22 10:53:34 +01:00
parent 67f2a10607
commit f717deac50
31 changed files with 900 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Dokumentation/Administration/NetzwerkAdmin.vb
View File

@@ -172,7 +172,7 @@ Public Class NetzwerkAdmin
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
Private Shadows Sub Closing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Main.LstStandortLoad()
Main.allesladen()
End Sub

25
Dokumentation/Classes/cChilkat_Helper.vb Normal file
View File

@@ -0,0 +1,25 @@
Imports Chilkat
Public Class cChilkat_Helper
Public Shared Sub UnlockCilkat()
Dim glob As Chilkat.[Global] = New Chilkat.[Global]()
Dim success As Boolean = glob.UnlockBundle("VERAGS.CB1122022_JJ6kgS2zoR0g")
If success <> True Then
Debug.WriteLine(glob.LastErrorText)
Return
End If
Dim status As Integer = glob.UnlockStatus
If status = 2 Then
Debug.WriteLine("Unlocked using purchased unlock code.")
Else
Debug.WriteLine("Unlocked in trial mode.")
End If
Debug.WriteLine(glob.LastErrorText)
End Sub
End Class

70
Dokumentation/Classes/cExtProgramme.vb
View File

@@ -1,4 +1,6 @@
Public Class cExtProgramme
Imports System.IO
Public Class cExtProgramme
Public Shared Function startlink(URL As String)
@@ -24,16 +26,16 @@
End Function
Public Shared Function startputty(IP As String)
Public Shared Function startputty(IP As String, Optional ByVal Port As Integer = 22)
Dim Benutzer, Passwort As String
Class1.GetUserPasswort(IP, Benutzer, Passwort)
Try
Dim putty As New Process
putty.StartInfo.FileName = "putty.exe"
If Benutzer = "" And Passwort = "" Then
putty.StartInfo.Arguments = IP
putty.StartInfo.Arguments = IP & " -P " & Port
Else
putty.StartInfo.Arguments = IP & " -l " & Benutzer & " -pw " & Passwort
putty.StartInfo.Arguments = IP & " -P " & Port & " -l " & Benutzer & " -pw " & Passwort
End If
putty.Start()
@@ -43,6 +45,15 @@
End Try
End Function
Public Shared Function commandcmd(command As String)
Dim cmd As New Process
cmd.StartInfo.FileName = "cmd.exe"
cmd.StartInfo.Arguments = "/c " & command
cmd.Start()
End Function
Public Shared Function pingip(ip As String, Optional ByVal Argument As String = "")
Dim ping As New Process
'ping.StartInfo.FileName = "cmd.exe"
@@ -67,35 +78,58 @@
End Function
Public Shared Function StartTeamviewer(ID As String, Optional Passwort As String = "BmWr501956")
Dim p As String = ""
If Passwort.Length < 1 Then
Passwort = "BmWr501956"
End If
If File.Exists("C:\Program Files (x86)\TeamViewer\Teamviewer.exe") Then
p = "C:\Program Files (x86)\TeamViewer"
Else
p = "C:\Program Files\TeamViewer"
End If
Dim teamviewer As New Process
With teamviewer.StartInfo
.FileName = "Teamviewer.exe"
.WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
.WorkingDirectory = p
.Arguments = "-i " & ID & " -P " & Passwort
End With
teamviewer.Start()
Try
teamviewer.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Shared Function RDPConnect(host As String, Optional ByVal Username As String = "", Optional ByVal Password As String = "")
Public Shared Function RDPConnect(host As String, Optional ByVal Username As String = "", Optional ByVal Password As String = "", Optional ByVal Fenster As Boolean = False)
Dim mstsc As New Process
Dim AnmeldeDatenVorhanden As Boolean = False
Dim rdpASadmin As String = ""
Dim FensterString As String = ""
If Fenster = True Then
FensterString = " /w:1280 /h:1024"
Else
FensterString = " /f"
End If
If host = "rdpintern.verag.ag" Then
commandcmd("cmdkey /delete:" & host)
commandcmd("cmdkey /delete:TERMSRV/" & host)
ElseIf host.StartsWith("TS") Then
rdpASadmin = " /admin"
End If
If Username.Length > 0 And Password.Length > 0 Then
Dim Anmeldung As New Process : AnmeldeDatenVorhanden = True
With Anmeldung
.StartInfo.FileName = Environment.ExpandEnvironmentVariables("%SystemRoot%\system32\cmdkey.exe")
.StartInfo.Arguments = "/add:TERMSRV/" & host & " /user:" & Username & " /pass:" & Password
.Start()
End With
AnmeldeDatenVorhanden = True
commandcmd("cmdkey /generic:" & host & " /user:" & Username & " /pass:" & Password)
End If
Threading.Thread.Sleep(1000)
mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.UseShellExecute = False
mstsc.StartInfo.Arguments = " /v: " & host
mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
mstsc.Start()
@@ -103,11 +137,7 @@
Threading.Thread.Sleep(3000)
Dim Abmeldung As New Process
With Abmeldung
.StartInfo.FileName = Environment.ExpandEnvironmentVariables("%SystemRoot%\system32\cmdkey.exe")
.StartInfo.Arguments = "/delete:TERMSRV/" & host
End With
commandcmd("cmdkey /delete:" & host)
End If

5
Dokumentation/Classes/cHost.vb
View File

@@ -24,6 +24,7 @@ Public Class cHost
Property Firewall As Boolean = False
Property TeamviewerID As String = ""
Property TeamviewerKennwort As String = ""
Property SSHPort As Decimal = 22
@@ -54,6 +55,7 @@ Public Class cHost
list.Add(New SQLVariable("Firewall", Firewall))
list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
list.Add(New SQLVariable("SSHPort", SSHPort))
Return list
End Function
@@ -83,6 +85,7 @@ Public Class cHost
list.Add(New SQLVariable("Firewall", Firewall))
list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
list.Add(New SQLVariable("SSHPort", SSHPort))
Return list
End Function
@@ -111,6 +114,7 @@ Public Class cHost
Me.Firewall = False
Me.TeamviewerID = ""
Me.TeamviewerKennwort = ""
Me.SSHPort = 22
End Function
Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
@@ -297,6 +301,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
newhost.Standort = Me.Standort
newhost.DHCP = Me.DHCP
newhost.Firewall = Me.Firewall
newhost.SSHPort = Me.SSHPort
Dim update, where As String
getUpdateCmd(update, where, "", "", newhost.Linked, newhost)

123
Dokumentation/Classes/cPascom.vb Normal file
View File

@@ -0,0 +1,123 @@
Imports System.Reflection
Imports Chilkat
Public Class cPascom
Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
Property Arbeitsplatz As String = ""
Property Username As String = ""
Public Function Anmelden() As Boolean
If Arbeitsplatz.Length > 0 And Username.Length > 0 Then
Try
'Benutzername: moby
'Passwort: XgDsFmMSutaMLA1
'BASIC Auth String: bW9ieTpYZ0RzRm1NU3V0YU1MQTE =
cChilkat_Helper.UnlockCilkat()
Dim API_STRING = "pbx3.flashnet.at"
Dim rest As New Chilkat.Rest
Dim success As Boolean
Dim bTls As Boolean = True
Dim port As Integer = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
If (success <> True) Then
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
Debug.WriteLine(rest.LastErrorText)
Return False
End If
rest.AddHeader("Content-Type", "application/json")
rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
Dim json As New Chilkat.JsonObject
Dim successJsonLoad As Boolean = json.Load("
{""action"":""relocate"",""username"":""" & Username & """}}")
If (successJsonLoad <> True) Then
MsgBox(json.LastErrorText)
Return False
End If
Dim sbRequestBody As New Chilkat.StringBuilder
json.EmitSb(sbRequestBody)
' MsgBox(sbRequestBody.ToString)
Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST", "/verag/services/location/" & Arbeitsplatz, sbRequestBody, sbResponseBody)
If (success <> True) Then
Debug.WriteLine(rest.LastErrorText)
Return False
End If
Dim respStatusCode As Integer = rest.ResponseStatusCode
If (respStatusCode <> 202) Then
' MsgBox(sbResponseBody.GetAsString())
Return False
End If
Dim jsonResp = New Chilkat.JsonObject()
jsonResp.LoadSb(sbResponseBody)
Dim gatewayId = jsonResp.StringOf("gatewayId")
Dim Resp_error = jsonResp.StringOf("error")
Dim Resp_errorCode = jsonResp.StringOf("errorCode")
Return True
Catch ex As Exception
Return False
End Try
Return True
Else
Return False
End If
End Function
'Public Function GetTelArbeitsplatz4Host() As Boolean
' Try
' Dim lines = IO.File.ReadAllLines("\\dc01.verag.ost.dmn\NETLOGON\Telefonarbeitsplaetze.ini")
' Dim colCount = lines.First.Split(";"c).Length
' For Each line In lines
' Dim objFields = From field In line.Split(";"c)
' If String.Compare(cRes.LocalUser.Hostname, objFields(0).ToString, True) = 0 Then
' Arbeitsplatz = objFields(1).ToString
' '_ConString = objFields(2).ToString
' Return True
' Exit Function
' End If
' ' End Select
' Next
' Return False
' Catch ex As Exception
' ' MsgBox("Fehler beim Lesen TSAnmeldung.ini: " & vbCrLf & ex.Message)
' End Try
'End Function
End Class

62
Dokumentation/Dokumentation.vbproj
View File

@@ -90,15 +90,16 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="ChilkatDotNet47, Version=9.5.0.84, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ChilkatDotNet47.dll</HintPath>
</Reference>
<Reference Include="ClosedXML, Version=0.94.2.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\ClosedXML.0.94.2\lib\net46\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="DhcpServerApi, Version=0.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\DhcpServerApi.0.3.0.0\lib\net40\DhcpServerApi.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.BarcodeGenerator, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.BarcodeGenerator.dll</HintPath>
</Reference>
@@ -135,13 +136,40 @@
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59, processorArchitecture=MSIL">
<HintPath>..\packages\Ghostscript.NET.1.2.1\lib\net40\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Export.Excel.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Core.Document, Version=2.1.5.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Design.Win.resources">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\zh-CN\GrapeCity.ActiveReports.Design.Win.resources.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Designer.resources">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\zh-CN\GrapeCity.ActiveReports.Designer.resources.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Document, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Excel, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Pdf, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Common, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Win, Version=15.2.8.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=5.5.13.1, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\packages\iTextSharp.5.5.13.1\lib\itextsharp.dll</HintPath>
</Reference>
@@ -223,11 +251,13 @@
<Compile Include="Administration\Standorthinzu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\cChilkat_Helper.vb" />
<Compile Include="Classes\cDomUser.vb" />
<Compile Include="Classes\cEintrag.vb" />
<Compile Include="Classes\cINI.vb" />
<Compile Include="Classes\cNetzwerk.vb" />
<Compile Include="Classes\cTSUser.vb" />
<Compile Include="Classes\cPascom.vb" />
<Compile Include="Drucken\frmColumnsPrint.Designer.vb">
<DependentUpon>frmColumnsPrint.vb</DependentUpon>
</Compile>
@@ -258,6 +288,12 @@
<Compile Include="frmPopUp.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="uscntr_ConnectTel.Designer.vb">
<DependentUpon>uscntr_ConnectTel.vb</DependentUpon>
</Compile>
<Compile Include="uscntr_ConnectTel.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="uscntr_DomUserList.Designer.vb">
<DependentUpon>uscntr_DomUserList.vb</DependentUpon>
</Compile>
@@ -469,7 +505,6 @@
<EmbeddedResource Include="Drucken\frmColumnsPrint.resx">
<DependentUpon>frmColumnsPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Drucken\licenses.licx" />
<EmbeddedResource Include="Drucken\rptLeer.resx">
<DependentUpon>rptLeer.vb</DependentUpon>
</EmbeddedResource>
@@ -485,7 +520,9 @@
<EmbeddedResource Include="frmPopUp.resx">
<DependentUpon>frmPopUp.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="licenses.licx" />
<EmbeddedResource Include="uscntr_ConnectTel.resx">
<DependentUpon>uscntr_ConnectTel.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_DomUser.resx">
<DependentUpon>uscntr_DomUser.vb</DependentUpon>
</EmbeddedResource>
@@ -537,7 +574,6 @@
<EmbeddedResource Include="Main.resx">
<DependentUpon>Main.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>

4
Dokumentation/Drucken/licenses.licx
View File

@@ -1,4 +0,0 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

328
Dokumentation/Main.Designer.vb generated
View File

@@ -27,10 +27,18 @@ Partial Class Main
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.chkPano = New System.Windows.Forms.CheckBox()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TelefonManuellZuweisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnTSSitzungen = New System.Windows.Forms.Button()
Me.LblDEBUGMODE = New System.Windows.Forms.Label()
Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
Me.LblVersion = New System.Windows.Forms.Label()
Me.LblInfo = New System.Windows.Forms.Label()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
Me.CmdSucheReset = New System.Windows.Forms.Button()
Me.TxtSuche = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
@@ -42,7 +50,9 @@ Partial Class Main
Me.RadGlobal = New System.Windows.Forms.RadioButton()
Me.RadNurNetzwerk = New System.Windows.Forms.RadioButton()
Me.RadStandort = New System.Windows.Forms.RadioButton()
Me.ChkTools = New System.Windows.Forms.CheckBox()
Me.LblUhrzeit = New System.Windows.Forms.Label()
Me.ChKZugangsdaten = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.LblNetzwerkinfo = New System.Windows.Forms.Label()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
@@ -58,13 +68,7 @@ Partial Class Main
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.chkPano = New System.Windows.Forms.CheckBox()
Me.btnTSSitzungen = New System.Windows.Forms.Button()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
Me.lblCount = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
Me.ChkDHCPClients = New System.Windows.Forms.CheckBox()
@@ -76,9 +80,7 @@ Partial Class Main
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()
@@ -101,6 +103,7 @@ Partial Class Main
Me.PuttyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PingtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpoolerNeuStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PanTools = New System.Windows.Forms.Panel()
Me.CmdPintT = New System.Windows.Forms.Button()
Me.btnTest3 = New System.Windows.Forms.Button()
@@ -113,16 +116,17 @@ Partial Class Main
Me.panTSSitzungen = New System.Windows.Forms.Panel()
Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.SpoolerNeuStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RDPFensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.PanType.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanSuche.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanNetzwerk.SuspendLayout()
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DGVMainContext.SuspendLayout()
@@ -138,59 +142,141 @@ Partial Class Main
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(1697, 130)
Me.Panel2.Size = New System.Drawing.Size(1494, 130)
Me.Panel2.TabIndex = 1
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.Label20)
Me.Panel4.Controls.Add(Me.chkPano)
Me.Panel4.Controls.Add(Me.picAVISOMessenger)
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.btnTSSitzungen)
Me.Panel4.Controls.Add(Me.LblDEBUGMODE)
Me.Panel4.Controls.Add(Me.chkTSSitzungen)
Me.Panel4.Controls.Add(Me.LblVersion)
Me.Panel4.Controls.Add(Me.LblInfo)
Me.Panel4.Controls.Add(Me.btnBenutzerverwaltung)
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.ChkTools)
Me.Panel4.Controls.Add(Me.LblUhrzeit)
Me.Panel4.Controls.Add(Me.ChKZugangsdaten)
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(1425, 106)
Me.Panel4.Size = New System.Drawing.Size(1222, 106)
Me.Panel4.TabIndex = 14
'
'Label20
'
Me.Label20.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(503, 75)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 42
Me.Label20.Text = "99"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label20.Visible = False
'
'chkPano
'
Me.chkPano.AutoSize = True
Me.chkPano.Location = New System.Drawing.Point(327, 71)
Me.chkPano.Name = "chkPano"
Me.chkPano.Size = New System.Drawing.Size(51, 17)
Me.chkPano.TabIndex = 44
Me.chkPano.Text = "Pano"
Me.chkPano.UseVisualStyleBackColor = True
Me.chkPano.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(466, 39)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 41
Me.picAVISOMessenger.TabStop = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.excel20
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(440, 52)
Me.Button1.Location = New System.Drawing.Point(161, 5)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(151, 28)
Me.Button1.TabIndex = 43
Me.Button1.Text = "Telefonliste"
Me.Button1.UseVisualStyleBackColor = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TelefonManuellZuweisenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(210, 26)
'
'TelefonManuellZuweisenToolStripMenuItem
'
Me.TelefonManuellZuweisenToolStripMenuItem.Name = "TelefonManuellZuweisenToolStripMenuItem"
Me.TelefonManuellZuweisenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.TelefonManuellZuweisenToolStripMenuItem.Text = "Telefon manuell zuweisen"
'
'btnTSSitzungen
'
Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTSSitzungen.Location = New System.Drawing.Point(161, 73)
Me.btnTSSitzungen.Name = "btnTSSitzungen"
Me.btnTSSitzungen.Size = New System.Drawing.Size(151, 28)
Me.btnTSSitzungen.TabIndex = 43
Me.btnTSSitzungen.Text = "TS Sitzungen"
Me.btnTSSitzungen.UseVisualStyleBackColor = False
'
'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.Size = New System.Drawing.Size(113, 16)
Me.LblDEBUGMODE.TabIndex = 13
Me.LblDEBUGMODE.Text = "LblDebugmode"
Me.LblDEBUGMODE.Visible = False
'
'chkTSSitzungen
'
Me.chkTSSitzungen.AutoSize = True
Me.chkTSSitzungen.Location = New System.Drawing.Point(327, 5)
Me.chkTSSitzungen.Name = "chkTSSitzungen"
Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
Me.chkTSSitzungen.TabIndex = 19
Me.chkTSSitzungen.Text = "Terminalsitzungen anzeigen"
Me.chkTSSitzungen.UseVisualStyleBackColor = True
'
'LblVersion
'
Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblVersion.AutoSize = True
Me.LblVersion.Location = New System.Drawing.Point(1078, 81)
Me.LblVersion.Location = New System.Drawing.Point(3, 5)
Me.LblVersion.Name = "LblVersion"
Me.LblVersion.Size = New System.Drawing.Size(42, 13)
Me.LblVersion.TabIndex = 17
@@ -205,13 +291,27 @@ Partial Class Main
Me.LblInfo.TabIndex = 16
Me.LblInfo.Text = "LblInfo"
'
'btnBenutzerverwaltung
'
Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(161, 39)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False
'
'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(929, 71)
Me.CmdSucheReset.Location = New System.Drawing.Point(726, 71)
Me.CmdSucheReset.Name = "CmdSucheReset"
Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
Me.CmdSucheReset.TabIndex = 15
@@ -222,7 +322,7 @@ Partial Class Main
'
Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.TxtSuche.Location = New System.Drawing.Point(743, 23)
Me.TxtSuche.Location = New System.Drawing.Point(540, 23)
Me.TxtSuche.Name = "TxtSuche"
Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
Me.TxtSuche.TabIndex = 3
@@ -232,7 +332,7 @@ Partial Class Main
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(696, 26)
Me.Label1.Location = New System.Drawing.Point(493, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 4
@@ -243,7 +343,7 @@ Partial Class Main
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(887, 5)
Me.PanType.Location = New System.Drawing.Point(684, 5)
Me.PanType.Name = "PanType"
Me.PanType.Size = New System.Drawing.Size(183, 41)
Me.PanType.TabIndex = 12
@@ -269,11 +369,11 @@ Partial Class Main
'
'PictureBox1
'
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(1081, 2)
Me.PictureBox1.Location = New System.Drawing.Point(881, 4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
Me.PictureBox1.Size = New System.Drawing.Size(332, 76)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
@@ -283,7 +383,7 @@ Partial Class Main
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(743, 49)
Me.PanSuche.Location = New System.Drawing.Point(540, 49)
Me.PanSuche.Name = "PanSuche"
Me.PanSuche.Size = New System.Drawing.Size(314, 31)
Me.PanSuche.TabIndex = 11
@@ -320,16 +420,36 @@ Partial Class Main
Me.RadStandort.Text = "Ges. Standort"
Me.RadStandort.UseVisualStyleBackColor = True
'
'ChkTools
'
Me.ChkTools.AutoSize = True
Me.ChkTools.Location = New System.Drawing.Point(327, 51)
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
'
'LblUhrzeit
'
Me.LblUhrzeit.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblUhrzeit.Location = New System.Drawing.Point(1178, 81)
Me.LblUhrzeit.Location = New System.Drawing.Point(975, 81)
Me.LblUhrzeit.Name = "LblUhrzeit"
Me.LblUhrzeit.Size = New System.Drawing.Size(235, 13)
Me.LblUhrzeit.TabIndex = 7
Me.LblUhrzeit.Text = "LblUhrzeit"
Me.LblUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(327, 28)
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
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -355,7 +475,7 @@ Partial Class Main
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1697, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1494, 24)
Me.MenuStrip1.TabIndex = 2
Me.MenuStrip1.Text = "MenuStrip1"
'
@@ -431,29 +551,9 @@ Partial Class Main
Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
Me.ToolStripMenuItemINFO.Text = "?"
'
'btnBenutzerverwaltung
'
Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 685)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.chkPano)
Me.Panel3.Controls.Add(Me.btnTSSitzungen)
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.picAVISOMessenger)
Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung)
Me.Panel3.Controls.Add(Me.chkTSSitzungen)
Me.Panel3.Controls.Add(Me.lblCount)
Me.Panel3.Controls.Add(Me.btnNeu)
Me.Panel3.Controls.Add(Me.ChkDHCPClients)
@@ -463,78 +563,15 @@ Partial Class Main
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, 863)
Me.Panel3.Size = New System.Drawing.Size(200, 765)
Me.Panel3.TabIndex = 2
'
'chkPano
'
Me.chkPano.AutoSize = True
Me.chkPano.Location = New System.Drawing.Point(25, 826)
Me.chkPano.Name = "chkPano"
Me.chkPano.Size = New System.Drawing.Size(51, 17)
Me.chkPano.TabIndex = 44
Me.chkPano.Text = "Pano"
Me.chkPano.UseVisualStyleBackColor = True
Me.chkPano.Visible = False
'
'btnTSSitzungen
'
Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTSSitzungen.Location = New System.Drawing.Point(25, 719)
Me.btnTSSitzungen.Name = "btnTSSitzungen"
Me.btnTSSitzungen.Size = New System.Drawing.Size(151, 28)
Me.btnTSSitzungen.TabIndex = 43
Me.btnTSSitzungen.Text = "TS Sitzungen"
Me.btnTSSitzungen.UseVisualStyleBackColor = False
'
'Label20
'
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(148, 804)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 42
Me.Label20.Text = "99"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label20.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(135, 805)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 41
Me.picAVISOMessenger.TabStop = False
'
'chkTSSitzungen
'
Me.chkTSSitzungen.AutoSize = True
Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 757)
Me.chkTSSitzungen.Name = "chkTSSitzungen"
Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
Me.chkTSSitzungen.TabIndex = 19
Me.chkTSSitzungen.Text = "Terminalsitzungen anzeigen"
Me.chkTSSitzungen.UseVisualStyleBackColor = True
'
'lblCount
'
Me.lblCount.AutoSize = True
@@ -561,14 +598,13 @@ Partial Class Main
'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, 662)
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
Me.ChkDHCPClients.Visible = False
'
'ChkFreieHosts
'
@@ -666,16 +702,6 @@ Partial Class Main
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, 803)
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
@@ -690,16 +716,6 @@ Partial Class Main
Me.CmdLink.Text = "Link öffnen"
Me.CmdLink.UseVisualStyleBackColor = False
'
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 780)
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
@@ -721,7 +737,7 @@ Partial Class Main
'CMdTest2
'
Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
Me.CMdTest2.Location = New System.Drawing.Point(988, 0)
Me.CMdTest2.Location = New System.Drawing.Point(785, 0)
Me.CMdTest2.Name = "CMdTest2"
Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
Me.CMdTest2.TabIndex = 3
@@ -731,7 +747,7 @@ Partial Class Main
'CmdTest
'
Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
Me.CmdTest.Location = New System.Drawing.Point(913, 0)
Me.CmdTest.Location = New System.Drawing.Point(710, 0)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 100)
Me.CmdTest.TabIndex = 2
@@ -774,14 +790,14 @@ Partial Class Main
Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
Me.DgVMain.RowHeadersVisible = False
Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DgVMain.Size = New System.Drawing.Size(1063, 763)
Me.DgVMain.Size = New System.Drawing.Size(860, 665)
Me.DgVMain.TabIndex = 3
'
'DGVMainContext
'
Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
Me.DGVMainContext.Name = "ContextMenuStrip2"
Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
Me.DGVMainContext.Size = New System.Drawing.Size(230, 280)
'
'DgvMainContextMenuItemHost
'
@@ -823,7 +839,7 @@ Partial Class Main
'
Me.RDPToolStripMenuItem.Name = "RDPToolStripMenuItem"
Me.RDPToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.RDPToolStripMenuItem.Text = "RDP"
Me.RDPToolStripMenuItem.Text = "RDP Vollbild"
'
'ToolStripSeparator3
'
@@ -857,21 +873,27 @@ Partial Class Main
'PuttyToolStripMenuItem
'
Me.PuttyToolStripMenuItem.Name = "PuttyToolStripMenuItem"
Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.PuttyToolStripMenuItem.Text = "Putty"
'
'PingToolStripMenuItem
'
Me.PingToolStripMenuItem.Name = "PingToolStripMenuItem"
Me.PingToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PingToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.PingToolStripMenuItem.Text = "Ping"
'
'PingtToolStripMenuItem
'
Me.PingtToolStripMenuItem.Name = "PingtToolStripMenuItem"
Me.PingtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PingtToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.PingtToolStripMenuItem.Text = "Ping -t"
'
'SpoolerNeuStartenToolStripMenuItem
'
Me.SpoolerNeuStartenToolStripMenuItem.Name = "SpoolerNeuStartenToolStripMenuItem"
Me.SpoolerNeuStartenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.SpoolerNeuStartenToolStripMenuItem.Text = "Spooler neu starten"
'
'PanTools
'
Me.PanTools.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -883,9 +905,9 @@ Partial Class Main
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, 893)
Me.PanTools.Location = New System.Drawing.Point(200, 795)
Me.PanTools.Name = "PanTools"
Me.PanTools.Size = New System.Drawing.Size(1063, 100)
Me.PanTools.Size = New System.Drawing.Size(860, 100)
Me.PanTools.TabIndex = 4
Me.PanTools.Visible = False
'
@@ -904,7 +926,7 @@ Partial Class Main
'btnTest3
'
Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
Me.btnTest3.Location = New System.Drawing.Point(838, 0)
Me.btnTest3.Location = New System.Drawing.Point(635, 0)
Me.btnTest3.Name = "btnTest3"
Me.btnTest3.Size = New System.Drawing.Size(75, 100)
Me.btnTest3.TabIndex = 13
@@ -955,9 +977,9 @@ Partial Class Main
'panTSSitzungen
'
Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
Me.panTSSitzungen.Location = New System.Drawing.Point(1263, 130)
Me.panTSSitzungen.Location = New System.Drawing.Point(1060, 130)
Me.panTSSitzungen.Name = "panTSSitzungen"
Me.panTSSitzungen.Size = New System.Drawing.Size(434, 863)
Me.panTSSitzungen.Size = New System.Drawing.Size(434, 765)
Me.panTSSitzungen.TabIndex = 5
Me.panTSSitzungen.Visible = False
'
@@ -969,17 +991,17 @@ Partial Class Main
'Timer1
'
'
'SpoolerNeuStartenToolStripMenuItem
'RDPFensterToolStripMenuItem
'
Me.SpoolerNeuStartenToolStripMenuItem.Name = "SpoolerNeuStartenToolStripMenuItem"
Me.SpoolerNeuStartenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.SpoolerNeuStartenToolStripMenuItem.Text = "Spooler neu starten"
Me.RDPFensterToolStripMenuItem.Name = "RDPFensterToolStripMenuItem"
Me.RDPFensterToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.RDPFensterToolStripMenuItem.Text = "RDP Fenster"
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1697, 993)
Me.ClientSize = New System.Drawing.Size(1494, 895)
Me.Controls.Add(Me.DgVMain)
Me.Controls.Add(Me.PanTools)
Me.Controls.Add(Me.panTSSitzungen)
@@ -995,6 +1017,8 @@ Partial Class Main
Me.Panel2.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.PanType.ResumeLayout(False)
Me.PanType.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1006,7 +1030,6 @@ Partial Class Main
Me.MenuStrip1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanNetzwerk.ResumeLayout(False)
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.DGVMainContext.ResumeLayout(False)
@@ -1104,4 +1127,7 @@ Partial Class Main
Friend WithEvents chkPano As CheckBox
Friend WithEvents RDPToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SpoolerNeuStartenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents TelefonManuellZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RDPFensterToolStripMenuItem As ToolStripMenuItem
End Class

6
Dokumentation/Main.resx
View File

@@ -117,6 +117,9 @@
<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>1156, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -277,6 +280,9 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ChkDHCPClients.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DGVMainContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>289, 17</value>
</metadata>

62
Dokumentation/Main.vb
View File

@@ -304,7 +304,7 @@ Public Class Main
End Function
Public Function dbload()
con.ConnectionString = Class1.DBConString
If con.State <> 1 Then con.ConnectionString = Class1.DBConString
conadmin.ConnectionString = Class1.DBConString
cmd.Connection = con
cmdadmin.Connection = conadmin
@@ -419,15 +419,16 @@ Public Class Main
DHCPAbfragen = Class1.ReadNullAs0(reader, "DHCPAbfragen")
Loop
reader.Close()
If DHCPAbfragen = True Then
If ChkDHCPClients.Checked = True Then
Dim NWAdresse As String
Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
Else
End If
End If
'Funktioniert wieder mal nicht....
'If DHCPAbfragen = True Then
' If ChkDHCPClients.Checked = True Then
' Dim NWAdresse As String
' Class1.Name2Netzwerk(Standort, Netzwerk, NWAdresse)
' Dim DHCPServer As String = Class1.GetDHCPServer(NWAdresse)
' GetDHCPClients(NWAdresse, DHCPServer, ChkFreieHosts.Checked, ds)
' Else
' End If
'End If
' DHCPRefresh = False
End If
@@ -551,7 +552,8 @@ Public Class Main
Else
DgVMain.Rows(0).Selected = True
End If
Catch
Catch ex As Exception
'MsgBox("With DGV2: " & ex.Message)
End Try
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
@@ -645,7 +647,7 @@ Public Class Main
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
DHCP.DHCP1("192.168.0.98")
MsgBox("Hallo Andreas")
End Sub
Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
DeleteGastWLANUser("ABABAB")
@@ -1038,7 +1040,11 @@ exit"
End Sub
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
Dim host As New cHost
host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
cExtProgramme.startputty(host.IPAdresse, host.SSHPort)
'cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -1676,7 +1682,17 @@ exit"
Dim Host2Connect As New cHost
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.FQDN.Length > 1 Then
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort)
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort, False)
Else
MsgBox("Hostname wurde nicht gefunden.")
End If
End Sub
Private Sub RDPFensterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RDPFensterToolStripMenuItem.Click
Dim Host2Connect As New cHost
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.FQDN.Length > 1 Then
cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort, True)
Else
MsgBox("Hostname wurde nicht gefunden.")
End If
@@ -1702,6 +1718,24 @@ exit"
End If
End Sub
Private Sub TelefonManuellZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TelefonManuellZuweisenToolStripMenuItem.Click
Dim frm As New frmLeer
frm.Text = "Telefone anmelden"
Dim usrcntrl As New uscntr_ConnectTel
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
frm.Show()
AddHandler frm.FormClosing, Function()
End Function
End Sub
Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked

4
Dokumentation/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -289,7 +289,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.72 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.79 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

2
Dokumentation/My Project/Resources.resx
View File

@@ -155,7 +155,7 @@
<value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.72</value>
<value>0.0.1.79</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>

4
Dokumentation/My Project/licenses.licx
View File

@@ -1,4 +0,0 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

2
Dokumentation/PrintDGV.vb
View File

@@ -1,5 +1,5 @@
Imports System.Collections.Generic
Imports Microsoft.VisualBasic.PowerPacks.Printing
'Imports Microsoft.VisualBasic.PowerPacks.Printing
Imports System.Data.Common
Public Class PrintDGV

44
Dokumentation/frmHostBearbeiten.Designer.vb generated
View File

@@ -72,6 +72,8 @@ Partial Class frmHostBearbeiten
Me.CmdDelete = New System.Windows.Forms.Button()
Me.TxtBenutzername = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.txtSSHPort = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.cmdRDP = New System.Windows.Forms.Button()
Me.cmdPutty = New System.Windows.Forms.Button()
Me.cmdTVConnect = New System.Windows.Forms.Button()
@@ -87,6 +89,7 @@ Partial Class frmHostBearbeiten
Me.PanFirewall = New System.Windows.Forms.Panel()
Me.PanSlaves = New System.Windows.Forms.Panel()
Me.PanNavTop = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.ContextMenuStrip2.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -528,6 +531,9 @@ Partial Class frmHostBearbeiten
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.txtSSHPort)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.cmdRDP)
Me.Panel1.Controls.Add(Me.cmdPutty)
Me.Panel1.Controls.Add(Me.cmdTVConnect)
@@ -582,13 +588,29 @@ Partial Class frmHostBearbeiten
Me.Panel1.Size = New System.Drawing.Size(643, 460)
Me.Panel1.TabIndex = 137
'
'txtSSHPort
'
Me.txtSSHPort.Location = New System.Drawing.Point(123, 352)
Me.txtSSHPort.Name = "txtSSHPort"
Me.txtSSHPort.Size = New System.Drawing.Size(75, 20)
Me.txtSSHPort.TabIndex = 149
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(123, 339)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(51, 13)
Me.Label14.TabIndex = 148
Me.Label14.Text = "SSH Port"
'
'cmdRDP
'
Me.cmdRDP.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.cmdRDP.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdRDP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdRDP.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
Me.cmdRDP.Location = New System.Drawing.Point(269, 340)
Me.cmdRDP.Location = New System.Drawing.Point(231, 340)
Me.cmdRDP.Name = "cmdRDP"
Me.cmdRDP.Size = New System.Drawing.Size(32, 32)
Me.cmdRDP.TabIndex = 147
@@ -600,7 +622,7 @@ Partial Class frmHostBearbeiten
Me.cmdPutty.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdPutty.Image = Global.Dokumentation.My.Resources.Resources.ico_putty_exe0001
Me.cmdPutty.Location = New System.Drawing.Point(231, 340)
Me.cmdPutty.Location = New System.Drawing.Point(85, 339)
Me.cmdPutty.Name = "cmdPutty"
Me.cmdPutty.Size = New System.Drawing.Size(32, 32)
Me.cmdPutty.TabIndex = 146
@@ -740,6 +762,21 @@ Partial Class frmHostBearbeiten
Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
Me.PanNavTop.TabIndex = 141
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Red
Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
Me.Button1.Location = New System.Drawing.Point(271, 340)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(32, 32)
Me.Button1.TabIndex = 150
Me.Button1.Text = "[ ]"
Me.Button1.UseVisualStyleBackColor = False
'
'frmHostBearbeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -832,4 +869,7 @@ Partial Class frmHostBearbeiten
Friend WithEvents cmdTVConnect As Button
Friend WithEvents cmdPutty As Button
Friend WithEvents cmdRDP As Button
Friend WithEvents Label14 As Label
Friend WithEvents txtSSHPort As TextBox
Friend WithEvents Button1 As Button
End Class

10
Dokumentation/frmHostBearbeiten.vb
View File

@@ -36,6 +36,7 @@
txtTeamviewer.Text = host.TeamviewerID
txtTVKennwort.Text = host.TeamviewerKennwort
txtSSHPort.Text = host.SSHPort
Me.Text = host.FQDN
@@ -83,6 +84,7 @@
.TeamviewerID = txtTeamviewer.Text
.TeamviewerKennwort = txtTVKennwort.Text
.SSHPort = txtSSHPort.Text
End With
End Function
@@ -379,10 +381,14 @@
End Sub
Private Sub cmdPutty_Click(sender As Object, e As EventArgs) Handles cmdPutty.Click
cExtProgramme.startputty(Class1.MainHost(TxtIP.Text))
cExtProgramme.startputty(Class1.MainHost(TxtIP.Text), txtSSHPort.Text)
End Sub
Private Sub cmdRDP_Click(sender As Object, e As EventArgs) Handles cmdRDP.Click
cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort)
cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort, False)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort, True)
End Sub
End Class

4
Dokumentation/frmLeer.Designer.vb generated
View File

@@ -34,7 +34,7 @@ Partial Class frmLeer
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanMain.Location = New System.Drawing.Point(0, 0)
Me.PanMain.Name = "PanMain"
Me.PanMain.Size = New System.Drawing.Size(246, 450)
Me.PanMain.Size = New System.Drawing.Size(357, 200)
Me.PanMain.TabIndex = 0
'
'frmLeer
@@ -43,7 +43,7 @@ Partial Class frmLeer
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(246, 450)
Me.ClientSize = New System.Drawing.Size(357, 200)
Me.Controls.Add(Me.PanMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True

4
Dokumentation/licenses.licx
View File

@@ -1,4 +0,0 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

101
Dokumentation/uscntr_ConnectTel.Designer.vb generated Normal file
View File

@@ -0,0 +1,101 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uscntr_ConnectTel
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(124, 23)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 0
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(124, 63)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
Me.TextBox2.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(29, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(78, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Benutzername:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(43, 66)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Arbeitsplatz:"
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Location = New System.Drawing.Point(183, 105)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(113, 23)
Me.FlatButton1.TabIndex = 4
Me.FlatButton1.Text = "Telefon anmelden"
Me.FlatButton1.UseVisualStyleBackColor = False
'
'uscntr_ConnectTel
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.FlatButton1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Name = "uscntr_ConnectTel"
Me.Size = New System.Drawing.Size(299, 131)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
End Class

120
Dokumentation/uscntr_ConnectTel.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>

16
Dokumentation/uscntr_ConnectTel.vb Normal file
View File

@@ -0,0 +1,16 @@
Public Class uscntr_ConnectTel
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If TextBox1.TextLength > 0 And TextBox2.TextLength > 0 Then
Dim pascom As New cPascom
pascom.Username = TextBox1.Text
pascom.Arbeitsplatz = TextBox2.Text
pascom.Anmelden()
Else
End If
End Sub
End Class

38
Dokumentation/uscntr_DomUser.Designer.vb generated
View File

@@ -51,6 +51,8 @@ Partial Class uscntr_DomUser
Me.chkAutoLogoff = New System.Windows.Forms.CheckBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.cmd3Uhr = New System.Windows.Forms.Button()
Me.btnRDP = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'cmdSave
@@ -233,7 +235,7 @@ Partial Class uscntr_DomUser
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(144, 156)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(13, 16)
Me.Label9.Size = New System.Drawing.Size(12, 16)
Me.Label9.TabIndex = 156
Me.Label9.Text = "\"
'
@@ -315,7 +317,7 @@ Partial Class uscntr_DomUser
'
Me.chkAutoLogoff.AutoSize = True
Me.chkAutoLogoff.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 227)
Me.chkAutoLogoff.Location = New System.Drawing.Point(8, 290)
Me.chkAutoLogoff.Name = "chkAutoLogoff"
Me.chkAutoLogoff.Size = New System.Drawing.Size(78, 17)
Me.chkAutoLogoff.TabIndex = 164
@@ -327,7 +329,7 @@ Partial Class uscntr_DomUser
'
Me.DateTimePicker1.Enabled = False
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time
Me.DateTimePicker1.Location = New System.Drawing.Point(103, 224)
Me.DateTimePicker1.Location = New System.Drawing.Point(103, 287)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(82, 20)
Me.DateTimePicker1.TabIndex = 165
@@ -339,19 +341,45 @@ Partial Class uscntr_DomUser
Me.cmd3Uhr.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmd3Uhr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmd3Uhr.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmd3Uhr.Location = New System.Drawing.Point(191, 224)
Me.cmd3Uhr.Location = New System.Drawing.Point(191, 287)
Me.cmd3Uhr.Name = "cmd3Uhr"
Me.cmd3Uhr.Size = New System.Drawing.Size(66, 20)
Me.cmd3Uhr.TabIndex = 166
Me.cmd3Uhr.Text = "03:00"
Me.cmd3Uhr.UseVisualStyleBackColor = False
'
'btnRDP
'
Me.btnRDP.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnRDP.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.btnRDP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRDP.Location = New System.Drawing.Point(8, 219)
Me.btnRDP.Name = "btnRDP"
Me.btnRDP.Size = New System.Drawing.Size(104, 23)
Me.btnRDP.TabIndex = 167
Me.btnRDP.Text = "RDP"
Me.btnRDP.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(118, 219)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 23)
Me.Button1.TabIndex = 168
Me.Button1.Text = "RDP Fenster"
Me.Button1.UseVisualStyleBackColor = False
'
'uscntr_DomUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnRDP)
Me.Controls.Add(Me.cmd3Uhr)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.chkAutoLogoff)
@@ -417,4 +445,6 @@ Partial Class uscntr_DomUser
Friend WithEvents chkAutoLogoff As CheckBox
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents cmd3Uhr As Button
Friend WithEvents btnRDP As Button
Friend WithEvents Button1 As Button
End Class

8
Dokumentation/uscntr_DomUser.vb
View File

@@ -117,4 +117,12 @@
Private Sub cmd3Uhr_Click(sender As Object, e As EventArgs) Handles cmd3Uhr.Click
DateTimePicker1.Value = New DateTime(2020, 9, 1, 3, 0, 0)
End Sub
Private Sub btnRDP_Click(sender As Object, e As EventArgs) Handles btnRDP.Click
cExtProgramme.RDPConnect("rdpintern.verag.ag", txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
cExtProgramme.RDPConnect("rdpintern.verag.ag", txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
End Sub
End Class