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

Tempanzeige Serverräume

Browse Source
This commit is contained in:
ms
2025-07-02 15:50:45 +02:00
parent fbaa4f1c02
commit 428755f337
9 changed files with 301 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Dokumentation/Classes/cExtProgramme.vb
View File

@@ -269,20 +269,28 @@ 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)
Threading.Thread.Sleep(2000)
End If
Dim rdpfile As String = RDPFileErstellen(host)
''1 RDP Datei erstellen
'Dim rdpfile As String = RDPFileErstellen(host)
'mstsc.StartInfo.FileName = "mstsc.exe"
'mstsc.StartInfo.UseShellExecute = False
''mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
'mstsc.StartInfo.Arguments = " " & rdpfile
'2 direkt verbinden
mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.UseShellExecute = False
'mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
mstsc.StartInfo.Arguments = " " & rdpfile
mstsc.StartInfo.Arguments = " /v: " & host & rdpASadmin & FensterString
mstsc.Start()
If AnmeldeDatenVorhanden = True Then
Threading.Thread.Sleep(3000)
Threading.Thread.Sleep(5000)
Dim Abmeldung As New Process
commandcmd("cmdkey /delete:" & host)
@@ -310,6 +318,7 @@ desktopheight:i:1080
session bpp:i:32
winposstr:s:0,1,-2219,191,-283,1310
compression:i:1
prompt for credentials:i:0
keyboardhook:i:1
audiocapturemode:i:0
videoplaybackmode:i:1