billchin的专栏

Private Sub RecieveMail()        Dim popMail As jmail.POP3 = New jmail.POP3        Dim MailMS As jmail.Message        Dim Atts As jmail.Attachments        Dim att As jmail.Attachment        Try       

Imports System.ServiceProcessImports System.Configuration.Install 一、判断服务是否存在   Private Function ServiceIsExisted(ByVal ServiceName As String) As Boolean        Dim SV As ServiceController() =