PureBasic

Forums PureBasic
Nous sommes le Dim 17/Fév/2019 1:24

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 24 messages ]  Aller à la page Précédente  1, 2
Auteur Message
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Lun 03/Sep/2018 9:28 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 21/Juin/2018 6:01
Messages: 14
Marc,

Permet moi d'être honnête, je te perçois comme un troll.
Si tu détourne la discussion pour insister sur une certaine moralité, ou donner des conseils hors champ, tu me pardonneras, je préfère ne plus te répondre.
J'essaie toujours de ne pas embourber une conversation, que je n'ai pas démarrée, de propos qui à mon sens, n'y ont pas leur places.
Désolé.

J'aime coder...


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Lun 03/Sep/2018 10:27 
Hors ligne

Inscription: Jeu 07/Juin/2007 22:54
Messages: 255
@Pierre Bellisle
Malheureusement sur le forum français tu risques de te confronter plus d'une fois à ce genre de "bourbier"... Je ne sais pas pourquoi car ses même membres peuvent se montrer très utile et d'une grande aide sur le même forum coté anglais.
Je te conseil donc, pour tes question de ce genre d'aller y faire un tour, tu as plus de chance d'y trouver une aide satisfaisante.
https://www.purebasic.fr/english/


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Mar 04/Sep/2018 22:15 
Hors ligne

Inscription: Dim 10/Jan/2010 5:29
Messages: 3339
Pierre Bellisle a écrit:
Bon, voici le machin en question.

A Windows service that can launch a GUI application in System Administrator mode.

Je l'ai codé en 5.42. Cela fonctionne bien sous Windows 7 et Windows 10.
À partir du service je lance RegEdit sans message d'avertissement UAC.
Soyez prudent, les applications lancées depuis le service auront les droits systèmes, donc plus puissant que ceux d'administrateur.
Il y a plus d'explications à lire au début du code...
De mon coté, tout fonctionne à merveille, bien sûr, c'est à vous de tout vérifier, vous devez assumer tous les risques si vous utilisez ce programme.

Si certains d'entre vous ont de l'expérience avec les services Windows, j'aimerais bien savoir si tout fonctionne bien de votre côté. Je vous remercie à l'avance.

Pierre


Bonjour Pierre, ton code marche bien sous w10 aussi. ton code est propre et agréable à lire.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Mer 05/Sep/2018 0:25 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 21/Juin/2018 6:01
Messages: 14
Salutation G-Rom,

Merci pour ces impressions,
ça me conforte un peu dans l'idée que je n'ai pas oublié trop de détails...

À+


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Mer 05/Sep/2018 11:13 
Hors ligne
Avatar de l’utilisateur

Inscription: Lun 24/Sep/2012 20:57
Messages: 41
Localisation: Somme
Super code merci!


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Mer 05/Sep/2018 18:10 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 21/Juin/2018 6:01
Messages: 14
Heureux d'avoir pu donner un petit coup de main... :-)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Dim 10/Fév/2019 17:54 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 242
Localisation: France
Bonjour,

En partant du source de Pierre Bellisle, j'ai créé un service qui permet d’empêcher le process de Compatibilité de Microsoft de s'exécuter.
Code:
Procedure serviceThread(idThread.l)
;Here goes the service's job...
; Modifier cette procédure pour ajouter les actions a effectuer
; Call TaskKill.exe /f /im CompatTelRunner.exe
 
  Protected WindowsDirectory.s{#MAX_PATH}
  Protected FullNameExe.s{#MAX_PATH}
  GetWindowsDirectory_(@WindowsDirectory, #MAX_PATH)
  FullNameExe = WindowsDirectory + "\System32\TaskKill.exe"
  Repeat
    RunProgram(FullNameExe, "/f /im CompatTelRunner.exe", #Null$, #PB_Program_Hide)
    Sleep_(2000)
    If #AutoStop
      ServiceStopRaw() ;Used when a service want To End by itself after his job is done
    EndIf
  ForEver
EndProcedure
Les sources sont téléchargeables ici : abletaskkill.7z
CAGE

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Dim 10/Fév/2019 18:10 
Hors ligne

Inscription: Sam 08/Fév/2014 15:19
Messages: 1489
Hello Cage,

Taskkill étant dans system32 il est accessible directement sans chemin (%windir%/system32)

Tu peux aussi remplacer GetWindowsDirectory_(@WindowsDirectory, #MAX_PATH)
par
GetEnvironmentVariable("windir"). Pas besoin d'API

Tout ce qui est visible avec la commande SET est utilisable directement dans PB avec GetEnvironmentVariable()

Merci pour tes excellentes contributions techniques :wink:

_________________
http://mdacme.com/


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: créer un service windows (avec PB 5.62)
MessagePosté: Dim 10/Fév/2019 21:28 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 242
Localisation: France
Merci Marc56,

Procédure simplifiée au minimum
Code:
Procedure serviceThread(idThread.l)
;Here goes the service's job...
; Modifier cette procédure pour ajouter les actions a effectuer
; Call TaskKill.exe /f /im CompatTelRunner.exe
 
  Repeat
    RunProgram("TaskKill.exe", "/f /im CompatTelRunner.exe", #Null$, #PB_Program_Hide)
    Sleep_(2000)
  ForEver
EndProcedure

Testé en lançant CompatTelRunner.exe dans une 'Invite de commandes (admin)'
a) service lancé
Le process 'Microsoft Compatibility Telemetry' n'a pas le temps de s'exécuter.
b) service arrêté
Le process 'Microsoft Compatibility Telemetry' s'exécute normalement

CAGE

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 24 messages ]  Aller à la page Précédente  1, 2

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye