crear un servicio

[inazabal]

Intentaré ser más clara.

Cuando inicias un nuevo proyecto elijo "Proyectos de visual basic" y en la plantilla elijo "servicio de windows" .

Eso es lo que hago para crear un servicio. En él escribo el código que quiero que haga el servicio. Que es el que me dá error.

Este es el codigo que no me funciona:


Friend WithEvents PC As System.Diagnostics.PerformanceCounter

Me.PC.CategoryName = "Processor"
Me.PC.CounterName = "% Processor Time"
Me.PC.InstanceName = "_Total"
Me.PC.MachineName = "becssdd"

Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
PC.MachineName = "becssdd" <----Nombre de mi equipo

PC.NextValue()
'HASTA AQUI FUNCIONA BIEN
PC.MachineName = "sn2k0101" <---Nombre del servidor

PC.NextValue() <----AQUI ME DA EL ERROR!!!!
End Sub


Despues le agrego el instalador.

Y para finalizar agrego a la solución del proyecto de instalación. Este es el que instalará los archivos del proyecto compilados y ejecutará los instaladores necesarios para ejecutar el sarvicio windows.