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