Page 1 sur 1

Jeu qui se lance plusieurs fois

Publié : 19 mai 2016 - 18:07
par desstrain
hello !

replacement de question dans la bonne section !
j'essaie de faire une borne steam, pour lancer les jeux steam en hors ligne j'ai trouvé un script vbs que j'ai converti en exe afin de pouvoir les lancer depuis hyperspin.
ça fonctionne tres bien le seul hic étant que si on spam le bouton ça lance l'exe plusieurs fois et forcement ça affiche un message comme quoi le jeu est deja lancé....obligé d'aller chercher le clavier & ça j'aime pas ^^
est ce qu'il y aurait moyen de mettre un delai sur l'appui des touches dans hyper spin ou qu'il capte qu'on a lancé le .exe ?

Merci par avance les gars :)

Re: Jeu qui se lance plusieurs fois

Publié : 18 juin 2016 - 06:50
par camarade35
salut @desstrain : serait-il possible que tu postes ton code du script, en fait il faudrait intégrer dedans un contrôle d'appli lancée tout bêtement mais sans le code, difficile de t'aider

Re: Jeu qui se lance plusieurs fois

Publié : 29 juin 2016 - 14:13
par dess
ok si tu veux mais le script fonctionne tres bien, il spécifie que c'est deja lancé, le seul hic c'est que si l'utilisateur est un peu énervé et qu'il appuie 2 fois sur le bouton de la manette ça plante lance 2 fois et on se retrouve bloqué sur la fenetre "comme quoi le programme est deja en cours d'execution"... d'où mon idée concernant le délai d'appui des touche. j'ai regarder avec joy2key mais il ne semble pas avoir cette option...

Code : Tout sélectionner

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("config\loginusers.vdf", ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If InStr(strLine, "WantsOfflineMode") = 0 And InStr(strLine, "SkipOfflineModeWarning") = 0 Then
        strText = strText & strLine & vbCrLf
    End If
Loop
objFile.Close

strText = Replace(strText, "RememberPassword", "WantsOfflineMode"" ""1"" ""SkipOfflineModeWarning"" ""1"" ""RememberPassword")



Set objFile = objFSO.OpenTextFile("config\loginusers.vdf", ForWriting)
objFile.WriteLine strText 

objFile.Close

Set objShell = CreateObject("WScript.Shell")

objShell.Run("steam://rungameid/261180")





Re: Jeu qui se lance plusieurs fois

Publié : 29 juin 2016 - 15:06
par moustic
Dess =desstrain ?