diff --git a/Dokumentation/Classes/cHost.vb b/Dokumentation/Classes/cHost.vb index f9b4bac..46635ed 100644 --- 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) diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index f9a9b85..f86c717 100644 --- 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 diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index 8181793..6f7223f 100644 --- 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 diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb index 4ffdaa1..e571d8a 100644 --- 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 diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb index 440cbed..0f4ccef 100644 --- 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 \ No newline at end of file