如何使用 visual basic.net express edition 安装 Windows 服务？

Posted 2023-03-05

【中文标题】如何使用 visual basic.net express edition 安装 Windows 服务？

【英文标题】：How can a Windows service be installed with visual basic.net express edition?

【发布时间】：2009-12-08 22:27:37

【问题描述】：

编辑：我开始在这个问题上悬赏。目前，我已经开始使用 VS2010 Pro Beta 开发我的应用程序，但我真的希望它能够使用 express 版本构建，因为我们通常不是 .net 商店，即使一个或两名开发人员拥有 VS PRO，我们整个团队都无法使用它。

要成为公认的答案并获得赏金，您必须提供示例代码和说明，以允许使用 vb 2008 express edition 安装和卸载 Windows 服务。你不一定需要从我的代码开始（但它的基本内容包括在下面）。

---

我编写了一个我想作为服务运行的 VB.NET 应用程序。目前我使用的是 VB.net Express Edition (2008)，它不附带“服务”模板，但我添加了一个服务类（从 ServiceBase 继承）和一个安装程序类（从安装程序继承）；在这两种情况下，我都遵循 MSDN 中的示例代码。不幸的是，我无法让此代码作为服务安装和运行。

这段代码的核心是一个名为 sampleListener 的 TCP 侦听器类。如果我将 sampleListener 类设置为启动对象并运行我的项目，它作为控制台应用程序运行良好。

有一个服务类（如下）可以简单地启动 sampleListener。

Public Class sampleSocketService
    Inherits System.ServiceProcess.ServiceBase

    Public Sub New()
        Me.ServiceName = "sample Socket Service"
        Me.CanStop = True
        Me.CanPauseAndContinue = True
        Me.AutoLog = True
    End Sub

    Shared Sub Main()
        System.ServiceProcess.ServiceBase.Run(New sampleSocketService)
    End Sub

    Protected Overrides Sub OnStart(ByVal args() As String)
        sampleListener.Main()
    End Sub

End Class

还有一个安装程序类，我认为这是我的问题的根源。这是我最初编写的安装程序类。

Imports System
Imports System.Collections
Imports System.Configuration.Install
Imports System.ServiceProcess
Imports System.ComponentModel

<RunInstallerAttribute(True)> _
Public Class sampleSocketServiceInstaller
    Inherits Installer
    Private serviceInstaller1 As ServiceInstaller
    Private processInstaller As ServiceProcessInstaller

    Public Sub New()
        ' Instantiate installers for process and services.
        processInstaller = New ServiceProcessInstaller()
        serviceInstaller1 = New ServiceInstaller()

        processInstaller.Account = ServiceAccount.LocalSystem
        serviceInstaller1.StartType = ServiceStartMode.Automatic

        ' ServiceName must equal those on ServiceBase derived classes.            
        serviceInstaller1.ServiceName = "sample Socket Service"

        ' Add installers to collection. Order is not important.
        Installers.Add(serviceInstaller1)
        Installers.Add(processInstaller)
    End Sub
End Class

对此运行 installutil.exe 会产生以下消息：

An exception occurred during the Install phase.
System.Security.SecurityException: The source was not found, but some or all event logs could not be searched.  Inaccessible logs: Security.

这看起来像是一个安全问题，但我正在使用以管理员身份运行打开的 cmd 窗口中运行。

我尝试了一个基于在线示例的非常简化的安装程序类：

Imports System.ComponentModel
Imports System.Configuration.Install

<RunInstaller(True)> Public Class ProjectInstaller
    Inherits System.Configuration.Install.Installer

End Class

这看起来简单得可笑，我不知道它是如何工作的，事实上它没有。但是，在使用此版本安装程序类的项目上运行 installutil.exe 时，installutil.exe 不会抛出错误消息并报告服务已成功安装。

我怀疑我的安装程序类中需要代码来执行我的第一个示例中的某些操作，但不执行导致错误的任何部分。

有什么建议吗？

（为了清晰起见，已对其进行了广泛的编辑，并添加了最初未包含的代码示例）

【参考方案1】：

这似乎对我有用，但我没有在你自己的代码中添加。

创建两个文件 Service1.vb 和 ProjectInstaller.vb。通常将 Service1 和 ProjectInstaller 设置为 Partial 类，但为了在此处发布，它们不是。我不认为它有任何副作用，但其他人可以对此发表评论。

我通常使用 bat 文件处理安装/卸载。

为项目添加两个引用

System.ServiceProcess System.Configuration.Install

Service1.vb

Imports System.ServiceProcess

Public Class Service1
Inherits System.ServiceProcess.ServiceBase

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

Protected Overrides Sub OnStop()
End Sub

<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

<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
    Dim ServicesToRun() As System.ServiceProcess.ServiceBase

    ServicesToRun = New System.ServiceProcess.ServiceBase() New Service1

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

Private components As System.ComponentModel.IContainer

<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
    components = New System.ComponentModel.Container()
    Me.ServiceName = "Service1"
End Sub

End Class

ProjectInstaller.vb

Imports System.ComponentModel
Imports System.Configuration.Install

<System.ComponentModel.RunInstaller(True)> _
Public Class ProjectInstaller
Inherits System.Configuration.Install.Installer

Public Sub New()
    MyBase.New()

    InitializeComponent()

End Sub

<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

Private components As System.ComponentModel.IContainer

<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
    Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller
    Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller

    Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
    Me.ServiceProcessInstaller1.Password = Nothing
    Me.ServiceProcessInstaller1.Username = Nothing

    Me.ServiceInstaller1.ServiceName = "Service1"
    Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic

    Me.Installers.AddRange(New System.Configuration.Install.Installer() Me.ServiceProcessInstaller1, Me.ServiceInstaller1)

End Sub
Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller

End Class

安装蝙蝠

C:
CD \WINDOWS\Microsoft.NET\Framework\v2.0.50727
installutil "C:\Visual Studio 2008\Projects\....\Temp.exe"
pause
NET START Service1

卸载蝙蝠

C:
CD \WINDOWS\Microsoft.NET\Framework\v2.0.50727
NET STOP Service1
installutil /u "C:\Visual Studio 2008\Projects\....\Temp.exe"

希望对你有用

【讨论】：

这看起来很有希望。我会试一试，让你知道！

【参考方案2】：

看看这个帖子：

http://social.msdn.microsoft.com/Forums/en/windowsgeneraldevelopmentissues/thread/416098a4-4183-4711-a53b-e10966c9801d

【讨论】：

这似乎没有帮助-该线程是关于从 ASP.net 访问事件日志，因此应用程序池用户需要具有权限。在我的系统上，管理员已经对这些注册表项拥有完全控制权，并且安装尝试正在以管理员身份运行。

【参考方案3】：

你可以做到，但我对你的解释有点困惑。您是否安装了该服务，或者您是否尝试将该服务作为控制台应用程序运行？您需要安装该服务，以便从服务管理器注册并运行它。或者你可以构建一个“main”方法在你的 onstart 方法中运行代码，但是你不能通过将你的服务类设置为启动方法来在调试模式下调用 onstart/onstop/pause 等方法。

您能否发布您的服务类（或至少发布足够多的内容以便我们可以看到您的代码）？

【讨论】：

当然，我已经编辑了问题以包含服务类。我的意思是，如果我将启动对象设置为 sampleListener，我就可以将其作为控制台应用程序运行。安装服务以便向服务管理器注册是我遇到的问题。

如何安装服务：msdn.microsoft.com/en-us/library/sd8zc8ha%28VS.80%29.aspx 最简单的方法是构建一个 Setup/Installer 项目，但我认为 VB Express 不支持 taht。

正确，VB Express 不支持安装程序项目。我已经在尝试使用该文章中描述的 installutil 进行安装。正如我在上面的编辑中提到的，我很确定问题出在我的 Installer 类上，但我不清楚那里需要什么。