Set WshShell = CreateObject("WScript.Shell")

' Prozessname aus dem ersten Argument (Steam %command%) extrahieren
Dim exePath, fso, exeName
Set fso = CreateObject("Scripting.FileSystemObject")
exePath = WScript.Arguments(0)
exeName = fso.GetBaseName(exePath)

' FocusFix Script unsichtbar starten (pythonw = kein Konsolenfenster)
WshShell.Run """C:\Projekte\Steam_backgroud_fix\.venv\Scripts\pythonw.exe"" ""C:\Projekte\Steam_backgroud_fix\focusfix.py"" --process """ & exeName & """", 0, False

' Spiel starten: alle Argumente (= Steam %command%) zusammensetzen und ausführen
Dim gameCmd, i
gameCmd = ""
For i = 0 To WScript.Arguments.Count - 1
    gameCmd = gameCmd & """" & WScript.Arguments(i) & """ "
Next

If gameCmd <> "" Then
    WshShell.Run gameCmd, 1, False
End If