papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Message Autorefermable Jeu 10 Juil 2014 - 19:58 | |
| Salut tout le monde. Après le Message ‘passant’ de JL35 ici , voici le message autorefermableCertains Panoramiciens sont tellement flemmards (vous ne l’êtes peut-être pas, moi, si !) qu’ils ne veulent même pas prendre la peine de fermer une fenêtre affichant une information ! Pour ceux-ci, voici une SUB contenant un script permettant d’afficher un message dont la fenêtre s’auto referme toute seule après une durée de n secondes. - Code:
-
rem ============================================================================
' Message autorefermable
' Afficher un message d'information qui se ferme automatiquement après n secondes
' Appel : message_Auto_Close(msg$, duree)
rem ============================================================================
message_Auto_Close("Cette fenêtre va se fermer toute seule !!!",5)
end
rem ============================================================================
' Script VBS pour afficher un message d'information qui se ferme automatiquement
' apès une durée de duree secondes si l'utilisateur ne ferme pas lui-même la
' fenêtre du message
SUB message_Auto_Close(msg$,duree)
dim_local f$,g$,d$
f$ = "c:\temp\Msg_Auto_Close.vbs" : ' Fichier temporaire contenant le script
g$ = chr$(34) : ' guillemets
d$ = str$(duree)
FILE_OPEN_WRITE 9999, f$
file_writeln 9999,"Set WshShell = WScript.CreateObject("+g$+"Wscript.Shell"+g$+")"
file_writeln 9999,"ret = WshShell.popup("+g$+msg$+g$+" & vbcrlf &" +g$+" Autofermeture dans : "+d$+" secondes"+g$+","+d$+","+g$+"Information"+g$+")"
FILE_CLOSE 9999 : ' Fin de l'enregistrement
EXECUTE_WAIT f$ : ' Exécution du script
FILE_DELETE f$ : ' supprimer le fichier du script
END_SUB
rem ============================================================================
| |
|
Calendrier