visual basic(vb.net)中如何使用创建日志的方法对windows 服务或网络服务进行调试

第1部分：应用场景

我们在开发windows服务或者网络服务的过程中，

最大的难题就是我们没办法像Windows窗体那样，

进行代码一行一行的运行调试，

不过，我们掌握了这个方法，调试虽然不便，

但是也能让我们找到错误，从而对服务、接口进行优化。

第2部分：解决方法

其实这个法子的思路就是：

1、根据报错，自己在大脑过一遍程序运行流程，

推测大致可能出错的位置；

2、在那个位置附近，将可能的出错点的变量或者错误信息存储到txt文件中，

供我们查看并用于纠错。

建立日志的代码如下：

    Public Sub BuildTxt(ByVal ErrInfor As String)
        Try
            If InStr(ErrInfor, "正在中止线程") > 0 Then
                Exit Sub
            End If
            If InStr(ErrInfor, "Thread was being aborted.") > 0 Then
                Exit Sub
            End If
            
            rem 获取当前程序的路径
            Dim sStr As String = System.Environment.CurrentDirectory
            rem  插入内容
            Dim file = New System.IO.StreamWriter(sStr + "\日志.log", True)
            file.WriteLine(Now.ToLongDateString + " " + Now.ToLongTimeString + vbCrLf + ErrInfor)
            file.Close()
        Catch ex As Exception
        End Try
    End Sub

调用以上过程即可

第3部分：结论

通过建立日志调试的方法，

可以很好的帮助我们测试程序，

尤其是服务或者接口！