'=================================================
'
' Stop a windows service - build as single file.
'
'=================================================

'NOTE
'Compile and run the exe as Admin. 

$Include "Windows.inc"

typedef SC_STATUS_TYPE int
const SC_STATUS_PROCESS_INFO = 0

typedef SC_ENUM_TYPE int
const SC_ENUM_PROCESS_INFO	= 0

type SERVICE_STATUS
	int	dwServiceType
	int	dwCurrentState
	INT	dwControlsAccepted
	INT	dwWin32ExitCode
	INT	dwServiceSpecificExitCode
	INT	dwCheckPoint
	INT	dwWaitHint
endtype

type SERVICE_STATUS_PROCESS
	INT	dwServiceType
	INT	dwCurrentState
	INT	dwControlsAccepted
	INT	dwWin32ExitCode
	INT	dwServiceSpecificExitCode
	INT	dwCheckPoint
	INT	dwWaitHint
	INT	dwProcessId
	INT	dwServiceFlags
endtype

def ServiceStatus as SERVICE_STATUS_PROCESS 
def Xbuffer[10000] as SERVICE_STATUS_PROCESS

type ENUM_SERVICE_STATUS
	pointer	lpServiceName
	pointer	lpDisplayName
	SERVICE_STATUS	ServiceStatus
endtype


declare import, DeleteService(hService AS UINT),int
DECLARE IMPORT, OpenSCManager ALIAS OpenSCManagerA(lpMachineName AS POINTER,lpDatabaseName AS POINTER,dwDesiredAccess AS INT),INT
declare import, OpenService alias OpenServiceA(hSCManager AS UINT,lpServiceName AS POINTER,dwDesiredAccess AS int),int
DECLARE IMPORT, QueryServiceStatus(hService AS INT,lpServiceStatus AS SERVICE_STATUS),INT
declare import, QueryServiceStatusEx(hService as int,InfoLevel as SC_STATUS_TYPE,pointer lpBuffer,int cbBufSize,pointer pcbBytesNeeded),int
declare import, ControlService(hService as int,dwControl as int,lpServiceStatus as SERVICE_STATUS),int


' Service State -- for CurrentState
const SERVICE_STOPPED =	0x1
const SERVICE_START_PENDING =	0x2
const SERVICE_STOP_PENDING = 0x3
const SERVICE_RUNNING =	0x4
const SERVICE_CONTINUE_PENDING =	0x5
const SERVICE_PAUSE_PENDING =	0x6
const SERVICE_PAUSED = 0x7

CONST SERVICE_ERROR_NORMAL = 0x1
CONST SERVICE_DEMAND_START = 0x3
CONST SERVICE_WIN32_OWN_PROCESS = 0x10
const SC_MANAGER_CREATE_SERVICE = 0x2
const SC_MANAGER_ALL_ACCESS =	0xF003F
 

' Service flags for QueryServiceStatusEx
const SERVICE_RUNS_IN_SYSTEM_PROCESS = 0x1

DEF SERVICES_ACTIVE_DATABASE,MyService,ErMes,Display AS String
DEF Error,nSize,Arguments AS Uint
def Bneeded as int

nSize = 255
MyService ="IWBrules"     ' A name for the service.
Display ="IWBDisplayName" ' A display name for the service.
SERVICES_ACTIVE_DATABASE = "ServicesActive"


OPENCONSOLE 'So we can see if there are any errors.
print
print


'==========================================================
'Step 1 - open a connection to the service control manager.
'==========================================================

hSCManager = OpenSCManager(0,0,SC_MANAGER_ALL_ACCESS)
IF hSCManager = 0 THEN
   Error = _GetLastError ()
   _FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,0,Error,0,ErMes,nSize,Arguments)
   Print "  Error by OSCM: ",ErMes
   GOTO Exit
else
	print
	print "  Service manager opened..."
	print
ENDIF


'==========================
'Step 2 - open the service.
'==========================

hService = OpenService(hSCManager,MyService,SC_MANAGER_ALL_ACCESS)
IF hService = 0 THEN
   Error = _GetLastError ()
   _FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,0,Error,0,ErMes,nSize,Arguments)
   Print "  Error by Open Service: ",ErMes
   GOTO Exit
else
	print
	print "  Service was found..."
	print
ENDIF


'============================
'Step 3 - Query the service.
'============================

qs = QueryServiceStatusEx(hService,SC_STATUS_PROCESS_INFO,&Xbuffer,8192,&Bneeded)

IF qs = 0 THEN
   Error = _GetLastError ()
   _FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,0,Error,0,ErMes,nSize,Arguments)
   Print "  Error by Query Service: ",ErMes
   GOTO Exit
else
	print
	print "  No errors... ",qs


   PRINT	"  Type     ",ServiceStatus[1].dwServiceType
	PRINT	"  State    ",ServiceStatus[1].dwCurrentState
	PRINT	"  Accepted ",ServiceStatus[1].dwControlsAccepted
	PRINT	"           ",ServiceStatus[1].dwWin32ExitCode
	PRINT	"           ",ServiceStatus[1].dwServiceSpecificExitCode
	PRINT	"           ",ServiceStatus[1].dwCheckPoint
	PRINT	"           ",ServiceStatus[1].dwWaitHint
   print "  Proc ID  ",ServiceStatus[1].dwProcessId
   print "  Bytes needed = ",Bneeded
	print

   if ServiceStatus[1].dwCurrentState = SERVICE_STOPPED
      print "  Service Stopped."
   endif 

   if ServiceStatus[1].dwCurrentState = SERVICE_RUNNING
      print "  Service Running."
      def lpServiceStatus AS SERVICE_STATUS

		'==========================
		'Step 4 - Stop the service.
		'==========================

      cs = ControlService(hService,SERVICE_CONTROL_STOP,lpServiceStatus)
		IF cs = 0 THEN
			Error = _GetLastError ()
			_FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,0,Error,0,ErMes,nSize,Arguments)
			Print "  Error by Control Service: ",ErMes
			GOTO Exit
      else 
			print
			print "  Service was stopped..."
			print
		ENDIF



   endif 


endif

'=========================================================
'Step 4 - Close the handle to the service control manager.
'=========================================================

_CloseServiceHandle(hSCManager)

LABEL Exit
print
print
print "  Press any key to close..."
print
DO:UNTIL INKEY$<>""