Fonction Démarrage de service windows ( NET START)

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Stefou
Messages : 234
Inscription : jeu. 18/janv./2007 14:08

Fonction Démarrage de service windows ( NET START)

Message par Stefou »

Salut à tous,

Un petit passage pour poster un truc que j'avais besoin. Il s'agit de pouvoir activer des services.
J'aime bien que windows soit le plus léger possible au démarrage, mais certain service me serve 3-4 fois par ans.
Cette fonction permet d'activer un service.

a+

Code : Tout sélectionner

Procedure WindowService(nom$,etat=1)
; de Stefou
  Select etat
    Case 1
      option$="START "
    Case 0
      option$="STOP "
    Case 2
      option$="PAUSE "
    Case 3
      option$="CONTINUE "
  EndSelect
  
  RunProgram("c:\WINDOWS\system32\net.exe",option$+Chr(34)+nom$+Chr(34),"c:\WINDOWS\system32\",#PB_Program_Wait | #PB_Program_Hide )
  

EndProcedure
Dernière modification par Stefou le mar. 26/janv./2010 17:18, modifié 1 fois.
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Fonction Démarrage de service windows ( NET START)

Message par Backup »

Merci :)

ps: prends l'habitude de mettre ton pseudo dans tes procedures
comme ça plus tard on sait a qui on la doit :)

j'ai fait la modif sur ton message :)

Merci encore :)
Avatar de l’utilisateur
flaith
Messages : 1487
Inscription : jeu. 07/avr./2005 1:06
Localisation : Rennes
Contact :

Re: Fonction Démarrage de service windows ( NET START)

Message par flaith »

Stefou a écrit :Salut à tous,

Un petit passage pour poster un truc que j'avais besoin. Il s'agit de pouvoir activer des services.
J'aime bien que windows soit le plus léger possible au démarrage, mais certain service me serve 3-4 fois par ans.
Cette fonction permet d'activer un service.

a+

Code : Tout sélectionner

Procedure WindowService(nom$,etat=1)
; de Stefou
  Select etat
    Case 1
      option$="START "
    Case 0
      option$="STOP "
    Case 2
      option$="PAUSE "
    Case 3
      option$="CONTINUE "
  EndSelect
  
  RunProgram("c:\WINDOWS\system32\net.exe","START "+Chr(34)+nom$+Chr(34),"c:\WINDOWS\system32\",#PB_Program_Wait | #PB_Program_Hide )
  

EndProcedure

Merci pour ce bout de code, petite modif :

Code : Tout sélectionner

 RunProgram("c:\WINDOWS\system32\net.exe",option$+Chr(34)+nom$+Chr(34),"c:\WINDOWS\system32\",#PB_Program_Wait | #PB_Program_Hide )
:mrgreen:
Avatar de l’utilisateur
Progi1984
Messages : 2659
Inscription : mar. 14/déc./2004 13:56
Localisation : France > Rennes
Contact :

Re: Fonction Démarrage de service windows ( NET START)

Message par Progi1984 »

Un petit article que j'ai réalisé sur les services Windows :
http://f-lefevre.developpez.com/tutorie ... e-windows/
Stefou
Messages : 234
Inscription : jeu. 18/janv./2007 14:08

Re: Fonction Démarrage de service windows ( NET START)

Message par Stefou »

Merci pour ce bout de code, petite modif :
Code:
RunProgram("c:\WINDOWS\system32\net.exe",option$+Chr(34)+nom$+Chr(34),"c:\WINDOWS\system32\",#PB_Program_Wait | #PB_Program_Hide )
Au le nul que je suis :cry: :cry: :cry: :cry:

J'avoue j'ai posté cela à l'arrache...mais tout de même (je corrige le premier post)


Merci
gnozal
Messages : 832
Inscription : mar. 07/déc./2004 17:35
Localisation : France
Contact :

Re: Fonction Démarrage de service windows ( NET START)

Message par gnozal »

Petite remarque : ne jamais utiliser des chemins de fichiers 'en dur', surtout pour les répertoires systèmes.

Par exemple, rien ne garantit que ''c:\WINDOWS\" est le chemin de Windows sur toutes les machines. Chez moi, c'est 'c:\WinNT\' par exemple.

Il vaut mieux utiliser les API spécifiques pour trouver les répertoires systèmes (avec les identifiants CSIDL), ou dans ce cas particulier GetWindowsDirectory_() ou GetSystemDirectory_() ou des variables d'environnement du genre %windir%.
Répondre