diff --git a/Dokumentation/Classes/cHost.vb b/Dokumentation/Classes/cHost.vb index 46635ed..d33e38c 100644 --- a/Dokumentation/Classes/cHost.vb +++ b/Dokumentation/Classes/cHost.vb @@ -27,6 +27,7 @@ Public Class cHost Property SSHPort As Decimal = 22 Property AnydeskID As String = "" Property AnydeskPassword As String = "" + Property DocMostURL As String = "" @@ -60,6 +61,7 @@ Public Class cHost list.Add(New SQLVariable("SSHPort", SSHPort)) list.Add(New SQLVariable("AnydeskID", AnydeskID)) list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword)) + list.Add(New SQLVariable("DocMostURL", DocmostURL)) Return list End Function @@ -92,6 +94,7 @@ Public Class cHost list.Add(New SQLVariable("SSHPort", SSHPort)) list.Add(New SQLVariable("AnydeskID", AnydeskID)) list.Add(New SQLVariable("AnydeskPassword", AnydeskPassword)) + list.Add(New SQLVariable("DocMostURL", DocMostURL)) Return list End Function @@ -123,6 +126,7 @@ Public Class cHost Me.SSHPort = 22 Me.AnydeskID = "" Me.AnydeskPassword = "" + Me.DocMostURL = "" End Function Public Shared Function getHostsEntrys(ByRef ds As DataSet, ByVal HostIP As String) @@ -312,6 +316,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen" newhost.SSHPort = Me.SSHPort newhost.AnydeskID = Me.AnydeskID newhost.AnydeskPassword = Me.AnydeskPassword + newhost.DocMostURL = Me.DocMostURL Dim update, where As String getUpdateCmd(update, where, "", "", newhost.Linked, newhost) diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb index 1a178a5..262d651 100644 --- a/Dokumentation/frmHostBearbeiten.Designer.vb +++ b/Dokumentation/frmHostBearbeiten.Designer.vb @@ -75,6 +75,7 @@ Partial Class frmHostBearbeiten Me.CmdDelete = New System.Windows.Forms.Button() Me.TxtBenutzername = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.btn_IntelAMT = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.txtAnydesk = New System.Windows.Forms.TextBox() Me.Label15 = New System.Windows.Forms.Label() @@ -100,7 +101,9 @@ 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.btn_IntelAMT = New System.Windows.Forms.Button() + Me.cmdDocMost = New System.Windows.Forms.Button() + Me.txtDocMostURL = New System.Windows.Forms.TextBox() + Me.Label17 = New System.Windows.Forms.Label() Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -563,6 +566,9 @@ Partial Class frmHostBearbeiten 'Panel1 ' Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip3 + Me.Panel1.Controls.Add(Me.txtDocMostURL) + Me.Panel1.Controls.Add(Me.Label17) + Me.Panel1.Controls.Add(Me.cmdDocMost) Me.Panel1.Controls.Add(Me.btn_IntelAMT) Me.Panel1.Controls.Add(Me.Button3) Me.Panel1.Controls.Add(Me.txtAnydesk) @@ -628,6 +634,18 @@ Partial Class frmHostBearbeiten Me.Panel1.Size = New System.Drawing.Size(643, 588) Me.Panel1.TabIndex = 137 ' + 'btn_IntelAMT + ' + Me.btn_IntelAMT.BackColor = System.Drawing.SystemColors.ControlLightLight + Me.btn_IntelAMT.FlatAppearance.BorderColor = System.Drawing.Color.DimGray + Me.btn_IntelAMT.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_IntelAMT.Location = New System.Drawing.Point(332, 463) + Me.btn_IntelAMT.Name = "btn_IntelAMT" + Me.btn_IntelAMT.Size = New System.Drawing.Size(96, 23) + Me.btn_IntelAMT.TabIndex = 158 + Me.btn_IntelAMT.Text = "IntelAMT" + Me.btn_IntelAMT.UseVisualStyleBackColor = False + ' 'Button3 ' Me.Button3.BackColor = System.Drawing.Color.SkyBlue @@ -705,7 +723,7 @@ Partial Class frmHostBearbeiten Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.ForeColor = System.Drawing.Color.Red - Me.Button1.Image = Global.Doku.My.Resources.Resources.mstsc1 + Me.Button1.Image = Global.DOKU.My.Resources.Resources.mstsc1 Me.Button1.Location = New System.Drawing.Point(271, 340) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(32, 32) @@ -734,7 +752,7 @@ Partial Class frmHostBearbeiten Me.cmdRDP.BackColor = System.Drawing.SystemColors.ControlLightLight Me.cmdRDP.FlatAppearance.BorderColor = System.Drawing.Color.DimGray Me.cmdRDP.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cmdRDP.Image = Global.Doku.My.Resources.Resources.mstsc1 + Me.cmdRDP.Image = Global.DOKU.My.Resources.Resources.mstsc1 Me.cmdRDP.Location = New System.Drawing.Point(231, 340) Me.cmdRDP.Name = "cmdRDP" Me.cmdRDP.Size = New System.Drawing.Size(32, 32) @@ -746,7 +764,7 @@ Partial Class frmHostBearbeiten Me.cmdPutty.BackColor = System.Drawing.SystemColors.ControlLightLight Me.cmdPutty.FlatAppearance.BorderColor = System.Drawing.Color.DimGray Me.cmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cmdPutty.Image = Global.Doku.My.Resources.Resources.ico_putty_exe0001 + Me.cmdPutty.Image = Global.DOKU.My.Resources.Resources.ico_putty_exe0001 Me.cmdPutty.Location = New System.Drawing.Point(85, 339) Me.cmdPutty.Name = "cmdPutty" Me.cmdPutty.Size = New System.Drawing.Size(32, 32) @@ -770,7 +788,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(332, 525) + Me.txtTeamviewer.Location = New System.Drawing.Point(6, 517) Me.txtTeamviewer.Name = "txtTeamviewer" Me.txtTeamviewer.Size = New System.Drawing.Size(219, 20) Me.txtTeamviewer.TabIndex = 140 @@ -778,7 +796,7 @@ Partial Class frmHostBearbeiten 'Label12 ' Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(329, 509) + Me.Label12.Location = New System.Drawing.Point(3, 501) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(76, 13) Me.Label12.TabIndex = 143 @@ -786,7 +804,7 @@ Partial Class frmHostBearbeiten ' 'txtTVKennwort ' - Me.txtTVKennwort.Location = New System.Drawing.Point(332, 565) + Me.txtTVKennwort.Location = New System.Drawing.Point(6, 557) Me.txtTVKennwort.Name = "txtTVKennwort" Me.txtTVKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) Me.txtTVKennwort.Size = New System.Drawing.Size(300, 20) @@ -795,7 +813,7 @@ Partial Class frmHostBearbeiten 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(329, 548) + Me.Label13.Location = New System.Drawing.Point(3, 540) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(66, 13) Me.Label13.TabIndex = 144 @@ -804,7 +822,7 @@ Partial Class frmHostBearbeiten 'chkTeamViewerKennwortAnzeigen ' Me.chkTeamViewerKennwortAnzeigen.AutoSize = True - Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(401, 548) + Me.chkTeamViewerKennwortAnzeigen.Location = New System.Drawing.Point(75, 540) Me.chkTeamViewerKennwortAnzeigen.Name = "chkTeamViewerKennwortAnzeigen" Me.chkTeamViewerKennwortAnzeigen.Size = New System.Drawing.Size(70, 17) Me.chkTeamViewerKennwortAnzeigen.TabIndex = 141 @@ -887,17 +905,35 @@ Partial Class frmHostBearbeiten Me.PanNavTop.Size = New System.Drawing.Size(309, 32) Me.PanNavTop.TabIndex = 141 ' - 'btn_IntelAMT + 'cmdDocMost ' - Me.btn_IntelAMT.BackColor = System.Drawing.SystemColors.ControlLightLight - Me.btn_IntelAMT.FlatAppearance.BorderColor = System.Drawing.Color.DimGray - Me.btn_IntelAMT.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_IntelAMT.Location = New System.Drawing.Point(332, 463) - Me.btn_IntelAMT.Name = "btn_IntelAMT" - Me.btn_IntelAMT.Size = New System.Drawing.Size(96, 23) - Me.btn_IntelAMT.TabIndex = 158 - Me.btn_IntelAMT.Text = "IntelAMT" - Me.btn_IntelAMT.UseVisualStyleBackColor = False + Me.cmdDocMost.BackColor = System.Drawing.SystemColors.ControlLightLight + Me.cmdDocMost.FlatAppearance.BorderColor = System.Drawing.Color.DimGray + Me.cmdDocMost.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cmdDocMost.Location = New System.Drawing.Point(434, 463) + Me.cmdDocMost.Name = "cmdDocMost" + Me.cmdDocMost.Size = New System.Drawing.Size(96, 23) + Me.cmdDocMost.TabIndex = 159 + Me.cmdDocMost.Text = "DocMost" + Me.cmdDocMost.UseVisualStyleBackColor = False + ' + 'txtDocMostURL + ' + Me.txtDocMostURL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.txtDocMostURL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource + Me.txtDocMostURL.Location = New System.Drawing.Point(332, 556) + Me.txtDocMostURL.Name = "txtDocMostURL" + Me.txtDocMostURL.Size = New System.Drawing.Size(219, 20) + Me.txtDocMostURL.TabIndex = 160 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(329, 540) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(75, 13) + Me.Label17.TabIndex = 161 + Me.Label17.Text = "DocMost URL" ' 'frmHostBearbeiten ' @@ -1006,4 +1042,7 @@ Partial Class frmHostBearbeiten Friend WithEvents ContextMenuStrip3 As ContextMenuStrip Friend WithEvents IPAdresseKopierenToolStripMenuItem As ToolStripMenuItem Friend WithEvents btn_IntelAMT As Button + Friend WithEvents txtDocMostURL As TextBox + Friend WithEvents Label17 As Label + Friend WithEvents cmdDocMost As Button End Class diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb index 1260f0c..9a4fd7f 100644 --- a/Dokumentation/frmHostBearbeiten.vb +++ b/Dokumentation/frmHostBearbeiten.vb @@ -41,6 +41,8 @@ txtAnydesk.Text = host.AnydeskID txtAnydeskPass.Text = host.AnydeskPassword + txtDocMostURL.Text = host.DocmostURL + Me.Text = host.FQDN Dim ds As New DataSet @@ -90,6 +92,7 @@ .SSHPort = txtSSHPort.Text .AnydeskID = txtAnydesk.Text .AnydeskPassword = txtAnydeskPass.Text + .DocmostURL = txtDocMostURL.Text End With End Function @@ -432,4 +435,8 @@ Private Sub btn_IntelAMT_Click(sender As Object, e As EventArgs) Handles btn_IntelAMT.Click cExtProgramme.startlink("https://" & TxtIP.Text & ":16993") End Sub + + Private Sub cmdDocMost_Click(sender As Object, e As EventArgs) Handles cmdDocMost.Click + cExtProgramme.startlink(txtDocMostURL.Text) + End Sub End Class \ No newline at end of file