Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Ce code ne marche plus Pourquoi ?

1 view
Skip to first unread message

PhD

unread,
Mar 1, 2011, 9:32:06 AM3/1/11
to
jusque maintenant, j'utilisais ce code pour mettre à jour dynamiquement la
date du jour dans la signature de Outlook express et il ne marche plus, je
me demande pourquoi

Il,faut savoir que je viens de mettre à jour Avast vers la version 6 et que
j'ai remarqué une autre erreur dans un autre programme (MailWasher 6.52FR)
et je me demande si le problème n'est pas lié à cette mise à jour

Je suis preneur de toute information sur le sujet

d'avance merci et bonne journée

Voici le code mis dans en fichier nommé mail.vbs chez moi
(j'avais trouvé ce code un jour sur internet à cette adresse
http://www.faqoe.com/rep/cm.htm )

Dim WSHShell
Dim identite, signure, defaut
Set WSHShell = CreateObject("WScript.Shell")
With WSHShell
identite = .regread("HKCU\Identities\Last User ID")
defaut = .regread("HKCU\Identities\" & identite &
"\Software\Microsoft\Outlook Express\5.0\signatures\Default Signature")
signure = .regread("HKCU\Identities\" & identite &
"\Software\Microsoft\Outlook Express\5.0\signatures\" & defaut & "\Text")
Msgbox (left(Now(),10)) ' SI CETTE LIGNE EST EN REMARQUE, LE PROGRAMME NE
MARCHE PAS POURQUOI ?
If InStr(signure, "==>") Then signure = Left(signure, Len(signure) - 20)
signure = signure & vbCrLf & "==> " & Left(Now(), 10) & " <=="
.regwrite "HKCU\Identities\" & identite & "\Software\Microsoft\Outlook
Express\5.0\signatures\" & defaut & "\Text", signure, "REG_SZ"
'.Run "msimn.exe" LIGNE MISE EN REMARQUE
End With
Set WSHShell = Nothing


Philippe

Luc

unread,
Mar 1, 2011, 12:13:00 PM3/1/11
to
PhD a écrit...

> jusque maintenant, j'utilisais ce code pour mettre à jour
> dynamiquement la date du jour dans la signature de Outlook express et
> il ne marche plus, je me demande pourquoi
>
> Il,faut savoir que je viens de mettre à jour Avast vers la version 6
> et que j'ai remarqué une autre erreur dans un autre programme
> (MailWasher 6.52FR) et je me demande si le problème n'est pas lié à
> cette mise à jour
>
> Je suis preneur de toute information sur le sujet

A priori, la mise à jour d'Avast n'a rien à faire de ce qui est incrit dans
HKCU\Identities\[N°ID]\Software\Microsoft\Outlook Express\5.0\signatures\

Dans le code du VBS ci-dessous, il y a possiblement un retour à la ligne
malicieux. Il est difficile d'en juger formellement puisque la longueur des
lignes a été formatée par la copie dans ton post mais en copiant-collant ce
code, il fonctionne parfaitement après remplacement des retours à la lignes
sujets à suspicion et suppression pure et simple de "Msgbox

(left(Now(),10)) ' SI CETTE LIGNE EST EN REMARQUE, LE PROGRAMME NE MARCHE
PAS POURQUOI ?"

> d'avance merci et bonne journée

Padkoi

>
> Voici le code mis dans en fichier nommé mail.vbs chez moi
> (j'avais trouvé ce code un jour sur internet à cette adresse
> http://www.faqoe.com/rep/cm.htm )
>
> Dim WSHShell
> Dim identite, signure, defaut
> Set WSHShell = CreateObject("WScript.Shell")
> With WSHShell
> identite = .regread("HKCU\Identities\Last User ID")
> defaut = .regread("HKCU\Identities\" & identite &
> "\Software\Microsoft\Outlook Express\5.0\signatures\Default
> Signature") signure = .regread("HKCU\Identities\" & identite &
> "\Software\Microsoft\Outlook Express\5.0\signatures\" & defaut &
> "\Text") Msgbox (left(Now(),10)) ' SI CETTE LIGNE EST EN REMARQUE, LE
> PROGRAMME NE MARCHE PAS POURQUOI ?
> If InStr(signure, "==>") Then signure = Left(signure, Len(signure) -
> 20) signure = signure & vbCrLf & "==> " & Left(Now(), 10) & " <=="
> .regwrite "HKCU\Identities\" & identite & "\Software\Microsoft\Outlook
> Express\5.0\signatures\" & defaut & "\Text", signure, "REG_SZ"
> '.Run "msimn.exe" LIGNE MISE EN REMARQUE
> End With
> Set WSHShell = Nothing
>
>
>
>
> Philippe

--
Cordialement,

Luc Burnouf
http://www.faqoe.com/

PhD

unread,
Mar 1, 2011, 1:47:07 PM3/1/11
to
Pourtant lorsque je valide Msgbox j'ai la signature suivante qui se met a
jour
Hélène & Philippe
==> 01/03/2011 <==

et lorsque je mets le msgbox en remarque j'ai
Hélène & Philippe
==> 00:00:00 <==

je ne comprends toujours pas pourquoi

est-ce une histoire de format de date ?

Philippe

"Luc" <robott...@netcourrier.com.invalid> a écrit dans le message de
news: 4d6d291e$0$4539$426a...@news.free.fr...

Luc

unread,
Mar 1, 2011, 3:23:27 PM3/1/11
to
PhD a écrit...

> Pourtant lorsque je valide Msgbox j'ai la signature suivante qui se
> met a jour
> Hélène & Philippe
> ==> 01/03/2011 <==
>
> et lorsque je mets le msgbox en remarque j'ai
> Hélène & Philippe
> ==> 00:00:00 <==

Ça, je ne pouvais pas le deviner. Si tu nous caches des trucs...

Est-ce que la ligne .Run "msimn.exe" est aussi en remarque ?
Est-ce qu'OE est ouvert lorsque tu lances ce VBS ?
Est-ce que tu as vérifié la présence de retours à la ligne malicieux (en les
supprimant pour les remplacer par des espaces) comme je l'ai suggéré ?
Etc.

> je ne comprends toujours pas pourquoi

J'ai essayé pas mal de combinaisons sans résussir à reproduire une date
00:00:00. Pour moi, ce vbs fonctionne toujours comme attendu.

> est-ce une histoire de format de date ?

PS : pour un meilleur suivi des échanges, merci de répondre sous la citation
ou d'insérer à l'intérieur d'icelle.

PhD

unread,
Mar 2, 2011, 3:04:37 AM3/2/11
to

"Luc" <robott...@netcourrier.com.invalid> a écrit dans le message de
news: 4d6d55c2$0$5940$426a...@news.free.fr...

| PhD a écrit...
|
| > Pourtant lorsque je valide Msgbox j'ai la signature suivante qui se
| > met a jour
| > Hélène & Philippe
| > ==> 01/03/2011 <==
| >
| > et lorsque je mets le msgbox en remarque j'ai
| > Hélène & Philippe
| > ==> 00:00:00 <==
|
| Ça, je ne pouvais pas le deviner. Si tu nous caches des trucs...
|
| Est-ce que la ligne .Run "msimn.exe" est aussi en remarque ?
| Est-ce qu'OE est ouvert lorsque tu lances ce VBS ?
| Est-ce que tu as vérifié la présence de retours à la ligne malicieux (en
les
| supprimant pour les remplacer par des espaces) comme je l'ai suggéré ?
| Etc.
|

j'avais mis la ligne avec le run en remarque pour ne pas embeter les
personnes qui auraient essayé le programme
OE n'est pas ouvert lorsque je lance ce VBS
j'ai vérifié, il n'y a aucun retour à la ligne au milieu des instructions
je précise que j'utilisait déjà ce programme depuis 6 mois environ et que je
n'avais aucun problème et comme je le disais dans mon premier mail
je soupçonne Avast version 6 d'avoir créé ce problème

j'ai retrouvé sur internet l'original de ce programme sur
http://www.faqoe.com/rep/cm.htm
et si je le colle tel quel, j'ai le même probléme, le résultat est le
suivant :

Hélène & Philippe
Date : Le 00:00:00

| > je ne comprends toujours pas pourquoi
|
| J'ai essayé pas mal de combinaisons sans résussir à reproduire une date
| 00:00:00. Pour moi, ce vbs fonctionne toujours comme attendu.

oui j'ai remarqué que le format de Now() annonçait JJ/MM/AAAA ( / et 10
caractères) et que je me retrouvait avec 00:00:00 (: et 8 caractères),
et que lorsque je mets la ligne Msgbox en actif j'avais bien ma date
JJ/MM/AAAA

c'est bien pour cela que je dis que je ne comprends plus

je suis persuadé à 70-80% que mon problème vient de la nouvelle version
d'avast Version 6
mais comment en être sûr ?

Philippe

Luc

unread,
Mar 2, 2011, 4:08:01 AM3/2/11
to
PhD a écrit...

> "Luc" <robott...@netcourrier.com.invalid> a écrit dans le message
> de news: 4d6d55c2$0$5940$426a...@news.free.fr...
>> PhD a écrit...
>>
>>> Pourtant lorsque je valide Msgbox j'ai la signature suivante qui se
>>> met a jour
>>> Hélène & Philippe
>>> ==> 01/03/2011 <==
>>>
>>> et lorsque je mets le msgbox en remarque j'ai
>>> Hélène & Philippe
>>> ==> 00:00:00 <==
>>
>> Ça, je ne pouvais pas le deviner. Si tu nous caches des trucs...
>>
>> Est-ce que la ligne .Run "msimn.exe" est aussi en remarque ?
>> Est-ce qu'OE est ouvert lorsque tu lances ce VBS ?
>> Est-ce que tu as vérifié la présence de retours à la ligne malicieux
>> (en les supprimant pour les remplacer par des espaces) comme je l'ai
>> suggéré ? Etc.
>>
>
> j'avais mis la ligne avec le run en remarque pour ne pas embeter les
> personnes qui auraient essayé le programme
> OE n'est pas ouvert lorsque je lance ce VBS

C'est une des contextes dans lequel j'ai testé ton vbs et donc, chez moi, il
fonctionne comme attendu.

> j'ai vérifié, il n'y a aucun retour à la ligne au milieu des
> instructions je précise que j'utilisait déjà ce programme depuis 6
> mois environ et que je n'avais aucun problème et comme je le disais
> dans mon premier mail
> je soupçonne Avast version 6 d'avoir créé ce problème
>
> j'ai retrouvé sur internet l'original de ce programme sur
> http://www.faqoe.com/rep/cm.htm
> et si je le colle tel quel, j'ai le même probléme, le résultat est le
> suivant :
>
> Hélène & Philippe
> Date : Le 00:00:00

Je n'arrive pas davantage à reproduire ton problème avec le vbs original
qu'avec ta version modifiée.

>
>
>>> je ne comprends toujours pas pourquoi
>>
>> J'ai essayé pas mal de combinaisons sans résussir à reproduire une
>> date 00:00:00. Pour moi, ce vbs fonctionne toujours comme attendu.
>
> oui j'ai remarqué que le format de Now() annonçait JJ/MM/AAAA ( / et
> 10 caractères) et que je me retrouvait avec 00:00:00 (: et 8
> caractères),
> et que lorsque je mets la ligne Msgbox en actif j'avais bien ma date
> JJ/MM/AAAA
>
> c'est bien pour cela que je dis que je ne comprends plus
>
> je suis persuadé à 70-80% que mon problème vient de la nouvelle
> version d'avast Version 6
> mais comment en être sûr ?

Désinstaller complètement Avast, rebooter et retester.

Note qu'il n'y a pas de risques à rester sans antivirus (au moins le temps
des tests) si tu n'ouvres pas de pièces jointes d'origine douteuse.
Personnellement, ça fait des années que je me passe d'antivirus.

Raymond Schmit

unread,
Mar 2, 2011, 5:12:53 AM3/2/11
to

A-tu fait un essai avec Avast disablé ? (si c'est possible)

PhD

unread,
Mar 2, 2011, 11:35:30 AM3/2/11
to
Le problème vient bien de la version 6 d'avast antivirus.
je viens de désinstaller cette version et le problème est disparu comme par
miracle
je vais de suite envoyer un mail à la hot ligne de Avast pour leur signaler
le problème

je confirme également que le problème de mailwasher évoqué dans mon premier
mail vient également de Avast version 6

Philippe

"Raymond Schmit" <Raymond...@pircarre.be> a écrit dans le message de
news: 4d7017fb...@news.individual.net...

Luc

unread,
Mar 2, 2011, 1:03:58 PM3/2/11
to
PhD a écrit...

> Le problème vient bien de la version 6 d'avast antivirus.
> je viens de désinstaller cette version et le problème est disparu
> comme par miracle

Merci pour le feedback.

Essaie maintenant en désactivant uniquement la surveillance de la messagerie
qui, de toute façon, est inutile.

> je vais de suite envoyer un mail à la hot ligne de Avast pour leur
> signaler le problème
>
> je confirme également que le problème de mailwasher évoqué dans mon
> premier mail vient également de Avast version 6
>

--

PhD

unread,
Mar 3, 2011, 4:27:57 AM3/3/11
to

"Luc" <robott...@netcourrier.com.invalid> a écrit dans le message de
news: 4d6e8690$0$17751$426a...@news.free.fr...

| PhD a écrit...
|
| > Le problème vient bien de la version 6 d'avast antivirus.
| > je viens de désinstaller cette version et le problème est disparu
| > comme par miracle
|
| Merci pour le feedback.
|
| Essaie maintenant en désactivant uniquement la surveillance de la
messagerie
| qui, de toute façon, est inutile.
|

cela ne marchait pas, j'avais essayé de désactiver tous les services de
Avast et le problème n'était pas résolu.
quand on désactive Avast pour 1heure, un jour ou plus il y a toujours
2services qui tournent AVASTUI etAVAST SVC
je suppose que le pb venait de là

je posterais un mail pour indiquer la réponse de Avast (si elle arrive)

bonne journée

Philippe

Alain Blanchard

unread,
Mar 3, 2011, 4:53:05 AM3/3/11
to
Avira fait également un antivirus qui ne semble pas générer ces incidents...
 
 

PhD

unread,
Mar 3, 2011, 9:01:55 AM3/3/11
to
Dans ce cas là pouvez-vous me donner la version, car la seule que je trouve actuellement en français
sur internent est la version 6.0.1000, je ne pense pas qu'une autre version soit diffusée actuellement.
 
Philippe
"Alain Blanchard" <blancha...@free.fr> a écrit dans le message de news: 4d6f650d$0$10732$426a...@news.free.fr...

PhD

unread,
Mar 3, 2011, 9:16:40 AM3/3/11
to
excusez moi dans mon précédent mail je pensais que vous parliez d'AVAST, je n'avais pas bien lu

Par contre Avira ne fait à priori pas parti des antivirus du test Clubic à l'adresse ci dessous
Philippe
"Alain Blanchard" <blancha...@free.fr> a écrit dans le message de news: 4d6f650d$0$10732$426a...@news.free.fr...

Herser

unread,
Mar 4, 2011, 9:46:41 AM3/4/11
to
PhD wrote:
> excusez moi dans mon précédent mail je pensais que vous parliez
> d'AVAST, je n'avais pas bien lu
>
> Par contre Avira ne fait à priori pas parti des antivirus du test
> Clubic à l'adresse ci dessous
>

Bonjour

Avira est l'éditeur de Antivir, comme Symantec est celui de Norton :
http://row.avira.com/fr/download/index.php
Avira Free n'a pas d'agent mail, ce qui est un plus

Herser

0 new messages