Anydesk weiter integriert; Rechtsklick-Menü in Hauptansicht ausgebaut

2024-11-04 12:22:28 +01:00
parent 48bf324eff
commit b625d17481
5 changed files with 188 additions and 32 deletions
--- a/Dokumentation/Classes/cHost.vb
+++ b/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)
--- a/Dokumentation/Main.Designer.vb
+++ b/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
--- a/Dokumentation/Main.vb
+++ b/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
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/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
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/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