Il y a des années de ça, j 'avais trouvé sur le net un truc afin de varier les intro vidéo du lancement d'HS.
Bien que j ai ouvert le topic dans la section 15k , c est en fait utilisable avec toutes autres installations d'HS.
L'idée etait qu a chaque lancement, l'intro soit différente.
Comme je m'étais mis de coté les pubs SEGA avec le punk; j'avais envie de les voir se lancer indifféremment a chaque fois que je démarrais ma borne.
Si ce n'est que je n'ai jamais pris le temps de faire les choses, et que depuis des années c est le spot "Alors petit, tu veux jouer à Shinobi ?" qui me servait d'intro.
Bref, je viens de m'y pencher et ça fonctionne.
Pour ce faire, il vous faut :
1: laisser le fichier "intro" dans le répertoire
\Media\Frontend\Video
2: Creer un répertoire "RandomIntros"
\Media\Frontend\Video\RandomIntros
3: placez dans de répertoire toutes vos vidéos avec des noms simples
' Select a random intro each time. TRUE/FALSE
' To use this, create the folder HyperSpin\Media\Frontend\Video\RandomIntros
' and put your intro files (in .flv or .mp4 format) in there.
' Do not put anything else in there as any file can be selected for copying.
' WARNING: Will overwrite your current HyperSpin\Media\Frontend\Video\Intro.flv or .mp4 file so copy it into RandomIntros before running.
RandomIntro = "TRUE"
' Set up script.
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")
ScriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set objDictionary = CreateObject("Scripting.Dictionary")
' Check if the Hyperspin exe exists. Toss upp an error message if it does not.
If Not (fso.FileExists(HyperSpinPath & "\" & HyperSpinExe)) Then
WScript.Echo "Error. Could not find hyperspin."
WScript.Quit
Else
' Copy a random intro if set.
If RandomIntro = "TRUE" Then
If Not (fso.FolderExists(HyperSpinPath & "\Media\Frontend\Video\RandomIntros")) Then
WScript.Echo "Error. RandomIntro is TRUE but " & HyperSpinPath & "\Media\Frontend\Video\RandomIntros does not exist."
WScript.Quit
End If
Set oFl = fso.GetFolder(HyperSpinPath & "\Media\Frontend\Video\RandomIntros")
set Files = oFL.Files
Filecount = 0
For Each File In Files
Filecount = Filecount + 1
objDictionary.Add Filecount, File.Name
Next
Randomize
For i=1 To objDictionary.Count
objNbr = Int(objDictionary.Count * Rnd + 1)
Next
If ForceDelay <> "" Then
WScript.Sleep(ForceDelay)
End If
If LaunchOther <> "" Then
arrPath = Split(LaunchOther, "\")
For i = 0 to Ubound(arrPath) - 1
strAppPath = strAppPath & arrPath(i) & "\"
Next
WshShell.CurrentDirectory = strAppPath
WshShell.Run LaunchOther, 0, false
End If
' Launch hyperspin.
If HyperSpinExe <> "" Then
WshShell.Run HyperSpinPath & "\" & HyperSpinExe, 0, false
End If
End If
4: Ouvrez un fichier texte sous blocnote afin de copier le contenu et de l enregistrer en.vbs
Assurez vous d'indiquer le chemin exact de votre repertoire d'Hyperspin en debut de script.
5: il suffit d'executer le script pour que Hyperspin se lance.
Quelque soit le repertoire où vous avez enregistré votre script.
Sous Win10, pour que le script se lance au démarrage de windows; tapez le raccourci clavier Windows+R. La fenêtre Exécuter s'ouvre.
Dans le champ de saisie, tapez shell:startup, puis appuyez sur la touche Entrée ou cliquez sur OK pour valider.
Collez le script dans le répertoire qui viens de s'ouvrir.
Voila.
Le script n'est pas de moi. Je n en n'ai pas les compétences.