利用.NET現有的控制項就能做的到，看來.net開發起來真的是便利性十足

——————————————-
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim sc As New ServiceProcess.ServiceController()
sc.ServiceName = "服務的名稱"
If sc.Status = ServiceProcess.ServiceControllerStatus.Running Then
sc.Stop()
sc.WaitForStatus(ServiceProcess.ServiceControllerStatus.Stopped)
End If
If sc.Status = ServiceProcess.ServiceControllerStatus.Stopped Then
Try
sc.Start()
sc.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
Catch
End Try

End If
sc.Dispose()
end sub

——————————————————