Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Démarrer une appli en temps que service.

Démarrer une appli en temps que service.

8 réponses
Avatar
Daniel
Bonjour tout le monde,

Existe t il un moyen de lancer une application VB en temps que servie sous
XP. En effet pour le moment le programme démarre en lancement de windows se
met dans la barre des taches. Se serait plus sexy de le lancer en temps que
service, qu'il soit dans la partie droite de la barre des taches à la façon
norton ou skype.
Quelqu'un a t il une idée.

Merci

Daniel
daniel@danielcollin.com
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
X
Bonjour, ça s'appelle je crois le systray...

Voici une application qui met le volume son dans le systray (son volume
perso en sus, qui répond à la souris, je l'ai faite jadis avec laide de
"François"...

Matos = form1, image icone ci-joint en fichier ici
Dans un second message je vais tenter de t'envoyer tout, si ça passe???

' systray
'
Option Explicit
'
Private Type IconeTray
cbSize As Long 'Taille de l'icône (en octets)
hWnd As Long 'Handle de la fenêtre chargée de recevoir les messages
envoyés lors des évènements sur l'icône (clics, doubles-clics...)
uID As Long 'Identificateur de l'icône
uFlags As Long
uCallbackMessage As Long 'Messages à renvoyer
hIcon As Long 'Handle de l'icône
szTip As String * 64 'Texte à mettre dans la bulle d'aide
End Type
Dim IconeT As IconeTray
'
Private Const SUPPRIME = &H2
Private Const AJOUT = &H0
Private Const MOUSEMOVE = &H200
Private Const MESSAGE = &H1
Private Const Icone = &H2
Private Const TIP = &H4
Private Const BOUTON_GAUCHE_DOUBLECLICK = &H203 'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As IconeTray) As Boolean

Sub Form_Load()
IconeT.cbSize = Len(IconeT) 'Taille de l'icône en octet
IconeT.hWnd = Me.hWnd 'Handle de l'application (pour qu'elle reçoive les
messages envoyés lors d'un clic, double-clic...
IconeT.uID = 1& 'Identificateur de l'icône
IconeT.uFlags = Icone Or TIP Or MESSAGE
IconeT.uCallbackMessage = MOUSEMOVE 'Renvoyer les messages concernant
l'action de la souris
IconeT.hIcon = Image1.Picture 'Mettre en icône l'image qui est dans le
contrôle "Image1"
IconeT.szTip = "Volume son" & Chr$(0) 'Texte de la bulle d'aide
'Appel de la fonction pour mettre l'icône dans le système tray
Shell_NotifyIcon AJOUT, IconeT
Me.Hide 'Cache la fenêtre
App.TaskVisible = False 'Retire le bouton de l'application de la barre des
tâches
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
If msg = BOUTON_GAUCHE_DOUBLECLICK Then: Shell "sndvol32 /t",
vbNormalFocus 'Dblclick
rec = False
End If
End Sub

Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
IconeT.cbSize = Len(IconeT)
IconeT.hWnd = Me.hWnd
IconeT.uID = 1&
Shell_NotifyIcon SUPPRIME, IconeT
End Sub
' -------------FIN DU CODE-----------


"Daniel" a écrit dans le message de news:
BFF50305.7541%
Bonjour tout le monde,

Existe t il un moyen de lancer une application VB en temps que servie sous
XP. En effet pour le moment le programme démarre en lancement de windows
se
met dans la barre des taches. Se serait plus sexy de le lancer en temps
que
service, qu'il soit dans la partie droite de la barre des taches à la
façon
norton ou skype.
Quelqu'un a t il une idée.

Merci

Daniel






begin 666 sonSystray.ico
M```!``(`$! ```$`& !H`P``)@```! 0```!`" `: 0``(X#```H````$ ``
M`" ````!`!@``````$ #````````````````````````J(.:$.:$.: .
M).)X-)T-)P-[YL-[JJAZI^#Z(C[YH-[YH-[YH-[YH-9X-9X-)X-
M)T-[YP.[YL-[YH-[YD-[[I<-][1S]KNVX8MP[I8-[I8-[I8-9P-)P-
M)P-[)D.W8X-RH$,PWP,QWX,UH<-U9%Y9N"XH8M^+RIXI!][9,-[9,-)H-
M[YD-[)@@*>$P':4('<4<'D%D)[:RGX80M^;ZQVWY5ZY -
M[[(B(;6UM;6UM7U9(3S$%=TD(V84-[K:JXI20[[:BF
MZH-[I80ZI00H&(B(H*"@JJJJKZ^OPL+"B(B(1RL%>4D(V8,-S)!NV7Q5
M^"GWH%/ZY82W(P17UA,>GIZJZNKQ?'R<G)KZ^OO[^_B(B(53,&F5T)V8,-
MXYF.]*EAYYB&XI 1GVD65%14:F=G4T5%4T5%G9B8S,S,K*RLG)R<1C8@=D<'
MQG@,THQMZHT-:J*P'D894 Q4E)24T5%A7)RFGEY7EY>M[>WQL;&MK:VB(B(
M:#'P'0,ZHT-ZHT-ZHT-DEDUEWIZ1D9&<7%QBHJ*>'AXCG5U5%14Q?'K*RL
M;6UM:#(P'4,ZHX.ZHX/ZHX/H&Q.T+JZ/##Q?'FIJ:=7-S5%14L+"P
MI:6E;6UM<$0(Q'<-ZHX.ZHX/ZHX/GVE"^??W2TM+3T]/____Q?'<W-S:VIJ
MEI:6E)24;6UMBU8*T($/Z9 0Z9 0Z9 0P7@>IY&1R<G).3DY3DY.;&QL5%14
M;&QL?W]_AX>'9UA"LVT,XHD.ZHX.ZHX/ZHX/[+B&9?4CTP.3DY2$A(
M4U-375U†%A;6UME51U800Z9 1Z9 0Z9 0Z9 0[9<3[)83[)83ZY43C6,D
M-C8V/S_34U-6%1.CF$@UX42YH3Z9 2Z9 2Z9 2Z9 2[9<3[)83[)83ZY43
MZY02WHT5NWH;MW@;UH<4YH3Z9 3Z9 2Z9 2Z9 2Z9 2Z9 2````````````
M````````````````````````````````````````````````````````````
M`````````````"@````0````( ````$`( ``````0 0`````````````````
M``````#RH@[_:$.__&A#O_QH [_).__">#?_PG0W_)P-_^^;#?_NJJ'_
MZI^#_^B/([YH-_^^:#?&>#?)T-_^^<#O_O
MFPW_[YH-_^^9#?_NF W_[I<-__>T<__VN[;_X8MP_^Z6#?[I8-__&<
M#?_PG W_)P-_^R9#O_=$,_-#/_'?@S_UH<-_]61?/_EFX+_XH8M
M__BJ?_BD'W_[9,-_^V3#?[YD-_^R8#O_6B W_HV@*_WA,!_]I0@?_
M<4<'_Y!9"?_:B W_UWXJ_^VLI__AA"W_^;ZQ_]M^5?_KD W_[^^8#?_?
MC0W_AUD_XB(B/]M;6W_;6UM_U]62/]/,07_=TD(_]F%#?_NMJK_XI20_^Z8
M)?_MJ*;_ZH-_^Z6$/_JE!#_H&(B/^@H*#_JJJJ_Z^OK__"PL+_B(B(
M_T<K!?]Y20C_V8,-_R0;O_9?%7_^"G_]Z!3__KEA+_W(P1_U]83/]Z>GK_
MJZNK_?'Q__)R<G_KZ^O_[^_O_^(B(C_53,&_YE="??_G
MF(;_XI 1_Y]I%O]45%3_:F=G_U-%1?]3147_G9B8_S,S/^LK*S_G)R<_T8V
M(/]V1P?_QG@,_]*,;?_JC0W_:J*_!Y&/]E0#'_4E)2_U-%1?^%<G+_FGEY
M_UY>7O^WM[?_QL;&_[:VMO^(B(C_:#'_!T#/_JC0W_ZHT-_^J-#?^2637_
MEWIZ_T9&1O]Q<7'_BHJ*_WAX>/^.w_5%14_?'Q_^LK*S_;"/_
M=0S_ZHX._^J.#&Q._]"ZNO/##_?'Q_^:FIK_=7-S_U14
M5/^PL+#_I:6E_VUM;?]P1 C_Q'<-_^J.#/_Y]I0O_Y]_?_2TM+
M_T]/3_______Q?'_W-S<_]K:FK_EI:6_Y24E/]M;6W_BU8*_]"!#__ID!#_
MZ9 0_^F0$/_!>![_IY&1_G)R?Y.3G_3DY._VQL;/]45%3_;&QL_W]_?_^'
MAX?_9UA"_[-M#/_BB0[_ZHX._^J.#[+B_^(9E__4CTP_SDY
M.?](2$C_4U-3_UU=7?]A86'_;6UM_Y5?$?_5A!#_Z9 1_^F0$/_ID!#_Z9 0
M_^V7$__LEA/_[)83_^N5$_^-8R3_-C8V_S_/_]-34W_6%1._XYA(/_7A1+_
MYH3_^F0$O_ID!+_Z9 2_^F0$O_MEQ/_[)83_^R6$__KE1/_ZY02_]Z-%?^[
M>AO_MW@;_]:'%/_FCQ/_Z9 3_^F0$O_ID!+_Z9 2_^F0$O_ID!+_````````
M````````````````````````````````````````````````````````````
-````````````````````
`
end
Avatar
Drizzit
Il existe un control ActiveX créé par Microsoft qui s'appelle
"NTSVC.OCX"
Facile d'utilisation, et bien que Microsoft ne le conseil pas sur
l'utilisation d'application de production, j'ai créé diverses
applications avec, qui tournent 24h/24h 7j/7j.
Avatar
scraper
Bonjour Daniel, dans le message
news:BFF50305.7541%
tu disais :

Bonjour tout le monde,

Existe t il un moyen de lancer une application VB en temps que servie
sous XP. En effet pour le moment le programme démarre en lancement de
windows se met dans la barre des taches. Se serait plus sexy de le
lancer en temps que service, qu'il soit dans la partie droite de la
barre des taches à la façon norton ou skype.
Quelqu'un a t il une idée.





http://faq.vb.free.fr/index.php?question=3

devrait répondre à tes attentes




--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr

scraper
Avatar
Guy DETIENNE
SAlut ;O)

Rien à voir avec le Systray... Le Systray n'est que la procédé pour placer
une icône dans la barre des tâches (habituellement en bas à droite). Ceci
dit, l'icône placée peut être associée à un service mais ce n'est pas
forcément le cas.

Guy

"X" <x> a écrit dans le message de
news:
Bonjour, ça s'appelle je crois le systray...

Voici une application qui met le volume son dans le systray (son


volume
perso en sus, qui répond à la souris, je l'ai faite jadis avec laide de
"François"...

Matos = form1, image icone ci-joint en fichier ici
Dans un second message je vais tenter de t'envoyer tout, si ça passe???

' systray
'
Option Explicit
'
Private Type IconeTray
cbSize As Long 'Taille de l'icône (en octets)
hWnd As Long 'Handle de la fenêtre chargée de recevoir les messages
envoyés lors des évènements sur l'icône (clics, doubles-clics...)
uID As Long 'Identificateur de l'icône
uFlags As Long
uCallbackMessage As Long 'Messages à renvoyer
hIcon As Long 'Handle de l'icône
szTip As String * 64 'Texte à mettre dans la bulle d'aide
End Type
Dim IconeT As IconeTray
'
Private Const SUPPRIME = &H2
Private Const AJOUT = &H0
Private Const MOUSEMOVE = &H200
Private Const MESSAGE = &H1
Private Const Icone = &H2
Private Const TIP = &H4
Private Const BOUTON_GAUCHE_DOUBLECLICK = &H203 'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As IconeTray) As


Boolean

Sub Form_Load()
IconeT.cbSize = Len(IconeT) 'Taille de l'icône en octet
IconeT.hWnd = Me.hWnd 'Handle de l'application (pour qu'elle reçoive les
messages envoyés lors d'un clic, double-clic...
IconeT.uID = 1& 'Identificateur de l'icône
IconeT.uFlags = Icone Or TIP Or MESSAGE
IconeT.uCallbackMessage = MOUSEMOVE 'Renvoyer les messages


concernant
l'action de la souris
IconeT.hIcon = Image1.Picture 'Mettre en icône l'image qui est dans le
contrôle "Image1"
IconeT.szTip = "Volume son" & Chr$(0) 'Texte de la bulle d'aide
'Appel de la fonction pour mettre l'icône dans le système tray
Shell_NotifyIcon AJOUT, IconeT
Me.Hide 'Cache la fenêtre
App.TaskVisible = False 'Retire le bouton de l'application de la barre


des
tâches
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
If msg = BOUTON_GAUCHE_DOUBLECLICK Then: Shell "sndvol32 /t",
vbNormalFocus 'Dblclick
rec = False
End If
End Sub

Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
IconeT.cbSize = Len(IconeT)
IconeT.hWnd = Me.hWnd
IconeT.uID = 1&
Shell_NotifyIcon SUPPRIME, IconeT
End Sub
' -------------FIN DU CODE-----------


"Daniel" a écrit dans le message de news:
BFF50305.7541%
> Bonjour tout le monde,
>
> Existe t il un moyen de lancer une application VB en temps que servie


sous
> XP. En effet pour le moment le programme démarre en lancement de windows
> se
> met dans la barre des taches. Se serait plus sexy de le lancer en temps
> que
> service, qu'il soit dans la partie droite de la barre des taches à la
> façon
> norton ou skype.
> Quelqu'un a t il une idée.
>
> Merci
>
> Daniel
>
>





Avatar
Driss HANIB
oui tout a fait d'accord Guy
moi aussi j'ai plusieurs prog qui démarrent sans fenetre visible dans la
barre des tâches mais qui sont présents dans le systray.
pour ma part, je ne sais pas quel est l'intérêt d'un service mais je sis
mettre un prog en démarrage automatique avec windows (avec pourquoi pas
'inscription (manuelle) dans le registre..)

Driss



"Guy DETIENNE" a écrit dans le message de
news:
SAlut ;O)

Rien à voir avec le Systray... Le Systray n'est que la procédé pour


placer
une icône dans la barre des tâches (habituellement en bas à droite).


Ceci
dit, l'icône placée peut être associée à un service mais ce n'est pas
forcément le cas.

Guy

"X" <x> a écrit dans le message de
news:
> Bonjour, ça s'appelle je crois le systray...
>
> Voici une application qui met le volume son dans le systray (son
volume
> perso en sus, qui répond à la souris, je l'ai faite jadis avec laide de
> "François"...
>
> Matos = form1, image icone ci-joint en fichier ici
> Dans un second message je vais tenter de t'envoyer tout, si ça passe???
>
> ' systray
> '
> Option Explicit
> '
> Private Type IconeTray
> cbSize As Long 'Taille de l'icône (en octets)
> hWnd As Long 'Handle de la fenêtre chargée de recevoir les messages
> envoyés lors des évènements sur l'icône (clics, doubles-clics...)
> uID As Long 'Identificateur de l'icône
> uFlags As Long
> uCallbackMessage As Long 'Messages à renvoyer
> hIcon As Long 'Handle de l'icône
> szTip As String * 64 'Texte à mettre dans la bulle d'aide
> End Type
> Dim IconeT As IconeTray
> '
> Private Const SUPPRIME = &H2
> Private Const AJOUT = &H0
> Private Const MOUSEMOVE = &H200
> Private Const MESSAGE = &H1
> Private Const Icone = &H2
> Private Const TIP = &H4
> Private Const BOUTON_GAUCHE_DOUBLECLICK = &H203 'Double-click
> Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
> "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As IconeTray) As
Boolean
>
> Sub Form_Load()
> IconeT.cbSize = Len(IconeT) 'Taille de l'icône en octet
> IconeT.hWnd = Me.hWnd 'Handle de l'application (pour qu'elle reçoive


les
> messages envoyés lors d'un clic, double-clic...
> IconeT.uID = 1& 'Identificateur de l'icône
> IconeT.uFlags = Icone Or TIP Or MESSAGE
> IconeT.uCallbackMessage = MOUSEMOVE 'Renvoyer les messages
concernant
> l'action de la souris
> IconeT.hIcon = Image1.Picture 'Mettre en icône l'image qui est dans


le
> contrôle "Image1"
> IconeT.szTip = "Volume son" & Chr$(0) 'Texte de la bulle d'aide
> 'Appel de la fonction pour mettre l'icône dans le système tray
> Shell_NotifyIcon AJOUT, IconeT
> Me.Hide 'Cache la fenêtre
> App.TaskVisible = False 'Retire le bouton de l'application de la barre
des
> tâches
> End Sub
>
> Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y


As
> Single)
> Static rec As Boolean, msg As Long
> msg = X / Screen.TwipsPerPixelX
> If rec = False Then
> rec = True
> If msg = BOUTON_GAUCHE_DOUBLECLICK Then: Shell "sndvol32 /t",
> vbNormalFocus 'Dblclick
> rec = False
> End If
> End Sub
>
> Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
> IconeT.cbSize = Len(IconeT)
> IconeT.hWnd = Me.hWnd
> IconeT.uID = 1&
> Shell_NotifyIcon SUPPRIME, IconeT
> End Sub
> ' -------------FIN DU CODE-----------
>
>
> "Daniel" a écrit dans le message de news:
> BFF50305.7541%
> > Bonjour tout le monde,
> >
> > Existe t il un moyen de lancer une application VB en temps que servie
sous
> > XP. En effet pour le moment le programme démarre en lancement de


windows
> > se
> > met dans la barre des taches. Se serait plus sexy de le lancer en


temps
> > que
> > service, qu'il soit dans la partie droite de la barre des taches à la
> > façon
> > norton ou skype.
> > Quelqu'un a t il une idée.
> >
> > Merci
> >
> > Daniel
> >
> >
>
>
>




Avatar
Patrick Philippot
Bonjour,

Se serait plus sexy de le
lancer en temps que service, qu'il soit dans la partie droite de la
barre des taches à la façon norton ou skype.



Bien, l'objectif est-il de faire de cet exe un service (application qui
démarre et continue de tourner même si aucun utilisateur n'est connecté)
ou bien de faire apparaître quelque chose dans le system tray, ce qui
n'a rien à voir avec le fait que l'appli soit un service ou pas?

Dans le premier cas, tout exe peut-être démarré en tant que service
grâce à l'utilitaire SrvAny (livré avec Windows).

Sinon, d'autres ont déjà répondu.

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Avatar
jt
Bonjour
cet activeX n est plus disponible chez MS quelqu un peut me dire ou le
trouver
Merci

"Drizzit" a écrit dans le message de news:

Il existe un control ActiveX créé par Microsoft qui s'appelle
"NTSVC.OCX"
Facile d'utilisation, et bien que Microsoft ne le conseil pas sur
l'utilisation d'application de production, j'ai créé diverses
applications avec, qui tournent 24h/24h 7j/7j.
Avatar
Drizzit
http://www.andreavb.com/vb_downloads.html