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()