1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Option Explicit
dim titre_box, message, reponse
dim objArgs
titre_box = " test darrêt proprement d'un script "
message = "Veuillez choisir le type d'action à*exécuter :" & vbCrLf & _
" Oui : je continue" & vbCrLf & _
" Non : je vais ailleurs" & vbCrLf & _
" Annuler : j'arrête !)"
reponse = msgbox (message, vbYesNoCancel, titre_box)
if reponse = 6 then 'On a cliquè sur le bouton "OUI"
output " j'ai cliquer sur Oui !"
elseif reponse = 7 then 'On a cliqué sur le bouton "Non"
output " j'ai cliquer sur non !"
else ' On a cliqué sur le bouton "annuler"
output "je vais arrêter le programme "
Cscript.quit ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'Cscript' (0x800A01F4)
WScript.Quit ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'WScript' (0x800A01F4)
output "si ce message s'affiche, c'est que le programme ne s'est pas arrêter !!"
end if
output "reponse : " & reponse & vbtab & "=> je suis sortie du choix !"
output " le programme continue ...." |
Partager