Discussion :

[pickwick_75]

Bonjour,

voila mon souci:
j'ais f'ait une application en VB6 (application standard) cette application doit se mettre en tant que service.

dans l'application j'ais une boucle du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
booFlag=false
 
do while booFlag=False
 
   sleep 60 * 1000
 
   booFlag = funVerifRépertoire
loop

donc pour traduire je fait une boucle infini qui s'execute toutes les 60 secondes (par l'api sleep) et donc à intervale régulier cela lance fonction funVerifRépertoire

cela marche tres bien, pas de soucis.

j'essaye maintenant de mettre en tant que service mon executable comportant la boucle ci dessus

je me suis fait un script dont voici les grande ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
"C:\Program Files\Windows Resource Kits\Tools\instsrv.exe" SrvAny_MonService "C:\Program Files\Windows Resource Kits\Tools\srvany.exe"
 
C:\MesProg\MonService\MonService.reg
 
sc start SrvAny_MonService

dans le MonService.reg il y a:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SrvAny_MonService\Parameters]
"Application"="C:\\MesProg\\MonService\\MonService.exe"
"AppParameters"=""
"AppDirectory"=""

tout cela s'execute sans aucun probléme.

d'ou viens le problème alors?
et bien en fait, mon service n'est en fait pas démaré si je regarde la console des service???
je le démarre à la main mais une belle boite de dialogue me dit que le service a démarré et puis c'est arrété...

pourtant avec ma boucle infini et bien sur testé en mode débugage cela marche continuellement mais la le service semble ne pas comprendre...

auriez vous des pistes pour que je comprenne ce qu'il se passe?

merci de votre aide.

[AlainTech]

Moi, j'en conclurais que funVerifRépertoire prend une autre valeur que zéro.

Et que, donc, booFlag prend la valeur True...

[pickwick_75]

Oh comme j'aimerais que ce soit si simple, mais helas j'ais créer dans la fonction "funVerifRépertoire" un fichier de log qui donne l'etat de retour de la fonction et à aucun moment celle ci retourne True...

petite question:
pour ceux qui ont fait des service en VB6... vous êtes vous pris comme moi?

[pickwick_75]

pb résolu,
Pour ceux que ca interèsse il faut rajouter, le compte et le mot de passe pour que ca marche sinon il considére que c'est in service local et donc ne prend pas en cosidération le réseau ce qui donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
"C:\Program Files\Windows Resource Kits\Tools\instsrv.exe" SrvAny_MonService "C:\Program Files\Windows Resource Kits\Tools\srvany.exe" -a [domaine\login] -p [pwd]
 
C:\MesProg\MonService\MonService.reg
 
sc start SrvAny_MonService

voila je suis content