[vbnet]

-
منقول

لإيقاف خدمة من خدمات ويندوز تحتاج لصلاحية مدير ويندوز.

ولعمل ذلك إتبع الخطوات التالية:
من القائمة Phoject إختر ...WindowsApplication1 Properties
من التبويب Application إضغط زر [View UAC Settings]
إبحث داخل الكود عن السطر requestedExecutionLevel وغير قيمة level إلى "requireAdministrator"
إذهب للقائمة Build واختر WindowsApplication1 Build

الآن إذهب إلى المجلد Release داخل مجلد bin في مجلد المشروع وقم بتشغيل ملف WindowsApplication1.exe

ملاحظة: لا يمكن إيقاف خدمات ويندوز من خلال تشغيل البرنامج من داخل فيجوال ستوديو (أي في وضع Debug)

كود إيقاف خدمة من خدمات الويندوز بتمرير إسم الخدمة

كود :

Private Sub StartStop(ByVal serviceName As String)
    Try
        Dim service As New ServiceProcess.ServiceController(serviceName)
        If (service.Status = ServiceProcess.ServiceControllerStatus.Stopped) Or (service.Status = ServiceProcess.ServiceControllerStatus.StopPending) Then
            MsgBox("الخدمة " & serviceName & " ليست قيد التشغيل", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
        Else
            service.Stop()
            MsgBox("تم إيقاف الخدمة " & serviceName, MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub