From 62e796240378288d752519b333ab2730cf4ddec1 Mon Sep 17 00:00:00 2001
From: ms <ms@verag.ag>
Date: Thu, 12 Jan 2023 09:29:41 +0100
Subject: [PATCH] Bugfixes

---
 TSAnmeldung/Anmeldung.vb | 9 ++++++++-
 TSAnmeldung/Main.vb      | 3 +++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/TSAnmeldung/Anmeldung.vb b/TSAnmeldung/Anmeldung.vb
index 37aaab3..a4e25b3 100644
--- a/TSAnmeldung/Anmeldung.vb
+++ b/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()
 
diff --git a/TSAnmeldung/Main.vb b/TSAnmeldung/Main.vb
index 756130a..d04581c 100644
--- a/TSAnmeldung/Main.vb
+++ b/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()