VBScript Msgbox "Instruction Attendue" Résolu

Question

Bonjour, je m'explique, j'essaie de faire exécuter une action quand l'utilisateur clique sur "Oui" ou "Non", voici mon code:


msgbox "Voulez-vous activer Game Booster 1.4.6?" ,4+32,"GameBooster 1.4.6"

If Response = vbYes Then
     GoTo Yes
Else
     GoTo No
End If

:Yes
start gamebooster

:No
Exit


Malheureusement, quand je l'exécute, je reçois un message d'erreur disant "Instruction Attendue" à la ligne 4 char. 6...

Aidez-moi s.v.p!

ThauTheme · Answer

Bonjour kraken, bonjour le forum,

Je ne connais pas le VbScript mais si je compare au VBA j'aurais plutôt écrit :
Response = (msgbox "Voulez-vous activer Game Booster 1.4.6?" ,4+32,"GameBooster 1.4.6")

If Response = vbYes Then
    start gamebooster 
Else
   Exit
End If

Sinon, les deux point (:) se seraient-ils pas à la fin ? C'est le cas en VBA... 
Yes:
No:

Kraken · Answer

Finalement, j'ai trouvé la solution, voici le code:

Option Explicit
Dim ws,Question,PathProgram
Set ws = CreateObject("wscript.shell")
'change the path of your batch file
PathProgram = "gamebooster.exe"
question=msgbox ("Voulez-vous activer GameBooster 1.4.6?" ,4+32,"GameBooster 1.4.6") 
If Question = VbYes Then
     ws.run DblQuote(PathProgram)
End If
'***************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************


EDIT : Ajout des balises de code

Voilà!

VBScript Msgbox "Instruction Attendue"

2 réponses

Discussions similaires

Newsletters