@Marc56 :
Effectivement, Sleep_(3000) remplacé par Delay(3000)
Je vais voir pour ajouter un Timer et faire le test.
Chez moi, malheureusement, CompatTelRunner se déclenche a chaque démarrage et a chaque fois que je met à jour un logiciel.
Vu ma petite configuration Intel Celeron, cela me bloque le PC pendant 5 bonnes minutes ou plus.
Tous les paramètres sont bien positionnés pour n'envoyer que le minimum.
Je n'ai pas de compte Microsoft sur mon PC
Voila aussi a quoi me sert ce service Windows:
La procédure complète qui me permet de retrouver certains services dans l'état que je souhaite a chaque démarrage, même après un Windows Update qui a souvent tendance a réactiver les services Sysmain et WSearch
Je posterai la procédure modifiée lorsque j'aurais ajouté le Timer
CAGE
Code : Tout sélectionner
Procedure serviceThread(idThread.l) ; ; Here goes the service's job...
; Here goes the service's job...
; Modifier cette procédure pour effectuer les actions désirées
; QHActiveDefense : 360 Total Security
; RunProgram("sc.exe" , "config QHActiveDefense start= demand", #Null$, #PB_Program_Hide)
; BoxSyncUpdateService : Updater for Box Sync
RunProgram("sc.exe" , "config BoxSyncUpdateService start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop BoxSyncUpdateService", #Null$, #PB_Program_Hide)
; DbxSvc : Dropbox Service
RunProgram("sc.exe" , "config DbxSvc start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop DbxSvc", #Null$, #PB_Program_Hide)
; Emby : The windows background service for Emby Server.
RunProgram("sc.exe" , "config Emby start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop Emby", #Null$, #PB_Program_Hide)
; MEmuSVC :
RunProgram("sc.exe" , "config MEmuSVC start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop MEmuSVC", #Null$, #PB_Program_Hide)
; SbieSvc : SandBoxie Service
RunProgram("sc.exe" , "config SbieSvc start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop SbieSvc", #Null$, #PB_Program_Hide)
; gupdate : Service Google Update (gupdate)
RunProgram("sc.exe" , "config gupdate start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop gupdate", #Null$, #PB_Program_Hide)
; gupdatem : Service Google Update (gupdatem)
RunProgram("sc.exe" , "config gupdatem start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop gupdatem", #Null$, #PB_Program_Hide)
; dbupdate : Service Mise à jour Dropbox (dbupdate)
RunProgram("sc.exe" , "config dbupdate start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop dbupdate", #Null$, #PB_Program_Hide)
; dbupdatem : Service Mise à jour Dropbox (dbupdatem)
RunProgram("sc.exe" , "config dbupdatem start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop dbupdatem", #Null$, #PB_Program_Hide)
; uSHAREitSvc : SHAREit Hotspot Service
RunProgram("net.exe", "stop uSHAREitSvc", #Null$, #PB_Program_Hide)
; Spooler : Spouleur d’impression
RunProgram("sc.exe" , "config Spooler start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop Spooler", #Null$, #PB_Program_Hide)
; SysMain : Gère et améliore les performances du système dans le temps.
RunProgram("sc.exe" , "config SysMain start= disabled", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop SysMain", #Null$, #PB_Program_Hide)
; TomTomHOMEService : TomTom Home Service for ejecting devices
RunProgram("sc.exe" , "config TomTomHOMEService start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop TomTomHOMEService", #Null$, #PB_Program_Hide)
; tvmosaic_server : C:\Program Files (x86)\DVBLogic\TVMosaic\tvmosaic_server.exe
RunProgram("sc.exe" , "config tvmosaic_server start= demand", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop tvmosaic_server", #Null$, #PB_Program_Hide)
; Windows Search : Fournit des fonctionnalités d’indexation de contenu, de mise en cache des propriétés,
; de résultats de recherche pour les fichiers, les messages électroniques et autres contenus.
RunProgram("sc.exe" , "config WSearch start= disabled", #Null$, #PB_Program_Hide)
RunProgram("net.exe", "stop WSearch", #Null$, #PB_Program_Hide)
Repeat
Protected ptrPID = 0
Protected ExeName$ = "CompatTelRunner.exe"
If getNamePID(ExeName$,@ptrPID)
RunProgram("TaskKill.exe", "/f /im " + ExeName$, #Null$, #PB_Program_Hide)
EndIf
Delay(3000)
ForEver
EndProcedure