Anydesk eingebaut

This commit is contained in:
ms
2024-11-04 11:39:14 +01:00
parent 409e0de0e0
commit 48bf324eff
5 changed files with 105 additions and 10 deletions

View File

@@ -248,4 +248,11 @@
Private Sub TeamVIDKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TeamVIDKopierenToolStripMenuItem.Click
Clipboard.SetText(Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value))
End Sub
Private Sub VerbindenMitAnydeskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitAnydeskToolStripMenuItem.Click
Dim Name As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value)
Name = Name.Substring(Name.LastIndexOf("\") + 1)
Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value) & "\" & Name
cExtProgramme.RunAnyDeskWithPassword(sitzung)
End Sub
End Class