Teamviewer, Brumm Brumm

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