SashegDev
41 lines
1.1 KiB
Plaintext
41 lines
1.1 KiB
Plaintext
' ===========================================================
|
|
' CBE Emulator launcher (VBScript - no console window)
|
|
' Double-click to run with embedded plugins, silently.
|
|
' ===========================================================
|
|
|
|
Option Explicit
|
|
|
|
Dim shell, fso, javaExe, jar, baseDir, cmd
|
|
|
|
Set shell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
baseDir = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
javaExe = baseDir & "\runtime\bin\javaw.exe"
|
|
jar = baseDir & "\app\cbe-emu.jar"
|
|
|
|
If Not fso.FileExists(javaExe) Then
|
|
MsgBox "JRE not found at:" & vbCrLf & javaExe, 16, "CBE Emulator"
|
|
WScript.Quit 1
|
|
End If
|
|
|
|
If Not fso.FileExists(jar) Then
|
|
MsgBox "cbe-emu.jar not found at:" & vbCrLf & jar, 16, "CBE Emulator"
|
|
WScript.Quit 1
|
|
End If
|
|
|
|
' Collect extra args after the .vbs filename
|
|
Dim extra
|
|
extra = ""
|
|
Dim i
|
|
For i = 0 To WScript.Arguments.Count - 1
|
|
extra = extra & " """ & WScript.Arguments(i) & """"
|
|
Next
|
|
|
|
' Build command. 0 = hide window, False = don't wait for return
|
|
cmd = """" & javaExe & """ -Xmx256m -jar """ & jar & """ " & extra
|
|
shell.Run cmd, 0, False
|
|
|
|
Set shell = Nothing
|
|
Set fso = Nothing
|