[RÉSOLU] Problème B2S Star_Wars_VP9_Mod_FS

 Option Explicit
 ExecuteGlobal GetTextFile("b2s.vbs")
  ResetB2SData 0,49,0    'Initialise the b2s data area

'***********************************************************************
  LaunchBackGlass "Star_Wars_FS_B2S", True    'True=Launch bg ,  False=Don't launch bg.
'***********************************************************************

 Randomize
 
 LoadVPM "01550000", "DE.VBS", 3.26
 
 Sub LoadVPM(VPMver, VBSfile, VBSver)
     On Error Resume Next
     If ScriptEngineMajorVersion <5 Then MsgBox "VB Script Engine 5.0 or higher required"
     ExecuteGlobal GetTextFile(VBSfile)
     If Err Then MsgBox "Unable to open " & VBSfile & ". Ensure that it is in the same folder as this table. " & vbNewLine & Err.Description
     Set Controller = CreateObject("VPinMAME.Controller")'disable for UVP
     'Set Controller = CreateObject("UltraVP.BackglassServ") 'enable for UVP
     If Err Then MsgBox "Can't Load VPinMAME." & vbNewLine & Err.Description
     If VPMver> "" Then If Controller.Version <VPMver Or Err Then MsgBox "VPinMAME ver " & VPMver & " required."
     If VPinMAMEDriverVer <VBSver Or Err Then MsgBox VBSFile & " ver " & VBSver & " or higher required."
     On Error Goto 0
 End Sub

Sub table1_Init
     vpmInit Me
     With Controller