Imports System.IO

Imports System.ServiceProcess

Public Class Form1

    Dim spoolerStatus As Boolean = False

​

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim service As ServiceController = New ServiceController("Spooler")

        If ((service.Status.Equals(ServiceControllerStatus.Stopped)) Or

            (service.Status.Equals(ServiceControllerStatus.StopPending))) Then

            service.Start()

            MsgBox("Print Spooler Started")

        End If

​

        CheckSpoolerStatus()

​

​

    End Sub

    Sub CheckSpoolerStatus()

        For Each s As ServiceController In ServiceController.GetServices()

            If s.ServiceName = "Spooler" OrElse 'Check if Printer spooler process exists

       s.ServiceName = "Spooler" OrElse

       s.ServiceName = "Spooler" Then

                If s.CanStop AndAlso s.Status = ServiceControllerStatus.Running Then

                    Label1.Text = "Status: Active"

                    Label1.ForeColor = Color.Green

                    spoolerStatus = True

                Else

                    Label1.Text = "Status: Not Active"

                    Label1.ForeColor = Color.Red

                    spoolerStatus = False

​

                End If

            End If

        Next

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If spoolerStatus = True Then

            Button1.Enabled = True

        ElseIf spoolerStatus = False Then

            Button1.Enabled = False

​

        End If

    End Sub

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            For Each s As ServiceController In ServiceController.GetServices()

                If s.ServiceName = "Spooler" OrElse 'Check if Printer spooler process exists

           s.ServiceName = "Spooler" OrElse

           s.ServiceName = "Spooler" Then

                    If s.CanStop AndAlso s.Status = ServiceControllerStatus.Running Then

                        s.Stop()

​

                    End If

                End If

            Next

        Catch ex As Exception

            MsgBox(ex)

        Finally

            Dim strDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\spool\PRINTERS\"

            For Each deleteFile In Directory.GetFiles(strDirectory, "*.*", SearchOption.TopDirectoryOnly)

                File.Delete(deleteFile)

            Next

            Dim s As ServiceController = New ServiceController("Spooler")

            s.Start()

            MsgBox("Task Completed!")

        End Try

​

    End Sub

End Class

​