Discussion :

[cyrill.gremaud]

salut tout le monde

je suis vraiment débutant en VBS et jai fais un mini game... bon jusque la sa va très bien mais ensuite jaimerai a la fin demande a l'utilisateur si il veut quitter le jeu ou bien refaire une partie...

jai penser le faire avec une simple fenetre retry et Cancel... mais je ne sais pas comment définir l'action si il clique sur un bouton ou un autre... et comment faire pour relancer l'application...

merci

[SfJ5Rpw8]

Tu peu utiliser un message Box... ? non ..?
sinon ton jeu il est imbriqué dans une fenêtre html ?

[cyrill.gremaud]

non non ! pas de html rien de tout sa lol.. juste du pur vbs

[SfJ5Rpw8]

ben le messagebox ne convient-t'il pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 set WshShell = WScript.CreateObject("WScript.Shell")
 
If  MsgBox("Voulez-vous relancer une partie ?", vbYesNo) = Vbyes Then
 WshShell.popup "Lancement de la partie",2
 '... RAJOUTE ICI LE CODE DE LANCEMENT DU JEU...
Else
  WshShell.popup "Merci d'avoir utiliser mon jeu à plus-tard",2
End if

[cyrill.gremaud]

WshShell c'est le nom de ton objet c'est juste ??? et ensuite si on clique sur yes, la valeur du bouton revoie vbyes c'est juste ??? mais pour relancer le jeu je ne sais pas cômment faire... y'a t'il une methode pour dire que l'on veut de new exécuter le script depuis le debut ?

[SfJ5Rpw8]

Wshshell ... c'est bien un objet... je l'ai mis pour la méhode popup.. mais tu n'en as pas vraiment besoin...

il faudrai voir si en plus de relancer ton code il ne faut pas ré-initialiser des variables...

tu peu modifier ton code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim iRep 
 
 Do
  '
  '..Rajoute ici le code de ton jeu ...
  iRep = MsgBox("Voulez-vous relancer une partie ?", vbYesNo)
 
 Loop While iRep = vbYes

[cyrill.gremaud]

hum oui je vois... oui de toute facon les variable doivent etre remise a zero...