Teamviewer, Brumm Brumm

2019-11-07 12:53:13 +01:00
parent 0b0d0f9538
commit 8e7fc09e45
10 changed files with 149 additions and 28 deletions
--- a/Dokumentation/Classes/Class1.vb
+++ b/Dokumentation/Classes/Class1.vb
@@ -35,7 +35,7 @@ Public Class Class1
    End Sub

    Public Shared Function CheckDebug()
-        Dim Debugoverride As Boolean = True 'wenn True dann Override auf Produktiv!
+        Dim Debugoverride As Boolean = False 'wenn True dann Override auf Produktiv!
        Dim Startparameter As String = ""
        Dim i As Integer
        For Each s As String In Environment.GetCommandLineArgs
--- a/Dokumentation/Classes/Ext_Programme.vb
+++ b/Dokumentation/Classes/Ext_Programme.vb
@@ -63,4 +63,18 @@
        End Try
    End Function

+    Public Shared Function StartTeamviewer(ID As String, Optional Passwort As String = "BmWr501956")
+        If Passwort.Length < 1 Then
+            Passwort = "BmWr501956"
+        End If
+        Dim teamviewer As New Process
+        With teamviewer.StartInfo
+            .FileName = "Teamviewer.exe"
+            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
+            .Arguments = "-i " & ID & " -P " & Passwort
+        End With
+
+        teamviewer.Start()
+    End Function
+
 End Class
--- a/Dokumentation/Classes/cHost.vb
+++ b/Dokumentation/Classes/cHost.vb
@@ -22,6 +22,9 @@ Public Class cHost
    Property DHCP As String = ""
    Property Netzwerk As String = ""
    Property Firewall As Boolean = False
+    Property TeamviewerID As String = ""
+    Property TeamviewerKennwort As String = ""
+



@@ -49,6 +52,8 @@ Public Class cHost
        list.Add(New SQLVariable("DHCP", DHCP))
        list.Add(New SQLVariable("Netzwerk", Netzwerk))
        list.Add(New SQLVariable("Firewall", Firewall))
+        list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
+        list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
        Return list

    End Function
@@ -102,6 +107,8 @@ Public Class cHost
        Me.DHCP = ""
        Me.Netzwerk = ""
        Me.Firewall = False
+        Me.TeamviewerID = ""
+        Me.TeamviewerKennwort = ""
    End Function

    Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -103,6 +103,7 @@ Partial Class Main
        Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
        Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
        Me.panTSSitzungen = New System.Windows.Forms.Panel()
+        Me.TeamviewerVerbindenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.PanType.SuspendLayout()
@@ -669,9 +670,9 @@ Partial Class Main
        '
        'DGVMainContext
        '
-        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
+        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
        Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(230, 214)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
        '
        'DgvMainContextMenuItemHost
        '
@@ -845,6 +846,12 @@ Partial Class Main
        Me.panTSSitzungen.TabIndex = 5
        Me.panTSSitzungen.Visible = False
        '
+        'TeamviewerVerbindenToolStripMenuItem
+        '
+        Me.TeamviewerVerbindenToolStripMenuItem.Name = "TeamviewerVerbindenToolStripMenuItem"
+        Me.TeamviewerVerbindenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.TeamviewerVerbindenToolStripMenuItem.Text = "Teamviewer verbinden"
+        '
        'Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -962,4 +969,5 @@ Partial Class Main
    Friend WithEvents AllesSichernCSVToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents panTSSitzungen As Panel
    Friend WithEvents chkTSSitzungen As CheckBox
+    Friend WithEvents TeamviewerVerbindenToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -1286,6 +1286,15 @@ Public Class Main
        End If
    End Sub

+    Private Sub TeamviewerVerbindenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TeamviewerVerbindenToolStripMenuItem.Click
+        Dim Host2Connect As New cHost
+        Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
+        If Host2Connect.TeamviewerID.Length > 1 Then
+            Ext_Programme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
+        Else
+            MsgBox("TeamviewerID nicht eingepflegt!")
+        End If
+    End Sub

    Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
        If Tabelle = "TbL_Netzwerkclients" Then
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -199,7 +199,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.41 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.42 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -128,7 +128,7 @@
    <value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>0.0.1.41</value>
+    <value>0.0.1.42</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>
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -72,6 +72,11 @@ Partial Class frmHostBearbeiten
        Me.CmdDelete = New System.Windows.Forms.Button()
        Me.TxtBenutzername = New System.Windows.Forms.TextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtTeamviewer = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtTVKennwort = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.chkTeamViewerKennwortAnzeigen = New System.Windows.Forms.CheckBox()
        Me.cmdAuthSMB = New System.Windows.Forms.Button()
        Me.cmdSMB = New System.Windows.Forms.Button()
        Me.ChkShowSlaves = New System.Windows.Forms.CheckBox()
@@ -79,6 +84,7 @@ Partial Class frmHostBearbeiten
        Me.PanFirewall = New System.Windows.Forms.Panel()
        Me.PanSlaves = New System.Windows.Forms.Panel()
        Me.PanNavTop = New System.Windows.Forms.Panel()
+        Me.cmdTVConnect = New System.Windows.Forms.Button()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -100,7 +106,7 @@ Partial Class frmHostBearbeiten
        Me.CmdHostLink.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdHostLink.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdHostLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdHostLink.Location = New System.Drawing.Point(332, 349)
+        Me.CmdHostLink.Location = New System.Drawing.Point(332, 405)
        Me.CmdHostLink.Name = "CmdHostLink"
        Me.CmdHostLink.Size = New System.Drawing.Size(96, 23)
        Me.CmdHostLink.TabIndex = 135
@@ -337,7 +343,7 @@ Partial Class frmHostBearbeiten
        Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdSave.Location = New System.Drawing.Point(536, 349)
+        Me.CmdSave.Location = New System.Drawing.Point(536, 405)
        Me.CmdSave.Name = "CmdSave"
        Me.CmdSave.Size = New System.Drawing.Size(96, 23)
        Me.CmdSave.TabIndex = 108
@@ -358,7 +364,7 @@ Partial Class frmHostBearbeiten
        Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdReset.Location = New System.Drawing.Point(108, 378)
+        Me.CmdReset.Location = New System.Drawing.Point(536, 362)
        Me.CmdReset.Name = "CmdReset"
        Me.CmdReset.Size = New System.Drawing.Size(96, 23)
        Me.CmdReset.TabIndex = 111
@@ -370,7 +376,7 @@ Partial Class frmHostBearbeiten
        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdAbbrechen.Location = New System.Drawing.Point(536, 378)
+        Me.CmdAbbrechen.Location = New System.Drawing.Point(536, 434)
        Me.CmdAbbrechen.Name = "CmdAbbrechen"
        Me.CmdAbbrechen.Size = New System.Drawing.Size(96, 23)
        Me.CmdAbbrechen.TabIndex = 109
@@ -448,7 +454,7 @@ Partial Class frmHostBearbeiten
        Me.CmdDateien.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdDateien.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdDateien.Location = New System.Drawing.Point(332, 378)
+        Me.CmdDateien.Location = New System.Drawing.Point(332, 434)
        Me.CmdDateien.Name = "CmdDateien"
        Me.CmdDateien.Size = New System.Drawing.Size(96, 23)
        Me.CmdDateien.TabIndex = 110
@@ -502,7 +508,7 @@ Partial Class frmHostBearbeiten
        Me.CmdDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdDelete.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdDelete.Location = New System.Drawing.Point(6, 378)
+        Me.CmdDelete.Location = New System.Drawing.Point(434, 362)
        Me.CmdDelete.Name = "CmdDelete"
        Me.CmdDelete.Size = New System.Drawing.Size(96, 23)
        Me.CmdDelete.TabIndex = 112
@@ -520,6 +526,12 @@ Partial Class frmHostBearbeiten
        '
        'Panel1
        '
+        Me.Panel1.Controls.Add(Me.cmdTVConnect)
+        Me.Panel1.Controls.Add(Me.txtTeamviewer)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.txtTVKennwort)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.chkTeamViewerKennwortAnzeigen)
        Me.Panel1.Controls.Add(Me.cmdAuthSMB)
        Me.Panel1.Controls.Add(Me.cmdSMB)
        Me.Panel1.Controls.Add(Me.ChkShowSlaves)
@@ -563,15 +575,60 @@ Partial Class frmHostBearbeiten
        Me.Panel1.Controls.Add(Me.Label4)
        Me.Panel1.Location = New System.Drawing.Point(12, 62)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(643, 415)
+        Me.Panel1.Size = New System.Drawing.Size(643, 460)
        Me.Panel1.TabIndex = 137
        '
+        'txtTeamviewer
+        '
+        Me.txtTeamviewer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.txtTeamviewer.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.txtTeamviewer.Location = New System.Drawing.Point(6, 378)
+        Me.txtTeamviewer.Name = "txtTeamviewer"
+        Me.txtTeamviewer.Size = New System.Drawing.Size(219, 20)
+        Me.txtTeamviewer.TabIndex = 140
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(3, 362)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(76, 13)
+        Me.Label12.TabIndex = 143
+        Me.Label12.Text = "TeamviewerID"
+        '
+        'txtTVKennwort
+        '
+        Me.txtTVKennwort.Location = New System.Drawing.Point(6, 417)
+        Me.txtTVKennwort.Name = "txtTVKennwort"
+        Me.txtTVKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.txtTVKennwort.Size = New System.Drawing.Size(300, 20)
+        Me.txtTVKennwort.TabIndex = 142
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(3, 401)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(66, 13)
+        Me.Label13.TabIndex = 144
+        Me.Label13.Text = "TVKennwort"
+        '
+        'chkTeamViewerKennwortAnzeigen
+        '
+        Me.chkTeamViewerKennwortAnzeigen.AutoSize = True
+        Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(75, 400)
+        Me.chkTeamViewerKennwortAnzeigen.Name = "chkTeamViewerKennwortAnzeigen"
+        Me.chkTeamViewerKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
+        Me.chkTeamViewerKennwortAnzeigen.TabIndex = 141
+        Me.chkTeamViewerKennwortAnzeigen.Text = "Anzeigen"
+        Me.chkTeamViewerKennwortAnzeigen.UseVisualStyleBackColor = True
+        '
        'cmdAuthSMB
        '
        Me.cmdAuthSMB.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.cmdAuthSMB.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.cmdAuthSMB.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdAuthSMB.Location = New System.Drawing.Point(434, 378)
+        Me.cmdAuthSMB.Location = New System.Drawing.Point(434, 434)
        Me.cmdAuthSMB.Name = "cmdAuthSMB"
        Me.cmdAuthSMB.Size = New System.Drawing.Size(96, 23)
        Me.cmdAuthSMB.TabIndex = 139
@@ -583,7 +640,7 @@ Partial Class frmHostBearbeiten
        Me.cmdSMB.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.cmdSMB.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.cmdSMB.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cmdSMB.Location = New System.Drawing.Point(434, 349)
+        Me.cmdSMB.Location = New System.Drawing.Point(434, 405)
        Me.cmdSMB.Name = "cmdSMB"
        Me.cmdSMB.Size = New System.Drawing.Size(96, 23)
        Me.cmdSMB.TabIndex = 138
@@ -593,7 +650,7 @@ Partial Class frmHostBearbeiten
        'ChkShowSlaves
        '
        Me.ChkShowSlaves.AutoSize = True
-        Me.ChkShowSlaves.Location = New System.Drawing.Point(6, 349)
+        Me.ChkShowSlaves.Location = New System.Drawing.Point(434, 333)
        Me.ChkShowSlaves.Name = "ChkShowSlaves"
        Me.ChkShowSlaves.Size = New System.Drawing.Size(104, 17)
        Me.ChkShowSlaves.TabIndex = 137
@@ -642,6 +699,19 @@ Partial Class frmHostBearbeiten
        Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
        Me.PanNavTop.TabIndex = 141
        '
+        'cmdTVConnect
+        '
+        Me.cmdTVConnect.BackColor = System.Drawing.Color.SkyBlue
+        Me.cmdTVConnect.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdTVConnect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdTVConnect.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmdTVConnect.Location = New System.Drawing.Point(231, 378)
+        Me.cmdTVConnect.Name = "cmdTVConnect"
+        Me.cmdTVConnect.Size = New System.Drawing.Size(75, 20)
+        Me.cmdTVConnect.TabIndex = 145
+        Me.cmdTVConnect.Text = "Verb."
+        Me.cmdTVConnect.UseVisualStyleBackColor = False
+        '
        'frmHostBearbeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -726,4 +796,10 @@ Partial Class frmHostBearbeiten
    Friend WithEvents cmdAuthSMB As Button
    Friend WithEvents KopierenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents FFPortToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents txtTeamviewer As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents txtTVKennwort As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents chkTeamViewerKennwortAnzeigen As CheckBox
+    Friend WithEvents cmdTVConnect As Button
 End Class
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -34,6 +34,9 @@
        TxtKennwort.Text = host.Passwort
        TxtLink.Text = host.LINK

+        txtTeamviewer.Text = host.TeamviewerID
+        txtTVKennwort.Text = host.TeamviewerKennwort
+
        Dim ds As New DataSet
        cHost.getSlaves(host.IPAdresse, ds)
        If ds.Tables(0).Rows.Count > 0 Then
@@ -75,6 +78,9 @@
            .LINK = TxtLink.Text

            .Firewall = chkFirewall.Checked
+
+            .TeamviewerID = txtTeamviewer.Text
+            .TeamviewerKennwort = txtTVKennwort.Text
        End With
    End Function

@@ -284,7 +290,7 @@
        fillform(ZielHost)
    End Sub

-    Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.Click
+    Private Sub CmdDelete_Click(sender As Object, e As EventArgs) Handles CmdDelete.DoubleClick
        fillHost()
        host.DeleteHost()
        host = New cHost
@@ -358,5 +364,15 @@
        Clipboard.SetText(TxtLink.Text)
    End Sub

+    Private Sub chkTeamViewerKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles chkTeamViewerKennwortAnzeigen.CheckedChanged
+        If chkTeamViewerKennwortAnzeigen.Checked Then
+            txtTVKennwort.PasswordChar = ""
+        Else
+            txtTVKennwort.PasswordChar = "*"
+        End If
+    End Sub

+    Private Sub cmdTVConnect_Click(sender As Object, e As EventArgs) Handles cmdTVConnect.Click
+        Ext_Programme.StartTeamviewer(txtTeamviewer.Text, txtTVKennwort.Text)
+    End Sub
 End Class
--- a/Dokumentation/uscntr_TSSitzungen.vb
+++ b/Dokumentation/uscntr_TSSitzungen.vb
@@ -29,20 +29,11 @@
    Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellDoubleClick 'dgvTSSitzungen.CellContentDoubleClick, 

        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
-        StartTeamviewer(sitzung)
+        Ext_Programme.StartTeamviewer(sitzung)

    End Sub

-    Public Function StartTeamviewer(ID As String)
-        Dim teamviewer As New Process
-        With teamviewer.StartInfo
-            .FileName = "Teamviewer.exe"
-            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
-            .Arguments = "-i " & ID & " -P BmWr501956"
-        End With

-        teamviewer.Start()
-    End Function

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Load2DGV()
@@ -84,7 +75,7 @@

    Private Sub NachrichtSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachrichtSendenToolStripMenuItem.Click
        Dim send As New frmLeer
-        send.Text = "Nachricht senden"
+        send.Text = "Nachricht senden an " & dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
        Dim usrcntrl As New uscntr_SendMSG
        usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
        usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
@@ -108,6 +99,6 @@

    Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click
        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
-        StartTeamviewer(sitzung)
+        Ext_Programme.StartTeamviewer(sitzung)
    End Sub
 End Class