Anydesk weiter integriert; Rechtsklick-Menü in Hauptansicht ausgebaut

Dokumentation/Classes/cHost.vb

@@ -25,6 +25,8 @@ Public Class cHost
     Property TeamviewerID As String = ""
     Property TeamviewerKennwort As String = ""
     Property SSHPort As Decimal = 22
+    Property AnydeskID As String = ""
+    Property AnydeskPassword As String = ""
 
 
 
@@ -56,6 +58,8 @@ Public Class cHost
         list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
         list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
         list.Add(New SQLVariable("SSHPort", SSHPort))
+        list.Add(New SQLVariable("AnydeskID", AnydeskID))
+        list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword))
         Return list
 
     End Function
@@ -86,6 +90,8 @@ Public Class cHost
         list.Add(New SQLVariable("TeamviewerID", TeamviewerID))
         list.Add(New SQLVariable("TeamviewerKennwort", TeamviewerKennwort))
         list.Add(New SQLVariable("SSHPort", SSHPort))
+        list.Add(New SQLVariable("AnydeskID", AnydeskID))
+        list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword))
         Return list
 
     End Function
@@ -115,6 +121,8 @@ Public Class cHost
         Me.TeamviewerID = ""
         Me.TeamviewerKennwort = ""
         Me.SSHPort = 22
+        Me.AnydeskID = ""
+        Me.AnydeskPassword = ""
     End Function
 
     Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String)
@@ -302,6 +310,8 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
         newhost.DHCP = Me.DHCP
         newhost.Firewall = Me.Firewall
         newhost.SSHPort = Me.SSHPort
+        newhost.AnydeskID = Me.AnydeskID
+        newhost.AnydeskPassword = Me.AnydeskPassword
 
         Dim update, where As String
         getUpdateCmd(update, where, "", "", newhost.Linked, newhost)