Cara membuat proyek Setup untuk layanan Windows dalam Visual Basic.BERSIH atau pada Visual Basic 2005

Kembali ke atas

Persyaratan

• Microsoft Windows Server 2003, Microsoft Windows 2000 Professional, Microsoft Windows 2000 Server, Microsoft Windows XP Professional atau Microsoft Windows XP Server bersama-sama dengan Microsoft.NET Framework
• Microsoft Visual Studio.NET Enterprise Edition, Visual Studio.Arsitek NET Enterprise Edition atau Microsoft Visual Studio 2005

Kembali ke atas

Membuat proyek Setup untuk layanan Windows

Membuat proyek layanan Windows

1. Klik Mulai, arahkan ke Program, arahkan ke Microsoft Visual Studio.NET atau Microsoft Visual Studio 2005, lalu klik Microsoft Visual Studio.NET atau Microsoft Visual Studio 2005.
2. Pada Berkas menu, titik Baru, lalu klik Project.
3. Dalam Proyek baru kotak dialog, ikuti langkah berikut:
   1. Di bawah Jenis proyek, klik Proyek-proyek Visual Basic atau klik Windows di bawah Visual Basic.
   2. Di bawah Pola acu, klik Windows Service.
   3. Dalam Nama kotak, jenis LogWriterService.
   4. Dalam Lokasi kotak, jenis C: \, lalu klik Oke.
4. Dalam solusi Explorer, klik kanan Service1.VB, lalu klik Lihat kode.
5. Dalam OnStart event handler, menggantikan komentar dengan kode berikut.

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

6. Pada solusi Explorer, klik dua kali Service1.VB.
7. Dalam Properti kotak dialog, klik Tambahkan Installer.
8. Dalam Properti kotak dialog untuk ServiceInstaller1, perubahan ServiceName properti untuk LogWriterService.
9. Dalam Design view, klik ServiceProcessInstaller1 dalam kode Editor.
10. Dalam Properti kotak dialog, perubahan Rekening properti untuk LocalSystem. The LocalService nilai dan NetworkService nilai hanya tersedia dalam Microsoft Windows XP dan sistem operasi yang kemudian.

Menggunakan dikompilasi Setup proyek menginstal Windows Service

1. Menambahkan sebuah proyek baru untuk proyek LogWriterService Anda.
   1. Dalam solusi Explorer, klik kanan Solusi 'LogWriterService', arahkan ke Tambahkan, lalu klik Proyek baru.
   2. Di bawah Jenis proyek, klik Setup dan penyebaran proyek atau Setup dan penyebaran.
   3. Di bawah Pola acu, klik Setup proyek.
   4. Dalam Nama kotak, jenis ServiceSetup.
   5. Dalam Lokasi kotak, jenis C: \, lalu klik Oke.
2. Memberitahu penyebaran proyek apa proyek penyebaran akan paket.
   1. Dalam solusi Explorer, klik kanan ServiceSetup, arahkan ke Tambahkan, lalu klik Proyek Output.
   2. Dalam Menambahkan proyek Output grup kotak dialog, klik LogWriterService dalam Project kotak.
   3. Klik Output utama, lalu klik Oke.
3. Untuk instalasi benar, Anda harus menambahkan hanya utama output. Untuk menambahkan tindakan kustom, ikuti langkah berikut:
   1. Dalam solusi Explorer, klik kanan ServiceSetup, arahkan ke Lihat, lalu klik Tindakan kustom.
   2. Klik kanan Tindakan kustom, lalu klik Menambahkan Custom tindakan.
   3. Klik Folder aplikasi, lalu klik Oke.
   4. Klik Utama output dari LogWriterService (Aktif), lalu klik Oke. Perhatikan bahwa Keluaran utama muncul di bawah Menginstal, berkomitmen, Rollback dan Uninstall.
4. Secara default, proyek-proyek Setup tidak termasuk dalam membangun konfigurasi. Untuk membangun solusi, ikuti langkah berikut:
   1. Gunakan salah satu metode berikut:
      • Klik kanan LogWriterService, lalu klik Bangun. Kemudian, klik kanan ServiceSetup, lalu klik Bangun.
      • Untuk membangun solusi keseluruhan pada saat yang sama, klik Configuration Manager pada Bangun menu, dan kemudian klik untuk memilih Bangun kotak centang untuk ServiceSetup.
   2. Tekan CTRL + SHIFT + B untuk membangun seluruh solusi. Ketika solusi dibangun, Anda memiliki lengkap Setup paket untuk layanan.
5. Untuk menginstal layanan, klik kanan ServiceSetup, lalu klik Menginstal.
6. Dalam ServiceSetup kotak dialog, klik Berikutnya tiga kali. Perhatikan bahwa bar progres muncul sementara program penataan adalah menginstal layanan.
7. Ketika layanan diinstal, klik Tutup.

Kembali ke atas

Daftar kode lengkap (Service1.vb)

Public Class Service1

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        EventLog.WriteEntry("Mysimple service started")
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
    End Sub

End Class

Kembali ke atas

(service1.Designer.VB)

Imports System.ServiceProcess

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Service1
    Inherits System.ServiceProcess.ServiceBase

    'UserService overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    ' The main entry point for the process
    <MTAThread()> _
    <System.Diagnostics.DebuggerNonUserCode()> _
    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 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

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    ' NOTE: The following procedure is required by the Component Designer
    ' It can be modified using the Component Designer.  
    ' Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
        Me.ServiceName = "Service1"
    End Sub

End Class

Kembali ke atas

Verifikasi bahwa layanan Windows bekerja

1. Klik Mulai, arahkan ke Control Panel, arahkan ke Alat administratif, lalu klik Layanan.
2. Klik kanan LogWriterService, lalu klik Mulai.
3. Untuk memverifikasi bahwa acara login dalam acara log, gunakan salah satu metode berikut:
   • Klik Mulai, arahkan ke Control Panel, arahkan ke Alat administratif, lalu klik Peraga Peristiwa. Dalam pane kiri, klik Log aplikasi. Dalam pane kanan, mencari peristiwa log untuk layanan Anda.
   • Dalam Server Explorer, memperluas Server, memperluas ComputerName, memperluas Log peristiwa, memperluas Aplikasi, dan kemudian memperluas Service1. Ingat bahwa Service1 adalah nama kelas dan bukan nama layanan. Oleh karena itu, Service1 digunakan sebagai nama aplikasi. (Itu adalah di luar lingkup ini artikel untuk menjelaskan bagaimana menyesuaikan nama.) Gerakkan kursor melalui log entri. Catatan kedua dari atas adalah sebagai berikut:

     Layanan saya sederhana mulai

Kembali ke atas

Pemecahan Masalah

Kembali ke atas