基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 10 元　

支付宝支付

微信支付

   源码介绍

---

Public Class Server
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' 请在此处添加代码以启动您的服务。此方法应完成设置工作，
        ' 以使您的服务开始工作。
        Try
            开启服务()
            启动服务()
        Catch
        End Try
    End Sub
    Protected Overrides Sub OnStop()
        ' 在此处添加代码以执行任何必要的拆解操作，从而停止您的服务。
        HL.停止监听()
        Try
            N.关闭数据库()
        Catch
        End Try
    End Sub
    Protected Overrides Sub OnPause()
        HL.停止监听()
        MyBase.OnPause()
    End Sub
    Protected Overrides Sub OnShutdown()
        HL.停止监听()
        End
        MyBase.OnShutdown()
    End Sub
    Protected Overrides Sub OnCustomCommand(command As Integer)
        MyBase.OnCustomCommand(command)
        Select Case command
            Case 128
                Try
                    HL.停止监听()
                    开启服务()
                Catch
                End Try
            Case 129
                Try
                    HL.允许外网连接 = True
                Catch
                End Try
            Case 130
                Try
                    HL.允许外网连接 = False
                Catch
                End Try
        End Select
    End Sub
End Class