Ce code ne marche plus Pourquoi ?

Signaler
Messages postés
3
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
4 mars 2011
-
Messages postés
3
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
4 mars 2011
-
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 mais je ne sais plus où)

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

5 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Bonjour,
Essaye de voir ce cela donne en remplaçant :

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

par
DoEvents

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Extrait d'un article sur la nouvelle version d'Avast : (LeMondeInformatique.fr)
En livrant la version 6.0 de son antivirus Avast, gratuit pour le grand public, l'éditeur tchèque Avast Software entend se démarquer de ses concurrents spécialisés dans les outils de sécurité payants. Dans sa dernière mouture, la solution intègre AutoSandbox, une technologie de virtualisation qui identifie automatiquement les applications suspectes et qui invite les utilisateurs à les exécuter dans un environnement virtuel sécurisé. Si l'application est dangereuse, elle s'arrêtera aux portes de la machine virtuelle et l'ordinateur de l'utilisateur restera complètement sécurisé. Si au contraire elle est sûre, il n'y aura pas de problème de « faux positif ». ...


Peut-être que ton logiciel est considéré comme suspect et s'execute dans la sandbox d'avast. Dans ce cas, toute écriture dans la base de registre (entre-autre) est simulée. Elle se fat dans une zone tampon qui est effacée à la fermeture du logiciel et la base de registre, la vrai, n'est pas, en réalité, modifiée.


[i][b]---- Sevyc64 (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i
Messages postés
3
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
4 mars 2011

si j'utilise "DoEvents" j'ai le message d'erreur suivant :

erreur type incompatible 'DoEvents'
code 800A000D
source erreur d'exécution Microsoft VBScript

en ce qui concerne mailWasher et Avast j'ai le message suivant au lancement de MailWasher 'division par zéro en virgule flottante' si je ferme cette boite d'information tout marche bien après




Philippe
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Je te propose deux trois choses simples. Peut-être que tu les as déjà faite mais cela vas m'éclairer un peut.

1) Tu as des doutes sur avast, si tu le désactive une heure (menu clique droit) ton code fonctionne t'il ?

2) Si tu lance ton code en pas à pas ou sur qu'elle ligne ton code génère une erreur ou sur qu'elle ligne ton code prend des valeur qui ne sont pas prévues.
Messages postés
3
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
4 mars 2011

le problème vient bien d'avast et très certainnement des services qui restent en mémoire même si l'on désactive avast pour 10mns, 1 heure ou jusqu'au prochain redemarrage

Par ailleurs dans mon premier post j'indiquais que je ne comprenais pas pourquoi le programme ne réagissait pas pareil selon qu'il y avait une ligne msgbox ou non. ce problème est également lié à la version 6 D'Avast puisque lorsque je l'ai désinstallé tout est redevenu normal

ci dessous copie du mail que j'ai envoyé à la hot-ligne de Avast

Philippe




Je viens de désinstaller Avast et mon problème avec MailWasher a disparu.
cette anomalie provient donc de la version 6 d'avast

Par ailleurs j'ai remarqué aussi des anomalies avec un WScript de chez
microsoft

Pour exemple ce programme trouvé sur Internet en visual basic qui marchait
très bien avant l'installation de la version 6 et qui ne marche plus
maintenant
le fait de désinstaller avast et tout remarche

Voici le programme : (il sert à mettre la date du jour dans la signature de
Outlook express)
avec la nouvelle version d'avast, la date n'est plus mise à jour et elle est
remplacée par des zéros
j'ai trouvé ce programme à l'adresse suivante
http://www.faqoe.com/rep/cm.htm
et en voici la copie

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")
if instr(signure,"Date : Le ") then signure=left(signure,len(signure)-20)
signure=signure & vbcrlf & "Date : Le " & left(now(),8)
.regwrite "HKCU\Identities" & identite & "\Software\Microsoft\Outlook
Express\5.0\signatures" & defaut & "\Text",signure,"REG_SZ"
.Run "msimn.exe"
End with
Set WshShell=Nothing

avec ce programme j'avais, en signature, avant l'installation de la version
6 :

Hélène & Philippe
Date : Le 02/03/2011

après le passage à la version 6 j'ai :

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

depuis que j'ai désinstallé avast je n'ai plus de problème.

je n'avais pas fait le rapprochement tout de suite que ce problème était dû
à Avast


en espérant vous avoir aidé pour faire rectifier le programme avast

je vous souhaite une bonne nuit

Philippe