后台服务程序开发

1、一直感觉VC+太复杂了，但昨天看了汪蒲阳编著的因特网应用编程，其中写到后台效劳程序的编写，论述的非常详细，而且逻辑清晰，看了之后感觉明白不少，故拿来与需要之人共享，并更正了原程序的一些错误，补充了一些材料。另外还有一种用C+编写后台效劳程序的思路不算.NET上效劳程序开发模型,以后整理好了再发上来。在2000/XP等基于NT 的操作系统中，有一个效劳管理器，它管理的后台进程被称为 service。效劳是一种应用程序类型，它在后台运行，与 UNIX 后台应用程序类似。效劳应用程序通常可以在本地和通过网络为用户提供一些功能，例如客户端/效劳器应用程序、Web 效劳器、数据库效劳器以及其他基于效劳器

2、的应用程序。后台效劳 程序是在后台悄悄运行的。我们通过将自己的程序登记为效劳，可以使自己的程序不出现在任务管理器中，并且随系统启动而最先运行，随系统关闭而最后停止。效劳控制管理器是一个RPC 效劳器，它显露了一组应用编程接口，程序员可以方便的编写程序来配置效劳和控制远程效劳器中效劳程序。效劳程序通常编写成控制台类型的应用程序，总的来说，一个遵守效劳控制管理程序接口要求的程序包含下面三个函数：1。效劳程序主函数main：调用系统函数 StartServiceCtrlDispatcher 连接程序主线程到效劳控制管理程序。2。效劳入口点函数ServiceMain：执行效劳初始化任务，同时执行多个效

3、劳的效劳进程有多个效劳入口函数。3。控制效劳处理程序函数Handler：在效劳程序收到控制请求时由控制分发线程引用。此处是Service_Ctrl。 另外在系统运行此效劳之前需要安装登记效劳程序：installService 函数。删除效劳程序那么需要先删除效劳安装登记：removeService 函数。效劳类型：类型说明SERVICE_FILE_SYSTEM_DRIVER2文件系统驱动效劳。SERVICE_KERNEL_DRIVER1驱动效劳。SERVICE_WIN32_OWN_PROCESS16独占一个进程的效劳。SERVICE_WIN32_SHARE_PROCESS32与其他效劳共享一个

4、进程的效劳。新建WIN32控制台程序， 其源文件名为service.cpp 。我用的开发工具是VC+.NET。1效劳程序主函数效劳控制管理程序启动效劳程序后，等待效劳程序主函数调用系统函StartServiceCtrlDispatcher。一个SERVICE_WIN32_OWN_PROCESS 类型的效劳应该立即调用 StartServiceCtrlDispatcher 函数，可以在效劳启动后让效劳入口点函数完成初始化工作。对于 SERVICE_WIN32_OWN_PROCESS 类型的效劳和程序中所有效劳共同的初始化工作可以在主函数中完成，但不要超过30秒。否那么必须建立另外的线程完成这些共

5、同的初始化工作，从而保证效劳程序主函数能及时地调用 StartServiceCtrlDispatcher 函数。主函数处理了三中命令行参数：- install,- remove,- debug,分别用于安装，删除和调试效劳程序。如果不带参数运行，那么认为是效劳控制管理出现启动该效劳程序。参数不正确那么给出提示信息。StartServiceCtrlDispatcher 函数负责把程序主线程连接到效劳控制管理程序。具体描述如下：BOOL StartServiceCtrlDispatcher(const LPSERVICE_TABLE_ENTRY lpServiceTable);lpServiceS

6、tartTable 指向 SERVICE_TABLE_ENTRY 结构类型的数组，他包含了调用进程所提供的每个效劳的入口函数和字符串名。表中的最后一个元素必须为 NULL，指明入口表结束。SERVICE_TABLE_ENTRY 结构具体描述如下：typedef struct _SERVICE_TABLE_ENTRYLPTSTR lpServiceName; LPSERVICE_MAIN_FUNCTION lpServiceProc; SERVICE_TABLE_ENTRY, *LPSERVICE_TABLE_ENTRY;lpServiceName 是一个以 NULL 结尾的字符串，标识效劳名。

7、如果是 SERVICE_WIN32_OWN_PROCESS 类型的效劳，这个字符串会被忽略。lpServiceProc 指向效劳入口点函数。/效劳程序主函数。#include "stdafx.h"#include "Windows.h"#define SZAPPNAME"serverSample"/效劳程序名#define SZSERVICENAME"serviceSample"/标识效劳的内部名/内部变量boolbDebugServer=false;SERVICE_STATUSssStatus;SERVICE_S

8、TATUS_HANDLEsshStatusHandle;DWORDdwErr=0;TCHARszErr256;/下面的函数由程序实现void WINAPI Service_Main(DWORD dwArgc, LPTSTR *lpszArgv);void WINAPI Service_Ctrl(DWORD dwCtrlCode);void installService();void removeService();void debugService(int argc,char* argv);bool ReportStatusToSCMgr(DWORD dwCurrentState,DWORD

9、dwWin32ExitCode,DWORD dwWaitHint);void AddToMessageLog(LPTSTR lpszMsg);int _tmain(int argc, _TCHAR* argv)SERVICE_TABLE_ENTRY dispatchTable=TEXT(SZSERVICENAME),(LPSERVICE_MAIN_FUNCTION)Service_Main, NULL,NULL;if(argc>1)&&(*argv1='-')|(argv1="/")if(_stricmp("install&q

10、uot;,argv1+1)=0)installService();else if(_stricmp("remove",argv1+1)=0)removeService();else if(_stricmp("debug",argv1+1)=0)bDebugServer=true;debugService(argc,argv);else/如果未能和上面的如何参数匹配，那么可能是效劳控制管理程序来启动该程序。立即调用/StartServiceCtrlDispatcher 函数。printf("%s - install to install the

11、service n",SZAPPNAME);printf("%s - remove to remove the service n",SZAPPNAME);printf("%s - debug to debug the service n",SZAPPNAME);printf("n StartServiceCtrlDispatcher being called.n");printf("This may take several seconds.Please wait.n");if(!StartServic

12、eCtrlDispatcher(dispatchTable)AddToMessageLog(TEXT("StartServiceCtrlDispatcher failed.");elseAddToMessageLog(TEXT("StartServiceCtrlDispatcher OK.");exit(0);return 0;2效劳入口点函数效劳入口点函数 service_main 首先调用系统函数 RegisterServiceCtrlHandler 注册效劳控制处理函数 service_ctrl,然后调用 ReportStatusToSCMgr 函

13、数，它通过系统函数 SetServiceStatus 更新效劳的状态，然后调用特定的效劳初始化入口函数 ServiceStart 完成具体的初始化工作。/效劳入口点函数void ServiceStart(DWORD dwArgc,LPTSTR* lpszArgv);/具体效劳的初始化入口函数 void WINAPI Service_Main(DWORD dwArgc, LPTSTR *lpszArgv)/注册效劳控制处理函数sshStatusHandle=RegisterServiceCtrlHandler(TEXT(SZSERVICENAME),Service_Ctrl);/如果注

14、册失败if(!sshStatusHandle)goto cleanup;return;/初始化 SERVICE_STATUS 结构中的成员ssStatus.dwServiceType=SERVICE_WIN32_OWN_PROCESS;ssStatus.dwServiceSpecificExitCode=0;/更新效劳状态if(!ReportStatusToSCMgr(SERVICE_START_PENDING,/效劳状态，The service is starting.NO_ERROR, /退出码3000) /等待时间goto cleanup; /更新效劳状态失败那么转向 cleanupSe

15、rviceStart(dwArgc,lpszArgv);return;cleanup:/把效劳状态更新为 SERVICE_STOPPED，并退出。if(sshStatusHandle)(void)ReportStatusToSCMgr(SERVICE_STOPPED,dwErr,0);3控制处理程序函数函数 Service_Ctrl 是效劳的控制处理程序函数，由主函数线程的控制分发程序引用。在处理控制请求码时，应该在确定的时间间隔内更新效劳状态检查点，防止发生效劳不能响应的错误。/控制处理程序函数void WINAPI Service_Ctrl(DWORD dwCtrlCode)/处理控制请求

16、码switch(dwCtrlCode)/先更新效劳状态为 SERVICDE_STOP_PENDING,再停止效劳。case SERVICE_CONTROL_STOP:ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);ServiceStop();/由具体的效劳程序实现return;/暂停效劳case SERVICE_CONTROL_PAUSE:ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);ServicePause();/由具体的效劳程序实现ssStatus.dwCurren

17、tState=SERVICE_PAUSED;return;/继续效劳case SERVICE_CONTROL_CONTINUE:ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);ServiceContinue();/由具体的效劳程序实现ssStatus.dwCurrentState=SERVICE_RUNNING;return;/更新效劳状态case SERVICE_CONTROL_INTERROGATE:break;/无效控制码default:break;ReportStatusToSCMgr(ssStatus.dwCurrentS

18、tate,NO_ERROR,0);除了系统定义的五种控制码外还有一种是：SERVICE_CONTROL_SHUTDOWN，用户还可自定义控制码，其取值范围是128-255。用户可以通过控制面板中的效劳项向特定效劳程序的控制处理函数发送控制码，程序员可以调用系统函数 ControlService 直接向效劳程序的控制处理函数发送控制码。其函数原型如下：BOOL ControlService(SC_HANDLE hService,DWORD dwControl,LPSERVICE_STATUS lpServiceStatus);hService ：函数 OpenService or CreateS

19、ervice 返回的效劳程序句柄。dwControl ：控制码，不能是SERVICE_CONTROL_SHUTDOWN。lpServiceStatus：返回最后收到的效劳状态信息。4安装效劳程序每个已安装效劳程序在 HKEY_LOCAL_MACHINESYSTECurrentControlSetServices 下都有一个效劳名的关键字，程序员可以调用系统函数 CreateService 安装效劳程序，并指定效劳类型，效劳名等。这个函数创立一个效劳对象，并将其增加到相关的效劳控制管理器数据库中。下面是函数原型： SC_HANDLE CreateService( SC_HANDLE h

20、SCManager, /效劳控制管理程序维护的登记数据库的句柄，由系统函数OpenSCManager 返回 LPCTSTR lpServiceName, /以NULL 结尾的效劳名，用于创立登记数据库中的关键字 LPCTSTR lpDisplayName, /以NULL 结尾的效劳名，用于用户界面标识效劳 DWORD dwDesiredAccess, /指定效劳返回类型 DWORD dwServiceType, /指定效劳类型 DWORD dwStartType, /指定何时启动效劳 DWORD dwErrorControl, /指定效劳启动失败的严重程度 LPCTSTR lpBinaryPa

21、thName, /指定效劳程序二进制文件的路径 LPCTSTR lpLoadOrderGroup, /指定顺序装入的效劳组名 LPDWORD lpdwTagId, /忽略，NULL LPCTSTR lpDependencies, /指定启动该效劳前必须先启动的效劳或效劳组 LPCTSTR lpServiceStartName, /以NULL 结尾的字符串，指定效劳帐号。如是NULL,那么表示使用LocalSystem 帐号 LPCTSTR lpPassword /以NULL 结尾的字符串，指定对应的口令。为NULL表示无口令。但使用LocalSystem时填NULL);对于一个已安装的效劳程序

22、，可以调用系统函数 OpenService 来获取效劳程序的句柄下面是其函数原型：SC_HANDLE OpenService( SC_HANDLE hSCManager, LPCTSTR lpServiceName, DWORD dwDesiredAccess);hSCManager ：效劳控制管理程序微服的登记数据库的句柄。由函数 OpenSCManager function 返回 这个句柄。 lpServiceName ：将要翻开的以NULL 结尾的效劳程序的名字，和 CreateService 中的 lpServiceName 相对应。 dwDesiredAccess ：指定效劳的访问类

23、型。效劳响应请求时，首先检查访问类型。用CreateService 或OpenService 翻开的效劳程序句柄使用完毕后必须用CloseServiceHandle 关闭。OpenSCManager翻开的效劳管理数据库句柄也必须用它来关闭。/安装效劳程序void installService()SC_HANDLE schService;SC_HANDLE schSCManager;TCHAR szPath512;/得到程序磁盘文件的路径if(GetModuleFileName(NULL,szPath,512)=0)_tprintf(TEXT("Unable to install %s

24、 - %s n"),TEXT(SZAPPNAME),GetLastError();/1获取调用函数返回的最后错误码return;/翻开效劳管理数据库schSCManager=OpenSCManager(NULL,/本地计算机NULL,/默认的数据库SC_MANAGER_ALL_ACCESS/要求所有的访问权);if(schSCManager)/登记效劳程序schService=CreateService(schSCManager,/效劳管理数据库句柄TEXT(SZSERVICENAME),/效劳名TEXT(SZAPPNAME),/用于显示效劳的标识SERVICE_ALL_ACCESS

25、,/响应所有的访问请求SERVICE_WIN32_OWN_PROCESS,/效劳类型SERVICE_DEMAND_START,/启动类型SERVICE_ERROR_NORMAL,/错误控制类型szPath,/效劳程序磁盘文件的路径NULL,/效劳不属于任何组NULL,/没有tag标识符NULL,/启动效劳所依赖的效劳或效劳组,这里仅仅是一个空字符串NULL,/LocalSystem 帐号NULL);if(schService)_tprintf(TEXT("%s installed. n"),TEXT(SZAPPNAME);CloseServiceHandle(schServ

26、ice);else_tprintf(TEXT("CreateService failed - %s n"),GetLastError();CloseServiceHandle(schSCManager);else_tprintf(TEXT("OpenSCManager failed - %s n"),GetLastError();5停止和删除已安装的效劳程序 /停止和删除已安装的效劳程序void removeService()SC_HANDLEschService;SC_HANDLEschSCManager;/翻开效劳管理数据库schSCMan

27、ager=OpenSCManager(NULL,/本地计算机NULL,/默认的数据库SC_MANAGER_ALL_ACCESS/要求所有的访问权);if(schSCManager)/获取效劳程序句柄schService=OpenService(schSCManager,/效劳管理数据库句柄TEXT(SZSERVICENAME),/效劳名SERVICE_ALL_ACCESS/响应所有的访问请求);if(schService)/试图停止效劳if(ControlService(schService,/效劳程序句柄SERVICE_CONTROL_STOP,/停止效劳请求码&ssStatus/接

28、收最后的效劳状态信息)_tprintf(TEXT("Stopping %s."),TEXT(SZAPPNAME);Sleep(1000);/等待效劳停止/while(QueryServiceStatus(schService,&ssStatus)if(SERVICE_STOP_PENDING=ssStatus.dwCurrentState)_tprintf(TEXT(".");Sleep(1000);elsebreak;if(SERVICE_STOPPED=ssStatus.dwCurrentState)_tprintf(TEXT("n

29、 %s stopped. n"),TEXT(SZAPPNAME);else_tprintf(TEXT("n %s failed to stopp. n"),TEXT(SZAPPNAME);/删除已安装的效劳程序安装if(DeleteService(schService)_tprintf(TEXT("%s removed. n"),TEXT(SZAPPNAME);else_tprintf(TEXT("DeleteService failed - %s. n"), GetLastError();CloseServiceHandl

30、e(schService);else_tprintf(TEXT("OpenService failed - %s n"),GetLastError();CloseServiceHandle(schSCManager);else_tprintf(TEXT("OpenSCManager failed - %s n"),GetLastError();在编译程序的时候，我们会觉察ServiceStop();ServicePause();ServiceContinue();等三个函数没有具体实现，这对于理解此文的人来说应该不难编写，在此我可以给点文档内的参考：声明

31、     SetTheServiceStatus(函数，/        /  SetTheServiceStatus -   This just wraps up SetServiceStatus.   /    void SetTheServiceStatus(DWORD dwCurrentState, DWORD dwWin32ExitCode,      &#

32、160;                     DWORD dwCheckPoint,   DWORD dwWaitHint)         SERVICE_STATUS ss;  / Current status of the service.    &

33、#160; /       / Disable control requests until the service is started.      /       if (dwCurrentState = SERVICE_START_PENDING)         ss.dwControlsAccepted = 0;    

34、;  else         ss.dwControlsAccepted =                       SERVICE_ACCEPT_STOP|SERVICE_ACCEPT_SHUTDOWN;      

35、60;                / Other flags include SERVICE_ACCEPT_PAUSE_CONTINUE                       / and SERVICE_ACCEPT_SHUTDOWN.      / Initialize ss structure.