OVH Cloud OVH Cloud

Fenetre qui se ferme tout seule en VBS !!!

5 réponses
Avatar
toon
Bonjour.

Je suis sur le point de terminer un petit script de sauvegarde sur cluster
de data.
Je voudrai afficher au demarrage du script, une petite fenetre m'indiquant
que la copie est en cours, et que celle-ci puisse a la fin du script, se
fermee tout seule.

Je suis debutant sous VBS, alors un peu d'indulgence.

Merci d'avance !!!

5 réponses

Avatar
Jean-Marc Hilaire [MS]
Sauf erreur à ma connaissance il n'y a pas de méthodes natives pour faire
ça, donc deux solutions (au moins) :

- fabriquer soi-même un objet qui affiche un message et que l'on détruit
à loisir
- utiliser IE (à condition que la machine ait IE d'installé, mais elles
ont toutes IE ;-))

Vous trouverez ici un bel exemple qui met en oeuvre la deuxième solution,
attention c'est un peu flashy et ça prend tout l'écran mais vous pouvez
modifier les couleurs et la taille à votre convenance .
Le lien :
http://groups.google.fr/groups?q=splash+screen++wsh&hl=fr&lr=&selm=OWFIFQ%233BHA.456%40tkmsftngp05&rnum=2



"toon" wrote in message
news:
Bonjour.

Je suis sur le point de terminer un petit script de sauvegarde sur cluster
de data.
Je voudrai afficher au demarrage du script, une petite fenetre m'indiquant
que la copie est en cours, et que celle-ci puisse a la fin du script, se
fermee tout seule.

Je suis debutant sous VBS, alors un peu d'indulgence.

Merci d'avance !!!




Avatar
Jean-Claude BELLAMY
Dans le message news: ,
toon s'est ainsi exprimé:

Bonjour.

Je suis sur le point de terminer un petit script de sauvegarde sur
cluster de data.
Je voudrai afficher au demarrage du script, une petite fenetre
m'indiquant que la copie est en cours, et que celle-ci puisse a la
fin du script, se fermee tout seule.

Je suis debutant sous VBS, alors un peu d'indulgence.


Il n'y a RIEN de prévu de base dans VBS (pas de boites de dialogue non
modales)
Mais on peut faire appel à des contrôles ActiveX pour cela, en particulier
Internet Explorer.

Il suffit de créer un document HTML qui sera ensuite "piloté" par le script
VBS, en fonction des traitements effectués.
Comme un bon exemple vaut mieux qu'une mauvaise explication, je t'invite à
télécharger ceci :

http://www.bellamyjc.org/download/vbs/testprog.zip (1284 octets)

ou séparément :
http://www.bellamyjc.org/download/vbs/testprog.vbs
http://www.bellamyjc.org/download/vbs/progressbar.html

Il suffit de lancer "testprog.vbs"
On voit alors apparaitre une mini fenêtre avec une barre de progression, et
la fenêtre se ferme automatiquement à la fin


La partie "active" du script est entre les lignes 28 et 33 :
for i=1 to 10
' placer ici la procédure
WScript.Sleep 350
SetProgress "i=" & i,i
next

J'ai prévu ici une boucle pour simuler des traitements différents.
Mais on peut y mettre le code que l'on veut.

La commande
SetProgress "i=" & i,i
a pour but d'afficher la chaine "i=...." et de faire avancer la barre à la
position "i"
(j'en ai prévu 10, mais c'est modifiable)

la commande
oIE.quit
ferme la fenêtre.

A toi à présent d'adapter à ce que tu veux ...

La seule contrainte est que le script VBS et le document HTML soient dans le
même dossier.

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*

Avatar
toon
Ave Mr Bellamy !!!

Merci encore et toujours !!!

"Jean-Claude BELLAMY" a écrit dans le
message de news:
Dans le message news: ,
toon s'est ainsi exprimé:

Bonjour.

Je suis sur le point de terminer un petit script de sauvegarde sur
cluster de data.
Je voudrai afficher au demarrage du script, une petite fenetre
m'indiquant que la copie est en cours, et que celle-ci puisse a la
fin du script, se fermee tout seule.

Je suis debutant sous VBS, alors un peu d'indulgence.


Il n'y a RIEN de prévu de base dans VBS (pas de boites de dialogue non
modales)
Mais on peut faire appel à des contrôles ActiveX pour cela, en particulier
Internet Explorer.

Il suffit de créer un document HTML qui sera ensuite "piloté" par le
script

VBS, en fonction des traitements effectués.
Comme un bon exemple vaut mieux qu'une mauvaise explication, je t'invite à
télécharger ceci :

http://www.bellamyjc.org/download/vbs/testprog.zip (1284 octets)

ou séparément :
http://www.bellamyjc.org/download/vbs/testprog.vbs
http://www.bellamyjc.org/download/vbs/progressbar.html

Il suffit de lancer "testprog.vbs"
On voit alors apparaitre une mini fenêtre avec une barre de progression,
et

la fenêtre se ferme automatiquement à la fin


La partie "active" du script est entre les lignes 28 et 33 :
for i=1 to 10
' placer ici la procédure
WScript.Sleep 350
SetProgress "i=" & i,i
next

J'ai prévu ici une boucle pour simuler des traitements différents.
Mais on peut y mettre le code que l'on veut.

La commande
SetProgress "i=" & i,i
a pour but d'afficher la chaine "i=...." et de faire avancer la barre à
la

position "i"
(j'en ai prévu 10, mais c'est modifiable)

la commande
oIE.quit
ferme la fenêtre.

A toi à présent d'adapter à ce que tu veux ...

La seule contrainte est que le script VBS et le document HTML soient dans
le

même dossier.

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
*





Avatar
toon
OK ... merci, je vais approfondir le sujet.
En fait je supprime environ 5Go avec une instruction "oFSO.DeleteFolder
Sauvegarde".
Compte tenu de l'importance du volume a supprimer, je pense caculer le
nombre de sous repertoires jusque 2 ou 3 niveau de recursivite, et applique
ce nombre a la boucle de "for" du script de Mr Bellamy (reponse au post
principal). Ensuite de pratique le "oFSO.DeleteFolder Sauvegarde" en
remontant dans l'arborescence !!!


"Jean-Marc Hilaire [MS]" a écrit dans le
message de news: eW26$
Sauf erreur à ma connaissance il n'y a pas de méthodes natives pour faire
ça, donc deux solutions (au moins) :

- fabriquer soi-même un objet qui affiche un message et que l'on
détruit

à loisir
- utiliser IE (à condition que la machine ait IE d'installé, mais elles
ont toutes IE ;-))

Vous trouverez ici un bel exemple qui met en oeuvre la deuxième solution,
attention c'est un peu flashy et ça prend tout l'écran mais vous pouvez
modifier les couleurs et la taille à votre convenance .
Le lien :

http://groups.google.fr/groups?q=splash+screen++wsh&hl=fr&lr=&selm=OWFIFQ%23

3BHA.456%40tkmsftngp05&rnum=2



"toon" wrote in message
news:
Bonjour.

Je suis sur le point de terminer un petit script de sauvegarde sur
cluster


de data.
Je voudrai afficher au demarrage du script, une petite fenetre
m'indiquant


que la copie est en cours, et que celle-ci puisse a la fin du script, se
fermee tout seule.

Je suis debutant sous VBS, alors un peu d'indulgence.

Merci d'avance !!!








Avatar
Do Re Mi chel La Si Do
Bonsoir !


J'ai posté (deux fois) un message contenant une solution atypique, avec une
boîte de message pilotée par le presse-papier. C'est très simple
d'utilisation, dans un batch, depuis VBS, JS, ou autres.

Visiblement, ce message ne passe pas.

Alors,au cas où vous n'auriez pas trouvé de solution satisfaisante, sachez
qu'il en existe, au moins une autre.


@-salutations
--
Michel Claveau
mél : http://cerbermail.com/?6J1TthIa8B