Reply to thread

Message

<blockquote data-quote="CrazyDino" data-source="post: 800283" data-attributes="member: 116021">AW: Steam Spiele integrierenHi cubii,die Lösung ist leider alles andere als schön da ich mich weder in Batch, noch in VBS gut auskenne aber funktioniert wenigstens bei mir.&nbsp; :sorry:Pro Steamspiel benötige ich deswegen 3 kleine Dateien. Ich schreibe mal ein Beispiel für das Game &quot;FlatOut: Ultimate Carnage&quot;1. Die Desktopverknüpfung vom Spiel&quot;FlatOutUltimateCarnage.url&quot;2. Eine kleine bat Datei&quot;FlatOutUltimateCarnage.bat&quot;[CODE]echo offecho Starte FlatOut: Ultimate Carnage...start /wait D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.vbsecho beende...:ende[/CODE]3. FlatOutUltimateCarnage.vbs[CODE]Set WSHShell = WScript.CreateObject(&quot;WScript.Shell&quot;) &nbsp; &nbsp; WSHShell.Run &quot;&quot;&quot;D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.url&quot;&quot;&quot;Const strProcessName = &quot;Fouc.exe&quot;Set oWMISvc = GetObject(&quot;winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2&quot;)boolRunning = False' Loop while the process is not runningDo While Not boolRunning&nbsp; Set colProc = oWMISvc.ExecQuery(&quot;SELECT * FROM Win32_Process WHERE Name='&quot; &amp; strProcessName &amp; &quot;'&quot;)&nbsp; For Each oProc In colProc&nbsp; &nbsp; boolRunning = True&nbsp; Next&nbsp; Set colProc = Nothing&nbsp; WScript.Sleep 1000Loop' Loop while the process is runningDo While boolRunning&nbsp; Set colProc = oWMISvc.ExecQuery(&quot;SELECT * FROM Win32_Process WHERE Name='&quot; &amp; strProcessName &amp; &quot;'&quot;)&nbsp; boolRunning = False&nbsp; For Each oProc In colProc&nbsp; &nbsp; boolRunning = True&nbsp; Next&nbsp; Set colProc = Nothing&nbsp; WScript.Sleep 1000LoopWScript.quit[/CODE]In &quot;MyEmulatorsX v4.0.1.15&quot; das Game jetzt über die &quot;FlatOutUltimateCarnage.bat&quot; seinrichten und man sollte nach dem beenden auch wieder zu MePo zurückkommen.Für andere Spiele dann in der .bat die Zeilenecho Starte FlatOut: Ultimate Carnage...start /wait D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.vbsund in der .vbs die Zeilen&nbsp; &nbsp; WSHShell.Run &quot;&quot;&quot;D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.url&quot;&quot;&quot;Const strProcessName = &quot;Fouc.exe&quot;anpassen.Viel Erfolg<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" /></blockquote>

[QUOTE="CrazyDino, post: 800283, member: 116021"] [b]AW: Steam Spiele integrieren[/b] Hi cubii, die Lösung ist leider alles andere als schön da ich mich weder in Batch, noch in VBS gut auskenne aber funktioniert wenigstens bei mir. :sorry: Pro Steamspiel benötige ich deswegen 3 kleine Dateien. Ich schreibe mal ein Beispiel für das Game "FlatOut: Ultimate Carnage" 1. Die Desktopverknüpfung vom Spiel "FlatOutUltimateCarnage.url" 2. Eine kleine bat Datei "FlatOutUltimateCarnage.bat" [CODE]echo off echo Starte FlatOut: Ultimate Carnage... start /wait D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.vbs echo beende... :ende[/CODE] 3. FlatOutUltimateCarnage.vbs [CODE]Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run """D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.url""" Const strProcessName = "Fouc.exe" Set oWMISvc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") boolRunning = False ' Loop while the process is not running Do While Not boolRunning Set colProc = oWMISvc.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & strProcessName & "'") For Each oProc In colProc boolRunning = True Next Set colProc = Nothing WScript.Sleep 1000 Loop ' Loop while the process is running Do While boolRunning Set colProc = oWMISvc.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & strProcessName & "'") boolRunning = False For Each oProc In colProc boolRunning = True Next Set colProc = Nothing WScript.Sleep 1000 Loop WScript.quit[/CODE] In "MyEmulatorsX v4.0.1.15" das Game jetzt über die "FlatOutUltimateCarnage.bat" seinrichten und man sollte nach dem beenden auch wieder zu MePo zurückkommen. Für andere Spiele dann in der .bat die Zeilen [B]echo Starte FlatOut: Ultimate Carnage... start /wait D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.vbs[/B] und in der .vbs die Zeilen [B] WSHShell.Run """D:\Steam\--=Verknuepfungen=--\FlatOutUltimateCarnage.url""" Const strProcessName = "Fouc.exe"[/B] anpassen. Viel Erfolg:) [/QUOTE]

Verification