IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Scripts/Batch Discussion :

Vbs et Dos Afficher des messages


Sujet :

Scripts/Batch

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Avril 2009
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Avril 2009
    Messages : 1
    Par défaut Vbs et Dos Afficher des messages
    Voila un petit programme batch combiné avec la commande msgbox de Vbscript.

    Voila le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    ==================================================
    :: \\Rénitialisation des variables
    set Title_= &set message_= &Set Commu_= 
    set Exec=%~4
    Set Commu_=%~3
    Set Title_=%~2
    Set Message_=%~1
    ::\\Suppression de fichier VBS
    Set Vbs_=%TEMP%\LogVBS.vbs &if exist %vbs_% del %vbs_%
    
    ::\\Les jeus de condition du programme.
    if /i {%~1}=={} goto :Help_ 
    if /I {%~1}=={} if /I {%~2}=={} Goto :erreur_
    if /I defined Message_ if /I {%~2}=={-o} Set Title_=Qbox &Goto :No_error
    if /I defined Message_ (
    		if /I defined Title_ (if /I {%~3}=={-o} (goto :No_error))
    		if /I {%~2}=={} if  /I {%~3}=={} if /I {%~4}=={} (Set Exec=&goto :No_error) 
    		if /I {%~2}=={} (Set Commu_=%~2 &set Exec=%~3 &goto :No_error)					
    		)
    ::\\La création des fichiers vbs.
    :No_error
    If {%~2}=={} Set Title_=Qbox
    Echo.Dim Q							    >>%Vbs_%  
    echo.					  			    >>%Vbs_%    							
    Echo.Set Shell = WScript.CreateObject("WScript.Shell")              >>%Vbs_%
    Echo Q=msgbox("%Message_%",4,"%Title_%") 			    >>%Vbs_%
    
    	If Defined Commu_ (
    	       if defined Exec (
    			Echo.If Q=6 then Shell.Run "%Exec%"    	   >>%Vbs_%
    		)
    	)
    ::\\L'execution de fichier VBS. 
    %Vbs_%
    =================================================
    L'execution de ce programme est expliqué comme suit :
    Qbox.bat "Le contenu du message" "le contenu du titre" -o "La commande"
    par ex :
    C:\>Qbox "Bonjour" "Information" -o "notepad.exe"

    La combinasion entre Dos et Vbscript est une bonne chose n'est ce pas

  2. #2
    Membre Expert
    Avatar de I'm_HERE
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    1 013
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations forums :
    Inscription : Juillet 2008
    Messages : 1 013
    Par défaut
    Citation Envoyé par ali_5 Voir le message

    La combinasion entre Dos et Vbscript est une bonne chose n'est ce pas
    salut,

    effectivement, l'apport d'autres languages comme VBS comble les lacunes du batch et apporte un plus (dans votre cas un Msgbox), quoique les commandes externes pour les messages box ne manquent pas..


    en ce qui concerne votre code-source, le mieux est de le mettre dans la section de contibution après quelques "rectification syntaxique" parceque chez moi ça ne fonctionne pas.. tu peux te rapporter à cette discution
    et celle-ci

Discussions similaires

  1. AFFICHER DES MESSAGES
    Par five1966 dans le forum VBA Access
    Réponses: 4
    Dernier message: 05/06/2008, 13h41
  2. afficher des messages sur la fenetre
    Par daff86 dans le forum Tkinter
    Réponses: 3
    Dernier message: 24/04/2008, 19h57
  3. Réponses: 10
    Dernier message: 30/01/2007, 15h29
  4. Réponses: 5
    Dernier message: 07/06/2006, 12h11
  5. [Struts] Comment afficher des messages de confirmation
    Par vallica dans le forum Struts 1
    Réponses: 8
    Dernier message: 28/04/2006, 14h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo