加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

Service Management in VB.NET

发布时间:2020-12-16 23:16:05 所属栏目:大数据 来源:网络整理
导读: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

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/).

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读