Kleinigkeiten

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"

Dokumentation/My Project/Resources.Designer.vb

@@ -289,7 +289,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.82 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.83 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Dokumentation/My Project/Resources.resx

@@ -155,7 +155,7 @@
     <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>0.0.1.82</value>
+    <value>0.0.1.83</value>
   </data>
   <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

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.MitHTTPSFuellen.Name = "MitHTTPSFuellen"
-        Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.MitHTTPSFuellen.Size = New System.Drawing.Size(180, 22)
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.MitHTTPSFuellen.Text = "Mit HTTPS füllen"
-        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
         '
         '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

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