Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Test_B02_fr-scripting_191106[POINT]vbs Par Auteur Avec Le Pseudo x (x[AT]x) france ---

Test_B02_fr-scripting_191106[POINT]vbs Par Auteur Avec Le Pseudo x (x[AT]x) france ---

7 réponses
Avatar
x
' 00001 *******************************
' 00002 Par "x" : Boîte De Dialogue "SM" ...
' 00003 *******************************
' 00004
' 00005 Dimanche 19 11 2006 en france 08h40
' 00006 Version jjmmaaaa_19112006_0.0.0.1
' 00007
' 00008 *****************************
' 00009 Test_B02_fr-scripting_191106.vbs
' 00010 *****************************

' 00013 Début de la routine ...
' 00014 Si vous utilisez "Sub NomQuelconque" alors "End Sub" est obligatoire
...
' 00015 Exécution (par la suite) = Appel avec "Call Dialogue_SM" pour ici
...
' 00016 Fonction "Sub" non utilisé = Exécution immédiate (sans appel) ...
' 00017 La fonction "Call" n'est pas obligatoire ...
Sub Dialogue_SM

' 00020 Déclarations des variables ...
Dim A , QuelBouton , CptrEvs

' 00023 Boîte de message ou dite de "dialogue" ici simple ...
MsgBox "Ne cliquez pas sur le bouton ""OK"" avant 10 secondes sinon
attention ...",vbInformation,"Torture ""SM"" ... Boîte De Dialogue Numéro Un
(1)"
MsgBox "Si vous ne cliquez pas sur le bouton ""OK"" avant 10 secondes alors
attention ...",vbInformation,"Torture ""SM"" ... Boîte De Dialogue Numéro
Deux (2)"

' 00027 Boucle "For" avec une sortie "WScript.Timeout=10" !!!
For A = 0 to 255

' 00030 Boîte de message ou dite de "dialogue" ici spéciale ou plutôt avec
des "trucs" en plus ...
QuelBouton = MsgBox ("Si vous ne cliquez pas sur le bouton avant 10 secondes
alors attention ..."+Chr(13)+Chr(10)+Chr(13)+"Affichage successif,
ci-dessous, des caractères :"+Chr(13)+Chr(10)+Chr(13)+"Actuellement
affichage du caractère numéro "&A&" :"+Chr(13)+Chr(10)+Chr(13)+"==>>"+"
"+Chr(A)+" "+"<<==",vbOkCancel,"Boîte De Dialogue ""SM"" ...")

' 00033 Test bouton boîte de dialogue et message si choix causal ...
If QuelBouton = 2 then WScript.Timeout=60:CptrEvs=CptrEvs+1:Msgbox "Comme le
titre l'indique ..."+Chr(13)+Chr(10)+Chr(13)+"Bonjour chez vous
...",vbExclamation,"Encore Une Tentative D'évasion ... "&CptrEvs&" ..."

' 00036 Sortie si absence de clic sur bouton "Msgbox" avant le temps en
seconde ...
WScript.Timeout=10

' 00039 Bouclage (retour) vers la fonction "For" correcte ...
Next

' 00042 Code de fin de la routine en vbs ...
End Sub

' 00045 Appel de la routine avec la fonction "Call" non obligatoire ...
Call Dialogue_SM

' 00048 Fin End Finish Terminate ...
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
x
' - [A VIRER XXX] <= !!! Plus Bas !!! < ' - [V] <= !!! Plus Bas !!! <= À VIRER !!! < ' - Copiez tout ci-dessous dans le Bloc-notes Windows puis
sauvez le fichier en ".eml" (Courriels OE6) ou compatible_s !
' - Attention aux retours lignes non-vouluent et doubles espaces !
' - Ligne "Subject:" entre autres dans l'en-tête !!!
' - Espaces à garder car vouluent "aux bons endroits" !
' - Boîtes de messages avec un ou des espaces "coupées" par
un retour ligne non-voulu !`
' - La pièce jointe n'est pas concerné par les retours lignes
non-vouluent !
' - Vous pourrez récupéré-e-s le fichier joint ! Sauf erreurs ! :-)
' - De ma part l'erreur ! :-)
' - Merci...
' - (moins de 45 minutes)
' - france/dim./19/11/2006/10h05/fin_edit/envoi

Reply-To: "x"
From: "x"
Newsgroups: microsoft.public.fr.scripting
References: <45600b44$0$5082$
Subject: Re: Test_B02_fr-scripting_191106[POINT]vbs Par Auteur Avec
Le Pseudo x (x[AT]x) france ---
Date: Sun, 19 Nov 2006 09:22:26 +0100
Lines: 81
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2962
X-RFC2646: Format=Flowed; Response

Salutations,

Utilisation de la fonction "WScript.Timeout" ...

"x" a écrit dans le message de news:
45600b44$0$5082$
' 00001 *******************************
' 00002 Par "x" : Boîte De Dialogue "SM" ...
' 00003 *******************************
' 00004
' 00005 Dimanche 19 11 2006 en france 08h40
' 00006 Version jjmmaaaa_19112006_0.0.0.1
' 00007
' 00008 *****************************
' 00009 Test_B02_fr-scripting_191106.vbs
' 00010 *****************************
[...]
J'AI VU LE PETIT OUBLI de 00010 vers 00013 ! ;-)
PAS DE MODIF_s ... :-)
[...]


(moins de 10 minutes)
france/dim./19/11/2006/09h22/fin_edit/envoi


[A VIRER XXX]begin 666 Test_B02_fr-scripting_191106[POINT]vbs.dat
[V]M)R P,# P,2 J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ#0HG(# P
[V]M,# R(%!A<B B>"(@.B!";^YT92!$92!$:6%L;V=U92 B4TTB("XN+@T*)R P
[V]M,# P,R J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ#0HG(# P,# T
[V]M#0HG(# P,# U($1I;6%N8VAE(#$Y(#$Q(#(P,#@9G)A;F-E(# X:#0P
[V]M#0HG(# P,# V(%9E<G-I;VX@:FIM;6%A86%?,3DQ,3(P,#9?,"XP+C N,0T*
[V]M)R P,# P-PT*)R P,# P." J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
[V]M*@T*)R P,# P.2!497-T7T(P,E]F<BUS8W)I<'1I;F=?,3DQ,3 V+G9B<PT*
[V]M)R P,# Q," J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@T*#0HG(# P
[V]M,#$S($3I8G5T(&1E(&QA(')OqI;F4@+BXN#0HG(# P,#$T(%-I('9O=7,@
[V]MqI;&ES97H@(E-U8B!.;VU1eL8V]N<75E(B!A;&]R<R B16YD(%-U8B(@
[V]M97-T(&]B;&EG871O:7)E("XN+@T*)R P,# Q-2!%>.ECqI;VX@*'!A<B!L
[V]M82!SnT92D@/2!!<'!E;"!AõC(")#86QL($1I86QO9W5E7U--(B!P;W5R
[V]M(&EC:2 N+BX-"B<@,# P,]N8W1I;VX@(E-U8B(@;F]N('5T:6QI<^D@
[V]M/2!%>.ECqI;VX@:6UMZ61I871E("AS86YS(&%P<&5L*2 N+BX-"B<@,# P
[V]M,3<@3&$@9F]N8W1I;VX@(D-A;&PB(&XG97-T('!A<R!O8FQI9V%T;VER92 N
[V]M+BX-"E-U8B!$:6%L;V=U95]330T*#0HG(# P,#(P($3I8VQA<F%T:6]N<R!D
[V]M97,@=F%R:6%B;&5S("XN+@T*1&EM($$@+"!1eL0F]U=&]N("!T<D5V
[V]M<PT*#0HG(# P,#(S($)O[G1E(&1E(&UE<W-A9V4@;&ET92!D92 B9&EA
[V]M;&]GdB(&EC:2!S:6UP;&4@+BXN#0I-<V=";W@@(DYE(&-L:7%U97H@<&%S
[V]M('-U<B!L92!B;W5T;VX@(B)/2R(B(&%V86YT(#$P('-E8V]N9&5S('-I;F]N
[V]M(&%T=&5N=&EO;B N+BXB+'9B26YF;W)M871I;VXL(E1O<G1U<F4@(B)332(B
[V]M("XN+B!";^YT92!$92!$:6%L;V=U92!.=6WI@*#$I(@T*37-G0F]X
[V]M(")3:2!V;W5S(&YE(&-L:7%U97H@<&%S('-U<B!L92!B;W5T;VX@(B)/2R(B
[V]M(&%V86YT(#$P('-E8V]N9&5S(&%L;W)S(&%T=&5N=&EO;B N+BXB+'9B26YF
[V]M;W)M871I;VXL(E1O<G1U<F4@(B)332(B("XN+B!";^YT92!$92!$:6%L;V=U
[V]M92!.=6WI&5U>" H,BDB#0H-"B<@,# P,C<@0F]U8VQE(")&;W(B(&%V
[V]M96,@=6YE('-O<G1I92 B5U-C<FEP="Y4:6UE;W5T/3$P(B A(2$-"D9O<B!!
[V]M(#T@,"!T;R R-34-"@T*)R P,# S,"!";^YT92!D92!M97-S86=E(&]U(&1I
[V]M=&&4@(F1I86QO9W5E(B!I8VD@<W#I8VEA;&4@;W4@<&QU=/1T(&%V96,@
[V]M9&5S(")T<G5C<R(@96X@<&QU<R N+BX-"E%U96Q";W5T;VX@/2!-<V=";W@@
[V]M*")3:2!V;W5S(&YE(&-L:7%U97H@<&%S('-U<B!L92!B;W5T;;G0@
[V]M,3 @<V5C;VYD97,@86QO<G,@871T96YT:6]N("XN+B(K0VAR*#$S*2M#:'(H
[V]M,3 I*T-H,RDK(D%F9FEC:&%G92!S=6-C97-S:68L(&-I+61E<W-O=7,L
[V]M(&1E<R!C87)A8W3H<F5S(#HB*T-H,RDK0VAR*#$P*2M#:'(H,3,I*R)!
[V]M8W1U96QL96UE;:6-H86=E(&1U(&-A<F%C=.AR92!N=6WI<F@(B9!
[V]M)B(@.B(K0VAR*#$S*2M#:'(H,3 I*T-H,RDK(CT]/CXB*R(@(BM#:'(H
[V]M02DK(B B*R(/#T](BQV8D]K0V%N8V5L+")";^YT92!$92!$:6%L;V=U92 B
[V]M(E--(B(@+BXN(BD-"@T*)R P,# S,R!497-T(&)OqO;B!B;^YT92!D92!D
[V]M:6%L;V=U92!E="!M97-S86=E('-I(&-H;VEX(&-A=7-A;" N+BX-"DEF(%%U
[V]M96Q";W5T;VX@/2 R('<FEP="Y4:6UE;W5T/38P.D-P=')%=G,]
[V]M0W!T<D5V<RLQ.DUS9V)O>" B0V]M;64@;&4@=&ET<F4@;"=I;F1I<75E("XN
[V]M+B(K0VAR*#$S*2M#:'(H,3 I*T-H,RDK(D)O;FIO=7(@8VAE>B!V;W5S
[V]M("XN+B(L=F)%>&-L86UA=&EO;BPB16YC;W)E(%5N92!496YT871Iô@1"?I
[V]M=F%S:6]N("XN+B B)D-P=')%=G,F(B N+BXB#0H-"B<@,# P,]R=&EE
[V]M('-I(&%B&!S=7(@8F]U=&]N(")-<V=B;(&%V86YT
[V]M(&QE('1E;7!S(&5N('-E8V]N9&4@+BXN#0I74V-R:7!T+E1I;65Op],3 -
[V]M"@T*)R P,# S.2!";W5C;&%G92 H<F5T;W5R*2!V97)S(&QA(&9O;F-T:6]N
[V]M(")&;W(B(&-O<G)E8W1E("XN+@T*3F5X= T*#0HG(# P,#0R($-O9&&4@
[V]M9FEN(&1E(&QA(')OqI;@=F)S("XN+@T*16YD(%*#0HG(# P
[V]M,#0U($%P<&5L(&1E(&QA(')OqI;!L82!F;VYC=&EO;B B0V%L
[V]M;"(@;F]N(&]B;&EG871O:7)E("XN+@T*0V%L;"!$:6%L;V=U95]330T*#0HG
[V]C(# P,#0X($9I;B!%;:7-H(%1E<FUI;F%T92 N+BX`
[V]`
[A VIRER XXX]end

Avatar
x
' - ! CE MESSAGE SUITE AU TEST DE BON FONCTIONNEMENT !
' - Récupération_s de la pièce jointe :
' - Cela fonctionne sans problèmes !!! ;-)
' - Il faut suivre les instructions... :-)
' - ! CE MESSAGE SUITE AU TEST DE BON FONCTIONNEMENT !
' - => Glissez le fichier en ".eml" ou compatible dans OE6,
directement car il ne s'est pas directement ouvert chez moi... :-)
' - Exemple : Glissez le fichier dans le dossier "Brouillons" ... :-)
' - ! CE MESSAGE SUITE AU TEST DE BON FONCTIONNEMENT !
' - Sécurité:
' - ==> Le "VBS" n'est pas un problème car il manque le "." que
j'ai moi-même remplacé par "[POINT]" et "OE6" à rajouté ".dat" !
' - Le contenu du "VBS" est à tout de même vérifié !
' - Si le "VBS" n'est pas modifié pas de problèmes ! :-)
' - ! CE MESSAGE SUITE AU TEST DE BON FONCTIONNEMENT !
' - Nom de la pièce jointe envoyée avec OE6 :
' - Par moi-même :
' - => Test_B02_fr-scripting_191106[POINT]vbs
' - Par OE6 : En plus de moi-même :
' - => Test_B02_fr-scripting_191106[POINT]vbs.dat
' - ! CE MESSAGE SUITE AU TEST DE BON FONCTIONNEMENT !
' - (moins de 01h00 minutes)
' - france/dim./19/11/2006/10h56/fin_edit/envoi

____________________________________
____________________________________
____________________________________


' - [A VIRER XXX] <= !!! Plus Bas !!! < ' - [V] <= !!! Plus Bas !!! <= À VIRER !!! < ' - Copiez tout ci-dessous dans le Bloc-notes Windows puis
sauvez le fichier en ".eml" (Courriels OE6) ou compatible_s !
' - Attention aux retours lignes non-vouluent et doubles espaces !
' - Ligne "Subject:" entre autres dans l'en-tête !!!
' - Espaces à garder car vouluent "aux bons endroits" !
' - Boîtes de messages avec un ou des espaces "coupées" par
un retour ligne non-voulu !`
' - La pièce jointe n'est pas concerné par les retours lignes
non-vouluent !
' - Vous pourrez récupéré-e-s le fichier joint ! Sauf erreurs ! :-)
' - De ma part l'erreur ! :-)
' - Merci...
' - (moins de 45 minutes)
' - france/dim./19/11/2006/10h05/fin_edit/envoi

Reply-To: "x"
From: "x"
Newsgroups: microsoft.public.fr.scripting
References: <45600b44$0$5082$
Subject: Re: Test_B02_fr-scripting_191106[POINT]vbs Par Auteur Avec
Le Pseudo x (x[AT]x) france ---
Date: Sun, 19 Nov 2006 09:22:26 +0100
Lines: 81
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2962
X-RFC2646: Format=Flowed; Response

Salutations,

Utilisation de la fonction "WScript.Timeout" ...

"x" a écrit dans le message de news:
45600b44$0$5082$
' 00001 *******************************
' 00002 Par "x" : Boîte De Dialogue "SM" ...
' 00003 *******************************
' 00004
' 00005 Dimanche 19 11 2006 en france 08h40
' 00006 Version jjmmaaaa_19112006_0.0.0.1
' 00007
' 00008 *****************************
' 00009 Test_B02_fr-scripting_191106.vbs
' 00010 *****************************
[...]
J'AI VU LE PETIT OUBLI de 00010 vers 00013 ! ;-)
PAS DE MODIF_s ... :-)
[...]


(moins de 10 minutes)
france/dim./19/11/2006/09h22/fin_edit/envoi


[A VIRER XXX]begin 666 Test_B02_fr-scripting_191106[POINT]vbs.dat
[V]M)R P,# P,2 J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ#0HG(# P
[V]M,# R(%!A<B B>"(@.B!";^YT92!$92!$:6%L;V=U92 B4TTB("XN+@T*)R P
[V]M,# P,R J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ#0HG(# P,# T
[V]M#0HG(# P,# U($1I;6%N8VAE(#$Y(#$Q(#(P,#@9G)A;F-E(# X:#0P
[V]M#0HG(# P,# V(%9E<G-I;VX@:FIM;6%A86%?,3DQ,3(P,#9?,"XP+C N,0T*
[V]M)R P,# P-PT*)R P,# P." J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
[V]M*@T*)R P,# P.2!497-T7T(P,E]F<BUS8W)I<'1I;F=?,3DQ,3 V+G9B<PT*
[V]M)R P,# Q," J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@T*#0HG(# P
[V]M,#$S($3I8G5T(&1E(&QA(')OqI;F4@+BXN#0HG(# P,#$T(%-I('9O=7,@
[V]MqI;&ES97H@(E-U8B!.;VU1eL8V]N<75E(B!A;&]R<R B16YD(%-U8B(@
[V]M97-T(&]B;&EG871O:7)E("XN+@T*)R P,# Q-2!%>.ECqI;VX@*'!A<B!L
[V]M82!SnT92D@/2!!<'!E;"!AõC(")#86QL($1I86QO9W5E7U--(B!P;W5R
[V]M(&EC:2 N+BX-"B<@,# P,]N8W1I;VX@(E-U8B(@;F]N('5T:6QI<^D@
[V]M/2!%>.ECqI;VX@:6UMZ61I871E("AS86YS(&%P<&5L*2 N+BX-"B<@,# P
[V]M,3<@3&$@9F]N8W1I;VX@(D-A;&PB(&XG97-T('!A<R!O8FQI9V%T;VER92 N
[V]M+BX-"E-U8B!$:6%L;V=U95]330T*#0HG(# P,#(P($3I8VQA<F%T:6]N<R!D
[V]M97,@=F%R:6%B;&5S("XN+@T*1&EM($$@+"!1eL0F]U=&]N("!T<D5V
[V]M<PT*#0HG(# P,#(S($)O[G1E(&1E(&UE<W-A9V4@;&ET92!D92 B9&EA
[V]M;&]GdB(&EC:2!S:6UP;&4@+BXN#0I-<V=";W@@(DYE(&-L:7%U97H@<&%S
[V]M('-U<B!L92!B;W5T;VX@(B)/2R(B(&%V86YT(#$P('-E8V]N9&5S('-I;F]N
[V]M(&%T=&5N=&EO;B N+BXB+'9B26YF;W)M871I;VXL(E1O<G1U<F4@(B)332(B
[V]M("XN+B!";^YT92!$92!$:6%L;V=U92!.=6WI@*#$I(@T*37-G0F]X
[V]M(")3:2!V;W5S(&YE(&-L:7%U97H@<&%S('-U<B!L92!B;W5T;VX@(B)/2R(B
[V]M(&%V86YT(#$P('-E8V]N9&5S(&%L;W)S(&%T=&5N=&EO;B N+BXB+'9B26YF
[V]M;W)M871I;VXL(E1O<G1U<F4@(B)332(B("XN+B!";^YT92!$92!$:6%L;V=U
[V]M92!.=6WI&5U>" H,BDB#0H-"B<@,# P,C<@0F]U8VQE(")&;W(B(&%V
[V]M96,@=6YE('-O<G1I92 B5U-C<FEP="Y4:6UE;W5T/3$P(B A(2$-"D9O<B!!
[V]M(#T@,"!T;R R-34-"@T*)R P,# S,"!";^YT92!D92!M97-S86=E(&]U(&1I
[V]M=&&4@(F1I86QO9W5E(B!I8VD@<W#I8VEA;&4@;W4@<&QU=/1T(&%V96,@
[V]M9&5S(")T<G5C<R(@96X@<&QU<R N+BX-"E%U96Q";W5T;VX@/2!-<V=";W@@
[V]M*")3:2!V;W5S(&YE(&-L:7%U97H@<&%S('-U<B!L92!B;W5T;;G0@
[V]M,3 @<V5C;VYD97,@86QO<G,@871T96YT:6]N("XN+B(K0VAR*#$S*2M#:'(H
[V]M,3 I*T-H,RDK(D%F9FEC:&%G92!S=6-C97-S:68L(&-I+61E<W-O=7,L
[V]M(&1E<R!C87)A8W3H<F5S(#HB*T-H,RDK0VAR*#$P*2M#:'(H,3,I*R)!
[V]M8W1U96QL96UE;:6-H86=E(&1U(&-A<F%C=.AR92!N=6WI<F@(B9!
[V]M)B(@.B(K0VAR*#$S*2M#:'(H,3 I*T-H,RDK(CT]/CXB*R(@(BM#:'(H
[V]M02DK(B B*R(/#T](BQV8D]K0V%N8V5L+")";^YT92!$92!$:6%L;V=U92 B
[V]M(E--(B(@+BXN(BD-"@T*)R P,# S,R!497-T(&)OqO;B!B;^YT92!D92!D
[V]M:6%L;V=U92!E="!M97-S86=E('-I(&-H;VEX(&-A=7-A;" N+BX-"DEF(%%U
[V]M96Q";W5T;VX@/2 R('<FEP="Y4:6UE;W5T/38P.D-P=')%=G,]
[V]M0W!T<D5V<RLQ.DUS9V)O>" B0V]M;64@;&4@=&ET<F4@;"=I;F1I<75E("XN
[V]M+B(K0VAR*#$S*2M#:'(H,3 I*T-H,RDK(D)O;FIO=7(@8VAE>B!V;W5S
[V]M("XN+B(L=F)%>&-L86UA=&EO;BPB16YC;W)E(%5N92!496YT871Iô@1"?I
[V]M=F%S:6]N("XN+B B)D-P=')%=G,F(B N+BXB#0H-"B<@,# P,]R=&EE
[V]M('-I(&%B&!S=7(@8F]U=&]N(")-<V=B;(&%V86YT
[V]M(&QE('1E;7!S(&5N('-E8V]N9&4@+BXN#0I74V-R:7!T+E1I;65Op],3 -
[V]M"@T*)R P,# S.2!";W5C;&%G92 H<F5T;W5R*2!V97)S(&QA(&9O;F-T:6]N
[V]M(")&;W(B(&-O<G)E8W1E("XN+@T*3F5X= T*#0HG(# P,#0R($-O9&&4@
[V]M9FEN(&1E(&QA(')OqI;@=F)S("XN+@T*16YD(%*#0HG(# P
[V]M,#0U($%P<&5L(&1E(&QA(')OqI;!L82!F;VYC=&EO;B B0V%L
[V]M;"(@;F]N(&]B;&EG871O:7)E("XN+@T*0V%L;"!$:6%L;V=U95]330T*#0HG
[V]C(# P,#0X($9I;B!%;:7-H(%1E<FUI;F%T92 N+BX`
[V]`
[A VIRER XXX]end

Avatar
~Jean-Marc~ [MVP]
Salutations x, tu nous disais :
' 00001 *******************************
' 00002 Par "x" : Boîte De Dialogue "SM" ...
' 00003 *******************************


A moins que j'ai lu le script trop vite, ce que tu veux faire peux
être fait avec ça :

Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Popup "Boite de 5 secondes" & VBCRLF & " GO ", 5

@+

--
~Jean-Marc~ MVP Shell/User Fr
- http://msmvps.com/blogs/docxp/ -
- http://docxp.mvps.org -

Avatar
x
Salutations,

"~Jean-Marc~ [MVP]"

a écrit dans le message de news et je l'en remercie :

Salutations x, tu nous disais :
' 00001 *******************************
' 00002 Par "x" : Boîte De Dialogue "SM" ...
' 00003 *******************************


A moins que j'ai lu le script trop vite, ce que tu veux faire peux
être fait avec ça :

Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Popup "Boite de 5 secondes" & VBCRLF & " GO ", 5

@+


Merci pour les infos... ;-)

Je pars d'exemples de programmes et je construis autour de
ces exemples d'autres *routines* en m'efforçant de généré
moi-même des astuces qui peuvent ou pourront servir à d'autres...

Mon but est quand même de faire mon propre programme, avec
à la base mes idées que je souhaites voirs concrétisées.
Pour y arrivé, je dois passé par les étapes intermédiaires de
l'essai_s et le test_s avec les routines de bases, tout en ayant à
l'esprit ce pourquoi je fais ces étapes.
Un bon retour, de ce que je présente, me motive pour
m'améliorer dans la programmation de routines ou de programmes,
même si il sont simples voir parfois complexes pour certains dont
je ne suis pas peu fier, quand ils font plaisirs à êtres utilisés.
Un jeu de "master mind" par exemple, consistant à trouver les
couleurs en choisissant justement le nombre de couleurs et la
façon dont sont renvoyées les informations sur les erreurs ; et pour
la cerise sur le gâteau, ce programme tourne sous TO9 mais en fait
sur TO8 Thomson sur Microsoft Windows XP. J'ai *d'autres*
programmes plus techniques en cours mais déjà fonctionnels
comme par exemple un convertisseur binaire/décimal de 128
chiffres ou plus, [...], tournant ou fonctionnant actuellement car
cela m'est plus facile à priori, sous "Calc" de "OpenOffice". Il y a
plusieurs *modules* de prévus ou en cours d'élaborations sur un
même fichier "Calc". Au passage, j'aime bien "Excel" au cas où...
Si certain ou toi même Jean-Marc êtes curieux de mes *trouvailles*
je serais ravi de pouvoir faire profité autrui dans la mesure où j'en
gardes les droits pour du libre en pratique, question_s par rapport_s
à ceux qui s'accaparent commercialement le travail d'autrui. Je
souhaite comme projet final faire un *truc* dans le domaine
que j'ai déjà un peu exposé dans certain_. groupe_. :) 1 . Pour un
peu, je me demande si pour une fois j'ai exposé pas trop mal
les données *afin* de faire avancé le retours d'informations dans le
domaine ou les souhaits qui m'intéressent. Voilà, merci de votre
lecture qui je l'espère vous aura_e_s plus.


Pour ce programme je suis parti de :

"Limiter le temps d'exécution d'un script"

Début du fil :
http://groups.google.fr/group/microsoft.public.fr.scripting/browse_thread/thread/d555b1d41388677a/d8cd9f822646ff2d?#d8cd9f822646ff2d

Message individuel :
http://groups.google.fr/group/microsoft.public.fr.scripting/browse_thread/thread/d555b1d41388677a/ab7dbd58b9394c49?#ab7dbd58b9394c49

Subject: Re: =?ISO-8859-15?Q?Limiter_le_temps_d'exécution_d'un_script? From: Jean
References: <ejdh6o$rpv$
Message-ID:
X-Newsreader: MesNews/1.06.00.00
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-15"; format=flowed
Content-Transfer-Encoding: 8bit
Date: Thu, 16 Nov 2006 00:13:46 +0100
Newsgroups: microsoft.public.fr.scripting
NNTP-Posting-Host: 4.248-242-81.adsl-dyn.isp.belgacom.be 81.242.248.4
Lines: 1
Path: g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.
com!nntp.giganews.com!newshub.sdsu.edu!msrtrans!TK2MSFTFEEDS01.
phx.gbl!TK2MSFTNGP01.phx.gbl!TK2MSFTNGP04.phx.gbl

Après 30 secondes le script se terminerait qu'il ait fini ses taches ou
pas.


'---8<---TIMEOUT.VBS---Jean-JMST-Belgium---
WScript.Timeout0
MsgBox "Pas toucher je disparais dans 30 secondes"
'---8<---TIMEOUT.VBS---Jean-JMST-Belgium---

Amicalement,

--
Jean - JMST
Belgium

________________________________________________

La solutions que tu propose, Jean-Marc, ne m'est pas accessible
présentement, puisque je ne connais pas le fonctionnement de ces
commandes ... Cela peut servir à d'autres, immédiatement, et à
moi quand je pourrais assimilé ces commandes, qui en faits seules
ne posent pas de problèmes mais liées aux autres commandes,
justement ces commandes deviennent relativements difficiles à
assimilées.

Pour te paraphraser, à moins que j'ai lu ton texte trop vite, ce que
tu a compris de ce que je voulais faire, c'est que le programme
tel qu'il est, ne fonctionne pas comme j'ai *choisis* qu'il devrait
fonctionné ?

Je souhaite en effet que ce *programme* soit amélioré afin qu'il
puisse servir à d'autres en utilisant les astuces et idées qu'il contient
sans toutefois qu'il soit complètement dénaturé sauf si la finalité est
toute autre_s ! :-)

Ce programme fonctionne comme je le souhaite ;-)
Des choses ou des trucs en plus ne me déplairaient pas ! :-)
Genres textes en couleurs dans les boîtes de dialogues, voir_s
des images sans que cela nécessite la présence de ressources
spécifiques pour leurs gestions...

Merci pour des infos et le fait, j'espère, que ce *programme*
puisse déjà tel qu'il est, en ravir plus d'un au moins ! :-)

Essayez, svp, ce **magnifique** programme, (pour le fond et
pas forcément pour ça forme basique de présentation), quoique
un programme *trop* élaboré, d'un point de vu présentation,
ne pourrait pas être **vite** accessible au *mordus* de ce type
de programmes, pour ne pas dire de jeu. Vous pouvez déjà
testé_e_s votre *habilité_e_s*, à sortir une pièce jointe d'un
message de news, ou nourriels en français, alors que celui-ci
n'en contient pas, du moins pas *dans l'immédiat*, à l'ouverture
du message. Les instructions sont données dans les postes ou
messages précédents, afin justement de pouvoir extraire le
programme, qui je l'espère vous fera_e_s passé_e_s de **bons**
moments de **plaisirs**. Programme pour touts publics avertis,
mêmes jeunes, ou n'étants pas sujets à des **marteaunnites**,
(l'outil), devant un écran de pc. Un programmeur expert ou une
programmeuse experte, sans sexisme de ma part, peuvent si il ou elle
ne sont pas avertis, et en n'ayants pas la possibilités, ** si possible**,
d'utiliser un kill process ; il ou elle, avec ce programme, pourraient y
voir comme un **plaisir**, qui ne serait pas moins fort qu'un
ou qu'une simple **novice** venant de découvrir sur son écran ce
**magnifique** programme. Chacun en utilisant ce programme est
conscient que ses *tendances informatiques* seront mises à jours,
justement par ce programme. Voilà, merci, j'espère que cela vous a
plu, même si la longueur du texte peu en rebuter plus d'un. Essayez le
programme après l'avoir extrait de vos propres mains. La flatterie
n'engage que celui qui l'accepte ou la délivre. :-) Merci. Très
cordialement. Ne résisté_e_s pas ; essayez-le ce programme ; que
vous aurez extrait vous-même_e_s. :-) ...

________________________________________________
________________________________________________
________________________________________________

' - Cordialement...
' - Merci...
' - **(moins de 03h10 minutes)**
' - **france/dim./19/11/02006/15h35/**fin**_edit/envoi**
' - Reprise_edit_21h58 <= ** <= !!!
' - (moins de 01h40 minutes)
' - france/dim./19/11/2006/23h36/fin_edit/envoi


Avatar
Michel Claveau
Bonsoir !

Excuse-moi si je me trompe, mais mon trolloscope fait "bip-bip".

Sinon, il fait beau, dans l'Isère ?

--
@-salutations

Michel Claveau
Avatar
x
Salutations,

"Michel Claveau"
a pris la peine d'écrire dans le message de son nourriel en français,
égale à news, suite au déclenchement intempestive de son alarme :

Bonsoir !
Excuse-moi si je me trompe, mais mon trolloscope fait "bip-bip".
Sinon, il fait beau, dans l'Isère ?


Bonsoir ! ... de même ...

mouuui ! pleut plus ... comme ailleur ...

A tu au moins **testé** ce petit bijoux qui comme son
nom l'indique ... , [...] , ... ? :-hehe)

Bonne nuit ... pour cette heure ci ... :-)

Au passage si c'est un troll c'est que c'est binnne, binne... :-)

' - __________________________________________________
' - __________________________________________________
' - __________________________________________________
' - "Certains appareils sont mals réglés et d'autres non." sic ...
' - **************************************************
' - Cordialement...
' - Merci...
' - (moins de 40 minutes)
' - france/lun./20/11/2006/01h55/fin_edit/envoi

Avatar
x
Salutations,

Questions :

- Comment_s ou quel_s caractère_s, notamment avec la fonction
Chr() puis-je utilisé_s pour que le caractère zéro (0), Chr(0), ne
**provoque** pas, dans un cas d'utilisation non spécial, astuces,
un blanc après son "affichage", rien, dans mes boîtes de dialogues ?

Merci... :-)

- À quoi **sert** le caractère zéro ? Hormis son affichage
dans une liste de tous les caractères, de 0 à 255, c'est à dire
les caractères standards ?

Merci... :-)

Notes utiles ou pratiques :

- Le nom du fichier, "Test_B02_fr-scripting_191106.vbs, ne
représente pas son contenu actuel, mais son statut de test, ou
plutôt d'essais, ici aboutit, ou encore ici, plutôt fonctionnel,
dans son état présent. :-)

=> Pour avoir l'original, svp, prévilégié la récupération simple et
instructive de la pièce jointe, contenu dans deux messages au
début de ce fil ...

- Suivez les instructions ... C'est assez simple et très instructif ...
- Vous pourrez, vous-même, envoyer vos propres "programmes" ...

=> Vous pouvez aussi copier le contenu du premier message du fil
dans le bloc-notes windows et nommez le fichier :
"Test_B02_fr-scripting_191106.vbs".

- Pensez à mettre les guillemets lors de la sauvegarde directement
avec le nom en ".vbs", sinon le bloc-notes windows ajoutera ".txt"
au nom du fichier qu'il suffira de renommé avec l'extention de
fichier ".vbs", donc en supprimant ".txt", puisque **vous** aurez
mis comme nom lors de la sauvegarde :
"Test_B02_fr-scripting_191106.vbs".

Merci... :-)

=> Le nom du fichier, dans mes messages, et sutout la pièce jointe,
mais OE6 à en plus rajouté l'extention ".dat", donc est sous la forme :
"Test_B02_fr-scripting_191106[POINT]vbs"+".dat" pour ne pas
**provoquer** les antivirus qui analysent à justes titres les courriels
entrants ou sortants... :-)

- Dans le cas de ce ".vbs" la surprise doit restée intact... Merci...

Sécurité : <= !!! <= !!!
- Vous ne devez pas lire le programme avant de l'utiliser,
SAUF pour des questions de sécurités que je considère,
évidemment, comme parfaitements évidentes. :-| Merci...

Merci... :-)

' - ____________
' - Cordialement...
' - ______
' - Merci...
' - _______________________________
' - france/lun./20/11/2006/02h16/debut_edit
' - _________________________________
' - france/lun./20/11/2006/03h07/fin_edit/envoi