diff --git a/DokuServices/App.config b/DokuServices/App.config index ffaf540..7826ad9 100644 --- a/DokuServices/App.config +++ b/DokuServices/App.config @@ -1,6 +1,38 @@ - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Dokumentation/App.config b/Dokumentation/App.config index ce4ea48..7f07d10 100644 --- a/Dokumentation/App.config +++ b/Dokumentation/App.config @@ -1,28 +1,42 @@ - + - + - + - - + + - - + + - - + + + + + + + + + + + + + + + + + + diff --git a/Dokumentation/Classes/Class1.vb b/Dokumentation/Classes/Class1.vb index 7768914..d4bf1da 100644 --- a/Dokumentation/Classes/Class1.vb +++ b/Dokumentation/Classes/Class1.vb @@ -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 diff --git a/Dokumentation/Classes/cChilkat_Helper.vb b/Dokumentation/Classes/cChilkat_Helper.vb index b380722..75009f4 100644 --- a/Dokumentation/Classes/cChilkat_Helper.vb +++ b/Dokumentation/Classes/cChilkat_Helper.vb @@ -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) diff --git a/Dokumentation/Classes/cExtProgramme.vb b/Dokumentation/Classes/cExtProgramme.vb index 8ae2b54..3614b73 100644 --- a/Dokumentation/Classes/cExtProgramme.vb +++ b/Dokumentation/Classes/cExtProgramme.vb @@ -1,4 +1,7 @@ Imports System.IO +Imports System.Management.Automation +Imports System.Management.Automation.Runspaces +Imports System.Security Public Class cExtProgramme @@ -14,10 +17,9 @@ Public Class cExtProgramme edge.StartInfo.Arguments = " " & URL edge.Start() End If - ElseIf URL = "" Then - Exit Function - Else + Exit Function + Else Dim mstsc As New Process mstsc.StartInfo.FileName = "mstsc.exe" mstsc.StartInfo.Arguments = " /v: " & URL @@ -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 diff --git a/Dokumentation/Classes/cINI.vb b/Dokumentation/Classes/cINI.vb index 6989bea..38cccb3 100644 --- a/Dokumentation/Classes/cINI.vb +++ b/Dokumentation/Classes/cINI.vb @@ -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" diff --git a/Dokumentation/Classes/cPascom.vb b/Dokumentation/Classes/cPascom.vb index 6af0648..868be15 100644 --- a/Dokumentation/Classes/cPascom.vb +++ b/Dokumentation/Classes/cPascom.vb @@ -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 diff --git a/Dokumentation/Classes/cPowershellScripts.vb b/Dokumentation/Classes/cPowershellScripts.vb new file mode 100644 index 0000000..9721591 --- /dev/null +++ b/Dokumentation/Classes/cPowershellScripts.vb @@ -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 diff --git a/Dokumentation/Classes/cSMB.vb b/Dokumentation/Classes/cSMB.vb new file mode 100644 index 0000000..739bc6e --- /dev/null +++ b/Dokumentation/Classes/cSMB.vb @@ -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 diff --git a/Dokumentation/Dokumentation.vbproj b/Dokumentation/Dokumentation.vbproj index c36c500..51276c5 100644 --- a/Dokumentation/Dokumentation.vbproj +++ b/Dokumentation/Dokumentation.vbproj @@ -90,9 +90,9 @@ - + False - ..\..\..\ChilkatDotNet47.dll + F:\PROGRAMMIERUNG\dll\ChillKat64\ChilkatDotNet47.dll ..\packages\ClosedXML.0.94.2\lib\net46\ClosedXML.dll @@ -201,6 +201,9 @@ ..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll + + ..\packages\Microsoft.PowerShell.5.ReferenceAssemblies.1.1.0\lib\net4\System.Management.Automation.dll + @@ -256,6 +259,8 @@ + + @@ -293,6 +298,18 @@ Form + + ThinClients.vb + + + Form + + + SMB.vb + + + Form + uscntr_ConnectTel.vb @@ -323,10 +340,10 @@ UserControl - - uscntr_Notruf.vb + + uscntr_Telefon.vb - + UserControl @@ -433,6 +450,7 @@ True Application.myapp + True True @@ -531,6 +549,12 @@ frmPopUp.vb + + ThinClients.vb + + + SMB.vb + uscntr_ConnectTel.vb @@ -543,8 +567,8 @@ uscntr_MessageUser.vb - - uscntr_Notruf.vb + + uscntr_Telefon.vb uscntr_TSSitzungen.vb @@ -667,6 +691,8 @@ + + diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index 594625f..f9a9b85 100644 --- a/Dokumentation/Main.Designer.vb +++ b/Dokumentation/Main.Designer.vb @@ -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 diff --git a/Dokumentation/Main.resx b/Dokumentation/Main.resx index 9b7268b..98c4d9e 100644 --- a/Dokumentation/Main.resx +++ b/Dokumentation/Main.resx @@ -278,7 +278,7 @@ - 17, 17 + 33, 15 True @@ -304,6 +304,9 @@ 1067, 17 + + 64 + AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index fc02400..9812418 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -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 diff --git a/Dokumentation/My Project/Application.Designer.vb b/Dokumentation/My Project/Application.Designer.vb index 41fb59f..af77be8 100644 --- a/Dokumentation/My Project/Application.Designer.vb +++ b/Dokumentation/My Project/Application.Designer.vb @@ -34,5 +34,11 @@ Namespace My Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.Dokumentation.Login End Sub + + _ + 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 diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index 2165bf3..b45c846 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -160,6 +160,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -289,7 +309,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.85 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.93 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index 8dcb641..5065636 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -130,38 +130,44 @@ ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - Dokumentation - ..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\external-content.duckduckgo.com.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - 0.0.1.85 + 0.0.1.93 + + + ..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + Dokumentation ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\iconfinder-contat-us-27phone-4211855_115040.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -175,8 +181,8 @@ ..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -187,7 +193,7 @@ ..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/Dokumentation/My Project/Settings.Designer.vb b/Dokumentation/My Project/Settings.Designer.vb index 57ea2c6..d0bc9d1 100644 --- a/Dokumentation/My Project/Settings.Designer.vb +++ b/Dokumentation/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png b/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png new file mode 100644 index 0000000..429fd66 Binary files /dev/null and b/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040 (Benutzerdefiniert).png differ diff --git a/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040.png b/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040.png new file mode 100644 index 0000000..b356945 Binary files /dev/null and b/Dokumentation/Resources/iconfinder-contat-us-27phone-4211855_115040.png differ diff --git a/Dokumentation/SMB.Designer.vb b/Dokumentation/SMB.Designer.vb new file mode 100644 index 0000000..00d6c28 --- /dev/null +++ b/Dokumentation/SMB.Designer.vb @@ -0,0 +1,103 @@ + +Partial Class SMB + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/Dokumentation/SMB.resx b/Dokumentation/SMB.resx new file mode 100644 index 0000000..0fce0de --- /dev/null +++ b/Dokumentation/SMB.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Dokumentation/SMB.vb b/Dokumentation/SMB.vb new file mode 100644 index 0000000..381c6b6 --- /dev/null +++ b/Dokumentation/SMB.vb @@ -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 \ No newline at end of file diff --git a/Dokumentation/ThinClients.Designer.vb b/Dokumentation/ThinClients.Designer.vb new file mode 100644 index 0000000..8096ab3 --- /dev/null +++ b/Dokumentation/ThinClients.Designer.vb @@ -0,0 +1,104 @@ + +Partial Class ThinClients + + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/Dokumentation/ThinClients.resx b/Dokumentation/ThinClients.resx new file mode 100644 index 0000000..0fce0de --- /dev/null +++ b/Dokumentation/ThinClients.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Dokumentation/ThinClients.vb b/Dokumentation/ThinClients.vb new file mode 100644 index 0000000..4dbffa2 --- /dev/null +++ b/Dokumentation/ThinClients.vb @@ -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 \ No newline at end of file diff --git a/Dokumentation/packages.config b/Dokumentation/packages.config index 25a1570..3acbc3d 100644 --- a/Dokumentation/packages.config +++ b/Dokumentation/packages.config @@ -8,6 +8,8 @@ + + diff --git a/Dokumentation/uscntr_DomUser.Designer.vb b/Dokumentation/uscntr_DomUser.Designer.vb index d96f489..528e3d7 100644 --- a/Dokumentation/uscntr_DomUser.Designer.vb +++ b/Dokumentation/uscntr_DomUser.Designer.vb @@ -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 diff --git a/Dokumentation/uscntr_DomUser.vb b/Dokumentation/uscntr_DomUser.vb index 56cf275..6112c99 100644 --- a/Dokumentation/uscntr_DomUser.vb +++ b/Dokumentation/uscntr_DomUser.vb @@ -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 diff --git a/Dokumentation/uscntr_Notruf.Designer.vb b/Dokumentation/uscntr_Notruf.Designer.vb deleted file mode 100644 index b0f05d6..0000000 --- a/Dokumentation/uscntr_Notruf.Designer.vb +++ /dev/null @@ -1,200 +0,0 @@ - _ -Partial Class uscntr_Notruf - Inherits System.Windows.Forms.UserControl - - 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - 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. - _ - 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 diff --git a/Dokumentation/uscntr_SendMSG.Designer.vb b/Dokumentation/uscntr_SendMSG.Designer.vb index a786784..e587706 100644 --- a/Dokumentation/uscntr_SendMSG.Designer.vb +++ b/Dokumentation/uscntr_SendMSG.Designer.vb @@ -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) diff --git a/Dokumentation/uscntr_TSSitzungen.Designer.vb b/Dokumentation/uscntr_TSSitzungen.Designer.vb index 20ab7c2..b1e91b2 100644 --- a/Dokumentation/uscntr_TSSitzungen.Designer.vb +++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb @@ -23,7 +23,7 @@ Partial Class uscntr_TSSitzungen _ 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 ' diff --git a/Dokumentation/uscntr_TSSitzungen.vb b/Dokumentation/uscntr_TSSitzungen.vb index 408bff9..f93ef3d 100644 --- a/Dokumentation/uscntr_TSSitzungen.vb +++ b/Dokumentation/uscntr_TSSitzungen.vb @@ -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 diff --git a/Dokumentation/uscntr_Telefon.Designer.vb b/Dokumentation/uscntr_Telefon.Designer.vb new file mode 100644 index 0000000..3a818bf --- /dev/null +++ b/Dokumentation/uscntr_Telefon.Designer.vb @@ -0,0 +1,311 @@ + _ +Partial Class uscntr_Telefon + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/Dokumentation/uscntr_Notruf.resx b/Dokumentation/uscntr_Telefon.resx similarity index 97% rename from Dokumentation/uscntr_Notruf.resx rename to Dokumentation/uscntr_Telefon.resx index 3540632..8740dba 100644 --- a/Dokumentation/uscntr_Notruf.resx +++ b/Dokumentation/uscntr_Telefon.resx @@ -129,4 +129,7 @@ 610, 17 + + 849, 17 + \ No newline at end of file diff --git a/Dokumentation/uscntr_Notruf.vb b/Dokumentation/uscntr_Telefon.vb similarity index 59% rename from Dokumentation/uscntr_Notruf.vb rename to Dokumentation/uscntr_Telefon.vb index 2cce0d4..761bb63 100644 --- a/Dokumentation/uscntr_Notruf.vb +++ b/Dokumentation/uscntr_Telefon.vb @@ -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 diff --git a/Dokumentation_Updater/My Project/Application.Designer.vb b/Dokumentation_Updater/My Project/Application.Designer.vb index 94ba112..4f79428 100644 --- a/Dokumentation_Updater/My Project/Application.Designer.vb +++ b/Dokumentation_Updater/My Project/Application.Designer.vb @@ -32,7 +32,13 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.Dokumentation_Updater.Form1 + Me.MainForm = Global.Dokumentation_Updater.Update End Sub + + _ + 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 diff --git a/Dokumentation_Updater/My Project/Application.myapp b/Dokumentation_Updater/My Project/Application.myapp index 1243847..4389b60 100644 --- a/Dokumentation_Updater/My Project/Application.myapp +++ b/Dokumentation_Updater/My Project/Application.myapp @@ -1,11 +1,12 @@  - + true - Form1 + Update false 0 true 0 - 0 + 0 true - + false + \ No newline at end of file diff --git a/Dokumentation_Updater/packages.config b/Dokumentation_Updater/packages.config index ceeb154..993231c 100644 --- a/Dokumentation_Updater/packages.config +++ b/Dokumentation_Updater/packages.config @@ -7,6 +7,7 @@ +