Teamviewer, Brumm Brumm

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