Bugfixes

TSAnmeldung/Anmeldung.vb

@@ -57,7 +57,14 @@ Public Class Anmeldung
 
         mstsc.StartInfo.FileName = "mstsc.exe"
         mstsc.StartInfo.UseShellExecute = False
-        mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
+
+        If System.IO.File.Exists(Application.StartupPath & "/rdpintern.verag.ag.rdp") Then
+            '   MsgBox("File gefunden")
+            mstsc.StartInfo.Arguments = Application.StartupPath & "/rdpintern.verag.ag.rdp"
+        Else
+            mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
+        End If
+
 
         mstsc.Start()
 

TSAnmeldung/Main.vb

@@ -54,6 +54,7 @@ Public Class Main
                     cRes.LocalUser.FillWithLoggedOnUser(False)
                     Anmeldung.deleteHostCred("rdpintern.verag.ag")
                     Anmeldung.deleteHostCred("remote.verag.ag")
+                    Me.ControlBox = True
                 Else
                     autoconnect = True
                     cRes.LocalUser.FillWithLoggedOnUser(False) : Report() : TimerReport.Enabled = True
@@ -77,6 +78,8 @@ Public Class Main
         Dim meh As New cPascom
         meh.Anmelden()
 
+        If ClientMode = True Then btnResetSession.PerformClick()
+
     End Sub
 
     Public Function Report()