除了抛出错误外，我还能在执行过程中停止程序吗？

Question

是否有将停止执行程序的命令？

我有一项服务，该服务每10分钟通过telnet处理一个交换帐户。 在执行的某一点上，如果文件夹中没有电子邮件，则应用程序可能会收到来自telnet会话的响应，如下所示：

* 0 EXISTS

因此，由于这确实不是错误，所以我不想抛出错误-我只想在那时停止程序。 我也不是真正适合进行计数比较的好地方-也不是不重写很多代码，因此在这种情况下， If count < 0 Then ...语句在这种情况下将无法正常工作。

那么，如果帐户中没有电子邮件，那么就没有必要继续了，那么我是否可以此时停止我的申请？

---

更多信息 ：telnet的响应在类库中生成。 该程序未在Winform或控制台应用程序中运行。 Windows服务从我的实用程序类中调用一个方法，该方法通过调用项目中的其他类来开始执行。 该响应是在由Utility类启动的一个类中生成的。

Answer 1

Environment.Exit-终止此过程，并为底层操作系统提供指定的退出代码。

Environment.FailFast-终止进程，但不执行任何活动的try-finally块或终结器。

Answer 2

如果这是一个winforms应用程序，则Application.Exit应该可以工作。 如果这是一个控制台应用程序，那么您想return; 可以从Main方法中进行选择，但是正确地进行操作可能会有些麻烦，具体取决于您的程序设置方式。

Answer 3

如果这是一个控制台应用程序，而您只是在Main方法中执行此操作，则只需在其中放置一个返回值，它将退出该应用程序。

return;

Answer 4

永久停止应用程序？ 关闭主窗体：

  Private Sub mnuFileExit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles mnuFileExit.Click
     Me.Close()
  End Sub

暂时停止几分钟？ 使用计时器。

Answer 5

并且，如果您正在使用线程从Exchange读取数据，请确保通过使线程过程结束而正确完成线程。

通常，这是通过使用线程可访问的布尔变量来实现的，检查该变量并退出线程函数。

Answer 6

在您的服务中，您可以处理OnCustomCommand事件，然后让进行telnet处理的类通过System.ServiceProcess.ServiceController类的ExecuteCommand方法向服务发送命令。 这个特殊的命令基本上会告诉服务停止自身，这也可以通过ServiceController对象来完成。

从您的班级：

Dim oServCtl As System.ServiceProcess.ServiceController
oServCtl.ServiceName = "MyServiceName"
oServCtl.ExecuteCommand(128)

在您的服务范围内：

Protected Overrides Sub OnCustomCommand(ByVal command As Integer)
    Dim oServCtl As System.ServiceProcess.ServiceController

    If command = 128 Then
        oServCtl = New System.ServiceProcess.ServiceController
        oServCtl.ServiceName = "MyServiceName"
        oServCtl.Stop()
        oServCtl.Close()
    End If
End Sub

您可以使用128以上的自定义命令。

Answer 7

VB End语句将停止执行。 但是，它不会执行Dispose或Finalize函数。 我认为关闭主窗体和/或退出Sub Main是更好的方式。 Application.Exit也将终止vb.net程序，但仅在某些消息处理之后。