Discussion :

[Gortak]

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

[Pol63]

surement une question de droits, un service démarre sur un compte, essaye de le changer

[Gortak]

Merci pour ta réponse
C'est à dire ? je dois faire quoi?

[Pol63]

aller dans outils d'administration / services, rechercher ton service et regardé sur quel user il est
et donc le changer pour tester (ou mettre des droits à cet user sur le dossier en question)

[Gortak]

J'ai essayée de le faire cependant maintenant le service ne veux plus démarrer j’obtiens cette erreur "erreur 1069 l'échec d'une ouverture de session a empêché le démarrage du service" j'ai chercher sur google mais impossible de résoudre le problème. Le service ne fonctionne qu'avec le compte système local

[Gortak]

Un petit Up

[Pol63]

des détails ?

pour le changement de user d'un service, on peut mettre soit un utilisateur système "service réseau" ... ou un utilisateur existant, dans ce cas il faut spécifier le mot de passe, sinon ca marche pas