by Gehan Fernando. (13 Submissions)
Category: Windows System Services
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Wed 16th May 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Windows
API Declarations
Imports System
Imports System.Management
VBcoders
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
No comments have been posted about VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Window. Why not be the first to post a comment about VB.Net --Using This Code U Can Catch Windows Services In Few Seconds .....,Quickly More Than Window.
