Teamviewer, Brumm Brumm

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

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

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)

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

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

Dokumentation/My 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

Dokumentation/My 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>

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

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

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