Windows serices in VB.NET standard

[russgreen]

Does anyone know of a macro or way of enabling Windows service projects to be created in VB.NET standard? Thomas Erd

 

[mutant]

You can create a service by inheriting your class from

Inherits System.ServiceProcess.ServiceBase

then you will need those in the class:

    Protected Overrides Sub OnStart(ByVal args() As String)

            End Sub

    Protected Overrides Sub OnStop()

    End Sub

 

[russgreen]

Great thanks,

Ive just done that, created a service and installer and installed my service. It show up in the list of services now but when trying to start it it takes too long and the status is stuck on starting.

Any ideas?

Russ

 

[mutant]

What is your code for OnStart?

 

[russgreen]

Ive posted the project in its current state here.

WebProxy

Russ

 

[mutant]

Sorry but i dont know whats wrong.

 

[russgreen]

So you think my code looks OK?

 

[russgreen]

It seems to work OK but as you probably noticed there are some lines of code commented out that should write to a log file. When I uncomment this code it fails to write to the log so Im not really sure if its doing its job. I made a console version which works well so I know the main bulk of the code is OK but this is my first go at programming a service.

Russ

 

[mutant]

It doesnt show anything in the file?
Try using:

sw.Flush()

After the sw.WriteLine
Also try closing the stream right after flushing without checking if its nothing.

 

[russgreen]

I have narrowed down the problem.

I get my service working fine now with the on start

Dim watcherThread As Thread = New Thread(AddressOf listener)

Protected Overrides Sub OnStart(ByVal args() As String)
        WriteToLog("logs\webproxy.log", "Service started")
        watcherThread.Start()
    End Sub

the listener code is this

   Private Sub listener()
        Dim tcplistener As New TcpListener(port)
        tcplistener.Start()

        WriteToLog("logs\webproxy.log", "Listening on port " & port.ToString)

        While True
         Dim socket As Socket = tcplistener.AcceptSocket()
          Dim webproxy As New WebProxy(socket)
           Dim thread As New Thread(New ThreadStart(AddressOf webproxy.runproxy))
            thread.Start()
        End While
    End Sub

The problem code has been commented out. How else can I continuously monitor the tcp port for sockets?

My WriteToLog isnt working in a service either. Any ideas? It works in all my winforms and console apps.

Is there a service equivalent of Application.Startuppath?

    Public Sub WriteToLog(ByVal Filename As String, ByVal Comment As String)
        Dim sw As System.IO.StreamWriter
        Try
            sw = New System.IO.StreamWriter(Filename, True)
            sw.WriteLine(Date.Now & "     " & Comment)
            sw.Flush()
        Catch e As Exception
        Finally
            If Not sw Is Nothing Then sw.Close()
        End Try
    End Sub

Russ

 

[Sapporo]

I saw your readme and I dont think you should import System.Windows.Forms as your writing a service and not an interactive app.

I would try something like this first for getting the AppPath:
System.Reflection.Assembly.GetExecutingAssembly.Location

As to your problems with TCP, I dont know what to tell you. Ive only used UDP in the service that I wrote and havent had a chance to play with TCP in vb.net yet.

 

[russgreen]

I need the refrence to Windows.Forms to interact with the desktop in order to write to the log files. I just had a go with System.Reflection.Assembly.GetExecutingAssembly.Location but it didnt work.

How does UDP perform?

 

[Sapporo]

I need the refrence to Windows.Forms to interact with the desktop in order to write to the log files.

Are you sure? I dont import Windows.Forms in my service and it writes a log file to c:\ (hardcoded) without any problems. btw, my logwrite function is similar to yours, except I open the file with .AppendText instead.

As to the path question, Ill have to dink around with that when I get into work tommorrow. There has to be a way to get it without a dependency on Windows.Forms and is suitable for use in a service. Another to note is that the working folder for a service maynot be what you expect it to be. I wouldnt be suprised if it always showed up as c:\winnt\system32 or something.

UDP seems to be performing fairly well, but I havent rolled out the solution quite yet. It will eventually be installed on 1500 computers and what it does is track idle/active intervals and reports it to a stats server. Basically, if there was any input in the last 5min interval it will report "active" otherwise it sends "idle". The actual UDP packet contains the computer name, interval time, and status. This information is then going to be used for future budgeting decisions. So if a dept asks for more computers we can come back and say "You have 20 computers that are on average idle 6 hours a day. Why do you need more?"

Anyways, I have the client service installed on around 50 computers so far and they have been sending stats to the server service for the last 2 months now without fail. The only thing preventing me from doing the final roll out is waiting on Operations next phase.

 

[Sapporo]

The alternate way of getting the apppath does work as I just checked it.

System.Reflection.Assembly.GetExecutingAssembly.Location
returns "d:\#dotnet\vocompusageserver\bin\vocompusageserver.exe"

System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location)
returns "d:\#dotnet\vocompusageserver\bin"