diff --git a/Dokumentation/Classes/cExtProgramme.vb b/Dokumentation/Classes/cExtProgramme.vb index ee3eca4..8ae2b54 100644 --- a/Dokumentation/Classes/cExtProgramme.vb +++ b/Dokumentation/Classes/cExtProgramme.vb @@ -56,6 +56,7 @@ Public Class cExtProgramme Public Shared Function commandcmd(command As String) Dim cmd As New Process + cmd.StartInfo.WindowStyle = ProcessWindowStyle.Hidden cmd.StartInfo.FileName = "cmd.exe" cmd.StartInfo.Arguments = "/c " & command cmd.Start() @@ -130,9 +131,9 @@ Public Class cExtProgramme If Username.Length > 0 And Password.Length > 0 Then AnmeldeDatenVorhanden = True commandcmd("cmdkey /generic:" & host & " /user:" & Username & " /pass:" & Password) - + Threading.Thread.Sleep(3000) End If - Threading.Thread.Sleep(3000) + mstsc.StartInfo.FileName = "mstsc.exe" diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index 071def4..400572e 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -289,7 +289,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.82 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.83 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index 178b772..f22d26b 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -155,7 +155,7 @@ ..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 0.0.1.82 + 0.0.1.83 ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb index 6c4b4ab..eb9ca49 100644 --- a/Dokumentation/frmHostBearbeiten.Designer.vb +++ b/Dokumentation/frmHostBearbeiten.Designer.vb @@ -72,6 +72,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.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.txtSSHPort = New System.Windows.Forms.TextBox() Me.Label14 = New System.Windows.Forms.Label() @@ -90,7 +91,7 @@ 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.Button2 = New System.Windows.Forms.Button() + Me.MitHTTPSFuellen = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -420,26 +421,26 @@ Partial Class frmHostBearbeiten ' 'ContextMenuStrip1 ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem}) + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitHTTPFüllenToolStripMenuItem, Me.MitHTTPSFuellen, Me.KopierenToolStripMenuItem, Me.FFPortToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(157, 70) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 114) ' 'MitHTTPFüllenToolStripMenuItem ' Me.MitHTTPFüllenToolStripMenuItem.Name = "MitHTTPFüllenToolStripMenuItem" - Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(156, 22) + Me.MitHTTPFüllenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.MitHTTPFüllenToolStripMenuItem.Text = "mit HTTP füllen" ' 'KopierenToolStripMenuItem ' Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem" - Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(156, 22) + Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.KopierenToolStripMenuItem.Text = "Kopieren" ' 'FFPortToolStripMenuItem ' Me.FFPortToolStripMenuItem.Name = "FFPortToolStripMenuItem" - Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(156, 22) + Me.FFPortToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.FFPortToolStripMenuItem.Text = "FF Port" Me.FFPortToolStripMenuItem.Visible = False ' @@ -590,6 +591,18 @@ Partial Class frmHostBearbeiten Me.Panel1.Size = New System.Drawing.Size(643, 460) Me.Panel1.TabIndex = 137 ' + 'Button2 + ' + Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight + Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(332, 375) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(96, 23) + Me.Button2.TabIndex = 151 + Me.Button2.Text = "Link mit Edge" + Me.Button2.UseVisualStyleBackColor = False + ' 'Button1 ' Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight @@ -779,17 +792,11 @@ Partial Class frmHostBearbeiten Me.PanNavTop.Size = New System.Drawing.Size(309, 32) Me.PanNavTop.TabIndex = 141 ' - 'Button2 + 'MitHTTPSFuellen ' - Me.Button2.BackColor = System.Drawing.SystemColors.ControlLightLight - Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(332, 375) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(96, 23) - Me.Button2.TabIndex = 151 - Me.Button2.Text = "Link mit Edge" - Me.Button2.UseVisualStyleBackColor = False + Me.MitHTTPSFuellen.Name = "MitHTTPSFuellen" + Me.MitHTTPSFuellen.Size = New System.Drawing.Size(180, 22) + Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen" ' 'frmHostBearbeiten ' @@ -887,4 +894,5 @@ Partial Class frmHostBearbeiten Friend WithEvents txtSSHPort As TextBox Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button + Friend WithEvents MitHTTPSFuellen As ToolStripMenuItem End Class diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb index 98e8b4e..e3e73e4 100644 --- a/Dokumentation/frmHostBearbeiten.vb +++ b/Dokumentation/frmHostBearbeiten.vb @@ -395,4 +395,12 @@ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click cExtProgramme.startlink(TxtLink.Text, "edge") End Sub + + Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + + End Sub + + Private Sub MitHTTPSFuellen_Click(sender As Object, e As EventArgs) Handles MitHTTPSFuellen.Click + TxtLink.Text = "https://" & TxtIP.Text & "/" + End Sub End Class \ No newline at end of file