Anydesk weiter integriert; Rechtsklick-Menü in Hauptansicht ausgebaut

Dokumentation/frmHostBearbeiten.vb

@@ -38,6 +38,9 @@
         txtTVKennwort.Text = host.TeamviewerKennwort
         txtSSHPort.Text = host.SSHPort
 
+        txtAnydesk.Text = host.AnydeskID
+        txtAnydeskPass.Text = host.AnydeskPassword
+
         Me.Text = host.FQDN
 
         Dim ds As New DataSet
@@ -85,6 +88,8 @@
             .TeamviewerID = txtTeamviewer.Text
             .TeamviewerKennwort = txtTVKennwort.Text
             .SSHPort = txtSSHPort.Text
+            .AnydeskID = txtAnydesk.Text
+            .AnydeskPassword = txtAnydeskPass.Text
         End With
     End Function
 
@@ -404,5 +409,19 @@
         TxtLink.Text = "https://" & TxtIP.Text & "/"
     End Sub
 
+    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
 
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+        If CheckBox1.Checked Then
+            txtAnydeskPass.PasswordChar = ""
+        Else
+            txtAnydeskPass.PasswordChar = "*"
+        End If
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        cExtProgramme.RunAnyDeskWithPassword(txtAnydesk.Text, txtAnydeskPass.Text)
+    End Sub
 End Class