From 409e0de0e0d0d181b5c55832df1443f84d2a33b0 Mon Sep 17 00:00:00 2001 From: ms Date: Mon, 7 Oct 2024 10:14:32 +0200 Subject: [PATCH] Teamviewer, kleine Verbesserungen --- Dokumentation/App.config | 34 +++++++++---------- Dokumentation/Dokumentation.vbproj | 3 ++ Dokumentation/Main.vb | 6 ---- .../My Project/Resources.Designer.vb | 2 +- Dokumentation/My Project/Resources.resx | 2 +- Dokumentation/packages.config | 1 + Dokumentation/uscntr_TSSitzungen.Designer.vb | 12 +++++-- Dokumentation/uscntr_TSSitzungen.vb | 4 ++- 8 files changed, 36 insertions(+), 28 deletions(-) diff --git a/Dokumentation/App.config b/Dokumentation/App.config index 7f07d10..4958309 100644 --- a/Dokumentation/App.config +++ b/Dokumentation/App.config @@ -1,42 +1,42 @@ - + - + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + diff --git a/Dokumentation/Dokumentation.vbproj b/Dokumentation/Dokumentation.vbproj index 51276c5..ac5f8dc 100644 --- a/Dokumentation/Dokumentation.vbproj +++ b/Dokumentation/Dokumentation.vbproj @@ -177,6 +177,9 @@ ..\packages\NetSpell.2.1.7\lib\NetSpell.SpellChecker.dll + + ..\packages\Otp.NET.1.4.0\lib\net461\Otp.NET.dll + ..\packages\Spire.PDF.6.3.10\lib\net46\Spire.License.dll diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index 9812418..8181793 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -651,13 +651,7 @@ Public Class Main End Function Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click - 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 diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index b45c846..21e8ffe 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -309,7 +309,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.93 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.94 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index 5065636..7663263 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -149,7 +149,7 @@ ..\Resources\external-content.duckduckgo.com.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 0.0.1.93 + 0.0.1.94 ..\Resources\mstsc1.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/Dokumentation/packages.config b/Dokumentation/packages.config index 3acbc3d..38ef578 100644 --- a/Dokumentation/packages.config +++ b/Dokumentation/packages.config @@ -11,6 +11,7 @@ + diff --git a/Dokumentation/uscntr_TSSitzungen.Designer.vb b/Dokumentation/uscntr_TSSitzungen.Designer.vb index b1e91b2..1832fb7 100644 --- a/Dokumentation/uscntr_TSSitzungen.Designer.vb +++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb @@ -43,6 +43,7 @@ Partial Class uscntr_TSSitzungen Me.Label1 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.timDisUpdateTimer = New System.Windows.Forms.Timer(Me.components) + Me.TeamVIDKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.dgvTSSitzungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -76,9 +77,9 @@ Partial Class uscntr_TSSitzungen ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem, Me.TeamVIDKopierenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 114) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 136) ' 'VerbindenMitTeamVToolStripMenuItem ' @@ -258,6 +259,12 @@ Partial Class uscntr_TSSitzungen ' Me.timDisUpdateTimer.Interval = 60000 ' + 'TeamVIDKopierenToolStripMenuItem + ' + Me.TeamVIDKopierenToolStripMenuItem.Name = "TeamVIDKopierenToolStripMenuItem" + Me.TeamVIDKopierenToolStripMenuItem.Size = New System.Drawing.Size(224, 22) + Me.TeamVIDKopierenToolStripMenuItem.Text = "TeamV. ID kopieren" + ' 'uscntr_TSSitzungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -299,4 +306,5 @@ Partial Class uscntr_TSSitzungen Friend WithEvents ProfildatenÖffnenExplorerToolStripMenuItem As ToolStripMenuItem Public WithEvents btnReset As Button Friend WithEvents timDisUpdateTimer As Timer + Friend WithEvents TeamVIDKopierenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Dokumentation/uscntr_TSSitzungen.vb b/Dokumentation/uscntr_TSSitzungen.vb index f93ef3d..baa8a0a 100644 --- a/Dokumentation/uscntr_TSSitzungen.vb +++ b/Dokumentation/uscntr_TSSitzungen.vb @@ -245,5 +245,7 @@ timDisUpdateTimer.Enabled = False End Sub - + Private Sub TeamVIDKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TeamVIDKopierenToolStripMenuItem.Click + Clipboard.SetText(Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)) + End Sub End Class