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)

Dokumentation/Main.Designer.vb

@@ -106,7 +106,6 @@ Partial Class Main
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.NetzwerkdateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.PuttyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PingtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SpoolerNeuStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -122,6 +121,11 @@ Partial Class Main
         Me.panTSSitzungen = New System.Windows.Forms.Panel()
         Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.LinkÖffnenMitEdgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AnydeskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PuttyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -522,54 +526,54 @@ Partial Class Main
         'NetzwerkeToolStripMenuItem
         '
         Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
-        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
         '
         'AnsichtDruckenToolStripMenuItem
         '
         Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
-        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
         '
         'ExportToolStripMenuItem
         '
         Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ExportToolStripMenuItem.Text = "Export"
         '
         'ImportToolStripMenuItem
         '
         Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ImportToolStripMenuItem.Text = "Import"
         '
         'BenutzerToolStripMenuItem
         '
         Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
-        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.BenutzerToolStripMenuItem.Text = "Benutzer"
         '
         'AllesSichernCSVToolStripMenuItem
         '
         Me.AllesSichernCSVToolStripMenuItem.Name = "AllesSichernCSVToolStripMenuItem"
-        Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(173, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
         '
         'UpdateToolStripMenuItem
         '
         Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.UpdateToolStripMenuItem.Text = "Update"
         '
         'ExitToolStripMenuItem
         '
         Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ExitToolStripMenuItem.Text = "Exit"
         '
         'ToolStripMenuItem2
@@ -847,9 +851,9 @@ Partial Class Main
         '
         'DGVMainContext
         '
-        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
+        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.AnydeskToolStripMenuItem, Me.PuttyToolStripMenuItem, Me.ToolStripSeparator4, Me.DgvMainContextMenuItemLink, Me.LinkÖffnenMitEdgeToolStripMenuItem, Me.ToolStripSeparator5, Me.SMBToolStripMenuItem, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.RDPToolStripMenuItem, Me.RDPFensterToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
         Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 358)
         '
         'DgvMainContextMenuItemHost
         '
@@ -923,33 +927,27 @@ Partial Class Main
         '
         'ToolsToolStripMenuItem
         '
-        Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PuttyToolStripMenuItem, Me.PingToolStripMenuItem, Me.PingtToolStripMenuItem, Me.SpoolerNeuStartenToolStripMenuItem})
+        Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PingToolStripMenuItem, Me.PingtToolStripMenuItem, Me.SpoolerNeuStartenToolStripMenuItem})
         Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
         Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
         Me.ToolsToolStripMenuItem.Text = "Tools"
         '
-        'PuttyToolStripMenuItem
-        '
-        Me.PuttyToolStripMenuItem.Name = "PuttyToolStripMenuItem"
-        Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
-        Me.PuttyToolStripMenuItem.Text = "Putty"
-        '
         'PingToolStripMenuItem
         '
         Me.PingToolStripMenuItem.Name = "PingToolStripMenuItem"
-        Me.PingToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.PingToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.PingToolStripMenuItem.Text = "Ping"
         '
         'PingtToolStripMenuItem
         '
         Me.PingtToolStripMenuItem.Name = "PingtToolStripMenuItem"
-        Me.PingtToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.PingtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.PingtToolStripMenuItem.Text = "Ping -t"
         '
         'SpoolerNeuStartenToolStripMenuItem
         '
         Me.SpoolerNeuStartenToolStripMenuItem.Name = "SpoolerNeuStartenToolStripMenuItem"
-        Me.SpoolerNeuStartenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.SpoolerNeuStartenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.SpoolerNeuStartenToolStripMenuItem.Text = "Spooler neu starten"
         '
         'PanTools
@@ -1049,6 +1047,34 @@ Partial Class Main
         'Timer1
         '
         '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(226, 6)
+        '
+        'ToolStripSeparator5
+        '
+        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(226, 6)
+        '
+        'LinkÖffnenMitEdgeToolStripMenuItem
+        '
+        Me.LinkÖffnenMitEdgeToolStripMenuItem.Name = "LinkÖffnenMitEdgeToolStripMenuItem"
+        Me.LinkÖffnenMitEdgeToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.LinkÖffnenMitEdgeToolStripMenuItem.Text = "Link öffnen mit Edge"
+        '
+        'AnydeskToolStripMenuItem
+        '
+        Me.AnydeskToolStripMenuItem.Name = "AnydeskToolStripMenuItem"
+        Me.AnydeskToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.AnydeskToolStripMenuItem.Text = "Anydesk"
+        '
+        'PuttyToolStripMenuItem
+        '
+        Me.PuttyToolStripMenuItem.Name = "PuttyToolStripMenuItem"
+        Me.PuttyToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.PuttyToolStripMenuItem.Text = "Putty"
+        '
         'Main
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1144,7 +1170,6 @@ Partial Class Main
     Friend WithEvents NetzwerkdateienToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
     Friend WithEvents ToolsToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PingToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ObjektLöschenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ChkFreieHosts As CheckBox
@@ -1187,4 +1212,9 @@ Partial Class Main
     Friend WithEvents CmdNWDateien As Button
     Friend WithEvents CmdNetzwerkbearbeiten As Button
     Friend WithEvents Button3 As Button
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
+    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
+    Friend WithEvents LinkÖffnenMitEdgeToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AnydeskToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PuttyToolStripMenuItem As ToolStripMenuItem
 End Class

Dokumentation/Main.vb

@@ -1036,7 +1036,7 @@ exit"
         cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
     End Sub
 
-    Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
+    Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click
         Dim host As New cHost
         host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
 
@@ -1766,6 +1766,27 @@ exit"
         ThinClients.Show()
     End Sub
 
+    Private Sub LinkÖffnenMitEdgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkÖffnenMitEdgeToolStripMenuItem.Click
+        werbinich()
+        cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value, "edge")
+    End Sub
+
+    Private Sub AnydeskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnydeskToolStripMenuItem.Click
+        werbinich()
+        Dim host As New cHost
+        host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
+
+        cExtProgramme.RunAnyDeskWithPassword(host.AnydeskID, host.AnydeskPassword)
+    End Sub
+
+    Private Sub PuttyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PuttyToolStripMenuItem.Click
+        werbinich()
+        Dim host As New cHost
+        host.gethost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
+
+        cExtProgramme.startputty(host.IPAdresse, host.SSHPort)
+    End Sub
+
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
 
         Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked

Dokumentation/frmHostBearbeiten.Designer.vb

@@ -92,6 +92,12 @@ Partial Class frmHostBearbeiten
         Me.PanFirewall = New System.Windows.Forms.Panel()
         Me.PanSlaves = New System.Windows.Forms.Panel()
         Me.PanNavTop = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.txtAnydesk = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.txtAnydeskPass = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.ContextMenuStrip2.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -539,6 +545,12 @@ Partial Class frmHostBearbeiten
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.Controls.Add(Me.txtAnydesk)
+        Me.Panel1.Controls.Add(Me.Label15)
+        Me.Panel1.Controls.Add(Me.txtAnydeskPass)
+        Me.Panel1.Controls.Add(Me.Label16)
+        Me.Panel1.Controls.Add(Me.CheckBox1)
         Me.Panel1.Controls.Add(Me.Button2)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Controls.Add(Me.txtSSHPort)
@@ -594,7 +606,7 @@ Partial Class frmHostBearbeiten
         Me.Panel1.Controls.Add(Me.Label4)
         Me.Panel1.Location = New System.Drawing.Point(12, 62)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(643, 460)
+        Me.Panel1.Size = New System.Drawing.Size(643, 588)
         Me.Panel1.TabIndex = 137
         '
         'Button2
@@ -670,7 +682,7 @@ Partial Class frmHostBearbeiten
         Me.cmdTVConnect.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
         Me.cmdTVConnect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cmdTVConnect.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmdTVConnect.Location = New System.Drawing.Point(231, 378)
+        Me.cmdTVConnect.Location = New System.Drawing.Point(234, 462)
         Me.cmdTVConnect.Name = "cmdTVConnect"
         Me.cmdTVConnect.Size = New System.Drawing.Size(75, 20)
         Me.cmdTVConnect.TabIndex = 145
@@ -681,7 +693,7 @@ Partial Class frmHostBearbeiten
         '
         Me.txtTeamviewer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
         Me.txtTeamviewer.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
-        Me.txtTeamviewer.Location = New System.Drawing.Point(6, 378)
+        Me.txtTeamviewer.Location = New System.Drawing.Point(332, 525)
         Me.txtTeamviewer.Name = "txtTeamviewer"
         Me.txtTeamviewer.Size = New System.Drawing.Size(219, 20)
         Me.txtTeamviewer.TabIndex = 140
@@ -689,7 +701,7 @@ Partial Class frmHostBearbeiten
         'Label12
         '
         Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(3, 362)
+        Me.Label12.Location = New System.Drawing.Point(329, 509)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(76, 13)
         Me.Label12.TabIndex = 143
@@ -697,7 +709,7 @@ Partial Class frmHostBearbeiten
         '
         'txtTVKennwort
         '
-        Me.txtTVKennwort.Location = New System.Drawing.Point(6, 417)
+        Me.txtTVKennwort.Location = New System.Drawing.Point(332, 565)
         Me.txtTVKennwort.Name = "txtTVKennwort"
         Me.txtTVKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
         Me.txtTVKennwort.Size = New System.Drawing.Size(300, 20)
@@ -706,7 +718,7 @@ Partial Class frmHostBearbeiten
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(3, 401)
+        Me.Label13.Location = New System.Drawing.Point(329, 548)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(66, 13)
         Me.Label13.TabIndex = 144
@@ -715,7 +727,7 @@ Partial Class frmHostBearbeiten
         'chkTeamViewerKennwortAnzeigen
         '
         Me.chkTeamViewerKennwortAnzeigen.AutoSize = True
-        Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(75, 400)
+        Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(401, 548)
         Me.chkTeamViewerKennwortAnzeigen.Name = "chkTeamViewerKennwortAnzeigen"
         Me.chkTeamViewerKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
         Me.chkTeamViewerKennwortAnzeigen.TabIndex = 141
@@ -798,6 +810,64 @@ Partial Class frmHostBearbeiten
         Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
         Me.PanNavTop.TabIndex = 141
         '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.SkyBlue
+        Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button3.Location = New System.Drawing.Point(234, 377)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 20)
+        Me.Button3.TabIndex = 157
+        Me.Button3.Text = "Verb."
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'txtAnydesk
+        '
+        Me.txtAnydesk.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
+        Me.txtAnydesk.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
+        Me.txtAnydesk.Location = New System.Drawing.Point(6, 377)
+        Me.txtAnydesk.Name = "txtAnydesk"
+        Me.txtAnydesk.Size = New System.Drawing.Size(219, 20)
+        Me.txtAnydesk.TabIndex = 152
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(3, 359)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(50, 13)
+        Me.Label15.TabIndex = 155
+        Me.Label15.Text = "AnyDesk"
+        '
+        'txtAnydeskPass
+        '
+        Me.txtAnydeskPass.Location = New System.Drawing.Point(6, 420)
+        Me.txtAnydeskPass.Name = "txtAnydeskPass"
+        Me.txtAnydeskPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
+        Me.txtAnydeskPass.Size = New System.Drawing.Size(300, 20)
+        Me.txtAnydeskPass.TabIndex = 154
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(3, 404)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(77, 13)
+        Me.Label16.TabIndex = 156
+        Me.Label16.Text = "Anydesk Pass."
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(86, 403)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(70, 17)
+        Me.CheckBox1.TabIndex = 153
+        Me.CheckBox1.Text = "Anzeigen"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
         'frmHostBearbeiten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -805,7 +875,7 @@ Partial Class frmHostBearbeiten
         Me.AutoSize = True
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
-        Me.ClientSize = New System.Drawing.Size(1608, 534)
+        Me.ClientSize = New System.Drawing.Size(1608, 662)
         Me.Controls.Add(Me.chkFirewall)
         Me.Controls.Add(Me.PanNavTop)
         Me.Controls.Add(Me.PanSlaves)
@@ -895,4 +965,10 @@ Partial Class frmHostBearbeiten
     Friend WithEvents Button1 As Button
     Friend WithEvents Button2 As Button
     Friend WithEvents MitHTTPSFuellen As ToolStripMenuItem
+    Friend WithEvents Button3 As Button
+    Friend WithEvents txtAnydesk As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents txtAnydeskPass As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents CheckBox1 As CheckBox
 End Class

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