.NET (Core and Framework)

<br />
 Private Declare Auto Function OpenSCManager Lib "advapi32.dll" (ByVal strMachineName As String, ByVal strServiceControllerDB As String, ByVal intServiceController As Integer) As IntPtr<br />
    Private Declare Auto Function CreateService Lib "advapi32.dll" (ByVal SCHANDLE As IntPtr, ByVal strServiceName As String, ByVal strDisplayName As String, _<br />
    ByVal intDesiredAccess As Integer, ByVal intServiceType As Integer, ByVal intStartType As Integer, ByVal intErrorControl As Integer, ByVal strServicePath As String, _<br />
    ByVal strLoadOrderGroup As String, ByVal intTagId As Integer, ByVal strDependencies As String, ByVal strServiceStartName As String, ByVal strPassword As String) As IntPtr<br />
    Private Declare Auto Sub CloseServiceHandle Lib "advapi32.dll" (ByVal SCHANDLE As IntPtr)<br />
    Private Declare Auto Function StartService Lib "advapi32.dll" (ByVal SVHANDLE As IntPtr, ByVal intNumServiceArgs As Integer, ByVal strServiceArgVectors As String) As Integer<br />
    Private Declare Auto Function OpenService Lib "advapi32.dll" (ByVal SCHANDLE As IntPtr, ByVal strServiceName As String, ByVal intNumServiceArgs As Integer) As IntPtr<br />
    Private Declare Auto Function DeleteService Lib "advapi32.dll" (ByVal SVHANDLE As IntPtr) As Integer<br />
    Private Declare Auto Function GetLastError Lib "advapi32.dll" () As Integer<br />
    Private Declare Function ControlService Lib "advapi32.dll" (ByVal SVHANDLE As IntPtr, ByVal intControl As Integer, ByVal objServiceStatus As SERVICE_STATUS) As Integer<br />
<br />
 Friend Function InstallService(ByVal strServicePath As String, ByVal strServiceName As String, ByVal strServiceDisplayName As String) As Boolean<br />
        Try<br />
            'Get handle to Service Control Manager<br />
            Dim SCMHANDLE As IntPtr = OpenSCManager(Nothing, Nothing, SC_MANAGER_CREATE_SERVICE)<br />
            If SCMHANDLE.ToInt32 <> 0 Then<br />
                'Get Handle to Service<br />
                Dim SERVICEHANDLE As IntPtr = CreateService(SCMHANDLE, strServiceName, strServicePath, SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS, SERVICE_AUTO_START, SERVICE_ERROR_NORMAL, strServiceDisplayName, Nothing, 0, Nothing, Nothing, Nothing)<br />
                If SERVICEHANDLE.ToInt32 <> 0 Then<br />
                    If StartService(SERVICEHANDLE, 0, Nothing) <> 0 Then<br />
                        'Service started, close handler.<br />
                        CloseServiceHandle(SCMHANDLE)<br />
                        Return True<br />
                    Else<br />
                        'Service could not be started. Service could be running as well ( or installed?)<br />
                        Return False<br />
                    End If<br />
                Else<br />
                    'Service handler could not be opened.<br />
                End If<br />
            Else<br />
                'Service Control manager could not be opened.<br />
                Return False<br />
            End If<br />
        Catch ex As Exception<br />
            Throw ex<br />
        End Try<br />
    End Function<br />
<br />
  Friend Function Uninstall(ByVal strServiceName As String)<br />
        Dim GENERIC_WRITE As Integer = &H40000000<br />
        'Get handle to Service Control Manager<br />
        Dim SCMHANDLE As IntPtr = OpenSCManager(Nothing, Nothing, GENERIC_WRITE)<br />
        'Get Handle to Service<br />
        If SCMHANDLE.ToInt32 <> 0 Then<br />
            Dim DELETE As Integer = &H10000<br />
            Dim SERVICEHANDLE As IntPtr = OpenService(SCMHANDLE, strServiceName, DELETE)<br />
            If SERVICEHANDLE.ToInt32 <> 0 Then<br />
                If DeleteService(SERVICEHANDLE) <> 0 Then<br />
                    'Service deleted<br />
                    CloseServiceHandle(SCMHANDLE)<br />
                    Return True<br />
                Else<br />
                    'Service could not be deleted<br />
                    CloseServiceHandle(SCMHANDLE)<br />
                    Return False<br />
                End If<br />
            Else<br />
                'Service handler could not be opened.<br />
                Return False<br />
            End If<br />
        Else<br />
            'Service Control manager could not be opened.<br />
            Return False<br />
        End If<br />
    End Function<br />
<br />