[Debutant] Probleme avec service et eventlog

Bonjour,

J'ai fairt un service qui ecrit dans un journal d'evenements lorsque je demarre ou ferme Winword. (ça n'a aucun interet je sais mais c'est juste pour apprentissage...).

J'ai un problème que je n'arrive vraiment pas à comprendre :

Lorsque je fais une inscription dans un journal nommé "GLVBNET", ça marche, mais dès que je veux faire l'inscription dans un autre journal la ça marche pas...

Mon service crée bien le journal mais il n'y ecrit rien dedans.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Public Class SceSessionsAppli
    Inherits System.ServiceProcess.ServiceBase
 
    Dim Processus() As Process
    Dim bEtatEnCours As Boolean = False
    Dim bEtatPrecedent As Boolean = False
    Dim el As New EventLog("GLVBNET")
 
        '
        ' Ici il y a le code automatiquement généré
        'je l'ai enlevé pour ne pas surcharger la discussion
        '
 
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        Timer1.Enabled = True
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        Timer1.Enabled = False
    End Sub
 
    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        If Not EventLog.SourceExists("SessionsWord") Then
            EventLog.CreateEventSource("SessionsWord", "GLVBNET")
        End If
 
        el.Source = "SessionsWord"
 
        Processus = Process.GetProcessesByName("WinWord")
        If Processus.Length > 0 Then
            bEtatEnCours = True
            If bEtatEnCours <> bEtatPrecedent Then
                el.WriteEntry("Word Demarré", EventLogEntryType.Information)
                bEtatPrecedent = bEtatEnCours
            End If
        Else
            bEtatEnCours = False
            If bEtatEnCours <> bEtatPrecedent Then
                el.WriteEntry("Word Stoppé", EventLogEntryType.Information)
                bEtatPrecedent = bEtatEnCours
            End If
        End If
    End Sub
End Class

Si quelqu'un avait une explication ce serait sympa, car la j'ai beau chercher depuis hier...je seche!!

Merci,

X@v'

quand tu dit que tu veux écrire dans un autre journal modifie tu ton code ou non ??

@++
dubidon

oui, enfin je change juste les "GLVBNET" en "toto"...

Il faut que je fasse quelque chose d'autre?

Car si je mets "Toto" comme second argument de la fonction suivante:

Code:

EventLog.CreateEventSource("SessionsWord", "toto")

et que je déclare :

Code:

Dim el As New EventLog("toto")

Le journal se crée bien mais rien ne s'y inscrit...

Merci

ça y est j'ai résolu mon problème...

J'ai changé le nom "SessionsWord" en "SessionWinWord" (j'aurais très bien pu mettre n'importe quel nom a la place...) et ça marche.

Je pense que le sous-journal "SessionsWord" était associé à "GLVBNET" car c'est avec ce nom que j'ai lancé mon prog en premier.

ça doit etre une ruse windows ça....

Salut,

X@v'

Eh bien content pour toi que ce soit arrangé, n'oublie pas la balise résolu

@++
dubidon

C'etait fait...

A plus tard pour de nouvelles aventures!! :P

X@v'