Update VeragProgAllgemein; Feature: RDP direkt starten;

Dokumentation/frmHostBearbeiten.vb

@@ -36,6 +36,7 @@
 
         txtTeamviewer.Text = host.TeamviewerID
         txtTVKennwort.Text = host.TeamviewerKennwort
+        txtSSHPort.Text = host.SSHPort
 
         Me.Text = host.FQDN
 
@@ -83,6 +84,7 @@
 
             .TeamviewerID = txtTeamviewer.Text
             .TeamviewerKennwort = txtTVKennwort.Text
+            .SSHPort = txtSSHPort.Text
         End With
     End Function
 
@@ -379,10 +381,14 @@
     End Sub
 
     Private Sub cmdPutty_Click(sender As Object, e As EventArgs) Handles cmdPutty.Click
-        cExtProgramme.startputty(Class1.MainHost(TxtIP.Text))
+        cExtProgramme.startputty(Class1.MainHost(TxtIP.Text), txtSSHPort.Text)
     End Sub
 
     Private Sub cmdRDP_Click(sender As Object, e As EventArgs) Handles cmdRDP.Click
-        cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort)
+        cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort, False)
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        cExtProgramme.RDPConnect(host.FQDN, host.Benutzer, host.Passwort, True)
     End Sub
 End Class