Bonjours,

A la demande de ma mère et pour améliorer mes compétences j'ai accepter de crée un logiciel qui bloque le démarrage d'un jeux vidéo afin de limiter le nombres d'heures de jeux de mon frère. Bref, fini de parler de moi voici mon problème j'ai suivis cette manipulation afin d'adapter le fameux logiciel en services http://blogmotion.fr/systeme/convert...ice-windows-72 afin de le rendre "invisible" le principe est dès le lancement du jeux fermer le processus du jeux et écrire dans un fichier txt l'heure du fermeture du processus concerné. L'application fonctionne parfaitement mais lors de l'adaptation en service il ferme bien le processus seulement il ne crée pas le fichier txt.
J'arrive pas du a trouver le problème

voici le code source
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Imports System
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        Using sw As StreamWriter = New StreamWriter("C:\Users\Public\Games\Nouveau dossier\World of Warcraft\Logs.txt")
            sw.Write("Logiciel de contrôle ")
            sw.WriteLine("pour world of warcraft : ")
            sw.WriteLine("---------------------------------------------")
            sw.Close()
        End Using
    End Sub
    Sub KillProcess(ByVal ProcessName As String)
        Dim svc As Object
        Dim sQuery As String
        Dim oproc
        svc = GetObject("winmgmts:root\cimv2")
        sQuery = "select * from win32_process where name='" & ProcessName & "'"
        For Each oproc In svc.execquery(sQuery)
            oproc.Terminate()
        Next
        svc = Nothing
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        For Each Process In Diagnostics.Process.GetProcesses()
            If Process.ProcessName = "Wow" Then
                KillProcess("Wow.exe")
                Dim monFichier As String = "C:\Users\Public\Games\Nouveau dossier\World of Warcraft\Logs.txt"
                Dim monEcriture As System.IO.StreamWriter
                monEcriture = New System.IO.StreamWriter(monFichier, True)
                monEcriture.Write("Tentative de lancement du jeu World Of Wacraft a : ")
                monEcriture.WriteLine(DateTime.Now)
                monEcriture.Close()
            End If
        Next
    End Sub
End Class
J'espère que vous avez compris et que vous pourrez m'aider merci d'avance