Service Management in VB.NET

前端之家收集整理的这篇文章主要介绍了Service Management in VB.NET前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

All of us know there are so many services running in background without our knowledge. We can view,what are the services running on our system by typing services.msc in Run of Start Button.

I will explain how to create a Web Application to manage the services running on our system. This application allows us to see all services present in our system. We can also start,stop,or pause the services. This application will show some details of all services,like its path,state... I created this application in VS.NET 2003.

First create a web application in VB.NET and Name it as ServiceMgmt.

Design the UI as shown below:

There are 4 linkbuttons,one dropdownlistand 7 labels in it.

Add reference to System.Management(in Solution Explorer) as shown below:

Next,

Add this code in Page_Load :

Dim class1 As ManagementClass = New ManagementClass("Win32_Service")

For Each ob As ManagementObject In class1.GetInstances

Dim item1 As ListItem = New ListItem

item1.Text = ob.GetPropertyValue("Name").ToString

item1.Value = ob.GetPropertyValue("Caption").ToString

DropDownList1.Items.Add(item1)

Next

This will load all the services into the ComboBox.

Next add this method:

Private Sub showstatus()

Dim i As Integer = 0

Dim class1 As ManagementClass = New ManagementClass("Win32_Service")

For Each ob As ManagementObject In class1.GetInstances

If ob.GetPropertyValue("State").ToString = "Running" Then

System.Math.Min(System.Threading.Interlocked.Increment(i),i - 1)

End If

If ob.GetPropertyValue("Name").ToString = DropDownList1.SelectedItem.Text.ToString Then

Label2.Text = "Description : " + ob.GetPropertyValue("Description")

Label3.Text = "PathName : " + ob.GetPropertyValue("PathName")

Label4.Text = "ServiceType : " + ob.GetPropertyValue("ServiceType")

Label5.Text = "StartMode : " + ob.GetPropertyValue("StartMode")

Label6.Text = "State : " + ob.GetPropertyValue("State")

End If

Next

Label7.Text = String.Empty

Label7.Text = "Total Number of Services Running : " + i

End Sub

This will be called whenever you select a service from comboBox. This will show some of the details of the service.

Next add this method:

Private Sub servicemgmt(ByVal status As String)

Dim path As ManagementPath = New ManagementPath

path.Server = System.Environment.MachineName

path.NamespacePath = "root/CIMV2"

path.RelativePath = "Win32_service.Name='" + DropDownList1.SelectedItem.Text.ToString + "'"

Dim service As ManagementObject = New ManagementObject(path)

Dim temp As ManagementBaSEObject = service.InvokeMethod(status,Nothing,Nothing)

End Sub

This method will start,pause,continue the service you selected from comboBox.

Next copy this code to Start LinkButton_Click:

servicemgmt("StartService")

showstatus()

Next copy this code to Stop LinkButton_Click:

servicemgmt("StopService")

showstatus()

Next copy this code to Pause LinkButton_Click:

servicemgmt("PauseService")
showstatus()

Next copy this code to Continue LinkButton_Click:

servicemgmt("ResumeService")
showstatus()

By this,we can control our services from IE.

I hope this code will be useful for all. Final screen will be like this:

NOTE: THIS ARTICLE IS CONVERTED FROM C# TO VB.NET USING A CONVERSION TOOL. ORIGINAL ARTICLE CAN BE FOUND ON C# CORNER (http://www.c-sharpcorner.com/).

原文链接:https://www.f2er.com/vb/262328.html

猜你在找的VB相关文章