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

Chilkat, Telefone, Zoll Notruf

Browse Source
This commit is contained in:
ms
2024-09-02 13:40:30 +02:00
parent e4f7efacc0
commit 5b4354daa1
38 changed files with 1351 additions and 315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
DokuServices/App.config
View File

@@ -1,6 +1,38 @@
<?xml version="1.0" encoding="utf-8" ?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
</startup>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="ChilkatDotNet47" publicKeyToken="eb5fc1fc52ef09bd" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-9.5.0.88" newVersion="9.5.0.88" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="itextsharp" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.5.13.1" newVersion="5.5.13.1" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.3.10.0" newVersion="6.3.10.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.Twain" publicKeyToken="298ad97013b423eb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.PDF" publicKeyToken="298ad97013b423eb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.Forms.Viewer" publicKeyToken="298ad97013b423eb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.ImageCore" publicKeyToken="298ad97013b423eb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

36
Dokumentation/App.config
View File

@@ -1,28 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
</configSections>
<connectionStrings>
<add name="Dokumentation.My.MySettings.DokuConnectionString"
connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True"
providerName="System.Data.SqlClient" />
<add name="Dokumentation.My.MySettings.DokuConnectionString" connectionString="Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=Doku;Integrated Security=True" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2"/>
</startup>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="itextsharp" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.5.13.1" newVersion="5.5.13.1" />
<assemblyIdentity name="itextsharp" publicKeyToken="8354ae6d2174ddca" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-5.5.13.1" newVersion="5.5.13.1"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.3.10.0" newVersion="6.3.10.0" />
<assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-6.3.10.0" newVersion="6.3.10.0"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.PDF" publicKeyToken="298ad97013b423eb" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510" />
<assemblyIdentity name="Dynamsoft.PDF" publicKeyToken="298ad97013b423eb" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="ChilkatDotNet47" publicKeyToken="eb5fc1fc52ef09bd" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-9.5.0.88" newVersion="9.5.0.88"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.Twain" publicKeyToken="298ad97013b423eb" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.Forms.Viewer" publicKeyToken="298ad97013b423eb" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Dynamsoft.ImageCore" publicKeyToken="298ad97013b423eb" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-8.0.0.510" newVersion="8.0.0.510"/>
</dependentAssembly>
</assemblyBinding>
</runtime>

8
Dokumentation/Classes/Class1.vb
View File

@@ -897,4 +897,12 @@ Public Class Class1
End Try
End Function
Public Shared Function txt2DS(txt As String, ByVal ds As DataSet)
Dim rowData As String() = txt.Split(New Char() {";"c}, StringSplitOptions.RemoveEmptyEntries)
End Function
End Class

2
Dokumentation/Classes/cChilkat_Helper.vb
View File

@@ -3,7 +3,7 @@
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")
Dim success As Boolean = glob.UnlockBundle("LUXBAU.CB1112026_zH49BXhFm802")
If success <> True Then
Debug.WriteLine(glob.LastErrorText)

41
Dokumentation/Classes/cExtProgramme.vb
View File

@@ -1,4 +1,7 @@
Imports System.IO
Imports System.Management.Automation
Imports System.Management.Automation.Runspaces
Imports System.Security
Public Class cExtProgramme
@@ -14,7 +17,6 @@ Public Class cExtProgramme
edge.StartInfo.Arguments = " " & URL
edge.Start()
End If
ElseIf URL = "" Then
Exit Function
Else
@@ -72,6 +74,38 @@ Public Class cExtProgramme
ping.Start()
End Function
Public Shared Function RunRemotePSScript(ByVal connectTo As String, ByVal user As String, ByVal password As String, ByVal script As String, Optional ByVal ps1 As Boolean = False) As System.Collections.ObjectModel.Collection(Of PSObject)
Const SHELL_URI As String = "http://schemas.microsoft.com/powershell/Microsoft.PowerShell"
Dim serverUri As New Uri("http://" & connectTo & ":5985/wsman")
Dim securepass As New SecureString
Dim c As Char
For Each c In password
securepass.AppendChar(c)
Next
Dim remotecred As New PSCredential(user, securepass)
Dim connectionInfo As New WSManConnectionInfo(serverUri, SHELL_URI, remotecred)
Dim myRunSpace As Runspace = RunspaceFactory.CreateRunspace(connectionInfo)
Dim psresult As New System.Collections.ObjectModel.Collection(Of PSObject)
myRunSpace.Open()
Dim psh As PowerShell = PowerShell.Create()
psh.Runspace = myRunSpace
If ps1 = False Then
psh.AddScript(script)
Else
psh.AddCommand(script)
End If
psh.Invoke(Nothing, psresult)
Return psresult
psh.Dispose()
myRunSpace.Close()
End Function
Public Shared Function msgsend(argumente As String, Optional ByVal ReturnOrder As Boolean = False)
Try
Dim msg As New Process
@@ -109,14 +143,15 @@ Public Class cExtProgramme
End Try
End Function
Public Shared Function RDPConnect(host As String, Optional ByVal Username As String = "", Optional ByVal Password As String = "", Optional ByVal Fenster As Boolean = False)
Public Shared Function RDPConnect(host As String, Optional ByVal Username As String = "", Optional ByVal Password As String = "", Optional ByVal Fenster As Boolean = False, Optional ByVal admin As Boolean = False)
Dim mstsc As New Process
Dim AnmeldeDatenVorhanden As Boolean = False
Dim rdpASadmin As String = ""
If admin Then rdpASadmin = " /admin"
Dim FensterString As String = ""
If Fenster = True Then
FensterString = " /w:1280 /h:1024"
FensterString = " /w:1920 /h:1080"
Else
FensterString = " /f"
End If

2
Dokumentation/Classes/cINI.vb
View File

@@ -3,7 +3,7 @@ Imports System.IO
Public Class cINI
Public sAppPath As String = Application.StartupPath
Public Shared sAppPath As String = Application.StartupPath
Dim cINIPropertys = New List(Of MemberInfo)
Dim INIfile As String = sAppPath & "\config.ini"

17
Dokumentation/Classes/cPascom.vb
View File

@@ -1,12 +1,21 @@
Imports System.Reflection
Imports Chilkat
Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI
Public Class cPascom
Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
Property Arbeitsplatz As String = ""
Property Username As String = ""
Dim TelUrl As String = ""
Sub New()
Dim ds As New DataSet
cSQL.SQL2DS("SELECT Parameter FROM [Doku].[dbo].[TbL_Dienste] where name = 'TelefonanlageURL'", ds)
If ds.Tables(0).Rows.Count > 0 Then
TelUrl = ds.Tables(0).Rows(0).Item(0).ToString
End If
End Sub
Public Function Anmelden() As Boolean
If Arbeitsplatz.Length > 0 And Username.Length > 0 Then
@@ -19,7 +28,7 @@ Public Class cPascom
'BASIC Auth String: bW9ieTpYZ0RzRm1NU3V0YU1MQTE =
cChilkat_Helper.UnlockCilkat()
Dim API_STRING = "pbx3.flashnet.at"
Dim API_STRING = TelUrl
Dim rest As New Chilkat.Rest
Dim success As Boolean
@@ -101,7 +110,7 @@ Public Class cPascom
Try
cChilkat_Helper.UnlockCilkat()
Dim API_STRING = "pbx3.flashnet.at"
Dim API_STRING = TelUrl
Dim rest As New Chilkat.Rest
Dim success As Boolean
@@ -182,7 +191,7 @@ Public Class cPascom
Try
cChilkat_Helper.UnlockCilkat()
Dim API_STRING = "pbx3.flashnet.at"
Dim API_STRING = TelUrl
Dim rest As New Chilkat.Rest
Dim success As Boolean

6
Dokumentation/Classes/cPowershellScripts.vb Normal file
View File

@@ -0,0 +1,6 @@
Public Class cPowershellScripts
Public Shared userprofile As String = "$openfiles = Get-SmbOpenFile | select-object ShareRelativePath | out-string -stream ; foreach ($file in $openfiles) { try{ if ($file.length -gt 40) { $i = $file.substring(5,43); $SID = New-Object System.Security.Principal.SecurityIdentifier($i); $User = $SID.Translate([System.Security.Principal.NTAccount]); $U = $User.Value; write-host $i $U; $R.add($file + $i)}} catch {} }"
End Class

26
Dokumentation/Classes/cSMB.vb Normal file
View File

@@ -0,0 +1,26 @@
Public Class cSMB
Public Shared Function obj2DS(obj As Object, ByVal ds As DataSet, tablename As String)
ds.Tables.Add(New DataTable(tablename))
With ds.Tables(0)
.Columns.Add("S_ID", Type.GetType("System.String"))
.Columns.Add("Computer", Type.GetType("System.String"))
.Columns.Add("Datei", Type.GetType("System.String"))
.Columns.Add("User", Type.GetType("System.String"))
End With
For Each line In obj
Dim rowData As String() = line.Split(New Char() {";"c})
ds.Tables(0).Rows.Add(rowData(0), rowData(1), rowData(2), rowData(3))
Next
' MsgBox("")
End Function
End Class

40
Dokumentation/Dokumentation.vbproj
View File

@@ -90,9 +90,9 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="ChilkatDotNet47, Version=9.5.0.84, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=x86">
<Reference Include="ChilkatDotNet47, Version=9.5.0.96, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\ChilkatDotNet47.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ChillKat64\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>
@@ -201,6 +201,9 @@
<Reference Include="System.IO.Packaging, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Management.Automation, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.PowerShell.5.ReferenceAssemblies.1.1.0\lib\net4\System.Management.Automation.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.ServiceProcess" />
@@ -256,6 +259,8 @@
<Compile Include="Classes\cEintrag.vb" />
<Compile Include="Classes\cINI.vb" />
<Compile Include="Classes\cNetzwerk.vb" />
<Compile Include="Classes\cPowershellScripts.vb" />
<Compile Include="Classes\cSMB.vb" />
<Compile Include="Classes\cTSUser.vb" />
<Compile Include="Classes\cPascom.vb" />
<Compile Include="DokuDataSet.Designer.vb">
@@ -293,6 +298,18 @@
<Compile Include="frmPopUp.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ThinClients.Designer.vb">
<DependentUpon>ThinClients.vb</DependentUpon>
</Compile>
<Compile Include="ThinClients.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="SMB.Designer.vb">
<DependentUpon>SMB.vb</DependentUpon>
</Compile>
<Compile Include="SMB.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="uscntr_ConnectTel.Designer.vb">
<DependentUpon>uscntr_ConnectTel.vb</DependentUpon>
</Compile>
@@ -323,10 +340,10 @@
<Compile Include="uscntr_MessageUser.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="uscntr_Notruf.Designer.vb">
<DependentUpon>uscntr_Notruf.vb</DependentUpon>
<Compile Include="uscntr_Telefon.Designer.vb">
<DependentUpon>uscntr_Telefon.vb</DependentUpon>
</Compile>
<Compile Include="uscntr_Notruf.vb">
<Compile Include="uscntr_Telefon.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="uscntr_TSSitzungen.Designer.vb">
@@ -433,6 +450,7 @@
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@@ -531,6 +549,12 @@
<EmbeddedResource Include="frmPopUp.resx">
<DependentUpon>frmPopUp.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ThinClients.resx">
<DependentUpon>ThinClients.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="SMB.resx">
<DependentUpon>SMB.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_ConnectTel.resx">
<DependentUpon>uscntr_ConnectTel.vb</DependentUpon>
</EmbeddedResource>
@@ -543,8 +567,8 @@
<EmbeddedResource Include="uscntr_MessageUser.resx">
<DependentUpon>uscntr_MessageUser.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_Notruf.resx">
<DependentUpon>uscntr_Notruf.vb</DependentUpon>
<EmbeddedResource Include="uscntr_Telefon.resx">
<DependentUpon>uscntr_Telefon.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_TSSitzungen.resx">
<DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
@@ -667,6 +691,8 @@
<Content Include="Resources\excel20.png" />
<None Include="Resources\external-content.duckduckgo.com.png" />
<None Include="Resources\mstsc1.bmp" />
<None Include="Resources\iconfinder-contat-us-27phone-4211855_115040.png" />
<None Include="Resources\iconfinder-contat-us-27phone-4211855_115040 %28Benutzerdefiniert%29.png" />
<Content Include="Resources\pdf512.png" />
<None Include="Resources\Print.png" />
<None Include="Resources\Print20x20.png" />

119
Dokumentation/Main.Designer.vb generated
View File

@@ -27,6 +27,9 @@ 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.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.lblNotruf = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
@@ -67,6 +70,9 @@ 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.TicketsystemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PascomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UnifiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblCount = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
@@ -116,7 +122,6 @@ Partial Class Main
Me.panTSSitzungen = New System.Windows.Forms.Panel()
Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblNotruf = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -148,6 +153,8 @@ Partial Class Main
'Panel4
'
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.Button3)
Me.Panel4.Controls.Add(Me.Button2)
Me.Panel4.Controls.Add(Me.lblNotruf)
Me.Panel4.Controls.Add(Me.Label20)
Me.Panel4.Controls.Add(Me.picAVISOMessenger)
@@ -173,6 +180,43 @@ Partial Class Main
Me.Panel4.Size = New System.Drawing.Size(1222, 106)
Me.Panel4.TabIndex = 14
'
'Button3
'
Me.Button3.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Image = Global.Dokumentation.My.Resources.Resources.mstsc1
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.Location = New System.Drawing.Point(74, 39)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(116, 28)
Me.Button3.TabIndex = 46
Me.Button3.Text = "ThinClients"
Me.Button3.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(74, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(116, 28)
Me.Button2.TabIndex = 45
Me.Button2.Text = "Profile SMB"
Me.Button2.UseVisualStyleBackColor = False
'
'lblNotruf
'
Me.lblNotruf.AutoSize = True
Me.lblNotruf.Location = New System.Drawing.Point(327, 15)
Me.lblNotruf.Name = "lblNotruf"
Me.lblNotruf.Size = New System.Drawing.Size(57, 13)
Me.lblNotruf.TabIndex = 44
Me.lblNotruf.Text = "Notruf an: "
'
'Label20
'
Me.Label20.Anchor = System.Windows.Forms.AnchorStyles.Right
@@ -205,13 +249,13 @@ Partial Class Main
Me.Button1.ContextMenuStrip = Me.ContextMenuStrip1
Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.del
Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(161, 5)
Me.Button1.Location = New System.Drawing.Point(196, 5)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(151, 28)
Me.Button1.Size = New System.Drawing.Size(116, 28)
Me.Button1.TabIndex = 43
Me.Button1.Text = "IT Notruf"
Me.Button1.Text = "Telefon"
Me.Button1.UseVisualStyleBackColor = False
'
'ContextMenuStrip1
@@ -233,9 +277,9 @@ Partial Class Main
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.Location = New System.Drawing.Point(196, 73)
Me.btnTSSitzungen.Name = "btnTSSitzungen"
Me.btnTSSitzungen.Size = New System.Drawing.Size(151, 28)
Me.btnTSSitzungen.Size = New System.Drawing.Size(116, 28)
Me.btnTSSitzungen.TabIndex = 43
Me.btnTSSitzungen.Text = "TS Sitzungen"
Me.btnTSSitzungen.UseVisualStyleBackColor = False
@@ -244,7 +288,7 @@ Partial Class Main
'
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.Location = New System.Drawing.Point(7, 22)
Me.LblDEBUGMODE.Name = "LblDEBUGMODE"
Me.LblDEBUGMODE.Size = New System.Drawing.Size(113, 16)
Me.LblDEBUGMODE.TabIndex = 13
@@ -287,11 +331,11 @@ Partial Class Main
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.Location = New System.Drawing.Point(196, 39)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(116, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung"
Me.btnBenutzerverwaltung.Text = "Benutzer"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False
'
'CmdSucheReset
@@ -360,9 +404,9 @@ Partial Class Main
'
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(881, 4)
Me.PictureBox1.Location = New System.Drawing.Point(873, 4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(332, 76)
Me.PictureBox1.Size = New System.Drawing.Size(340, 74)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
@@ -461,7 +505,7 @@ Partial Class Main
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO})
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO, Me.TicketsystemToolStripMenuItem, Me.PascomToolStripMenuItem, Me.UnifiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1494, 24)
@@ -531,7 +575,8 @@ Partial Class Main
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(12, 20)
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(22, 20)
Me.ToolStripMenuItem2.Text = "|"
'
'ToolStripMenuItemINFO
'
@@ -540,6 +585,24 @@ Partial Class Main
Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
Me.ToolStripMenuItemINFO.Text = "?"
'
'TicketsystemToolStripMenuItem
'
Me.TicketsystemToolStripMenuItem.Name = "TicketsystemToolStripMenuItem"
Me.TicketsystemToolStripMenuItem.Size = New System.Drawing.Size(87, 20)
Me.TicketsystemToolStripMenuItem.Text = "Ticketsystem"
'
'PascomToolStripMenuItem
'
Me.PascomToolStripMenuItem.Name = "PascomToolStripMenuItem"
Me.PascomToolStripMenuItem.Size = New System.Drawing.Size(61, 20)
Me.PascomToolStripMenuItem.Text = "Pascom"
'
'UnifiToolStripMenuItem
'
Me.UnifiToolStripMenuItem.Name = "UnifiToolStripMenuItem"
Me.UnifiToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.UnifiToolStripMenuItem.Text = "Unifi"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -598,7 +661,7 @@ Partial Class Main
'ChkFreieHosts
'
Me.ChkFreieHosts.AutoSize = True
Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 639)
Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 708)
Me.ChkFreieHosts.Name = "ChkFreieHosts"
Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17)
Me.ChkFreieHosts.TabIndex = 15
@@ -610,7 +673,7 @@ Partial Class Main
Me.ChkKompAnsicht.AutoSize = True
Me.ChkKompAnsicht.Checked = True
Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked
Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 616)
Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 685)
Me.ChkKompAnsicht.Name = "ChkKompAnsicht"
Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17)
Me.ChkKompAnsicht.TabIndex = 14
@@ -621,7 +684,7 @@ Partial Class Main
'
Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien)
Me.PanNetzwerk.Controls.Add(Me.CmdNetzwerkbearbeiten)
Me.PanNetzwerk.Location = New System.Drawing.Point(3, 525)
Me.PanNetzwerk.Location = New System.Drawing.Point(3, 510)
Me.PanNetzwerk.Name = "PanNetzwerk"
Me.PanNetzwerk.Size = New System.Drawing.Size(191, 85)
Me.PanNetzwerk.TabIndex = 13
@@ -986,15 +1049,6 @@ Partial Class Main
'Timer1
'
'
'lblNotruf
'
Me.lblNotruf.AutoSize = True
Me.lblNotruf.Location = New System.Drawing.Point(327, 15)
Me.lblNotruf.Name = "lblNotruf"
Me.lblNotruf.Size = New System.Drawing.Size(57, 13)
Me.lblNotruf.TabIndex = 44
Me.lblNotruf.Text = "Notruf an: "
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1046,7 +1100,6 @@ Partial Class Main
Friend WithEvents CmDBearbeiten As Button
Friend WithEvents LblUhrzeit As Label
Friend WithEvents LblNetzwerkinfo As Label
Friend WithEvents CmdNetzwerkbearbeiten As Button
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents NetzwerkeToolStripMenuItem As ToolStripMenuItem
@@ -1068,7 +1121,6 @@ Partial Class Main
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 ChkKompAnsicht As CheckBox
@@ -1088,7 +1140,6 @@ Partial Class Main
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
@@ -1128,4 +1179,12 @@ Partial Class Main
Friend WithEvents TelefonManuellZuweisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RDPFensterToolStripMenuItem As ToolStripMenuItem
Friend WithEvents lblNotruf As Label
Friend WithEvents TicketsystemToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PascomToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UnifiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button2 As Button
Friend WithEvents PanNetzwerk As Panel
Friend WithEvents CmdNWDateien As Button
Friend WithEvents CmdNetzwerkbearbeiten As Button
Friend WithEvents Button3 As Button
End Class

5
Dokumentation/Main.resx
View File

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

49
Dokumentation/Main.vb
View File

@@ -4,6 +4,9 @@ Imports System.Threading
Imports System.ServiceProcess
Imports System.DirectoryServices.AccountManagement
Imports System.Web.UI.WebControls
Imports System.Management.Automation
Imports System.Management.Automation.Runspaces
Imports System.Security
Public Class Main
Public con As New SqlConnection
@@ -648,14 +651,23 @@ Public Class Main
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
MsgBox("Hallo Andreas")
Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | select-object ShareRelativePath | out-string -stream")
MsgBox("")
Dim ds As New DataSet
For Each a As PSObject In ps
Next
End Sub
Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
DeleteGastWLANUser("ABABAB")
SMB.Show()
End Sub
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
Dim pascom As New cPascom
pascom.Weiterleitung("555", "199")
Public Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
Dim ds As New DataSet
cSMB.obj2DS(ps, ds, "SMB")
End Sub
Public Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
@@ -1504,8 +1516,8 @@ exit"
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm As New frmLeer
frm.Text = "Notruf"
Dim usrcntrl As New uscntr_Notruf
frm.Text = "Telefon"
Dim usrcntrl As New uscntr_Telefon
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
@@ -1736,6 +1748,29 @@ exit"
End Sub
Private Sub TicketsystemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketsystemToolStripMenuItem.Click
cExtProgramme.startlink("https://ticket.verag.ag")
End Sub
Private Sub PascomToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PascomToolStripMenuItem.Click
cExtProgramme.startlink("https://my.pbxcloud.at/verag/mobydickcmd/")
End Sub
Private Sub UnifiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnifiToolStripMenuItem.Click
cExtProgramme.startlink("https://unifi.ui.com/consoles")
End Sub
Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
SMB.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ThinClients.Show()
End Sub
Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed

6
Dokumentation/My Project/Application.Designer.vb generated
View File

@@ -34,5 +34,11 @@ Namespace My
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Dokumentation.Login
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace

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

@@ -160,6 +160,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property iconfinder_contat_us_27phone_4211855_115040() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("iconfinder-contat-us-27phone-4211855_115040", 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 iconfinder_contat_us_27phone_4211855_115040__Benutzerdefiniert_() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert)", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -289,7 +309,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.85 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.93 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

38
Dokumentation/My Project/Resources.resx
View File

@@ -130,38 +130,44 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Admin20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin20.png;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="Programmname" xml:space="preserve">
<value>Dokumentation</value>
</data>
<data name="ico_putty_exe0001" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="external-content.duckduckgo.com" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\external-content.duckduckgo.com.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<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.85</value>
<value>0.0.1.93</value>
</data>
<data name="mstsc1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Programmname" xml:space="preserve">
<value>Dokumentation</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="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="excel20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="iconfinder-contat-us-27phone-4211855_115040" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\iconfinder-contat-us-27phone-4211855_115040.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -175,8 +181,8 @@
<data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="excel20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -187,7 +193,7 @@
<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="mstsc1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

2
Dokumentation/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.11.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase

BIN
Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 451 B

BIN
Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.3 KiB

103
Dokumentation/SMB.Designer.vb generated Normal file
View File

@@ -0,0 +1,103 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class SMB
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()
Me.dgv = New System.Windows.Forms.DataGridView()
Me.dgvcms = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SitzungBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Refresh = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.counter = New System.Windows.Forms.Label()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
Me.dgvcms.SuspendLayout()
Me.SuspendLayout()
'
'dgv
'
Me.dgv.AllowUserToAddRows = False
Me.dgv.AllowUserToDeleteRows = False
Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgv.ContextMenuStrip = Me.dgvcms
Me.dgv.Location = New System.Drawing.Point(12, 12)
Me.dgv.Name = "dgv"
Me.dgv.ReadOnly = True
Me.dgv.Size = New System.Drawing.Size(1280, 826)
Me.dgv.TabIndex = 0
'
'dgvcms
'
Me.dgvcms.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SitzungBeendenToolStripMenuItem})
Me.dgvcms.Name = "dgvcms"
Me.dgvcms.Size = New System.Drawing.Size(163, 26)
'
'SitzungBeendenToolStripMenuItem
'
Me.SitzungBeendenToolStripMenuItem.Name = "SitzungBeendenToolStripMenuItem"
Me.SitzungBeendenToolStripMenuItem.Size = New System.Drawing.Size(162, 22)
Me.SitzungBeendenToolStripMenuItem.Text = "Sitzung beenden"
'
'Refresh
'
Me.Refresh.allowBorder = False
Me.Refresh.FlatAppearance.BorderSize = 0
Me.Refresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Refresh.ForeColor = System.Drawing.Color.Black
Me.Refresh.Location = New System.Drawing.Point(1217, 852)
Me.Refresh.Name = "Refresh"
Me.Refresh.Size = New System.Drawing.Size(75, 23)
Me.Refresh.TabIndex = 1
Me.Refresh.Text = "Refresh"
Me.Refresh.UseVisualStyleBackColor = True
'
'counter
'
Me.counter.AutoSize = True
Me.counter.Location = New System.Drawing.Point(12, 862)
Me.counter.Name = "counter"
Me.counter.Size = New System.Drawing.Size(43, 13)
Me.counter.TabIndex = 2
Me.counter.Text = "counter"
'
'SMB
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1304, 887)
Me.Controls.Add(Me.counter)
Me.Controls.Add(Me.Refresh)
Me.Controls.Add(Me.dgv)
Me.Name = "SMB"
Me.Text = "SMB"
CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit()
Me.dgvcms.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgv As DataGridView
Friend WithEvents Refresh As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents counter As Label
Friend WithEvents dgvcms As ContextMenuStrip
Friend WithEvents SitzungBeendenToolStripMenuItem As ToolStripMenuItem
End Class

123
Dokumentation/SMB.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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="dgvcms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

51
Dokumentation/SMB.vb Normal file
View File

@@ -0,0 +1,51 @@
Imports System.DirectoryServices.ActiveDirectory
Public Class SMB
Dim ds As New DataSet
Private Sub SMB_Load(sender As Object, e As EventArgs) Handles Me.Load
Class1.EnableDoubleBuffered(dgv)
LoadSitzungen()
LoadDGV()
End Sub
Function LoadSitzungen()
Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
cSMB.obj2DS(ps, ds, "SMB")
End Function
Function LoadDGV()
With dgv
.DataSource = ds.Tables(0)
.DefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AutoResizeColumn(1)
.AutoResizeColumn(2)
.AutoResizeColumn(3)
End With
counter.Text = dgv.Rows.Count
End Function
Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles Refresh.Click
ds.Reset()
LoadSitzungen()
LoadDGV()
End Sub
Private Sub SitzungBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SitzungBeendenToolStripMenuItem.Click
Dim datei As String = dgv.CurrentRow.Cells("Datei").Value
Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | Where-Object {$_.ShareRelativePath -like '*" & datei & "*'} | close-SmbOpenFile -Force", False)
End Sub
End Class

104
Dokumentation/ThinClients.Designer.vb generated Normal file
View File

@@ -0,0 +1,104 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class ThinClients
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()
Me.dgv = New System.Windows.Forms.DataGridView()
Me.dgvcms = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TeamviewerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Refresh = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.counter = New System.Windows.Forms.Label()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
Me.dgvcms.SuspendLayout()
Me.SuspendLayout()
'
'dgv
'
Me.dgv.AllowUserToAddRows = False
Me.dgv.AllowUserToDeleteRows = False
Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgv.ContextMenuStrip = Me.dgvcms
Me.dgv.Location = New System.Drawing.Point(15, 12)
Me.dgv.Name = "dgv"
Me.dgv.ReadOnly = True
Me.dgv.Size = New System.Drawing.Size(1280, 826)
Me.dgv.TabIndex = 0
'
'dgvcms
'
Me.dgvcms.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TeamviewerToolStripMenuItem})
Me.dgvcms.Name = "dgvcms"
Me.dgvcms.Size = New System.Drawing.Size(181, 48)
'
'TeamviewerToolStripMenuItem
'
Me.TeamviewerToolStripMenuItem.Name = "TeamviewerToolStripMenuItem"
Me.TeamviewerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TeamviewerToolStripMenuItem.Text = "Teamviewer"
'
'Refresh
'
Me.Refresh.allowBorder = False
Me.Refresh.FlatAppearance.BorderSize = 0
Me.Refresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Refresh.ForeColor = System.Drawing.Color.Black
Me.Refresh.Location = New System.Drawing.Point(1217, 852)
Me.Refresh.Name = "Refresh"
Me.Refresh.Size = New System.Drawing.Size(75, 23)
Me.Refresh.TabIndex = 1
Me.Refresh.Text = "Refresh"
Me.Refresh.UseVisualStyleBackColor = True
'
'counter
'
Me.counter.AutoSize = True
Me.counter.Location = New System.Drawing.Point(12, 862)
Me.counter.Name = "counter"
Me.counter.Size = New System.Drawing.Size(43, 13)
Me.counter.TabIndex = 2
Me.counter.Text = "counter"
'
'ThinClients
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1304, 887)
Me.Controls.Add(Me.counter)
Me.Controls.Add(Me.Refresh)
Me.Controls.Add(Me.dgv)
Me.Name = "ThinClients"
Me.Text = "ThinClients"
CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit()
Me.dgvcms.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgv As DataGridView
Friend WithEvents Refresh As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents counter As Label
Friend WithEvents dgvcms As ContextMenuStrip
Friend WithEvents TeamviewerToolStripMenuItem As ToolStripMenuItem
End Class

123
Dokumentation/ThinClients.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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="dgvcms.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

53
Dokumentation/ThinClients.vb Normal file
View File

@@ -0,0 +1,53 @@
Imports System.DirectoryServices.ActiveDirectory
Public Class ThinClients
Dim ds As New DataSet
Private Sub SMB_Load(sender As Object, e As EventArgs) Handles Me.Load
Class1.EnableDoubleBuffered(dgv)
LoadSitzungen()
LoadDGV()
End Sub
Function LoadSitzungen()
cSQL.SQL2DS("select * from tbl_thinclienthosts", ds)
End Function
Function LoadDGV()
With dgv
.DataSource = ds.Tables(0)
.DefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AutoResizeColumn(1)
.AutoResizeColumn(2)
.AutoResizeColumn(3)
End With
counter.Text = dgv.Rows.Count
End Function
Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles Refresh.Click
ds.Reset()
LoadSitzungen()
LoadDGV()
End Sub
Private Sub TeamviewerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TeamviewerToolStripMenuItem.Click
Dim tv As String = dgv.CurrentRow.Cells("TeamviewerID").Value
If tv.Length > 0 Then
cExtProgramme.StartTeamviewer(tv)
End If
End Sub
End Class

2
Dokumentation/packages.config
View File

@@ -8,6 +8,8 @@
<package id="FastMember" version="1.3.0" targetFramework="net472" />
<package id="Ghostscript.NET" version="1.2.1" targetFramework="net472" />
<package id="iTextSharp" version="5.5.13.1" targetFramework="net472" />
<package id="Microsoft.PowerShell.5.ReferenceAssemblies" version="1.1.0" targetFramework="net472" />
<package id="Microsoft.PowerShell.SDK" version="7.4.1" targetFramework="net472" />
<package id="NetSpell" version="2.1.7" targetFramework="net472" />
<package id="Spire.PDF" version="6.3.10" targetFramework="net472" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net472" />

30
Dokumentation/uscntr_DomUser.Designer.vb generated
View File

@@ -56,6 +56,8 @@ Partial Class uscntr_DomUser
Me.txtComputer = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.chkRDP2TS = New System.Windows.Forms.CheckBox()
Me.btnAMT = New System.Windows.Forms.Button()
Me.rdpadmin = New System.Windows.Forms.CheckBox()
Me.SuspendLayout()
'
'cmdSave
@@ -404,12 +406,38 @@ Partial Class uscntr_DomUser
Me.chkRDP2TS.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.chkRDP2TS.UseVisualStyleBackColor = True
'
'btnAMT
'
Me.btnAMT.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnAMT.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.btnAMT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAMT.Location = New System.Drawing.Point(541, 256)
Me.btnAMT.Name = "btnAMT"
Me.btnAMT.Size = New System.Drawing.Size(104, 23)
Me.btnAMT.TabIndex = 172
Me.btnAMT.Text = "Intel AMT"
Me.btnAMT.UseVisualStyleBackColor = False
'
'rdpadmin
'
Me.rdpadmin.AutoSize = True
Me.rdpadmin.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.rdpadmin.Location = New System.Drawing.Point(305, 262)
Me.rdpadmin.Name = "rdpadmin"
Me.rdpadmin.Size = New System.Drawing.Size(59, 17)
Me.rdpadmin.TabIndex = 173
Me.rdpadmin.Text = "/admin"
Me.rdpadmin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.rdpadmin.UseVisualStyleBackColor = True
'
'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.rdpadmin)
Me.Controls.Add(Me.btnAMT)
Me.Controls.Add(Me.chkRDP2TS)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtComputer)
@@ -485,4 +513,6 @@ Partial Class uscntr_DomUser
Friend WithEvents txtComputer As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents chkRDP2TS As CheckBox
Friend WithEvents btnAMT As Button
Friend WithEvents rdpadmin As CheckBox
End Class

12
Dokumentation/uscntr_DomUser.vb
View File

@@ -121,11 +121,11 @@
End Sub
Private Sub btnRDP_Click(sender As Object, e As EventArgs) Handles btnRDP.Click
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False)
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, False, rdpadmin.Checked)
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True)
cExtProgramme.RDPConnect(SelectRDPTarget(), txtDomaene.Text & "\" & txtBenutzer.Text, txtDomKennwort.Text, True, rdpadmin.Checked)
End Sub
Private Function SelectRDPTarget() As String
@@ -139,4 +139,12 @@
Return "rdpintern.verag.ag"
End If
End Function
Private Sub btnAMT_Click(sender As Object, e As EventArgs) Handles btnAMT.Click
cExtProgramme.startlink("https://" & DomUser.du_computer & ":16993")
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles rdpadmin.CheckedChanged
End Sub
End Class

200
Dokumentation/uscntr_Notruf.Designer.vb generated
View File

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

8
Dokumentation/uscntr_SendMSG.Designer.vb generated
View File

@@ -41,9 +41,9 @@ Partial Class uscntr_SendMSG
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanMain.Location = New System.Drawing.Point(196, 85)
Me.PanMain.MaximumSize = New System.Drawing.Size(0, 500)
Me.PanMain.MinimumSize = New System.Drawing.Size(240, 300)
Me.PanMain.MinimumSize = New System.Drawing.Size(240, 400)
Me.PanMain.Name = "PanMain"
Me.PanMain.Size = New System.Drawing.Size(254, 300)
Me.PanMain.Size = New System.Drawing.Size(254, 400)
Me.PanMain.TabIndex = 4
'
'cmdSenden
@@ -104,7 +104,7 @@ Partial Class uscntr_SendMSG
Me.PanServerListe.Location = New System.Drawing.Point(0, 85)
Me.PanServerListe.MinimumSize = New System.Drawing.Size(196, 0)
Me.PanServerListe.Name = "PanServerListe"
Me.PanServerListe.Size = New System.Drawing.Size(196, 300)
Me.PanServerListe.Size = New System.Drawing.Size(196, 400)
Me.PanServerListe.TabIndex = 0
'
'uscntr_SendMSG
@@ -118,7 +118,7 @@ Partial Class uscntr_SendMSG
Me.Controls.Add(Me.Panel1)
Me.MinimumSize = New System.Drawing.Size(450, 199)
Me.Name = "uscntr_SendMSG"
Me.Size = New System.Drawing.Size(450, 385)
Me.Size = New System.Drawing.Size(450, 485)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)

20
Dokumentation/uscntr_TSSitzungen.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class uscntr_TSSitzungen
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -55,14 +55,14 @@ Partial Class uscntr_TSSitzungen
Me.dgvTSSitzungen.AllowUserToDeleteRows = False
Me.dgvTSSitzungen.AllowUserToResizeRows = False
Me.dgvTSSitzungen.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvTSSitzungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvTSSitzungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvTSSitzungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTSSitzungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvTSSitzungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -78,7 +78,7 @@ Partial Class uscntr_TSSitzungen
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 92)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 114)
'
'VerbindenMitTeamVToolStripMenuItem
'

11
Dokumentation/uscntr_TSSitzungen.vb
View File

@@ -200,7 +200,14 @@
Private Sub ProfildatenÖffnenExplorerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfildatenÖffnenExplorerToolStripMenuItem.Click
Dim Username As String = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value
Dim Server As String = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value
Dim Server As String
Select Case Client
Case False
Server = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value
Case True
Server = dgvTSSitzungen.CurrentRow.Cells("ClientName").Value & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value
End Select
Dim temp As String = Username
Do Until temp.Substring(0, 1) = "\"
temp = temp.Substring(1, temp.Length - 1)
@@ -237,4 +244,6 @@
Timer1.Enabled = True
timDisUpdateTimer.Enabled = False
End Sub
End Class

311
Dokumentation/uscntr_Telefon.Designer.vb generated Normal file
View File

@@ -0,0 +1,311 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uscntr_Telefon
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label2 = New System.Windows.Forms.Label()
Me.DokuDataSet = New Dokumentation.DokuDataSet()
Me.TbLNotfallKontakteBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TbL_NotfallKontakteTableAdapter = New Dokumentation.DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter()
Me.TbLNotfallKontakteBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btn_IT_Start_Weiterleitung = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btn_IT_Stop_Weiterleitung = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Spelling1 = New NetSpell.SpellChecker.Spelling(Me.components)
Me.Label6 = New System.Windows.Forms.Label()
Me.lbl_Zoll_Pascom = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.lbl_Zoll_Datenbank = New System.Windows.Forms.Label()
Me.btn_Zoll_weiter_setzen = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Label10 = New System.Windows.Forms.Label()
Me.tb_Zoll_Notrufnummer = New System.Windows.Forms.TextBox()
CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Location = New System.Drawing.Point(170, 104)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(127, 23)
Me.FlatButton1.TabIndex = 9
Me.FlatButton1.Text = "Weiterleitung setzen"
Me.FlatButton1.UseVisualStyleBackColor = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(65, 72)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(94, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Ziel in Datenbank:"
'
'DokuDataSet
'
Me.DokuDataSet.DataSetName = "DokuDataSet"
Me.DokuDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TbLNotfallKontakteBindingSource
'
Me.TbLNotfallKontakteBindingSource.DataMember = "TbL_NotfallKontakte"
Me.TbLNotfallKontakteBindingSource.DataSource = Me.DokuDataSet
'
'TbL_NotfallKontakteTableAdapter
'
Me.TbL_NotfallKontakteTableAdapter.ClearBeforeFill = True
'
'TbLNotfallKontakteBindingSource1
'
Me.TbLNotfallKontakteBindingSource1.DataMember = "TbL_NotfallKontakte"
Me.TbLNotfallKontakteBindingSource1.DataSource = Me.DokuDataSet
'
'ComboBox1
'
Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(33, 105)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 10
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(170, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Label3"
'
'btn_IT_Start_Weiterleitung
'
Me.btn_IT_Start_Weiterleitung.allowBorder = False
Me.btn_IT_Start_Weiterleitung.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.btn_IT_Start_Weiterleitung.FlatAppearance.BorderSize = 0
Me.btn_IT_Start_Weiterleitung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_IT_Start_Weiterleitung.ForeColor = System.Drawing.Color.Black
Me.btn_IT_Start_Weiterleitung.Location = New System.Drawing.Point(170, 142)
Me.btn_IT_Start_Weiterleitung.Name = "btn_IT_Start_Weiterleitung"
Me.btn_IT_Start_Weiterleitung.Size = New System.Drawing.Size(127, 23)
Me.btn_IT_Start_Weiterleitung.TabIndex = 12
Me.btn_IT_Start_Weiterleitung.Text = "Weiterleitung starten"
Me.btn_IT_Start_Weiterleitung.UseVisualStyleBackColor = False
'
'btn_IT_Stop_Weiterleitung
'
Me.btn_IT_Stop_Weiterleitung.allowBorder = False
Me.btn_IT_Stop_Weiterleitung.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.btn_IT_Stop_Weiterleitung.FlatAppearance.BorderSize = 0
Me.btn_IT_Stop_Weiterleitung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_IT_Stop_Weiterleitung.ForeColor = System.Drawing.Color.Black
Me.btn_IT_Stop_Weiterleitung.Location = New System.Drawing.Point(170, 171)
Me.btn_IT_Stop_Weiterleitung.Name = "btn_IT_Stop_Weiterleitung"
Me.btn_IT_Stop_Weiterleitung.Size = New System.Drawing.Size(127, 23)
Me.btn_IT_Stop_Weiterleitung.TabIndex = 13
Me.btn_IT_Stop_Weiterleitung.Text = "Weiterleitung beenden"
Me.btn_IT_Stop_Weiterleitung.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 47)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 15
Me.Label1.Text = "Label1"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(91, 47)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(68, 13)
Me.Label4.TabIndex = 14
Me.Label4.Text = "Pascom Ziel:"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(20, 171)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(73, 17)
Me.CheckBox1.TabIndex = 16
Me.CheckBox1.Text = "Automatik"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.IndianRed
Me.Label5.Location = New System.Drawing.Point(117, 14)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(75, 16)
Me.Label5.TabIndex = 17
Me.Label5.Text = "IT - Notruf"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Spelling1
'
Me.Spelling1.Dictionary = Nothing
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.IndianRed
Me.Label6.Location = New System.Drawing.Point(117, 256)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(87, 16)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Zoll - Notruf"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'lbl_Zoll_Pascom
'
Me.lbl_Zoll_Pascom.AutoSize = True
Me.lbl_Zoll_Pascom.Location = New System.Drawing.Point(170, 289)
Me.lbl_Zoll_Pascom.Name = "lbl_Zoll_Pascom"
Me.lbl_Zoll_Pascom.Size = New System.Drawing.Size(39, 13)
Me.lbl_Zoll_Pascom.TabIndex = 25
Me.lbl_Zoll_Pascom.Text = "Label7"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(91, 289)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(68, 13)
Me.Label8.TabIndex = 24
Me.Label8.Text = "Pascom Ziel:"
'
'lbl_Zoll_Datenbank
'
Me.lbl_Zoll_Datenbank.AutoSize = True
Me.lbl_Zoll_Datenbank.Location = New System.Drawing.Point(170, 314)
Me.lbl_Zoll_Datenbank.Name = "lbl_Zoll_Datenbank"
Me.lbl_Zoll_Datenbank.Size = New System.Drawing.Size(39, 13)
Me.lbl_Zoll_Datenbank.TabIndex = 21
Me.lbl_Zoll_Datenbank.Text = "Label9"
'
'btn_Zoll_weiter_setzen
'
Me.btn_Zoll_weiter_setzen.allowBorder = False
Me.btn_Zoll_weiter_setzen.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.btn_Zoll_weiter_setzen.FlatAppearance.BorderSize = 0
Me.btn_Zoll_weiter_setzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn_Zoll_weiter_setzen.ForeColor = System.Drawing.Color.Black
Me.btn_Zoll_weiter_setzen.Location = New System.Drawing.Point(170, 346)
Me.btn_Zoll_weiter_setzen.Name = "btn_Zoll_weiter_setzen"
Me.btn_Zoll_weiter_setzen.Size = New System.Drawing.Size(127, 23)
Me.btn_Zoll_weiter_setzen.TabIndex = 19
Me.btn_Zoll_weiter_setzen.Text = "Weiterleitung setzen"
Me.btn_Zoll_weiter_setzen.UseVisualStyleBackColor = False
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(65, 314)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(94, 13)
Me.Label10.TabIndex = 18
Me.Label10.Text = "Ziel in Datenbank:"
'
'tb_Zoll_Notrufnummer
'
Me.tb_Zoll_Notrufnummer.Location = New System.Drawing.Point(20, 348)
Me.tb_Zoll_Notrufnummer.Name = "tb_Zoll_Notrufnummer"
Me.tb_Zoll_Notrufnummer.Size = New System.Drawing.Size(139, 20)
Me.tb_Zoll_Notrufnummer.TabIndex = 28
'
'uscntr_Telefon
'
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.tb_Zoll_Notrufnummer)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.lbl_Zoll_Pascom)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.lbl_Zoll_Datenbank)
Me.Controls.Add(Me.btn_Zoll_weiter_setzen)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.btn_IT_Stop_Weiterleitung)
Me.Controls.Add(Me.btn_IT_Start_Weiterleitung)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.FlatButton1)
Me.Controls.Add(Me.Label2)
Me.MinimumSize = New System.Drawing.Size(320, 500)
Me.Name = "uscntr_Telefon"
Me.Size = New System.Drawing.Size(320, 500)
CType(Me.DokuDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TbLNotfallKontakteBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TbLNotfallKontakteBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label2 As Label
Friend WithEvents TbLNotfallKontakteBindingSource As BindingSource
Friend WithEvents DokuDataSet As DokuDataSet
Friend WithEvents TbL_NotfallKontakteTableAdapter As DokuDataSetTableAdapters.TbL_NotfallKontakteTableAdapter
Friend WithEvents TbLNotfallKontakteBindingSource1 As BindingSource
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents btn_IT_Start_Weiterleitung As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents btn_IT_Stop_Weiterleitung As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents Spelling1 As NetSpell.SpellChecker.Spelling
Friend WithEvents Label6 As Label
Friend WithEvents lbl_Zoll_Pascom As Label
Friend WithEvents Label8 As Label
Friend WithEvents lbl_Zoll_Datenbank As Label
Friend WithEvents btn_Zoll_weiter_setzen As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label10 As Label
Friend WithEvents tb_Zoll_Notrufnummer As TextBox
End Class

3
Dokumentation/uscntr_Notruf.resx → Dokumentation/uscntr_Telefon.resx
View File

@@ -129,4 +129,7 @@
<metadata name="TbLNotfallKontakteBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>610, 17</value>
</metadata>
<metadata name="Spelling1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>849, 17</value>
</metadata>
</root>

37
Dokumentation/uscntr_Notruf.vb → Dokumentation/uscntr_Telefon.vb
View File

@@ -1,4 +1,4 @@
Public Class uscntr_Notruf
Public Class uscntr_Telefon
Dim ds As New DataSet
Dim WeiterleitungsZiel As String = ""
@@ -15,6 +15,7 @@
End Function
Function refreshDisplay()
'############################# IT
Dim tmp As New DataSet
cSQL.SQL2DS("select name, Telefonnummer from TbL_NotfallKontakte where Notruf = 1", tmp)
If tmp.Tables(0).Rows.Count > 0 Then
@@ -22,12 +23,23 @@
WeiterleitungsZiel = tmp.Tables(0).Rows(0).Item(1).ToString
End If
Dim pascom As New cPascom
aktuellesWeiterleitungsziel = pascom.getredirect("555")
aktuellesWeiterleitungsziel = pascom.getredirect("199")
Label1.Text = aktuellesWeiterleitungsziel
Dim tmp2 As New DataSet
cSQL.SQL2DS("select Aktiv from TbL_Dienste where Name = 'IT_Notruf_Auto'", tmp2)
CheckBox1.Checked = tmp2.Tables(0).Rows(0).Item(0)
'############################# Zoll
lbl_Zoll_Pascom.Text = pascom.getredirect("123")
Dim zdb As New DataSet
cSQL.SQL2DS("select Aktiv, Parameter from TbL_Dienste where Name = 'Zoll_Notruf_Enabled'", zdb)
If zdb.Tables(0).Rows.Count > 0 Then
lbl_Zoll_Datenbank.Text = zdb.Tables(0).Rows(0).Item(1).ToString
End If
tb_Zoll_Notrufnummer.Text = lbl_Zoll_Pascom.Text.Replace("""", "")
End Function
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
@@ -39,20 +51,20 @@
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles btn_IT_Start_Weiterleitung.Click
Dim pascom As New cPascom
pascom.Weiterleitung("555", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
pascom.Weiterleitung("199", WeiterleitungsZiel, aktuellesWeiterleitungsziel)
refreshDisplay()
End Sub
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles btn_IT_Stop_Weiterleitung.Click 'beenden
Dim pascom As New cPascom
pascom.Weiterleitung("555", "199", aktuellesWeiterleitungsziel)
pascom.Weiterleitung("199", "", aktuellesWeiterleitungsziel)
refreshDisplay()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, lbl_Zoll_Pascom.Click
refreshDisplay()
End Sub
@@ -60,4 +72,15 @@
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
cSQL.UpdateSQL("TbL_Dienste", "Aktiv = '" & CheckBox1.Checked & "'", "Name = 'IT_Notruf_Auto'")
End Sub
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles btn_Zoll_weiter_setzen.Click
If tb_Zoll_Notrufnummer.Text.Length > 2 Then
cSQL.UpdateSQL("TbL_Dienste", "Aktiv = 'True'", "Name= 'Zoll_Notruf_Enabled'")
cSQL.UpdateSQL("TbL_Dienste", "Parameter = " & "'" & tb_Zoll_Notrufnummer.Text & "'", "Name='Zoll_Notruf_Enabled'")
Dim pascom As New cPascom
pascom.Weiterleitung("123", tb_Zoll_Notrufnummer.Text)
End If
refreshDisplay()
End Sub
End Class

8
Dokumentation_Updater/My Project/Application.Designer.vb generated
View File

@@ -32,7 +32,13 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Dokumentation_Updater.Form1
Me.MainForm = Global.Dokumentation_Updater.Update
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace

7
Dokumentation_Updater/My Project/Application.myapp
View File

@@ -1,11 +1,12 @@
<?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">
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<MainForm>Update</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
<HighDpiMpde>false</HighDpiMpde>
</MyApplicationData>

1
Dokumentation_Updater/packages.config
View File

@@ -7,6 +7,7 @@
<package id="FastMember" version="1.3.0" targetFramework="net461" />
<package id="Ghostscript.NET" version="1.2.1" targetFramework="net461" />
<package id="iTextSharp" version="5.5.13.1" targetFramework="net461" />
<package id="Microsoft.PowerShell.SDK" version="7.4.1" targetFramework="net48" />
<package id="NetSpell" version="2.1.7" targetFramework="net461" />
<package id="Spire.PDF" version="6.3.10" targetFramework="net461" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />