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"