Creazione di un progetto di installazione per un servizio Windows in Visual Basic .NET o in Visual Basic 2005

Torna all'inizio

Requisiti

• Microsoft Windows Server 2003, Microsoft Windows 2000 Professional, Microsoft Windows 2000 Server, Microsoft Windows XP Professional o Microsoft Windows XP Server con Microsoft .NET Framework
• Microsoft Visual Studio .NET Enterprise Edition, Visual Studio .NET Enterprise Architect Edition o Microsoft Visual Studio 2005

Torna all'inizio

Creazione di un progetto di installazione per un servizio Windows

Creazione di un progetto di servizio Windows

1. Fare clic sul pulsante Start, scegliere Programmi, Microsoft Visual Studio .NET o Microsoft Visual Studio 2005, quindi Microsoft Visual Studio .NET o Microsoft Visual Studio 2005.
2. Scegliere Nuovo dal menu File, quindi fare clic su Progetto.
3. Nella finestra di dialogo Nuovo progetto attenersi alla seguente procedura:
   1. In Tipi progetto fare clic su Progetti di Visual Basic o su Windows in Visual Basic.
   2. In Modelli fare clic su Servizio Windows.
   3. Nella casella Nome digitare LogWriterService.
   4. Nella casella Percorso digitare C:\, quindi scegliere OK.
4. In Esplora soluzioni fare clic con il pulsante destro del mouse su Service1.vb, quindi scegliere Visualizza codice.
5. Nel gestore eventi OnStart sostituire i commenti con il codice seguente.

   EventLog.WriteEntry("My simple service started.")

6. In Esplora soluzioni fare doppio clic su Service1.vb.
7. Nella finestra di dialogo Proprietà scegliere Aggiungi programma di installazione.
8. Nella finestra di dialogo Proprietà di ServiceInstaller1 modificare la proprietà ServiceName impostandola su LogWriterService.
9. In visualizzazione Struttura, fare clic su ServiceProcessInstaller1 nell'editor del codice.
10. Nella finestra di dialogo Proprietà modificare la proprietà Account impostandola su LocalSystem. I valori LocalService e NetworkService sono disponibili solo in Microsoft Windows XP e sistemi operativi successivi.

Utilizzo di un progetto di installazione compilato per installare il servizio Windows

1. Aggiungere un nuovo progetto al progetto LogWriterService.
   1. In Esplora soluzioni fare clic con il pulsante destro del mouse su Soluzione LogWriterService, scegliere Aggiungi, quindi Nuovo progetto.
   2. In Tipi progetto fare clic su Progetti di installazione e distribuzione o Installazione e distribuzione.
   3. In Modelli fare clic su Progetto di installazione.
   4. Nella casella Nome digitare ServiceSetup.
   5. Nella casella Percorso digitare C:\, quindi scegliere OK.
2. Indicare al progetto di distribuzione il pacchetto da utilizzare.
   1. In Esplora soluzioni fare clic con il pulsante destro del mouse su ServiceSetup, scegliere Aggiungi, quindi Output progetto.
   2. Nella finestra di dialogo Aggiungi gruppo output progetto, fare clic su LogWriterService nella casella Progetto.
   3. Fare clic su Output primario, quindi scegliere OK.
3. Per una corretta installazione è necessario aggiungere solo l'output primario. Per aggiungere le azioni personalizzate, attenersi alla seguente procedura:
   1. In Esplora soluzioni fare clic con il pulsante destro del mouse su ServiceSetup, scegliere Visualizza, quindi Azioni personalizzate.
   2. Fare clic con il pulsante destro del mouse su Azioni personalizzate, quindi scegliere Aggiungi azione personalizzata.
   3. Fare clic su Cartella Applicazione e scegliere OK.
   4. Fare clic sulla voce relativa all'output primario di LogWriterService (attivo), quindi scegliere OK. Notare che Output primario viene visualizzato nella sezione relativa all'installazione, al commit, al rollback e alla disinstallazione.
4. Per impostazione predefinita i progetti di installazione non sono inclusi nella configurazione di compilazione. Per compilare la soluzione, attenersi alla seguente procedura:
   1. Utilizzare uno dei seguenti metodi:
      • Fare clic con il pulsante destro del mouse su LogWriterService e scegliere Genera. Fare quindi clic con il pulsante destro del mouse su ServiceSetup e scegliere Genera.
      • Per compilare l'intera soluzione contemporaneamente, scegliere Gestione configurazione dal menu Genera, quindi selezionare la casella di controllo Genera per ServiceSetup.
   2. Premere CTRL+Maiusc+B per compilare l'intera soluzione. Una volta compilata la soluzione, si disporrà del pacchetto completo di installazione del servizio.
5. Per installare il servizio, fare clic con il pulsante destro del mouse su ServiceSetup, quindi scegliere Installa.
6. Nella finestra di dialogo ServiceSetup scegliere tre volte Avanti. Notare che durante l'installazione del servizio viene visualizzato un indicatore di stato.
7. Al termine dell'installazione del servizio scegliere Chiudi.

Torna all'inizio

Listato completo del codice (Service1.vb)

Imports System.ServiceProcess

Public Class Service1
    Inherits System.ServiceProcess.ServiceBase

#Region " Component Designer generated code "

    Public Sub New()
        MyBase.New()

        ' The Component Designer requires this call.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    'UserService overrides Dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' This is the main entry point for the process.
    <MTAThread()> _
    Shared Sub Main()
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase

        ' More than one NT Service may run within the same process. To add
        ' another service to this process, change the following line of 
        ' code to create a second service object. For example,
        '
        'ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
        '
        ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1}

        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
    End Sub

    'The Component Designer requires this code.
    Private components As System.ComponentModel.IContainer

    ' NOTE: The Component Designer requires the following procedure.
    ' You can use the Component Designer to modify the procedure.
    ' However, do not modify use the code editor to modify it.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
        Me.ServiceName = "Service1"
    End Sub

#End Region

    Protected Overrides Sub OnStart(ByVal args() As String)
        EventLog.WriteEntry("My simple service started.")
    End Sub

    Protected Overrides Sub OnStop()

    End Sub

End Class

Torna all'inizio

Verifica del funzionamento del servizio Windows

1. Fare clic sul pulsante Start, scegliere Pannello di controllo, Strumenti di amministrazione e infine Servizi.
2. Fare clic con il pulsante destro del mouse su Service1, quindi scegliere Avvia.
3. Per verificare che nel registro eventi sia presente un evento, utilizzare uno dei metodi seguenti:
   • Fare clic sul pulsante Start, scegliere Pannello di controllo, Strumenti di amministrazione e infine Visualizzatore eventi. Nel riquadro sinistro fare clic su Applicazione. Nel riquadro destro individuare la voce di evento relativa al servizio.
   • In Esplora server espandere Server, NomeComputer, Registri eventi, Applicazione, quindi Service1. Service1 è il nome della classe, non quello del servizio. Pertanto Service1 viene utilizzato come nome dell'applicazione. Esula dall'ambito del presente articolo descrivere la modalità di personalizzazione dei nomi. Spostare il cursore tra le voci del registro. La seconda voce dall'inizio è la seguente:

     My simple service started

Torna all'inizio

Risoluzione dei problemi

Torna all'inizio