Call *.vbs et choisir le MsgBox désiré

Résolu/Fermé

Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019 - 15 mars 2019 à 19:15
Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019 - 16 mars 2019 à 19:42

Je fais un programme qui appel des scripts vbs pour afficher des fenêtres:

MsgBox "La sauvegarde vas s'effectuer", 0, "SaveDrive.exe"

La problématique résides dans le fait que je ne sais pas comment faire autrement que comme ceci:
Je créé plusieurs fichier vbs pour afficher une fenêtre spécifique. Ce que je veux faire c'est regrouper tout ces MsgBox en un script vbs et avec mon script bat j’appel le script vbs avec le MsgBox de mon choix

Merci de votre aide !

A voir également:

Batch msgbox
Fichier batch - Guide
Vba msgbox variable ✓ - Forum VB / VBA
Php msgbox ✓ - Forum PHP
Batch supprimer fichier - Forum Windows
Vba msgbox bouton personnalisé - Forum VB / VBA

2 réponses

Réponse 1 / 2

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
16 mars 2019 à 17:51

voici un exemple de script vbs

action = WScript.Arguments.Named("a")
select case action
case "nok":
       MsgBox "Un problème est survenu lors de la sauvegarde du Lecteur !", 48, "SaveDrive.exe"
case "ok":
       MsgBox "La sauvegarde du Lecteur a réussi.", 64, "SaveDrive.exe"
end select

si tu l'appelles "alerte.vbs", tu peux l’appeler ainsi:

call alerte /a:ok

call alerte /a:nok

Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 19:42

Excellent, ça fonctionnes bien ! Merci :)

Réponse 2 / 2

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
16 mars 2019 à 09:55

bonjour,
tu peux faire un script vbs qui reçoit un paramètre et utilise ce paramètre pour décider que faire.
ou qui reçoit en paramètre le message à afficher.

Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 13:23

Justement, c'est quelque chose que je suppose être possible, mais que je n'arrives pas à faire car je ne maîtrise pas assez le vbs. C'est pour ça que je demande de l'aide :)

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471 > Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 14:29

difficile d'être plus précis avec les informations partagées.

Henreck Messages postés 9 Date d'inscription lundi 4 mars 2019 Statut Membre Dernière intervention 16 mars 2019
16 mars 2019 à 15:08

Pas de problème.
J'ai ce script SaveDrive.bat:

:: [Save Actual Drive] Last edit March 16th 2019, by Henreck
:: %b2eincfilepath% is the environment variable to retrieve the location where
:: the embeded items will be extracted
@Echo off
SetLocal EnableExtensions EnableDelayedExpansion
IF Exist "#" (Set b2eincfilepath=%cd%\src)
FOR /F %%A IN ('wmic os get localdatetime ^| FINDSTR [0-9]') DO Set date=%%A
Set time=%date:~0,4%-%date:~4,2%-%date:~6,2% %time:~0,2%H%time:~3,2%
FOR /F "tokens=1-5*" %%A in ('vol') do ( Set vol=%%F & Goto SaveDrive)
:SaveDrive
    Set drive=%vol:~0,1%:\
    Set name= %vol:~12,32%
    Call "%b2eincfilepath%\7Zip\7za.exe" a "D:\USB_BCK\(%name%) %time%.zip" "%drive%"
    IF Exist "D:\USB_BCK\(%name%) %time%.zip" (
        Call "%b2eincfilepath%\complete.vbs"
        Goto EOF
    ) Else (
        Call "%b2eincfilepath%\error.vbs"
        Goto EOF
    )

Et j'ai ces deux scripts vbs - error & complete:

MsgBox "Un problème est survenu lors de la sauvegarde du Lecteur !", 48, "SaveDrive.exe"

MsgBox "La sauvegarde du Lecteur a réussi.", 64, "SaveDrive.exe"

Ce que je veux faire c'est regrouper ces deux instructions en un fichier vbs par exemple:


'Si la variable x appeler du fichier SaveDrive.bat est vrai, interpréter la ligne ci-dessous
MsgBox "Un problème est survenu lors de la sauvegarde du Lecteur !", 48, "SaveDrive.exe"

'SI la variable y appeler du fichier SaveDrive.bat est vrai, interpréter la ligne ci-dessous
MsgBox "La sauvegarde du Lecteur a réussi.", 64, "SaveDrive.exe"

Par contre je ne sais pas comment faire en sorte que mon scripts.vbs puisse faire ça

Discussions similaires

Msgbox dans un .bat

echo off qu'est ce que c'est ?

Faire une attente sous dos (batch)

Liste COMPLETE des commandes .bat

Input en .bat

Discussions similaires

Newsletters