[kslawy]

كود تعطيل أو تفعيل الخدمة :

كود :

Imports System.IO


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ServiceRunType("tlntsvr", False)
    End Sub


    Public Sub ServiceRunType(ByVal SrvName As String, ByVal SrvEnable As Boolean)
        Try
            Dim si As New ProcessStartInfo
            Dim command As String = ""
            With si
                .FileName = "cmd.exe"
                If SrvEnable = True Then
                    command = String.Format("/k sc config {0} start= auto", SrvName)
                Else
                    command = String.Format("/k sc config {0} start= disabled", SrvName)
                End If
                .Arguments = command
                .CreateNoWindow = True
                .RedirectStandardError = True
                .RedirectStandardOutput = True
                .UseShellExecute = False
            End With
            Dim p As Process = Process.Start(si)
            Dim so As StreamReader = p.StandardOutput
            Dim se As StreamReader = p.StandardError
            Dim StrContent As String = so.ReadToEnd
            If StrContent.ToLower.Contains("success") Then
                If SrvEnable = True Then
                    MsgBox("تم تفعيل الخدمة بنجاح", MsgBoxStyle.Exclamation, "تفعيل")
                Else
                    MsgBox("تم تعطيل الخدمة بنجاح", MsgBoxStyle.Exclamation, "تعطيل")
                End If
            ElseIf StrContent.ToLower.Contains("field") Then
                MsgBox("حدث خطأ . لا يمكن تفعيل أو تعطيل الخدمة حاول مرة أخرى", MsgBoxStyle.Exclamation, "خطأ")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub


    
End Class

الخدمة tlntsvr وضعتها كمثال ضع بدلها اسم الخدمة تبعك


****
***
**
*