[VBS] Redirection (équivalent Goto ms-dos)

Version imprimable

Bonjour, je voudrai créer un VBS ouvre une boite de dialogue MsgBox proposant deux action, 1 et 2, je par avec ce code:
Code:

1 2 3 4 set WshShell = WScript.CreateObject("WScript.Shell") variable = MsgBox("Voulez vous .........", vbYesNo) If variable = vbYes Then WshShell.Run "msimn.exe" If variable = vbNo Then WshShell.Run "mspaint.exe"
Donc ici les si on clique sur oui il ouvre Outlook Express et si on clique sur non il ouvre Paint, mais je voudrai faire une sotre de redirection ver deux code différent dans le VBS, quelqu’un saurait-il me renseigner ?

tu peu créer des procédures ... (ou fonctions..) pour organiser ton code ...

tiens un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
set WshShell = WScript.CreateObject("WScript.Shell") 
variable = MsgBox("Voulez vous .........", vbYesNo) 
Select Case Variable
     Case vbYes
       LanceOutlook
     Case vbNo
       LancePaint
 End Select
 
 
 
sub LanceOutlook
    MsgBox "msimn.exe" 
end sub
Sub LancePaint
  MsgBox  "mspaint.exe"
end

:wink:

23/02/2006, 19h49
Edoxituz

Bojour et merci bbil :wink:

Se script renvoi une erreur à la ligne 17, Sub attendu.
23/02/2006, 19h53
SfJ5Rpw8

lol j'ai raté le dernier Sub ... dans le copier coller ...

end Sub

S'été tout simple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
set WshShell = WScript.CreateObject("WScript.Shell") 
variable = MsgBox("Voulez vous .........", vbYesNo) 
Select Case Variable 
     Case vbYes 
       LanceOutlook 
     Case vbNo 
       LancePaint 
 End Select 
 
 
 
sub LanceOutlook 
    MsgBox "msimn.exe" 
end sub 
Sub LancePaint 
  MsgBox  "mspaint.exe" 
end sub

23/02/2006, 19h54
Edoxituz

Citation:

Envoyé par bbil

lol j'ai raté le dernier Sub ... dans le copier coller ...

end Sub

Un truc qui m'arrive souvent :wink:

Merci encore :)
23/02/2006, 19h58
Edoxituz

Maitenant j'aimerai changer les textes des boutons, sauriez vous faire sa ?
23/02/2006, 20h08
SfJ5Rpw8

non pas dans les messagebox... ...
23/02/2006, 20h14
Edoxituz

Ok merci pour votre patience :wink:

N'y a t il pas un autre moyen de créer se script alors qu'avec un MsBox ?