edv/TSAnmeldung
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfixes

Browse Source
This commit is contained in:
ms
2023-01-12 09:29:41 +01:00
parent ba8202cedb
commit 62e7962403
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
TSAnmeldung/Anmeldung.vb
View File

@@ -57,7 +57,14 @@ Public Class Anmeldung
mstsc.StartInfo.FileName = "mstsc.exe" mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.UseShellExecute = False mstsc.StartInfo.UseShellExecute = False
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 mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
End If
mstsc.Start() mstsc.Start()

3
TSAnmeldung/Main.vb
View File

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