Empecher l'arret d'un service
Bonjour,
Excusez moi de vous embeter.
Voila, j'ai créé un service windows mais j'ai une erreur quand je le lance :
Citation:
le service sur l'ordinateur local a démarré et c'est ensuite arrêté. Certains services s'arretent automatiquement s'ils ne sont pas utilisés par d'autres services ou programmes.
Seulement, j'ai réaliser une calculette qui doit se connecter a ce service qui effectuera l'addition et renverra le resultat à cette meme application.
Bref, help me svp . Voici le code de mon service :)
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
Imports System.Net.sockets
Public Class Service1
Private listener As Net.Sockets.TcpListener
Const PORT_NUM As Integer = 1039
Dim EndPoint As Net.IPEndPoint
Protected Overrides Sub OnStart(ByVal args() As String)
Dim iip As Long = 16777343
EndPoint = New Net.IPEndPoint(iip, 1039)
listener.Server.Bind(EndPoint)
listener.Start()
Dim state As New StateObject()
state.workSocket = listener
listener.Server.Receive(state.buffer, 1, state.BufferSize, Net.Sockets.SocketFlags.None)
Dim lettre As String = state.sb.ToString
Dim tableau As Array = lettre.Split("/")
Dim nb1, nb2, nb3 As Double
nb1 = Double.Parse(tableau.GetValue(0))
nb2 = Double.Parse(tableau.GetValue(1))
nb3 = nb1 + nb2
Dim fin As String = nb3.ToString
Dim Content() As Byte = System.Text.Encoding.ASCII.GetBytes(fin.ToCharArray())
Dim taille As Integer = Content.Length
listener.Server.Send(Content, 1, taille, Net.Sockets.SocketFlags.None)
End Sub
Protected Overrides Sub OnStop()
listener.Stop()
End Sub
Public Class StateObject
' Client socket.
Public workSocket As System.Net.Sockets.TcpListener = Nothing
' Size of receive buffer.
Public BufferSize As Integer = 256
' Receive buffer.
Public buffer(256) As Byte
' Received data string.
Public sb As New System.Text.StringBuilder()
End Class 'StateObject
End Class |
Merci d'avance pour toute aide :)