• Home
 · 
• Windows System Services
 · 
• VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Window

VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Window

VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Windows

API Declarations



Imports System
Imports System.Management



Rate VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Window

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private MgClass As New Management.ManagementClass("Win32_Service")

    Private Sub ButtonLoadServices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoadServices.Click

        Try
            Me.Cursor = Cursors.WaitCursor

            ListView1.Items.Clear()

            Label3.Text = ""
            Label5.Text = ""
            Label7.Text = ""
            Label9.Text = ""

            ButtonLoadServices.Enabled = False
            ButtonLoadServices.Refresh()

            Label1.Text = "0% Complete."
            Label1.Refresh()

            With ProgressBar1
                .Value = 0
                .Minimum = 0
                .Maximum = MgClass.GetInstances().Count
                .Refresh()
            End With

            For Each obj As Management.ManagementObject In MgClass.GetInstances()
                Application.DoEvents()

                Dim MHeader As New ListViewItem()
                Dim SHeader As New ListViewItem.ListViewSubItem()

                MHeader.Text = obj.GetPropertyValue("Caption").ToString

                If obj.GetPropertyValue("Description") <> "" Then
                    SHeader.Text = obj.GetPropertyValue("Description").ToString()
                End If

                ListView1.Items.Add(MHeader).SubItems.Add(SHeader)

                ProgressBar1.Value += 1
                ProgressBar1.Refresh()

                Label1.Text = ((ProgressBar1.Value / ProgressBar1.Maximum) * 100).ToString("0.00") & "% Complete."
                Label1.Refresh()
            Next

            ButtonLoadServices.Enabled = True
            ButtonLoadServices.Refresh()
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ButtonLoadServices.Enabled = True
            ButtonLoadServices.Refresh()
            Me.Cursor = Cursors.Default
        End Try

    End Sub

    Private Sub ListView1_AfterLabelEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LabelEditEventArgs) Handles ListView1.AfterLabelEdit

        e.CancelEdit = True

    End Sub

    Private Sub ListView1_BeforeLabelEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LabelEditEventArgs) Handles ListView1.BeforeLabelEdit

        e.CancelEdit = True

    End Sub

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

        Label3.Text = ""
        Label5.Text = ""
        Label7.Text = ""
        Label9.Text = ""

    End Sub

    Private Sub ListView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick

        Dim SelectItem As String = ""
        Dim SelRow As Integer = 0

        Try
            Me.Cursor = Cursors.WaitCursor

            SelRow = ListView1.SelectedItems.Item(0).Index

            SelectItem += """"
            SelectItem += ListView1.Items.Item(SelRow).Text.ToString()
            SelectItem += """"

            Dim SelQuery As New SelectQuery("Win32_Service", "Caption=" & SelectItem & "")
            Dim ObjectSearcher As New ManagementObjectSearcher(SelQuery)

            For Each service As ManagementObject In ObjectSearcher.Get()
                Label3.Text = service.GetPropertyValue("PathName")
                Label5.Text = service.GetPropertyValue("ServiceType")
                Label7.Text = service.GetPropertyValue("StartMode")
                Label9.Text = service.GetPropertyValue("State")
                Exit For
            Next

            SelQuery = Nothing
            ObjectSearcher.Dispose()
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Cursor = Cursors.Default
        End Try
        
    End Sub

End Class